组装自己的DCL菜单，欢迎大家一起来练习

77077

首先，论坛里面很多高手已经写出dcl菜单。
http://bbs.mjtd.com/thread-109056-1-1.html
http://bbs.mjtd.com/thread-109086-1-1.html
http://bbs.mjtd.com/thread-84942-1-1.html
还有很多很多，不一一列举了。

到这里，个人觉得这些面板菜单都还不够完美，没办法自动生成及更新。

下面，咱们来讨论下如何利用lisp生成DCL面板菜单所需要的menu列表文件，以便生成和更新。
个人思路：
1.读取文件夹及lsp文件列表
2.分别读取lsp文件中"(defun c:"后面到"("中间的字符，算作是命令
3.分别连接起文件名及命令。最终形成"文件名称+命令"的格式，如："坐标标注.lsp，zbbz"
4.保存到一个txt文件中，让高手们写的DCL面板菜单来调用。

~放个未完成的例子，

2. ;; 将此文件拖入ACAD绘图区，生成工具箱菜单要用的命令列表
   
3. ;菜单列表写入文本文件，一行一个
   
4. (defun write-lst2txt (lst ff)
   
5.   (setq file (open ff "w"))
   
6.   (foreach str lst (write-line str file))
   
7.   (close file)
   
8. )
   
9. ;读取lsp文件内的命令，链接到文件名上
   
10. ;最终形成"文件名称+命令"的格式，如："坐标标注.lsp，zbbz"
    
11. ;未完成
    
12. (defun read-c: (ff)
    
13.   (setq file (open ff "r"))
    
14.   
    
15. )
    
16. ;====开始===
    
17. (vl-load-com)
    
18. (princ "\n")
    
19. (setq path (getvar "lastprompt"))
    
20. (if (wcmatch (strcase path) "*(LOAD "*")
    
21.   (setq  str  (vl-string-search "(LOAD "" path)
    
22.         path (substr path
    
23.          (+ str 8)
    
24.          (- (vl-string-search "")" path) str 7)
    
25.        )
    
26.   )
    
27. );获取路径
    
28. (setq path (strcase (vl-filename-directory path) t))
    
29. (setq lst1 (vl-directory-files path "*.lsp"));获取文件列表
    
30. (setq lst2 (cddr(vl-directory-files path nil -1)));获取目录列表,排除掉"." ".." 这两项
    
31. (setq lstn '() lstnx '())
    
32. (foreach n lst2
    
33. (setq lstn (vl-directory-files (strcat path "/" n) "*.lsp")
    
34.        lstn (mapcar '(lambda(x)(strcat n "-" x))lstn)
    
35.        lstnx (cons lstn lstnx)
    
36.        )  
    
37. )
    
38. (setq lst3 '())
    
39. (foreach a lstnx (setq lst3 (append a lst3)))
    
40. (setq lst3 (append lst1 lst3))
    
41. (setq ff (strcat (vl-string-translate "/" "\" path) "\\menu.txt"));菜单保存文件名
    
42. (write-lst2txt lst3 ff);写入

;; 将此文件拖入ACAD绘图区，生成<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>箱菜单要用的命令列表<br /> ;菜单列表写入文本文件，一行一个<br /> (defun write-lst2txt (lst ff)<br />   (setq file (open ff "w"))<br />   (foreach str lst (write-line str file))<br />   (close file)<br /> )<br /> ;读取lsp文件内的命令，链接到文件名上<br /> ;最终形成"文件名称+命令"的格式，如："坐标标注.lsp，zbbz"<br /> ;未完成<br /> (defun read-c: (ff)<br />   (setq file (open ff "r"))<br />   <br /> )<br /> ;====开始===<br /> (vl-load-com)<br /> (princ "\n")<br /> (setq path (getvar "lastprompt"))<br /> (if (wcmatch (strcase path) "*(LOAD "*")<br />   (setq  str  (vl-string-search "(LOAD "" path)<br />         path (substr path<br />          (+ str 8)<br />          (- (vl-string-search "")" path) str 7)<br />        )<br />   )<br /> );获取路径<br /> (setq path (strcase (vl-filename-directory path) t))<br /> (setq lst1 (vl-directory-files path "*.lsp"));获取文件列表<br /> (setq lst2 (cddr(vl-directory-files path nil -1)));获取目录列表,排除掉"." ".." 这两项<br /> (setq lstn '() lstnx '())<br /> (foreach n lst2<br /> (setq lstn (vl-directory-files (strcat path "/" n) "*.lsp")<br />        lstn (mapcar '(lambda(x)(strcat n "-" x))lstn)<br />        lstnx (cons lstn lstnx)<br />        )  <br /> )<br /> (setq lst3 '())<br /> (foreach a lstnx (setq lst3 (append a lst3)))<br /> (setq lst3 (append lst1 lst3))<br /> (setq ff (strcat (vl-string-translate "/" "\" path) "\\menu.txt"));菜单保存文件名<br /> (write-lst2txt lst3 ff);写入

vladimir

非常好的程序，谢谢楼主分享啊 。

479274135

学习学习------->

hm6313967

好东西 ！学习了！

77077

占楼，以备后用~~~

例如，我的目录是

1. E:.
   
2. │  menu.txt
   
3. │  将此文件拖入ACAD绘图区更新菜单.LSP
   
4. │  无标题2.lsp
   
5. │
   
6. ├─1
   
7. │      1.lsp
   
8. │      2.lsp
   
9. │      3.lsp
   
10. │
    
11. ├─2
    
12. │      1.lsp
    
13. │      2.lsp
    
14. │      3.lsp
    
15. │
    
16. ├─3
    
17. │      1.lsp
    
18. │      2.lsp
    
19. │      3.lsp
    
20. │
    
21. └─4
    
22.         1.lsp
    
23.         2.lsp
    
24.         3.lsp
    

复制代码

生成的是

1. 
   
2. 将此文件拖入ACAD绘图区更新菜单.LSP
   
3. 无标题2.lsp
   
4. 1/1.lsp
   
5. 1/2.lsp
   
6. 1/3.lsp
   
7. 2/1.lsp
   
8. 2/2.lsp
   
9. 2/3.lsp
   
10. 3/1.lsp
    
11. 3/2.lsp
    
12. 3/3.lsp
    
13. 4/1.lsp
    
14. 4/2.lsp
    
15. 4/3.lsp

复制代码

aisr花园

学习了。。。好东西。。

spp_wall

适合自己就好！！！！！

USER2128

一直在关注楼主的东东！

zzyong00

帮楼主顶贴了

伪书虫86

有点高深看不懂啊

香田里浪人

什么东西那么神秘，需要回复才能看到

yshf

学习学习

xchj81

看看