DCL文件转Lisp文件

waterchen · 发表于 2015-8-15 11:52:18

回复看看。

waterchen · 发表于 2015-8-15 14:40:04

做了小改动，希望黄工不介意。;;===========2014.12.24==================DCL档转成需要的.lsp(defunc:dcl2lsp (/ dclnam fn1 fn2 fn2l fnam1 fnam2 initdir ln)
  (setq
fnam1 (getfiled "***选择dcl檔***" """dcl" 16)
initdir (strcat (vl-filename-directoryfnam1) "\\")
fnam2 (getfiled "***lisp檔保存到***" initdir"lsp" 1)
dclnam (getstring "\nPlease input dcldialog name:")
)
  (if (and fnam1 fnam2 dclnam)
(progn
   (setq
fn1(open fnam1 "r")
fn2(open fnam2 "w")
)
   (write-line "(defun c:w1 ()"fn2)
   (write-line "(setq fname (vl-filename-mktempnil nil \".dcl\"))" fn2)
   (write-line "(setq fn (open fname\"w\"))" fn2)

   (while (setq ln (read-line fn1))
(write-line(strcat "(write-line " (vl-prin1-to-string ln) " fn)") fn2)
)
   (close fn1)
   (mapcar '(lambda (x) (write-line x fn2))
      (list
      "(closefn)"
      ""
      ";;以下根据情况处理,dclname必须填写"
      "(setqdclid (load_dialog fname))"
      (strcat"(new_dialog " (vl-prin1-to-string (eval dclnam)) "dclid)")
      "(action_tile\"accept\" \"(done_dialog 1)\")"
      "(setqreturn# (start_dialog))"
      "(unload_dialogdclid)"
      "(vl-file-deletefname)"
      "(princ)"
      ")"
      ))
   (close fn2)
   )
)
  (princ)
)
;;===========2014.12.24==================DCL档转成需要的.lsp

dwp@hamco · 发表于 2015-8-21 14:10:41

这个是好东西

tooo · 发表于 2015-8-21 16:55:16

简单，才是美的。谢谢。

fangzheng158 · 发表于 2015-8-21 18:27:33

顶顶顶一个，

dgma · 发表于 2015-8-22 16:53:59

谢谢分享。

vicwjb · 发表于 2015-9-16 22:26:41

看看，学学，然后就可以用了

vicwjb · 发表于 2015-9-16 22:27:48

为啥回复了，还不让看呢

HASTAN · 发表于 2015-9-27 08:57:37

功能強大值得推薦

ee_do · 发表于 2015-9-27 14:50:52

非常实用，统一格式

hanxiangqq12345 · 发表于 2015-9-29 10:02:28

很实用，一个lisp文件搞定界面对话框+代码

zz159504 · 发表于 2015-9-30 18:26:10

学习下！！！谢谢！！！

xhk32067 · 发表于 2015-10-6 23:42:31

这个工具我需要，谢谢:)

y5664491 · 发表于 2015-10-7 00:36:14

学习一下:)

龙吟舞 · 发表于 2015-10-7 09:18:48

不错的方法，学习了

账号		自动登录	找回密码
密码			立即注册

[每日一码] DCL文件转Lisp文件