04 2014 档案
摘要:'建立装配基准面 '建立Top Plane boolstatus = swDoc.Extension.SelectByID2("", "FACE", 0, 0, 0, True, 0, Nothing, 0) myRefPlane = CType(swDoc.FeatureManager.InsertRefPlane(8, 0, 0, 0, 0, 0), RefPlane) boolstatus = swDoc.Extension.SelectByID2("Plane1", "PLANE", 0,
阅读全文
摘要:Dim myProcess As New Process() myProcess.StartInfo.FileName = "C:\Program Files\SolidWorks Corp\SolidWorks\SldWorks.exe" myProcess.StartInfo.CreateNoWindow = False myProcess.Start()要注意的是 代码中的 myProcess.StartInfo.CreateNoWindow = False 为程序在前台运行,如果= True的话则为后台运行!
阅读全文
摘要:1 Dim swApp As Object2 3 '连接SW4 swApp = CreateObject("SldWorks.Application")
阅读全文