在使用VB调用SW时遇到一个问题

uqljennces

   经典图书

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("Drogram FilesSolidWorks机械工程师论坛datatemplates零件.prtdot", 0, 0#, 0#)
'Set Part = swApp.NewDocument("Drogram FilesSolidWorkslangchinese-simplifiedTutorialpart.prtdot", 0, 0#, 0#)
'有一个问题，选用这个模板后，boolstatus = Part.Extension.SelectByID2 不能选择其他的基准平面，系统自动选择从“前视基准面”开始画草图,即"boolstatus = Part.Extension.SelectByID2("上视基准面", "LANE", 0#, 0#, 0#, False, 0, Nothing, 0)"无效，执行后boolstatus的值为false
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("上视基准面", "LANE", 0#, 0#, 0#, False, 0, Nothing, 0)
Part.InsertSketch2 True
Part.CreateCircleByRadius2 0, 0, 0, 0.01
End Sub
开始我以为是solidworks系统选项－>默认模板－>零件(P)设置问题
但不论我把零件(P)设成“Drogram FilesSolidWorksdatatemplates零件.prtdot”或“Drogram FilesSolidWorkslangchinese-simplifiedTutorialpart.prtdot”都出现前面提到的问题
选用Set Part = swApp.NewDocument("Drogram FilesSolidWorksdatatemplates零件.prtdot", 0, 0#, 0#)语句
运行后，圆的草绘平面是“上视基准面”
而选用“Drogram FilesSolidWorkslangchinese-simplifiedTutorialpart.prtdot”运行后，圆的草绘平面是“前视基准面”

kinginking

Sample TextSample Text
[size=-1]我的毕业设计就是利用solidworks建零件库 用vb作为开发语言，一点头绪没有，能不能指点一下，马上要交设计了，很着急，谢谢！

ap2br7iu0vy

   经典图书

好羞啊~~
真的很感谢,我问了很多人,都帮不上忙,千言万语不能表达我此刻的心情~~
就一句谢谢!!
有问题还会请教你的~~

sclzg

唉，想当年我的毕业论文就是这个课题

d5945

   经典案例图书

80后的年轻人啊,不要动不动就跪谢跪求!
录一下宏,就得到语句,不难啊
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.OpenDoc6("E:SWcounterWENZHOUWINDBOX.SLDPRT", 1, 0, "", longstatus, longwarnings)
'Set Part = swApp.ActivateDoc2("WINDBOX.SLDPRT", False, longstatus)
'swApp.ActiveDoc.ActiveView.FrameLeft = 0
'swApp.ActiveDoc.ActiveView.FrameTop = 0
'swApp.ActiveDoc.ActiveView.FrameState = 1
'swApp.ActiveDoc.ActiveView.FrameState = 1
'swApp.ActiveDoc.ActiveView.FrameState = 1
End Sub

241522261

很幸运与上你们,我用vb开发solidworks,怎么写程序在solidworks里打开一个已经做好的零件啊??
很着急,希望你们能帮帮我,先跪谢了!!

lilun_sd

   经典案例图书

试试这种语句,可能是基准面的名称不对
Private Sub Command1_Click()
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Set swApp = Application.SldWorks
Set Part = swApp.NewDocument("Drogram FilesSolidWorkslangchinese-simplifiedTutorialpart.prtdot", 0, 0#, 0#)
boolstatus = Part.Extension.SelectByID2("上视", &quotLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.CreateCircleByRadius2 0, 0, 0, 0.01
Part.InsertSketch2 True
End Sub