Dim swApp As Object
Dim Part As Object
Dim errors As Long
Dim warnings As Long
Private Sub Cmd_part_Click()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
swApp.Visible (True)
Set Part = swApp.OpenDoc6("F:\SW+VB\VB_first_圆筒\vb_first_圆筒.sldpart", swDocPART, swOpenDocOptions_Silent, "", errors, warnings)
End Sub
确实是哪一行错了,呵呵,犯了一个低级的错误:零件的后缀打错了!
您那里还有vb开发SolidWorks的资料吗?能给我传一些吗?
我的邮箱是:280047159@qq.com
...还是打不开,solidworks打开之后闪一下,又没有了,请您指教啊!_百度...
应该是opendoc6函数中swOpenDocOptions_Silent项你选的不正确。我试了下你的swapp.opendoc6(***),提示错误。其实你直接写成set part =swApp.OpenDoc6(filepath,swpartdoc)就行,其他的默认。其中filepath就是零件路径。
利用vb打开SolidWorks文件
2.查一下SolidWorks 是否有命令行启动方式,一般都会有支持的参数,比如工程名及读入的文件名之类,帮助文件里应有说明 3.如果不行,可以将‘sw启动读入某文件’这个命令用vb写在bat文件里,再用vb调用此批处理,4。只建议试一下,sw没用过,Fluent可以这样调用,读入想打开的文件 还是要靠sw主程序支...
VB打开solidworks文件,点击按钮,显示模型不存在,程序错了吗?
因为你直接用solidworks双击某个零件就是打不开的 要先打开solidworks然后再打开零件才行
...用VB编制的插件,Solidworks直接打开DLL时完全没有反应怎么回事_百度...
首先你在VB中建好窗口,然后单击“工程—引用——”选择 “SolidWorks exposed Type Libraries For add-in Use”(SolidWorks插件库文件)、“SolidWorks 2007 Type Libray”(SolidWorks库文件、和“SolidWorks Consant Type library”(SolidWorks常数库),(可能版本不同会有区别)然后将宏文件中的 Set s...
vb对solidworks二次开发中录制的宏文件运行的时候不行,选择对象的时候...
首先你在VB中建好窗口,然后单击“工程—引用——”选择 “SolidWorks exposed Type Libraries For add-in Use”(SolidWorks插件库文件)、“SolidWorks 2007 Type Libray”(SolidWorks库文件、和“SolidWorks Consant Type library”(SolidWorks常数库),(可能版本不同会有区别)然后将宏文件中的 Set ...
如何在VB6.0中使用Shell语句打开SolidWorks装配体文件
shell "程序名 文件名"
在做基于Solidworks的二次开发时,用VB连接Solidworks出现了下面的问题...
Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long '连接solidworks Set swApp = CreateObject("SldWorks.Application")swApp.Visible (True)'新建零件 Set Part = swApp.NewPart()Set Part = swApp.ActiveDoc 前面的定义为题 按照这个改一下就好了 ...
...怎样才能实现在vb窗体上实时监控solidworks文件?
二次开发不用vb的窗体,vb做的是插件,注册后solidworks上会出现一个菜单项。solidworks给留了接口的
solidworks安装不了vb
下载好需要安装的文件,将Solidworks.iso用虚拟光驱,至此准备工作完成,接下来分三个步骤,注册列表安装软件主体,破解完成,然后在打开注册列表,打开Crack文件夹,解压里面的子压缩文件,打开SolidWorks。如果需要,可以使用实用程序来帮助卸载 VBA 7.1,要获取此实用程序,请访问客户门户并搜索知识库解决方案 S...
vbs可以控制solidworks生成x_t文件吗,怎么编程??
MsgBox "没有找到文件的3D,程序提前结束!", vbExclamation, "未找到文件"GoTo Err End If Else '如果SW文件已打开存在 SwPath = Replace(SwPath, "\\TOP.SLDASM", "")If CADPath <> SwPath Then '如果发现所打开的2D,3D路径不对应 '同意则重新开图,不同意程序结束 If MsgBox("开起...