solidworks 使用宏在标注后加注释

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

感谢分享

感谢分享

感谢楼主分享，很不错！

这方法不错，支持一下。