Question

200分的求助—CAD中怎样实现自动标注PL线长度？

CAD中怎样实现自动标注PL线长度？
我在网上收集了一个LISP的小程序，但不知道如何调用。
程序内容如下：
pline 长度标注

; 纯 LISP 做法
(defun c:test(/ DXF-ENTNAME2 ENTNAME1 ENTNAME2 LEN)
(setq entname1(car (entsel "\\n选择Pline;" ))
DXFentname1(ENTGET entname1)
spt (CDR(ASSOC 10 DXFentname1))
ept (CDR(ASSOC 10 (reverse DXFentname1))))
(command ".DIMALIGNED"spt ept pause)
(setq entname2 (entlast))
(command "lengthen" entname1 "")
(setq dxf-entname2(entget entname2)
len (getvar "perimeter")
dxf-entname2(subst(cons 1 (rtos len 2 2))(assoc 1 dxf-entname2)dxf-entname2))
(entmod dxf-entname2)
(princ "\\n完成:")
(princ))

烦请高手告诉我如何在CAD使用？

有满意的回答后加200分,谢谢..........
只要能成功，分肯定会给的哦~
加载成功后用什么命令调用出此程序？实际操作怎样才能自动标注PL线的尺寸？

Answer 1

工具菜单——autolisp——加载应用程序 加载这个LSP文件即可，然后在CAD工具——选项——文件，第一项把支持路径加进去，就可实现打开CAD就能加载此文件，哈，200分拿来。不懂可以在这补充。