SolidWorks二次开发,列出修改异形孔的沉头孔大小的代码

下面是一个示例代码，它可以用于修改 SolidWorks 中异形孔的沉头孔大小：

Dim swAppAs SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("孔1", "HO