solidworks 使用宏在标注后加注释

snycef

在工作中需要在铁管上的孔上注明是否为通孔，想通过宏来解决，但是却出现不能同时兼顾的现象，问题见下图（如果宏内有加直径符号，标注方孔时会出现直接符号，如果不加，标注圆孔时又没有直径符号），下面的代码是没加直径符号的代码，怎么能让宏自动判断是否要加直径符号，请高手帮忙。
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

snycef

snycef

snycef

wwwerzhou

冷月梧桐

羊三丫

Trouble12138

懒懒的高贵

nizhen6007