|
在工作中需要在铁管上的孔上注明是否为通孔,想通过宏来解决,但是却出现不能同时兼顾的现象,问题见下图(如果宏内有加直径符号,标注方孔时会出现直接符号,如果不加,标注圆孔时又没有直径符号),下面的代码是没加直径符号的代码,怎么能让宏自动判断是否要加直径符号,请高手帮忙。
Sub main()
7 |4 b+ i2 i6 u+ d- |9 P! r
Set swApp = CreateObject("SldWorks.Application")# X3 H/ L1 e5 w) n) S% ^7 y- [% P
Set Part = swApp.ActiveDoc
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11, "", "通", 1, "", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 11, 11, "", "通孔", 1, "", "", 0$ p1 @& m, U) o( M0 y
Part.ClearSelection
End Sub
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|