求助!!!!？？在CAD框填写文本的程序!请版主和高手们看看

xfy5216

在BBS上找到一个在CAD中填写文本的例子，加了输入文本的几句，可总不对!请版主和高手们看看：代码如下： (defun c:ftext ()
(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));求中心点坐标
(command "text" "j" "c" P0 "6.0""0.0" txt)
(princ)
) 命令总是提示：“错误: 输入的列表有缺陷” (SetQ pel (Member '(100 . "AcDbPolyline") pel)) 句中的“100”是什么意思？ (Setq p1 (Cdr (Nth 6 pel))) ;取出第一点控制点点位
(Setq p2 (Cdr (Nth 14 pel))) ;取出对角点控制点点位 句中“6 ”和“14”这两个数据是怎么知道的？ 我是菜鸟刚学Lisp请多指教!!!!!!多谢!!!!!!

meflying

输入的列表有缺陷就是你的错误啊，都给出提示了,还不知道怎么改?


仔细看看setq p0 (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2))这句,括号是否正确


至于那些数字的意思,参考帮助文件中的DXF部分

xfy5216

__________________________________


我会要要学习的，我爱CAD，我爱足球!