[紧急求助]!!! 请各位高手们帮忙!!关于lisp的移植

xfy5216

各位高手们，在您们的提示下，下面这个对一个点选表格填文本就能自动居中的例子终于 做完了，在AutoCAD下运行效果还不错!在此再次感谢各位高手们的指点!!!! 可我想把它加载到同方CAD(MDS2002)下运行时就总是出错，提示为： “lisp error6: 铸造轮辐结构 (+(car p1) (car p2)) ” 删去(+(car p1) (car p2)) ，又出现同样的提示只是换成了(+(cadr p1) (cadr p2)) ，别的没有这种坐标运算表达式的lisp程序运行还算正常，这种情况怎么办呀，怎么我才能在同方下用了，请各们帮忙!!!! (defun c:FormC ()
(setq pp (getpoint "\n 请选取单元格:"))
(setq pp1 pp);求表格单元格对角点及中心点坐标
(command "boundary" pp "")
(setq PEN (entlast))
(SetQ pel (EntGet pen));取出对象数据表
(command "erase" PEN "")
(SetQ pel (Member '(100 . "AcDbPolyline") pel));取出其中的有关数据
(Setq p1 (Cdr (Nth 6 pel))) ;取出第一点控制点点位
(Setq p2 (Cdr (Nth 14 pel))) ;取出对角点控制点点位
(setq p0 (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2)));求中心点坐标P0
(setq tw (abs (-(car p1)(car p2))));取单元格的宽度
(setq th (abs (-(cadr p1)(cadr p2))));取单元格的高度
(setq fzg (* 0.75 th));输入的字高
(setq txt (getstring "\n输入文本： "))
(command "text" "j" "mc" p0 fzg "0.0" txt)
(princ)
)

xfy5216

怎么没人理我呀!!!拜托!请高手们想想办法呀!

xfy5216

版主，你可不能见死不救呀!

spring

如果人家没有MDS2002怎么帮你调试


还有是不是MDS2002的LISP和AutoCAD的LISP有区别

meflying

最好的方法就是不用同方了...这里可能没有人用同方,所以无法帮你了...

xfy5216

MDS2002是国产的CAD，没办法工厂为支持民族品牌就用的她!网址：http://www.thit.com.cn 有没有办法可以加载AutoCAD Lisp 的内核到这一类的CAD里去呀!