如何将DCL写入LISP中呢？

qcw911

如题
请大家在这里讨论！

lenlenq

用(write-line)
   (read-line)
可做

NetBee

1、静态DCL文件：在编译为VLX时加入DCL资源文件就OK了。
2、动态DCL文件：在LSP中专门设置写临时DCL文件的函数，然后再调用该DCL文件。

xhq1954425

学习一下，支持！

redcat

拿去吧

1. (defun makedcl (str_lst / dclfile fileID dclHandle)
   
2.   (setq        dclfile        (vl-filename-mktemp nil nil ".dcl")
   
3.         fileID        (open dclfile "w")
   
4.   ) ;_ 结束setq
   
5.   (cond
   
6.     ((= (type str_lst) 'str)
   
7.      (write-line str_lst fileID)
   
8.     )
   
9.     ((= (type str_lst) 'list)
   
10.      (foreach n str_lst (write-line n fileID))
    
11.     )
    
12.   ) ;_ 结束cond
    
13.   (close fileID)
    
14.   (setq dclHandle (load_dialog dclfile))
    
15.   (vl-file-delete dclfile)
    
16.   dclHandle
    
17. ) ;_ 结束defun
    
18. 
    
19. (defun dcl2str (/ dclfile fileID str_lst str)
    
20.   (if (setq dclfile (getfiled "请选择DCL文件" "c:/program files/AutoCAD 2004/support/" "dcl" 8))
    
21.     (progn (setq fileID         (open dclfile "r")
    
22.                  str_lst '()
    
23.            ) ;_ 结束setq
    
24.            (while (setq str (read-line fileID))
    
25.              (setq str_lst (cons str str_lst))
    
26.            ) ;_ 结束while
    
27.            (close fileID)
    
28.            (reverse str_lst)
    
29.     ) ;_ 结束progn
    
30.   ) ;_ 结束if
    
31. ) ;_ 结束defun

(defun makedcl (str_lst / dclfile fileID dclHandle)<br />   (setq        dclfile        (vl-filename-mktemp nil nil ".dcl")<br />         fileID        (open dclfile "w")<br />   ) ;_ 结束setq<br />   (cond<br />     ((= (type str_lst) 'str)<br />      (write-line str_lst fileID)<br />     )<br />     ((= (type str_lst) 'list)<br />      (foreach n str_lst (write-line n fileID))<br />     )<br />   ) ;_ 结束cond<br />   (close fileID)<br />   (setq dclHandle (load_dialog dclfile))<br />   (vl-file-delete dclfile)<br />   dclHandle<br /> ) ;_ 结束defun<br /> <br /> (defun dcl2str (/ dclfile fileID str_lst str)<br />   (if (setq dclfile (getfiled "请选择DCL文件" "c:/program files/AutoCAD 2004/support/" "dcl" 8))<br />     (progn (setq fileID         (open dclfile "r")<br />                  str_lst '()<br />            ) ;_ 结束setq<br />            (while (setq str (read-line fileID))<br />              (setq str_lst (cons str str_lst))<br />            ) ;_ 结束while<br />            (close fileID)<br />            (reverse str_lst)<br />     ) ;_ 结束progn<br />   ) ;_ 结束if<br /> ) ;_ 结束defun

xhq1954425

功夫太浅！没系统学过对话框，就没弄明白5楼的怎么用，str_lst是什么参数？能给个用法说明或示例吗？

非常谢谢！

先进者

redcat 发表于 2011-2-23 15:28
拿去吧

请教怎么使用,可否做个简单说明

huqibing518

要好好学习一下

辉/:)

先收藏。在学习