如何写一个lisp安装文件
自己写的的lisp文件已经编译成了fas，还有网上下载的几个vlx文件，CAD的局部菜单文件*.cui，以及图标文件*.bmp都已经准备好放在某一个文件夹中。如何写一个lisp安装文件，在下次装cad时，只需要运行这个lisp命令，就一切就都安装好了，包括文件路径也加到CAD的支持路径中，这样每次重装CAD时就不需要再一个个加载上面这些文件（*.fas *.vlx *.cui）了。请看置顶链接：[资源] AutoCAD二次开发安装程序制作(2011-04-20) Gu_xl 发表于 2016-9-29 08:54
请看置顶链接：[资源] AutoCAD二次开发安装程序制作(2011-04-20)
说实话，这个有点复杂，搞明白不易，我就想搞个简单点的，方便重装电脑时安装这个小工具文件，类似于（commade "load" ...... ）这样东西，怎么CAD版本，注册表这些复杂的东西能不要就不要，电脑菜鸟一个，不知说的对不对，请指正 szx025 发表于 2016-9-29 10:32
说实话，这个有点复杂，搞明白不易，我就想搞个简单点的，方便重装电脑时安装这个小工具文件，类似于（co ...
参照下面 *信*安装程序的vbs：
On Error Resume Next
Set objCAD = GetObject(, "AutoCAD.Application")
If Err Then '如果AutoCAD应用程序启动失败，进行下面的处理
Err.Clear
MsgBox "必须先启动AutoCAD！" , vbInformation ,"【信·CAD】 <安装设置>"
Else
Set fs = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
Path = fs.GetParentFolderName(WScript.ScriptFullName)
ws.RegWrite "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\7Xin\7X_Menu\Path" ,_
Path
ws.Run "http://www.uushare.com/user/elitefish/file"
Set fs = Nothing : Set ws = Nothing
MsgBox "【信·CAD】 程序路径已经设定为:" _
& vbLf &" " & Path & vbLf & vbLf _
& "〖注意〗" _
& vbLf & "如果文件夹更名或移动请再次运行本程序" , _
vbInformation , "【信·CAD】 <安装设置>"
Set ThisDrawing = objCAD.activedocument
Path = replace (Path , "\" ,"/")
ThisDrawing.SendCommand ("(load """ & Path & "/7X_Menu.vlx"")" & vbCr)
ThisDrawing.SendCommand ("7X_MENU_HELP" & vbCr)
End If
修改其中相关内容，将其保存为setup.vbs文件，放到程序目录，打开CAD，双击setup.vbs即可完成程序安装。 谢谢G版主这么热心的指导，没有学过VB 对这个程序是一窍不通，看来只好先回家学习一下了，
页:
[1]