[LISP]怎样编写一个自动标注由多条pl线合并成一条pl线的长度的程序？

tianyuan

高手们为何不肯帮个忙呀！！！1

BDYCAD

这样行不行?

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))

tianyuan

谢谢！！！这正是我所要的！！！！

sotop

最后这个不错，很专业。