Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.Insert3DSketch
Part.CreateLine2 0.001, 0.002, 0.003, 0.007, 0.006, 0.005
Part.CreateLine2 0.002, 0.002, 0.003, 0.006, 0.006, 0.005
End Sub
这个问题我已经自行解决了呵呵，其实还是对三维草图的绘制概念不清楚，不过还是谢谢大家，
对了我想将两条画的颜色改掉，需要怎么做啊，我用右键的属性修改过，但是solidwork的ＡＰＩ录制中没有任何反映，说明颜色修改不在ＡＰＩ之内，我这样理解对吗，有什么办法可以利用ＡＰＩ修改颜色