[原创]：关于DCL和LISP合并的LISP

yxpxa

(defun c:dcl( / df_row df_roc )
   (if (not df_row) (setq df_row ""))
   (setq df_row (getfiled "打开DCL文件" df_row "dcl" 2))
   (if df_row (zhhuan) (princ  "\n 未选择DCL文件"))
   (princ)
)
(defun zhhuan()
  (setq df_roc (getfiled "保存dcl-LSP文件" df_row "lsp" 1))
  (if df_roc (p_yx)(princ  "\n 未保存dcl-LSP文件") )
)
(defun p_yx()
  (setq f_dat (open df_row "r"))
  (setq f_wrt (open df_roc "w"))
  (setq  bc_txt "" )
  (write-line "(defun yxp-dcl()" f_wrt)
  (write-line (strcat "(setq f_dcl (open \"" (f_name df_row) "\" \"w\"))") f_wrt)
  (while  (setq txt_row1 (read-line f_dat))
          (setq bc_txt (strcat "(write-line \"" (tt_fk txt_row1) "\" f_dcl)"))
          (write-line bc_txt f_wrt)                 
  )
  (write-line "(close f_dcl))" f_wrt)
  (princ "\n 文件保存在")
  (princ df_roc)
  (close f_wrt)(close f_dat)
)

(defun tt_fk(tt / k tr_k tr_kn nn a)
  (setq nn (strlen tt) k 0 tr_k ""  a "\"")
  (while (<= k nn)
         (if (= (setq tr_kn (substr tt (setq k (+ k 1)) 1)) a)
             (setq tr_k (strcat tr_k "\\" tr_kn))
             (setq tr_k (strcat tr_k tr_kn))
         )) tr_k
)
(defun f_name(tt / k tr_k tr_kn nn a)
   (setq nn(strlen tt) nn (1+ nn) tr_k "")
   (while (/= "\\" (setq tr_kn (substr tt (setq nn (- nn 1)) 1)))
           (setq tr_k (strcat tr_kn tr_k))
   )
)
用途：主要用于AutoLisp 中，200x以上的版本可以编译成VLX
用法：加载后运行DCL，将生成的代码复制到主程序中作为一个子程序，调用对话框前调用(yxp-dcl)即可。
注意：调用前可以先(findfile "*.dcl")是否存在，当然也可以调用完后删除DCL，下次程序运行时再生成。

yuer0103

这个方法挺有趣！谢谢楼主！