[LISP]求助高手，此程序在CAD2006用要怎么改？

mmmjjj

一直在2002用的计算程序，前几天CAD升成2006后发现不能用了(不能在2006中用，但在2002里用是没问题的)，请各位大侠帮忙看看是什么问题？有劳各位，多谢了！

meflying

这个程序要怎么用啊？一点说明都没有。。。

mmmjjj

比如两行数量相同的数字，加载后在命令行输入程序执行命令ce，然后选中一行，按＋号，选中另一行，再点选答案行位置，它就自动写出一行答案值，如下(第一行加第二行等于第三行)：



1 2 3 4 5 6


2 3 4 5 2 3


3 5 7 9 7 9       


在2002做+ - * /四则运算都是可以的，但在2006中用就不行了。


多谢飞版关注！

meflying

程序不对，没有你说的ce命令

mmmjjj

(defun c:ce (/ out out0 jj ce_a1 lc p_p l1 i pt1 e01 e02 en0 eni e0 e1 e2 ei alf
se1 se2 se3 se4 nt nt0 nt1 sr0 sri n0 n1 n2 n3 j_m j_m72 j72 j73 oldzin
sty sty1 stye sty_e x x1 x2 xi x0 y y0 yi scal sca_| oldsnp) ;主程序
(command "color" (getvar "cecolor"))
(setq olderr *error*)
(setq oldsnp (getvar "osmode"))
(setq oldzin (getvar "dimzin")) ;tttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt
(setvar "osmode" 673) (setvar "dimzin" 0)
(setq *error* newerr)
(princ "\n选取第一组数字: ")
(setq se1 (ssget '((0 . "TEXT"))))
(if se1
(progn
(setq l1 (sslength se1)
i -1
scal 1.0
)
(if (not p_) (setq p_ 2))
(initget 0 "Total Reci chaG Pow Add Sub Mult Div + - * /")
(setq ce_a1 (getkword "\n求和T/倒数R/乘方P/角度转换G/加A(+)/减S(-)/除以D(/)/<乘M(*)> :"))
(cond
((= ce_a1 "Total") (ce_l_c) (ce_tot))
((or (= ce_a1 "Add") (= ce_a1 "+")) (setq ce_a1 +) (ce_sele))
((or (= ce_a1 "Sub") (= ce_a1 "-")) (setq ce_a1 -) (ce_sele))
((or (= ce_a1 "Mult") (= ce_a1 "*") (= ce_a1 "") (= ce_a1 nil)) (setq ce_a1 *) (ce_sele))
((or (= ce_a1 "Div") (= ce_a1 "/")) (setq ce_a1 /) (ce_sele))
((= ce_a1 "Reci") (ce_l_c) (ce_js2))
((= ce_a1 "Pow") (ce_pow))
((= ce_a1 "chaG") (ce_chag))
(t nil)
)
)
(princ "\n未选择物体。\n")
)
(if oldsnp (setvar "osmode" oldsnp))
(if oldzin (setvar "dimzin" oldzin))
(setq *error* olderr)
(princ)
) (if (or (= (type c:cal) 'LIST) (= (type c:cal) 'SUBR)) (arxload "geomcal.arx"))
(princ)

mmmjjj

程序的最后部分如上呀，我从一楼下载后加载入2006，在命令行输入ce回车后就是的，不知飞版怎么没有ce，有点怪怪的？我也不知是何原因了，烦您再看看好吗，如果在2002里试试，可能更直观一些，因为2002下这个程序是可以用的。

mmmjjj

另外，我昨天用CAD2006里的vlisp试着编译它的时候（编成fas），结果出现5、6个CE***（记不住了，今天我试着再编译却又看不到提示了）函数未定义的错误，但用2002的Vlisp编译却没有。不知是不是这个原因呢？有劳各位，感谢！

meflying

不好意思，我用ctrl+a复制的，怎么复制不全。。。


你能不能给个DWG的图，不知道需要怎样的运行条件，我试了几回都没什么结果。。。看程序太费劲了

龙龙仔

看原作者吧!他早改好了!

mmmjjj

多谢二位版主，多谢！