论坛 › 具体求助 › solidworks二次开发，此直线为何画不出来？

广仔依旧 发表于 2014-5-29 00:00:50

solidworks二次开发，此直线为何画不出来？

Dim swApp As Object
Dim Part As Object

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("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Dim skSegment As Object

Set skSegment = Part.SketchManager.CreateLine(0#, 0#, 0#, 0.5, 0.4, 0#)
End Sub

查看完整版本: solidworks二次开发，此直线为何画不出来？