[LISP程序]：边长标注，哪位高手能改成自动标注

xdchsyj

(defun c:tt(/ pl pt pp p1 p2 an di pm aa pc)
   (setq pl (entsel "\n选择lwpolyline: "))
   (mapcar 'set '(pl pt) pl)
   (setq pt (vlax-curve-getClosestPointTo pl pt)
         pp (fix (vlax-curve-getParamAtPoint pl pt))
         p1 (vlax-curve-getPointAtParam pl pp)
         p2 (vlax-curve-getPointAtParam pl (1+ pp))
         an (/ (* (angle p1 p2) 180.0) pi)
         di (distance p1 p2)
         pm (mapcar '(lambda (x y) (/ (+ x y) 2.)) p1 p2)
         pl (vlax-ename->vla-object pl)
         aa (vla-get-area pl)
   )
   (command "_.text" "_j" "_mc" "_non" pm "" an (rtos di 2 2))
   (vla-getboundingbox pl 'p1 'p2)
   (mapcar 'set '(p1 p2) (mapcar 'vlax-safearray->list (list p1 p2)))
   (setq pc (mapcar '(lambda (x y) (/ (+ x y) 2.)) p1 p2))
   (command "_.text" "_j" "_mc" "_non" pc "" an (rtos aa 2 2) "")
   (princ)
哪位高手能将这段改成多边形边长自动标注，期待中》》》

ljttjl

多边形边长自动标注程序
见网盘http://ljttjl.ys168.com  20090903目录