小菜123 发表于 2014-6-10 11:20:53

这个做什么用？真不明白

邹锋 发表于 2014-6-11 22:25:40

小菜123 发表于 2014-6-10 11:20 static/image/common/back.gif
这个做什么用？真不明白

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

我爱lisp 发表于 2014-7-2 16:35:55

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

tm20038175 发表于 2014-7-3 12:46:16

好程序，正在愁呢！

xyp1964 发表于 2014-7-3 14:26:41

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

yokees 发表于 2014-7-4 14:46:00

好贴，谢谢楼主！

恕放之生命 发表于 2014-7-30 20:59:45

好东西，谢谢分享。

太阳的艺术 发表于 2014-8-8 13:12:39

puzb2001 发表于 2012-3-8 09:11 static/image/common/back.gif
先下载，收藏，有时间慢慢消化

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

lucas_3333 发表于 2014-8-23 15:45:00

(defun c: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 writedcl (fn)" 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 "\\\"" "\"" fn2l k))
      (setq k (+ k 2))
    )
    (setq fn2l (strcat "(write-line \"" fn2l "\" fn)"))
    (write-line fn2l fn2)
)
(write-line ")" fn2)
(close fn1)
(close fn2)
(princ)
)

伪书虫86 发表于 2014-8-25 10:37:50

好东西，先收藏了
页: 1 2 3 4 5 [6] 7 8 9 10 11 12
查看完整版本: DCL2LSP和LSP2DCL（源码）