Sub InsertTxt()
Set SwApp = Application.SldWorks
Set SwPart = SwApp.ActiveDoc
Dim booleanStr
With SwPart
booleanStr = .Extension.SelectByID("上视基准面", "LANE", 0, 0, 0, False, 0, Nothing)
.InsertSketch2 True
.InsertSketchText 0, 0, 0, "写入文本", 0, 0, 0, 100, 100
.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, 0.001, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False
End With
End Sub
End Sub
复制代码
aa.zip
(15.87 KB, 下载次数: 14)
|