DCL文件转LISP格式小程序

下山学CAD

论坛上找的都不太好用,自己改了一下;源码;

• ;部分代码采用明经 qcw911---"DCL2LSP"
• ;功能:将DCL文件转换成LSP格式
• ;转换完成后将DCL子程序复制到LSP中
• ;把(setq dcl_id (load_dialog  "C:\\Users\\HA-ED\\Desktop\\NP_DCL"))
• ;替换成
• ;(setq dcl_id (load_dialog (setq Dcl_File (NP_DCL))))
• ;(vl-file-delete Dcl_File)
• ;倪平  2024.9.2
• (defun c:NP_DCL2LSP ( / fname1 fn1 fname2 fn2 k fn1l fn2l )
•   (setq fname1 (getfiled "Select DCL file" "" "dcl" 16))
•   (setq fn1 (open fname1 "r"))
•   (setq fname2 (getfiled "File to save" "" "lsp" 1))
•   (setq fn2 (open fname2 "w"))
•   (write-line "(defun NP_DCL(/ Dcl_File file str)" fn2)
•   (write-line "(setq file (open (setq tmp-dcl-file-name (vl-filename-mktemp nil nil  \".DCL\")) \"w\"))" fn2)
•   (write-line "(foreach str '(" fn2)
•   (while (setq fn1l (read-line fn1))
•     (setq fn2l fn1l)
•     (setq k 0)
•     (while
•       (setq k (vl-string-search "\"" fn2l k))
•       (setq fn2l (vl-string-subst (strcat "\\" "\"") "\"" fn2l k))
•       (setq k (+ k 2))
•     )
•     (setq fn2l (strcat "\"" fn2l "\""))
•     (write-line fn2l fn2)
•   )
•   (write-line ")" fn2)
•   (write-line "(write-line str file)" fn2)
•   (write-line ")" fn2)
•   (write-line "(close file)" fn2)
•   (write-line "tmp-dcl-file-name" fn2)
•   (write-line ")" fn2)
•   (close fn1)
•   (close fn2)
•   (princ)
• )
  

飞雪神光

这是用的飞诗编辑器？

下山学CAD

飞雪神光 发表于 2024-9-2 16:54
这是用的飞诗编辑器？

对哦，蛮好用的。

moranyuyan

飞诗编辑器能共享下吗

飞雪神光

下山学CAD 发表于 2024-9-2 22:08
对哦，蛮好用的。

以前我也这样 后来发现 复制后在编辑器里 Ctrl+shift+v就可以的

jun470

以前我不太会lisp的时候，用excel写过lisp转DCL，就只要把引号加转义符，头尾加引号就行了

qazxswk

支持发源码的。

下山学CAD

jun470 发表于 2024-9-3 17:30
以前我不太会lisp的时候，用excel写过lisp转DCL，就只要把引号加转义符，头尾加引号就行了

条条道路通罗马

火龙果2022

这个思路挺好用的，谢谢分享！

13763815647

好帖子顶一下好帖子顶一下好帖子顶一下好帖子顶一下好帖子顶一下好帖子顶一下好帖子顶一下