社区 › 编程申请 › [求助]附件的lisp源码加载运行后，出现错误: no function definition: ADDLINE，请

cxs259 发表于 2010-9-10 10:36:00

[求助]附件的lisp源码加载运行后，出现错误: no function definition: ADDLINE，请

[求助]附件的lisp源码加载运行后，出现错误: no function definition: ADDLINE，请求完善，谢谢？

ZZXXQQ 发表于 2010-9-10 20:00:00

<p>(defun ADDLINE (p1 p2)</p>
<p>&nbsp;(entmak (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))</p>
<p>)</p>

cxs259 发表于 2010-9-13 08:53:00

<p>感谢版主的热心，但还出现点取要标注块统计结果信息的位置:; 错误: no function definition: ADDTEXT_ALIGNMENTMIDDLE</p>

ZZXXQQ 发表于 2010-9-13 20:13:00

(defun AddText_AlignmentMiddle (pt hi ang txt al style)
(entmake
(list
   '(0 . "TEXT")
   '(100 . "AcDbEntity")
   '(67 . 0)
;   '(410 . "Model")
;   (cons 8 layer)
   '(100 . "AcDbText")
   (cons 10 pt)
   (cons 40 hi)
   (cons 1 txt)
   (cons 50 ang)
   (cons 41 al)
   '(51 . 0.0)
   (cons 7 style)
   '(71 . 0)
   '(72 . 4)
   (cons 11 pt)
   '(210 0.0 0.0 1.0)
   '(100 . "AcDbText")
   '(73 . 0)
)
)
)

查看完整版本: [求助]附件的lisp源码加载运行后，出现错误: no function definition: ADDLINE，请