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

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

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 '离开三低草图

复制代码

加入到下图红框位置：

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

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