如何将多义线边长标注在边上，面积标注在多边形内

cecile

如何将多义线边长标注在边上要居中，面积标注在多边形内，也要居中。谢谢~~

caoyin

1.多段线只能说“段”长，段是直线段还是弧线段

2.“标注居中”是什么概念?

3.面积标注用(vla-get-area(vlax-ename->vla-object(car(entsel)))),

  文字居中是范围居中还是质心居中要说清楚

cecile

确切说是lwpolyline，不用包括弧线；

边长标注居中就是先找到线段的中心然后平移到边长的边上，然后标注数字；

面积标注就是找到面积区域的重心作为标注的中心。

谢谢~~

caoyin

2. ;;大概意思是这样吧，自行再修改
3. (defun c:tt (/ pl pt pp p1 p2 an di pm aa pc)
4.   (setq pl (entsel "\n选择lwpolyline: "))
5.   (mapcar 'set '(pl pt) pl)
6.   (setq pt (vlax-curve-getClosestPointTo pl pt)
7.         pp (fix (vlax-curve-getParamAtPoint pl pt))
8.         p1 (vlax-curve-getPointAtParam pl pp)
9.         p2 (vlax-curve-getPointAtParam pl (1+ pp))
10.         an (/ (* (angle p1 p2) 180.0) pi)
11.         di (distance p1 p2)
12.         pm (mapcar '(lambda (x y) (/ (+ x y) 2.)) p1 p2)
13.         pl (vlax-ename->vla-object pl)
14.         aa (vla-get-area pl)
15.   )
16.   (command "_.text" "_j" "_mc" "_non" pm "" an (rtos di 2 2))
17.   (vla-getboundingbox pl 'p1 'p2)
18.   (mapcar 'set '(p1 p2) (mapcar 'vlax-safearray->list (list p1 p2)))
19.   (setq pc (mapcar '(lambda (x y) (/ (+ x y) 2.)) p1 p2))
20.   (command "_.text" "_j" "_mc" "_non" pc "" an (rtos aa 2 2) "")
21.   (princ)
22. )

;;大概意思是这样吧，自行再修改 (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) )

香田里浪人

caoyin 发表于 2009-6-20 23:55

请提供完整代码