iCAx开思网

标题: LISP编译问题 [打印本页]

作者: 兔仔麦 时间: 2005-1-21 14:29
标题: LISP编译问题

自己写了一个LISP程序并将它编译了，可是目前想要修改这个文件，却无从下手。请问如何将编译的代码给还原？？？？

作者: wayne 时间: 2005-1-21 16:30
1, 修改未編譯前的Lisp File.

2, 用哪一種方法編譯呢?

作者: 兔仔麦 时间: 2005-1-22 09:36
用一个专用编译文本的编译器编译的。

作者: Joseph Lin 时间: 2005-1-22 12:02
可否將此Compiler和Program library供大家分享？

作者: 332888 时间: 2005-1-24 11:00
需看你编译成何种文件模式才能决定是否能还原，
LSP、VLX、FAS....。

作者: 兔仔麦 时间: 2005-1-28 09:09
我编译的文件模式还是.lsp模式。等原文件反编译回来再分享吧！

作者: LMCC 时间: 2005-1-28 18:22
那简单,传上来,我帮你搞好

作者: 兔仔麦 时间: 2005-1-29 10:03
这是一个编译

作者: honancwyeh 时间: 2005-2-1 14:32
;;;*****************
;;;ZLP晤秶
;;;*****************
(DEFUN C:FD()
(setvar "osmode" 0)
(setvar "ORTHOMODE" 0)

(setq e (car (entsel "恁寁剒猁溫湮腔昜极ㄩ")))
(setq pc (cdr (assoc 10 (entget e))))
(setq p (getpoint "\n恁寁溫湮綴妗极腔弇离ㄩ"))
(setq k (getreal "\n怀[$#63541]坫[$#63541]掀瞰ㄩ"))
(setq r (cdr (assoc 40 (entget e))))
(command "copy" "cp")
(setq n 0)
(repeat 180
(command (polar pc (/(* 2 n pi)180) r))
(setq n (+ n 1))
)

(command "" "" pc p)

(setq n 0)

(setvar "pickbox" 5)
(command "zoom" "c" p (* 3 r))

(command "circle" p r)

(setq ep (entlast))
(command "trim" ep "")
(repeat 180
(command (polar p (/ (* 2 n pi) 180) (* r 1.1)))
(command "F" (polar p (/ (* 2 n pi) 180) (* r 1.01)))
(setq n (+ n 1))
(command (polar p (/ (* 2 n pi) 180) (* r 1.01)) "")
)

(command "" "zoom" "

")
(command "scale" "c" (list (- (car p) r) (- (cadr p) r))
(list (+ (car p) r)(+ (cadr p) r)) "" p k)
(command "erase" ep "")
(command "redraw")
(princ)
)

作者: 兔仔麦 时间: 2005-2-1 19:51
楼上的朋友,请问是什么软件编过来的,可否发一个过来????谢了

作者: fang_bw 时间: 2005-3-5 20:29
楼上的朋友,请问是什么软件编过来的,可否发一个过来????谢了

作者: Joseph Lin 时间: 2005-3-7 12:46
請honancwyeh兄幫我解譯Autogear.lsp，謝謝。

作者: 兔仔麦 时间: 2005-3-30 10:30
honancwyeh兄请帮忙给一个解译的文件(就是解那个LSP的),在此谢了

欢迎光临 iCAx开思网 (https://www.icax.net/)