iCAx开思工具箱

标题: 求助：用VB调用solidworks遇到一个问题 [打印本页]

作者: howard2002 时间: 2006-5-23 07:32
标题: 求助：用VB调用solidworks遇到一个问题
Private Sub Command1_Click()
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Set swApp = CreateObject("sldworks.application")
swApp.UserControl = True
Set Part = swApp.NewDocument("D:\Program Files\SolidWorks\data\templates\零件.prtdot", 0, 0#, 0#)
'Set Part = swApp.NewDocument("D:\Program Files\SolidWorks\lang\chinese-simplified\Tutorial\part.prtdot", 0, 0#, 0#)
'有一个问题，选用这个模板后，boolstatus = Part.Extension.SelectByID2 不能选择其他的基准平面，系统自动选择从“前视基准面”开始画草图,即"boolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0#, 0#, 0#, False, 0, Nothing, 0)"无效，执行后boolstatus的值为false
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0#, 0#, 0#, False, 0, Nothing, 0)
Part.InsertSketch2 True
Part.CreateCircleByRadius2 0, 0, 0, 0.01
End Sub

作者: hua32000 时间: 2006-5-23 15:21
检查一下你打开零件的基准面可能为“上视”或其它。

作者: 赵山河 时间: 2006-5-24 04:49
可能画的零件的问题
顶下
帮你

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)