Question

VB对solidworks的二次开发

Private mubiao
Private Sub Command1_Click()
Text1.Enabled = False
Command1.Caption = "正在安装......"
Command1.Enabled = False
copywj
regrun
Unload Form1
End Sub
Sub copywj() '复制文件夹到目标目录
Debug.Print
Dim fs, f, ff, ft As Object
Set fs = CreateObject("Scripting.FileSystemObject") '建立文件系统对象
'检测目标目录是否存在
If fs.FolderExists(Text1.Text) Then
Debug.Print Text1.Text + "已存在,即将删除!"
Set ft = fs.GetFolder(Text1.Text)
ft.Delete True
End If
Debug.Print "新建文件夹:" + Text1.Text
fs.CreateFolder (Text1.Text) '建立目标目录对象
'复制文件夹到目标目录
Debug.Print "当前目录:"; CurDir
Set f = fs.GetFolder(CurDir) '建立当前目录对象f
mubiao = f.ParentFolder
Set ff = fs.GetFolder(mubiao) '取得当前目录对象f的父目录对象
ff.Copy Text1.Text, True
'复制VB6相关文件到\system32\
RET = Shell("VBLIST.BAT")
Debug.Print RET
Set fs = Nothing
End Sub
Sub regrun()
Debug.Print "安装目录: "; mubiao
vvv = "regsvr32.exe/s" + "" + mubiao + "csh.dll"
Debug.Print "注册文件: "; vvv
'运行注册程序
sid = Shell(vvv)
Do While True '等待操作权
If sid Then Exit Do Else OpenForms = DoEvents
Loop
Debug.Print sid
'修改注册表
Dim fs As Object
Set fs = CreateObject("Wscript.Shell")
Clsid = fs.Regread("HKLM\Software\classes\CSH.application\clsid\")
Debug.Print Clsid
fs.RegWrite "HKLM\Software\SolidWorks\Addins\" + Clsid + "\", 1, "REG_DWORD"
fs.RegWrite "HKLM\Software\SolidWorks\Addins\" + Clsid + "\description", "二次开发CAD工具"
fs.RegWrite "HKLM\Software\SolidWorks\Addins\" + Clsid + "\title", "CSH"
End Sub

其中，RET = Shell("VBLIST.BAT")这段代码运行时出错，现在很着急，望能得到高人指点
是这样子的，我现在有一本书，是照着书做的，书上完全用VB代码实现的，对于宏我不是很了解，上面的代码在运行RET = Shell("VBLIST.BAT")这段说是找不到文件，我现在的困难是不清楚VBLIST.BAT是什么文件，是不是VB自带的，在VB安装程序中也没有搜索到。

Answer 1

首先你的准备好轴承的东西，比如那些数据是变量，那些数据是常量，那些数据有国家便准呀。做到心中有数。
第二、你可以利用宏来完成一些零部件的建模。看看他们的代码是啥，solidworks自己就带这VBA，可以看到代码。
第三、知道代码了，你可以领用VB来编辑一个界面来通过对话框输入变量值，得到你想要的零件。
第四、在利用宏来完成装配的过程。通过宏就可以看见代码。把优化的代码加进原来的宏里面，就可以了。
整个过程都不是很复杂，但是需要对VB和solidworks都比较了解的人才能够解决。
你可以参考一本书：solidworks API 二次开发，是solidworks官方教程，生信实维翻译的，机械工业出版社出版。