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的API录制中没有任何反映,说明颜色修改不在API之内,我这样理解对吗,有什么办法可以利用API修改颜色 |
声明:本网言论纯属发表者个人意见,与本网立场无关。
如涉版权,可发邮件:
admin@swbbsc.com