Lsp vlx fas程序自动加载程序 支持xp ~win10 32及64位系统

言戲無軍

本程序用于发布已开发的CAD lsp程序，将你的lsp或vlx fas放到文件夹下，
或者通过inno setup安装后运行文件夹下apploader就能选择加载程序，后期再次运行可卸载
win10 win8 win7 64位系统都需要管理员权限运行
1.二次开发程序很多用秋风的打包程序，但是不开源，有秋枫的印记，很不爽，不便于发布专业的程序。
2.还有通过拖动lsp到CAD窗口加载的，在win10下有些不能拖动加载，而且太不专业。
3.还有一些用的CAD werx（已倒闭）的inst.exe程序，不支持64位系统。
4.用innosetup脚本直接在安装时候选择CAD加载，如果不想加载某个CAD，得重新安装程序，麻烦。



经过多年的开发探索，终于找到比较齐全的方案，本方案支持64位及32位系统以及CAD，便于发布，便于定制自己的自动加载程序。
此程序分别用了C# .net和VB进行开发，容易修改深化。
此方案的最大好处是便于结合innosetup发布程序 ，安装结束【run】字段运行此程序加载
在不同的CAD，后期想更换CAD再次运行程序可卸载更换，不用重新安装。
最重要的是完全开源，想怎么改怎么改。

关于inno setup发布CAD二次开发程序 百度即可。

VB源码已公布在本论坛 VB及VBA区。
程序完善后将公布所有源码，许多代码借用了网络资源，在此表示感谢。
目前已知有一个问题，就是首次打开CAD，会自动加载2次lsp，找不到解决办法，求大神改改。
C# net源码

1. namespace LspLoad._17
   
2. {
   
3.     using Autodesk.AutoCAD.ApplicationServices;
   
4.     using Autodesk.AutoCAD.DatabaseServices;
   
5.     using Autodesk.AutoCAD.EditorInput;
   
6.     using Autodesk.AutoCAD.Runtime;
   
7.     using Autodesk.AutoCAD.Windows;
   
8.     //using DotNetARX;
   
9.   // using Autodesk.AutoCAD.Interop;
   
10.     //using Autodesk.AutoCAD.Interop.Common;
    
11.     using System;
    
12.     using System.Text;
    
13.     //using System.Drawing;
    
14.     using System.IO;
    
15.     using System.Runtime.InteropServices;
    
16.    // using System.Windows.Forms;
    
17.     using System.Diagnostics;
    
18. 
    
19.     public class ExtApp : IExtensionApplication
    
20.     {
    
21.       
    
22.         [System.Security.SuppressUnmanagedCodeSecurity]
    
23.         [DllImport("acad.exe", CharSet = CharSet.Auto,CallingConvention = CallingConvention.Cdecl)]
    
24.         extern static private int ads_queueexpr(string strExpr);
    
25. 
    
26.       
    
27. 
    
28. 
    
29. 
    
30.         public void AppLoad(string ex)
    
31.         {
    
32.             Document mdiActiveDocument = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
    
33.             Editor editor = mdiActiveDocument.Editor;
    
34.           // AcadApplication app = (AcadApplication)Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication;
    
35.            
    
36.             //Application.ShowAlertDialog(ThisNetProperty.Path_LispLocation.ToString());
    
37.             if (Directory.Exists(ThisNetProperty.Path_LispLocation))
    
38.             {
    
39.                
    
40.                 try
    
41.                 {
    
42.                     string[] files = Directory.GetFiles(ThisNetProperty.Path_LispLocation, ex,SearchOption.TopDirectoryOnly);
    
43.                     
    
44.                     foreach (string str in files)
    
45.                     {
    
46.                         editor.WriteMessage(str);
    
47.                          //editor.Command("(vl-load-all" + ("\"" + str.Replace(@"\", "/") + "\"") + ")");
    
48.                         ads_queueexpr("(vl-load-all" + ("\"" + str.Replace(@"\", "/") + "\"") + ")(princ)\n");
    
49.                         //Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.SendStringToExecute("(vl-load-all" + ("\"" + str.Replace(@"\", "/") + "\"") + ")\n", true, false, true);
    
50.                        // app.ActiveDocument.SendCommand("(vl-load-all" + ("\"" + str.Replace(@"\", "/") + "\"") + ")\n");
    
51.                        // app.ActiveDocument.SendCommand("(vl-load-all" + ("\"" + str.Replace(@"\", "/") + "\"") + ")\n");
    
52.                        
    
53.                     }
    
54.                 }
    
55.                 catch (Autodesk.AutoCAD.Runtime.Exception exception)
    
56.                 {
    
57. 
    
58.                     Application.ShowAlertDialog(exception.ToString());
    
59.                 }
    
60. 
    
61.             }
    
62.             
    
63.         }
    
64.       
    
65.         
    
66.       
    
67. 
    
68.         private void DocumentManager_DocumentCreated(object sender, DocumentCollectionEventArgs e)
    
69.         {
    
70. 
    
71.            // AppLoad("*.lsp");
    
72. 
    
73.             //Application.DocumentManager.DocumentCreated -= new DocumentCollectionEventHandler(DocumentManager_DocumentCreated);
    
74.         }
    
75. 
    
76.         public void Initialize()
    
77.         {
    
78.             Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage(Autodesk.AutoCAD.ApplicationServices.Application.Version.ToString());
    
79.             ThisNetProperty.LoadPath();
    
80.             // Application.DocumentManager.DocumentCreated += new DocumentCollectionEventHandler(DocumentManager_DocumentCreated);
    
81. 
    
82.             //this.LoadEvents();
    
83.             //Editor editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
    
84.             // Application.SetSystemVariable("cmdecho", 0);
    
85.             // DocumentLock docLock = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument();
    
86. 
    
87. 
    
88. 
    
89. 
    
90.             AppLoad("*.lsp");
    
91.             AppLoad("*.vlx");
    
92.             AppLoad("*.fas");
    
93. 
    
94. 
    
95.         }
    
96.       
    
97.       
    
98. 
    
99. 
    
100.         public void LoadEvents()
     
101.         {
     
102.         }
     
103. 
     
104.    
     
105. 
     
106. 
     
107.       
     
108. 
     
109.         public void Terminate()
     
110.         {
     
111.         }
     
112.     }
     
113. }

namespace LspLoad._17<br /> {<br />     using Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices;<br />     using Autodesk.AutoCAD.DatabaseServices;<br />     using Autodesk.AutoCAD.EditorInput;<br />     using Autodesk.AutoCAD.Runtime;<br />     using Autodesk.AutoCAD.Windows;<br />     //using DotNetARX;<br />   // using Autodesk.AutoCAD.Interop;<br />     //using Autodesk.AutoCAD.Interop.Common;<br />     using System;<br />     using System.Text;<br />     //using System.Drawing;<br />     using System.IO;<br />     using System.Runtime.InteropServices;<br />    // using System.Windows.Forms;<br />     using System.Diagnostics;<br /> <br />     public class ExtApp : IExtensionApplication<br />     {<br />       <br />         [System.Security.SuppressUnmanagedCodeSecurity]<br />         [DllImport("acad.exe", CharSet = CharSet.Auto,CallingConvention = CallingConvention.Cdecl)]<br />         extern static private int ads_queueexpr(string strExpr);<br /> <br />        <br /> <br /> <br /> <br />         public void AppLoad(string ex)<br />         {<br />             Document mdiActiveDocument = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;<br />             Editor editor = mdiActiveDocument.Editor;<br />           // AcadApplication app = (AcadApplication)Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication;<br />            <br />             //Application.ShowAlertDialog(ThisNetProperty.Path_LispLocation.ToString());<br />             if (Directory.Exists(ThisNetProperty.Path_LispLocation))<br />             {<br />                 <br />                 try<br />                 {<br />                     string[] files = Directory.GetFiles(ThisNetProperty.Path_LispLocation, ex,SearchOption.TopDirectoryOnly);<br />                     <br />                     foreach (string str in files)<br />                     {<br />                         editor.WriteMessage(str);<br />                          //editor.Command("(vl-load-all" + ("\"" + str.Replace(@"\", "/") + "\"") + ")");<br />                         ads_queueexpr("(vl-load-all" + ("\"" + str.Replace(@"\", "/") + "\"") + ")(princ)\n");<br />                         //Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.SendStringToExecute("(vl-load-all" + ("\"" + str.Replace(@"\", "/") + "\"") + ")\n", true, false, true);<br />                        // app.ActiveDocument.SendCommand("(vl-load-all" + ("\"" + str.Replace(@"\", "/") + "\"") + ")\n");<br />                        // app.ActiveDocument.SendCommand("(vl-load-all" + ("\"" + str.Replace(@"\", "/") + "\"") + ")\n");<br />                        <br />                     }<br />                 }<br />                 catch (Autodesk.AutoCAD.Runtime.Exception exception)<br />                 {<br /> <br />                     Application.ShowAlertDialog(exception.ToString());<br />                 }<br /> <br />             }<br />             <br />         }<br />       <br />         <br />       <br /> <br />         private void DocumentManager_DocumentCreated(object sender, DocumentCollectionEventArgs e)<br />         {<br /> <br />            // AppLoad("*.lsp");<br /> <br />             //Application.DocumentManager.DocumentCreated -= new DocumentCollectionEventHandler(DocumentManager_DocumentCreated);<br />         }<br /> <br />         public void Initialize()<br />         {<br />             Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage(Autodesk.AutoCAD.ApplicationServices.Application.Version.ToString());<br />             ThisNetProperty.LoadPath();<br />             // Application.DocumentManager.DocumentCreated += new DocumentCollectionEventHandler(DocumentManager_DocumentCreated);<br /> <br />             //this.LoadEvents();<br />             //Editor editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;<br />             // Application.SetSystemVariable("cmdecho", 0);<br />             // DocumentLock docLock = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument();<br /> <br /> <br /> <br /> <br />             AppLoad("*.lsp");<br />             AppLoad("*.vlx");<br />             AppLoad("*.fas");<br /> <br /> <br />         }<br />       <br />        <br /> <br /> <br />         public void LoadEvents()<br />         {<br />         }<br /> <br />     <br /> <br /> <br />        <br /> <br />         public void Terminate()<br />         {<br />         }<br />     }<br /> }

apploader 源码
有人不知道如何在lsp里面添加支持路径及菜单，引用下秋枫、夜未眠的自动加载lsp，自己修改下，就行了，程序里定义了一个lsp函数
(get_apppath)用于获取 apploader所在路径。
秋枫及夜未眠源码加载菜单及支持路径：

1. ;;;部分代码转自mjtd
   
2. ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
   
3. ;;; 判断是否加载本文件
   
4. (if (car (atoms-family 1 '("vl-load-com")))
   
5.   (vl-load-com)
   
6.   (progn
   
7.     (Alert
   
8.       "这个程序集是为AutoCAD 2000以及更高的版本设计的，有些功能有可能在没有Visual Lisp for R14支持的AutoCAD R14上不能正确地运行。"
   
9.     )
   
10.     (exit)        ; 版本不符，退出加载。
    
11.   )
    
12. )
    
13. 
    
14. ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
    
15. ;;; 取得本程序的路径
    
16. (defun GetPath (AppID)
    
17.   ;;(vl-registry-read
    
18.   ; ; (strcat
    
19.   ; ;   "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\"
    
20.   ; ;   AppID
    
21.   ;;    "_is1"
    
22.    ; )
    
23.   ;;  "Inno Setup: App Path"
    
24. ;; )
    
25.   ;;;;(get_apppath) 为apploader自定义的lsp函数，可以获取apploader运行的路径;;;
    
26.   (car (get_apppath))
    
27. 
    
28. )
    
29. 
    
30. (defun GetmylyPath () (GetPath "图层管理中心"))
    
31. 
    
32. ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
    
33. ;;; 解析字符串为表
    
34. (defun strParse  (Str Delimiter / SearchStr StringLen return n char)
    
35.   (setq SearchStr Str)
    
36.   (setq StringLen (strlen SearchStr))
    
37.   (setq return '())
    
38.   (while (> StringLen 0)
    
39.     (setq n 1)
    
40.     (setq char (substr SearchStr 1 1))
    
41.     (while (and (/= char Delimiter) (/= char ""))
    
42.       (setq n (1+ n))
    
43.       (setq char (substr SearchStr n 1))
    
44.     )
    
45.     (setq return (cons (substr SearchStr 1 (1- n)) return))
    
46.     (setq SearchStr (substr SearchStr (1+ n) StringLen))
    
47.     (setq StringLen (strlen SearchStr))
    
48.   )
    
49.   (reverse return)
    
50. )
    
51. 
    
52. ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
    
53. ;;; 反解析表为字符串
    
54. (defun StrUnParse (Lst Delimiter / return)
    
55.   (setq return "")
    
56.   (foreach str Lst
    
57.     (setq return (strcat return Delimiter str))
    
58.   )
    
59.   (substr return 2)
    
60. )
    
61. 
    
62. ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
    
63. ;;; 移除支持文件搜索路径
    
64. (defun QF_RemoveSupportPath (PathToRemove / supportlist)
    
65.   (setq supportlist (strparse (getenv "ACAD") ";"))
    
66.   (setq supportlist (vl-remove "" supportlist))
    
67.   (setq  supportlist
    
68.    (vl-remove-if
    
69.      '(lambda (x) (= (strcase x) (strcase PathToRemove)))
    
70.      supportlist
    
71.    )
    
72.   )
    
73.   (setenv "ACAD" (strUnParse supportlist ";"))
    
74. )
    
75. 
    
76. ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
    
77. ;;; 添加支持文件搜索路径
    
78. ;;; 第二个参数如果为真, 插最前，否则插最后
    
79. 
    
80. (defun AddSupportPath (PathToAdd isFirst / supportlist)
    
81.   (QF_RemoveSupportPath PathToAdd)
    
82.   (setq supportlist (strparse (getenv "ACAD") ";"))
    
83.   (setq supportlist (vl-remove "" supportlist))
    
84.   (if isFirst
    
85.     (setq supportlist (cons PathToAdd supportlist))
    
86.     (setq supportlist (append supportlist (list PathToAdd)))
    
87.   )
    
88.   (setenv "ACAD" (strUnParse supportlist ";"))
    
89. )
    
90. 
    
91. ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
    
92. ;;; 加载菜单
    
93. (defun load-mymenu (/ n)
    
94.   (if (not (menugroup "mlayer"))
    
95.     (progn (setq n 1)
    
96.      (while (< n 24)
    
97.        (if (menucmd (strcat "P" (itoa n) ".1=?"))
    
98.          (setq n (+ n 1))
    
99.          (progn (if (> n 3)
    
100.       (setq n (- n 2))
     
101.       (setq n 3)
     
102.           )
     
103.           (command "menuload" "tuceng")
     
104.           (menucmd (strcat "p" (itoa n) "=+mlayer.pop111"))
     
105.           (setq n 25)
     
106.          )
     
107.        )
     
108.      )
     
109.     )
     
110.   )
     
111.   (princ)
     
112. )
     
113. 
     
114. ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
     
115. ;;; 初始化主函数
     
116. (defun Init_mylayer ()
     
117.   (if (not (menugroup "mlayer"))  ; 如果菜单组还没有被加载，则加载之
     
118.     (progn (AddSupportPath (GetmylyPath) nil) ; 添加支持路径
     
119.      (AddSupportPath (strcat (GetmylyPath) "\\LISP") nil)
     
120.      (AddSupportPath (strcat (GetmylyPath) "\\LIB") nil)
     
121.      (AddSupportPath (strcat (GetmylyPath) "\\BIN") nil)
     
122.      (load-mymenu)
     
123.     )
     
124.   )
     
125.   (princ)
     
126. )
     
127. 
     
128. ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
     
129. ;;; 主程序：
     
130. (princ "\n加载图层管理中心菜单……")
     
131. 
     
132. (setq cmdecho_save (getvar "cmdecho"))
     
133. (setvar "cmdecho" 0)
     
134. 
     
135. ;;; 执行初始化
     
136. (Init_mylayer)
     
137. 
     
138. (setvar "cmdecho" cmdecho_save)
     
139. (setq cmdecho_save nil)
     
140. 
     
141. (princ "\n图层管理中心菜单 α版 加载完毕。")
     
142. (princ)
     

;;;部分代码转自mjtd<br /> ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓<br /> ;;; 判断是否加载本文件<br /> (if (car (atoms-family 1 '("vl-load-com")))<br />   (vl-load-com)<br />   (progn<br />     (Alert<br />       "这个程序集是为AutoCAD 2000以及更高的版本设计的，有些功能有可能在没有Visual Lisp for R14支持的AutoCAD R14上不能正确地运行。"<br />     )<br />     (exit)        ; 版本不符，退出加载。<br />   )<br /> )<br /> <br /> ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓<br /> ;;; 取得本程序的路径<br /> (defun GetPath (AppID)<br />   ;;(vl-registry-read<br />   ; ; (strcat<br />   ; ;   "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\"<br />   ; ;   AppID<br />   ;;    "_is1"<br />    ; )<br />   ;;  "Inno Setup: App Path"<br /> ;; )<br />   ;;;;(get_apppath) 为apploader自定义的lsp函数，可以获取apploader运行的路径;;;<br />   (car (get_apppath))<br /> <br /> )<br /> <br /> (defun GetmylyPath () (GetPath "图层管理中心"))<br /> <br /> ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓<br /> ;;; 解析字符串为表<br /> (defun strParse  (Str Delimiter / SearchStr StringLen return n char)<br />   (setq SearchStr Str)<br />   (setq StringLen (strlen SearchStr))<br />   (setq return '())<br />   (while (> StringLen 0)<br />     (setq n 1)<br />     (setq char (substr SearchStr 1 1))<br />     (while (and (/= char Delimiter) (/= char ""))<br />       (setq n (1+ n))<br />       (setq char (substr SearchStr n 1))<br />     )<br />     (setq return (cons (substr SearchStr 1 (1- n)) return))<br />     (setq SearchStr (substr SearchStr (1+ n) StringLen))<br />     (setq StringLen (strlen SearchStr))<br />   )<br />   (reverse return)<br /> )<br /> <br /> ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓<br /> ;;; 反解析表为字符串<br /> (defun StrUnParse (Lst Delimiter / return)<br />   (setq return "")<br />   (foreach str Lst<br />     (setq return (strcat return Delimiter str))<br />   )<br />   (substr return 2)<br /> )<br /> <br /> ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓<br /> ;;; 移除支持文件搜索路径<br /> (defun QF_RemoveSupportPath (PathToRemove / supportlist)<br />   (setq supportlist (strparse (getenv "ACAD") ";"))<br />   (setq supportlist (vl-remove "" supportlist))<br />   (setq  supportlist<br />    (vl-remove-if<br />      '(lambda (x) (= (strcase x) (strcase PathToRemove)))<br />      supportlist<br />    )<br />   )<br />   (setenv "ACAD" (strUnParse supportlist ";"))<br /> )<br /> <br /> ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓<br /> ;;; 添加支持文件搜索路径<br /> ;;; 第二个参数如果为真, 插最前，否则插最后<br /> <br /> (defun AddSupportPath (PathToAdd isFirst / supportlist)<br />   (QF_RemoveSupportPath PathToAdd)<br />   (setq supportlist (strparse (getenv "ACAD") ";"))<br />   (setq supportlist (vl-remove "" supportlist))<br />   (if isFirst<br />     (setq supportlist (cons PathToAdd supportlist))<br />     (setq supportlist (append supportlist (list PathToAdd)))<br />   )<br />   (setenv "ACAD" (strUnParse supportlist ";"))<br /> )<br /> <br /> ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓<br /> ;;; 加载菜单<br /> (defun load-mymenu (/ n)<br />   (if (not (menugroup "mlayer"))<br />     (progn (setq n 1)<br />      (while (< n 24)<br />        (if (menucmd (strcat "P" (itoa n) ".1=?"))<br />          (setq n (+ n 1))<br />          (progn (if (> n 3)<br />       (setq n (- n 2))<br />       (setq n 3)<br />           )<br />           (command "menuload" "tuceng")<br />           (menucmd (strcat "p" (itoa n) "=+mlayer.pop111"))<br />           (setq n 25)<br />          )<br />        )<br />      )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓<br /> ;;; 初始化主函数<br /> (defun Init_mylayer ()<br />   (if (not (menugroup "mlayer"))  ; 如果菜单组还没有被加载，则加载之<br />     (progn (AddSupportPath (GetmylyPath) nil) ; 添加支持路径<br />      (AddSupportPath (strcat (GetmylyPath) "\\LISP") nil)<br />      (AddSupportPath (strcat (GetmylyPath) "\\LIB") nil)<br />      (AddSupportPath (strcat (GetmylyPath) "\\BIN") nil)<br />      (load-mymenu)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;;; 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓<br /> ;;; 主程序：<br /> (princ "\n加载图层管理中心菜单……")<br /> <br /> (setq cmdecho_save (getvar "cmdecho"))<br /> (setvar "cmdecho" 0)<br /> <br /> ;;; 执行初始化<br /> (Init_mylayer)<br /> <br /> (setvar "cmdecho" cmdecho_save)<br /> (setq cmdecho_save nil)<br /> <br /> (princ "\n图层管理中心菜单 α版 加载完毕。")<br /> (princ)<br />

taoyi0727

(defun loadmapp()
        (load "D:\\cad\\123.fas")
        (alert "加载程序成功.")
)
(loadmapp)

就是像这样用吗？把要加载的东西放到这里
但是为什么要弹出窗口2次，就像alert运行了2次一次不知道为什么？

pop159

taoyi0727 发表于 2018-8-25 09:01
(defun loadmapp()
        (load "D:\\cad\\123.fas")
        (alert "加载程序成功.")

请问，要手动将插件的路径添加到里面吗，有一百个就要写一百遍吗，那不是也麻烦啊

言戲無軍

taoyi0727 发表于 2018-8-25 09:01
(defun loadmapp()
        (load "D:\\cad\\123.fas")
        (alert "加载程序成功.")

目前就是有这个bug，找不到解决办法，加载程序里不添加窗口提示就好，在.net里加

xxxkkk331

关注一波，谢谢楼主

taoyi0727

都是专业的呀！  C# .net VB 啥都有
只会lisp看着都不会用

spp_wall

学习 学习！！！！！！！！！！！！

taoyi0727

不会 只会点lisp 望哪位高手能改改

言戲無軍

taoyi0727 发表于 2018-8-25 13:22
不会 只会点lisp 望哪位高手能改改

你在加载文件里只加载函数和菜单，不要有alert 和princ之类的文字，提示没问题的，即使加载两次用户也不知道，对程序没影响

xiaotao

试了下 这个不错！想添加一些用户支持搜索路径不知道怎么弄，期待下个版本。

蓝盾设计

好东西学习学习！