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

xfy5216 · 发表于 2004-10-26 12:53:00

在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请多指教!!!!!!多谢!!!!!!