DCL2LSP和LSP2DCL（源码）

丁X的

收下了，谢谢楼主

小菜123

这个做什么用？真不明白

邹锋

小菜123 发表于 2014-6-10 11:20
这个做什么用？真不明白

DCL文件转成LISP方法 ，还有LISP转DCL，感觉写出来的好长好长

我爱lisp

读完了，突然有个感叹，一切都是由于vlisp这些年没有进步，才逼的我们想这些折中的办法；CAD公司只知道升级cad1013，可是vlisp的升级早就停止了，严厉鄙视AUTODESK

tm20038175

好程序，正在愁呢！

xyp1964

一个演示都没看到，不知道都在叫啥好？！

yokees

好贴，谢谢楼主！

恕放之生命

好东西，谢谢分享。

太阳的艺术

puzb2001 发表于 2012-3-8 09:11
先下载，收藏，有时间慢慢消化

干啥用的 不明白。。。。。。。。

lucas_3333

2. (defun c:dcl2lsp (/ fname1 fn1 fname2 fn2 k fn1l fn2l)
   
3.   (setq fname1 (getfiled "Select DCL file" "" "dcl" 16))
   
4.   (setq fn1 (open fname1 "r"))
   
5.   (setq fname2 (getfiled "File to save" "" "lsp" 1))
   
6.   (setq fn2 (open fname2 "w"))
   
7.   (write-line "(defun writedcl (fn)" fn2);_增加个函数定义
   
8.   (while (setq fn1l (read-line fn1))
   
9.     (setq fn2l fn1l)
   
10.     (setq k 0)
    
11.     (while (setq k (vl-string-search """ fn2l k))
    
12.       (setq fn2l (vl-string-subst "\\"" """ fn2l k))
    
13.       (setq k (+ k 2))
    
14.     )
    
15.     (setq fn2l (strcat "(write-line "" fn2l "" fn)"))
    
16.     (write-line fn2l fn2)
    
17.   )
    
18.   (write-line ")" fn2)
    
19.   (close fn1)
    
20.   (close fn2)
    
21.   (princ)
    
22. )

(defun c:dcl2lsp (/ fname1 fn1 fname2 fn2 k fn1l fn2l)<br />   (setq fname1 (getfiled "Select DCL file" "" "dcl" 16))<br />   (setq fn1 (open fname1 "r"))<br />   (setq fname2 (getfiled "File to save" "" "lsp" 1))<br />   (setq fn2 (open fname2 "w"))<br />   (write-line "(defun writedcl (fn)" fn2);_增加个函数定义<br />   (while (setq fn1l (read-line fn1))<br />     (setq fn2l fn1l)<br />     (setq k 0)<br />     (while (setq k (vl-string-search """ fn2l k))<br />       (setq fn2l (vl-string-subst "\\"" """ fn2l k))<br />       (setq k (+ k 2))<br />     )<br />     (setq fn2l (strcat "(write-line "" fn2l "" fn)"))<br />     (write-line fn2l fn2)<br />   )<br />   (write-line ")" fn2)<br />   (close fn1)<br />   (close fn2)<br />   (princ)<br /> )