宏例子: 打開指定目錄逐一處理所有零件的瑣事

小鱼_游游 · 发表于 2014-9-25 12:23:09

经典图书

【補充】試用梧桐版主的「另存igs格式代碼」，情況如下…(是否代碼編寫不當所造成？)
1.第一次可以執行成功。再選擇其他(單一，非複選)資料夾，還是只有對前次所選資料夾內的檔案動作。
即使重新開機，依舊如此--->難道有記憶的問題？
2.複選資料夾，執行宏代碼，依然只針對第一次選擇的資料夾動作，除非在每個資料之後加上""
此時，會對全部所選資料夾動作，但是轉存igs格式的結果，只會放存在第一次選取的資料夾…
而不是依個別的資料夾存放。
3.若是依悶哥教程中的代碼不添加任何動作語法(即結果是遍歷所選資料夾中所有零件，打開後直接存檔)
則沒有任何問題。執行動作是成功的。(因為檔案日期有更新。)

jonychan · 发表于 2014-9-25 15:59:05

梧桐加上了另存成igs格式的代碼，執行起來是有小問題的。
我就沒有添加任何代碼了，直接執行工程师的代碼(等於打開重新存檔)。
操作如下，請悶哥指導~~

另外，請問悶哥，為什麼這段新增的代碼無法在2012版執行呢？

xp321 · 发表于 2014-9-25 19:17:22

经典图书

請問執行的情況是怎樣？有沒有錯誤提示？

qqmtuo · 发表于 2014-9-25 22:11:02

还请智能附上宏
我昨晚在家里修改过几次，智能现有的我也记不清是那个版本了

dwolfing · 发表于 2014-9-26 04:26:02

经典案例图书

还有一种可以执行的情况
打开目标文件夹的一个零件，另存为IGS，（关闭或不关闭零件）
再执行宏，能够完成另存
重启SW后，宏不能完成另存
solidworks机械工程师论坛

洪☆林 · 发表于 2014-9-26 05:11:08

回悶哥，不用執行…代碼貼上就亮紅了…(如下圖，2012版次)
也請悶哥指導，怎麼會如梧桐的情況，另存成igs格式時，
會將不同資料夾的檔案全部存到同一個…

cihya · 发表于 2014-9-26 05:22:28

经典案例图书

回家我又测试了一下
昨天的文件夹还是会出现不选择也同样执行的现象。（查看了VB的监视窗口，在执行完已经选择的文件夹后不知道为什么就跳到诡秘的文件夹了。这时PartFileName的值指向诡秘文件夹，PartPaths的值没有指向诡秘文件夹，见鬼了）
重新弄两个文件夹后没有出现执行和选择不一致的现象。
还请智能删除昨天的文件夹后再重新试验一下
修改代码
TextBox1 = TextBox1 & myPath & "" & Chr(13)

wbin330 · 发表于 2014-9-26 08:58:11

悶人不清楚為什麼會這樣，希望智能找出原因，並請告知，期待中。

风凌宇 · 发表于 2014-9-26 10:41:15

分別下載了梧桐的兩個宏，奇怪內容差距很大，而且內含亂碼，是不是悶人錯過了一些事請？
而且，到現時為止，還是搞不清梧桐打算具體加入什麼功能。

jianggczx · 发表于 2014-9-26 11:49:53

经典图书

回大王
宏内的代码都是复制大王提供的，乱码可能是简体和繁体转换的原因。
因为后来的宏是用大王提供的代码，所以和先前的有差别
宏的功能是把文件夹中的零件全部另存为igs格式。
开始MyFileName的值还在选择的文件夹，但是这个文件夹搜索完成后就跳到了另外一个当前未被选择的文件夹。

summer2015 · 发表于 2014-9-26 14:42:01

謝謝梧桐回覆。
首先，不需要用大字體，默認的字體已經可以。
另外，所說的亂碼，相信的經過繁體電腦編輯再到梧桐的簡體電腦所致。
雖然代碼中的註解顯示為亂碼沒有影響，不過最好還是弄成看得懂，以利維護程序。
悶人不是反對私下分組討論，但也是需要顧慮其他人的感受，有必要說清楚一點的。

591818723 · 发表于 2014-9-26 19:27:28

知道了。
还请大王测试，看能否遇到gif中的情况。

kk610113 · 发表于 2014-9-26 22:04:21

用您的宏略作修改：
1. 更正所有亂碼為GB碼
2. 補充""字符
3. 加上輸出位置的選項
4. 在3個對話框加上了具意義的標題

solidworks机械工程师论坛

注册什么啊 · 发表于 2014-9-26 22:52:30

谢谢wutong490版主无私分享，
但下载了提供的宏，用过了，什么也没发生，不明白用处，可否说明？
另，俺逐一帖子看过，感觉有点鸡同鸭讲，看得俺也糊涂了，请问wutong490版主可否明示？帮助像俺这样的菜鸟也能了解在讨论什么，先行谢过！

murphy · 发表于 2014-9-26 23:03:24

加入QQ群
参与讨论和学习

或扫描二维码加入

请问大侠用宏给零件加入自定义属性及值，这个宏语句怎么写？望大侠及各位高手赐教！

继续恋歌 · 发表于 2014-9-26 23:40:39

经典案例图书

solidworks机械工程师论坛大说的极是，是俺的表达有问题。
现在这个几个调用Windows-API 的宏都偶尔会出现处理未选择文件夹中零件的情况。
这个不知道是为什么，当然也不能说和Windows-API 有关。
还请看40楼的gif 。后面宏的MyFileName指向了一个并未选择的文件夹中的零件。（在图片右下角的监事窗口可以看到MyFileName的值）

huzifudiao · 发表于 2014-9-27 01:37:40

加入QQ群
参与讨论和学习

或扫描二维码加入

谢谢版主回帖说明，让俺可明白多一点。

不过俺怀疑25楼的附件有问题，估计是个错手上传的不正确文件吧。
俺看了一下在35楼的附件，有可能是代码中欠缺对变量的声明，导致不稳定，
还是建议将所有变量作出适当的声明，一来更稳稳定，更可节约系统资源。
比如：
Dim MyFIleName As String

ganguowei · 发表于 2014-9-27 02:03:49

经典案例图书

感谢分享！万分感谢！

jjdqxczk1986 · 发表于 2014-9-27 05:38:40

回大侠
这个早定义没能解决根本问题
倒是我自己乱弄了一下，暂时解决了这个问题
For i = 0 To UBound(PartPaths) - 1
这样暂时没有出现问题，但是我不知道原因

GQY-01 · 发表于 2014-9-27 09:42:55

终于找到症结，恭喜版主。

		自动登录	找回密码
密码			立即注册

宏例子: 打開指定目錄逐一處理所有零件的瑣事

浏览过的版块