解决遍历宏保存问题 暨 阿丹要求的批量修改体积单位

在遍历宏内加入以下代码：

1.                 ChildModel.SetUserPreferenceIntegerValue swUnitsMassPrOPMass, swUnitsMassPropMass_Grams '设质量定单位为克
   
2.                 ChildModel.DeleteCustomInfo2 "", "重量" '删除重量自定义属性
   
3.                 ChildModel.DeleteCustomInfo2 ChildConfString, "重量" '删除重量配置特定属性
   
4.                 ChildModel.AddCustomInfo3 ChildConfString, "重量", 30, Chr(34) & "SW-Mass@@" & ChildConfString & "@*" & ChildName & Chr(34) '加入重量配置特定属性
   
5.                 ChildModel.SetUserPreferenceIntegerValue swUnitsMassPropLength, swCM '设定体积单位为厘米
   
6.                 ChildModel.SetUserPreferenceIntegerValue swUnitsMassPropVolume, swUnitsMassPropVolume_Centimeters3 '设定单位每立方厘米
   
7.                 ChildModel.DeleteCustomInfo2 "", "体积" '删除体积自定义属性
   
8.                 ChildModel.DeleteCustomInfo2 ChildConfString, "体积" '删除体积配置特定属性
   
9.                 ChildModel.AddCustomInfo3 ChildConfString, "体积", 30, Chr(34) & "SW-Volume@@" & ChildConfString & "@*" & ChildName & Chr(34) '加入体积配置特定属性
   
10.                 ChildModel.SetUserPreferenceIntegerValue swUnitsMassPropDecimalPlaces, 8 '质量及体积小数后8位
    
11.                 ChildModel.SketchManager.Insert3DSketch True '插入三低草图
    
12.                 ChildModel.SketchManager.Insert3DSketch True '离开三低草图

复制代码

加入到下图红框位置：

謝謝萊大！先行收下！明日好好享用~~

闷 菜 大
才知道

恭喜莱大，阿丹中招了

報告萊大！
阿丹已經按您分享的代碼做修改了，也成功生成了裝配需要數目、質量、體積三個屬性…
可是，單位沒有變化…(應該是114.22xxxxxx)

gt.adan 发表于 2014-9-18 23:52
謝謝菜大！先行收下！明日好好享用~~

丹婶误会啦，俺乃『莱茵河之虫』也，与【菜】一点关系也无滴。

估計蛋大在不同版本試驗時引起"引用"丟失, 導致某些"常數代碼"懸空.

解決方法很簡單, 不用"常數代碼"直接用"值",
亦即是說
swUnitsMassPropMass 改為 259
swUnitsMassPropMass_Grams 改為 2
swUnitsMassPropLength 改為 258
swCM 改為 1
swUnitsMassPropVolume 改為 260
swUnitsMassPropVolume_Centimeters3 改為 5

備註:
swUnitsMassPropMass
(1=毫克, 2=克, 3=公斤, 4=磅)

swUnitsMassPropLength
(0=毫米, 1=厘米, 2=米, 3=英寸, 4=英尺, 5=英尺+寸, 6=埃米, 7=納米, 8=微米, 9=千分一英寸, 10=百萬分一英寸)

swUnitsMassPropVolume
(1=立方埃米, 2=立方納米, 3=立方微米, 4=立方毫米, 5=立方厘米, 6=立方米, 7-10=英制容量)

Francis 发表于 2014-9-19 18:37
估計蛋大在不同版本試驗時引起"引用"丟失, 導致某些"常數代碼"懸空.

解決方法很簡單, 不用"常數代碼"直接 ...

阿丹回覆得晚了，悶大勿怪~
報告悶大，回家試了一下您說的直接用「值」來替換代碼，但還是失敗的。
後來發現，我的零件模板，其單位系統是設定在MMGS，
腦筋一轉把模板的單位系統改成 Custom 再重新建模一次，
按菜大的代碼執行宏文件以後，成功了！但…這是神馬情況呀？

---

gt.adan 发表于 2014-9-19 23:58
阿丹回覆得晚了，悶大勿怪~
報告悶大，回家試了一下您說的直接用「值」來替換代碼，但還是失敗的。
後來 ...

感謝丹哥孜孜不倦研習, 找出了原因是MMGS封鎖旗下設定, 欽敬! 欽敬!

在設定單位語句前插入以下一句, 應該可以解決了:

1. ChildModel.SetUserPreferenceIntegerValue swUnitSystem, swUnitSystem_Custom '單系統位=Custom

复制代码

或

1. ChildModel.SetUserPreferenceIntegerValue 263, 4 '單系統位=Custom

复制代码

Francis 发表于 2014-9-20 00:15
感謝丹哥孜孜不倦研習, 找出了原因是MMGS封鎖旗下設定, 欽敬! 欽敬!

在設定單位語句前插入以下一句, 應 ...

報告悶老大！！成功了！！






可以好好睡覺了…><