API应用 读取DCL文件生成字串表并复制到剪贴板

Free-Lancer

对已有的DCL读取生成 XD::DCL:Make 所用的 strl，在编辑器直接粘贴即可

1. (defun c:tt (/ fl lst)
   
2.   (if (setq fl (getfiled "Select DCL file" "" "dcl" 16))
   
3.     (progn
   
4.       (setq lst
   
5.              (mapcar
   
6.                '(lambda        (x)
   
7.                   (strcat "\"" (xdrx_string_replace x "\"" "\\\"") "\"")
   
8.                 )
   
9.                (xd::list:fromfile fl)
   
10.              )
    
11.       )
    
12.       (xdrx_document_setClipBoard (vl-princ-to-string lst))
    
13.       (princ "\nOk!")
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:tt (/ fl lst)<br />   (if (setq fl (getfiled "Select DCL file" "" "dcl" 16))<br />     (progn<br />       (setq lst<br />              (mapcar<br />                '(lambda        (x)<br />                   (strcat "\"" (xdrx_string_replace x "\"" "\\\"") "\"")<br />                 )<br />                (xd::list:fromfile fl)<br />              )<br />       )<br />       (xdrx_document_setClipBoard (vl-princ-to-string lst))<br />       (princ "\nOk!")<br />     )<br />   )<br />   (princ)<br /> )