如何写一个lisp安装文件

szx025

自己写的的lisp文件已经编译成了fas，还有网上下载的几个vlx文件，CAD的局部菜单文件*.cui，以及图标文件*.bmp都已经准备好放在某一个文件夹中。如何写一个lisp安装文件，在下次装cad时，只需要运行这个lisp命令，就一切就都安装好了，包括文件路径也加到CAD的支持路径中，这样每次重装CAD时就不需要再一个个加载上面这些文件（*.fas *.vlx *.cui）了。

Gu_xl

请看置顶链接：[资源] AutoCAD二次开发安装程序制作(2011-04-20)

szx025

Gu_xl 发表于 2016-9-29 08:54
请看置顶链接：[资源] AutoCAD二次开发安装程序制作(2011-04-20)

说实话，这个有点复杂，搞明白不易，我就想搞个简单点的，方便重装电脑时安装这个小工具文件，类似于（commade "load"   ......    ）这样东西，怎么CAD版本，注册表这些复杂的东西能不要就不要，电脑菜鸟一个，不知说的对不对，请指正

Gu_xl

szx025 发表于 2016-9-29 10:32
说实话，这个有点复杂，搞明白不易，我就想搞个简单点的，方便重装电脑时安装这个小工具文件，类似于（co ...

参照下面 *信*安装程序的vbs：

1. On Error Resume Next
   
2. Set objCAD = GetObject(, "AutoCAD.Application")
   
3. If Err Then '如果AutoCAD应用程序启动失败，进行下面的处理
   
4.     Err.Clear
   
5.     MsgBox "必须先启动AutoCAD！" , vbInformation ,"【信·CAD】 <安装设置>"
   
6.         Else
   
7.                 Set fs = CreateObject("Scripting.FileSystemObject")
   
8.                 Set ws = CreateObject("WScript.Shell")
   
9.                 Path = fs.GetParentFolderName(WScript.ScriptFullName)
   
10.                 ws.RegWrite        "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\7Xin\7X_Menu\Path" ,_
    
11.                         Path                       
    
12.                 ws.Run "http://www.uushare.com/user/elitefish/file"
    
13.                 Set fs = Nothing : Set ws = Nothing
    
14.                 MsgBox        "【信·CAD】 程序路径已经设定为:" _
    
15.                                 & vbLf &"       " & Path & vbLf & vbLf _
    
16.                                 & "〖注意〗" _
    
17.                                 & vbLf & "如果文件夹更名或移动请再次运行本程序" , _
    
18.                                 vbInformation , "【信·CAD】 <安装设置>"
    
19.                                 Set ThisDrawing = objCAD.activedocument
    
20.                                 Path = replace (Path , "\" ,"/")
    
21.                                 ThisDrawing.SendCommand ("(load """ & Path & "/7X_Menu.vlx"")" & vbCr)
    
22.                                 ThisDrawing.SendCommand ("7X_MENU_HELP" & vbCr)
    
23. End If

On Error Resume Next<br /> Set objCAD = GetObject(, "AutoCAD.Application")<br /> If Err Then '如果AutoCAD应用程序启动失败，进行下面的处理<br />     Err.Clear<br />     MsgBox "必须先启动AutoCAD！" , vbInformation ,"【信·CAD】 <安装设置>"<br />         Else<br />                 Set fs = CreateObject("Scripting.FileSystemObject")<br />                 Set ws = CreateObject("WScript.Shell")<br />                 Path = fs.GetParentFolderName(WScript.ScriptFullName)<br />                 ws.RegWrite        "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\7Xin\7X_Menu\Path" ,_<br />                         Path                        <br />                 ws.Run "http://www.uushare.com/user/elitefish/file"<br />                 Set fs = Nothing : Set ws = Nothing<br />                 MsgBox        "【信·CAD】 程序路径已经设定为:" _<br />                                 & vbLf &"       " & Path & vbLf & vbLf _<br />                                 & "〖注意〗" _<br />                                 & vbLf & "如果文件夹更名或移动请再次运行本程序" , _<br />                                 vbInformation , "【信·CAD】 <安装设置>"<br />                                 Set ThisDrawing = objCAD.activedocument<br />                                 Path = replace (Path , "\" ,"/")<br />                                 ThisDrawing.SendCommand ("(load """ & Path & "/7X_Menu.vlx"")" & vbCr)<br />                                 ThisDrawing.SendCommand ("7X_MENU_HELP" & vbCr)<br /> End If

修改其中相关内容，将其保存为setup.vbs文件，放到程序目录，打开CAD，双击setup.vbs即可完成程序安装。

szx025

谢谢G版主这么热心的指导，没有学过VB 对这个程序是一窍不通，看来只好先回家学习一下了，