[求助]：cad自带的vlisp编辑器不能格式化dcl代码吗？

nuance

如题

似水无痕

好像不能，我现在用2005，输入DCL时只有自己小心一点将括号对应了！

cy956

加一个。你可以在vl中平衡好dcl，下面提供的程序纯为美观。
当然，如果在protobox中已经编好了，也能省劲儿。

nuance

没看懂楼上的意思，能不能说的更详细些？

真龙天子

三楼的,你那个FMTDCL怎么用啊?希望能详细介绍.

cy956

protobox.LSP是一个对话框生成工具。
fmtdcl是一个dos版的dcl格式美化工具。你在windows下右击
fmtdcl.exe，“程序结束时退出”项不要选。然后双击这个exe
就可以看到参数。你也可以编个bat或者试试在lisp里面调用。

cy956

写了一个lisp，要用doslib。可以多选几个dcl。
如果fmtdcl.exe不在搜索路径下，要增写。
每次处理后生成一个尾巴加f的dcl.

2. 
   
3. 
   
4. (defun c:fmdcl(/ FILB);;;选dcl文件做格式美化;;
   
5.   (setq filb(dos_getfilem  "选择要格式美化的dcl文件"
   
6.                           (if path-fmdcl path-fmdcl "c:\")
   
7.                           "Dcl files (*.dcl)|*.dcl|All files (*.*)|*.*||"))
   
8.   (if filb(progn
   
9.     (setq path-fmdcl(nth 0 filb)filb(cdr filb))
   
10.     (FOREACH x filb
    
11.       (dos_execute (strcat "Fmtdcl.exe "
    
12.                            path-fmdcl x " " (vl-filename-base x)
    
13.                            "f.dcl /s2 /-"))
    
14.     )
    
15.   ) )
    
16. )
    
17. 
    

<br /> <br /> (defun c:fmdcl(/ FILB);;;选dcl文件做格式美化;;<br />   (setq filb(dos_getfilem  "选择要格式美化的dcl文件"<br />                           (if path-fmdcl path-fmdcl "c:\")<br />                           "Dcl files (*.dcl)|*.dcl|All files (*.*)|*.*||"))<br />   (if filb(progn<br />     (setq path-fmdcl(nth 0 filb)filb(cdr filb))<br />     (FOREACH x filb<br />       (dos_execute (strcat "Fmtdcl.exe "<br />                            path-fmdcl x " " (vl-filename-base x)<br />                            "f.dcl /s2 /-"))<br />     )<br />   ) )<br /> )<br /> <br />

不想用doslib的朋友可以用vlisp函数写。