如何将文本写入闭合多段线内部？

yemm

如何将闭合多段线的标高值写在闭合多段线内部？


只要文本的插入点是在闭合多段线里面，任何地方都可以！


这个插入点要怎么找呢？


帮帮忙！

qigmyaigh

昏了，直接点进去标注不就可以了，这还用问啊，你是不是没有表达清楚啊，你到底是什么意思？

LONGXIN

楼主的意思是要程序自动找出一个在封闭pline内的点，这样岂不是省很多事情

LONGXIN

有一个建议，找出pline内最大内接加圆，其圆心即是最佳标注位置

紫云飞

我这里倒是有一个原创的程序，大概可以帮到你！！ 这是一个将一条闭合多段线的每段线的长度标到内部的程序,你试一试吧. (defun c:ccbz(/ s1 mm nn lin len i pp1 pp2 lon ang pp3 pp4 en th bb j ik2 hi1 len
lin1 lin2 xx1 xx2 xx3 num yy1 yy2 yy3 right lift up down lin3 dow)
(setq ik2 "Standard")
(setq hi1 4.0)
(prompt "请选择一条闭合线：")
(setq s1(ssget ":s"))
(setq mm (entget (ssname s1 0)))
(foreach nn mm
(if (or (= 10 (car nn)) (= 11 (car nn)))
(progn
(setq lin (cons (cdr nn) lin))
(setq lin1 (cons (cadr nn) lin1))
(setq lin2 (cons (caddr nn) lin2))
)
)
)
(setq num (length lin1))
(setq i 0)
(setq xx1 (nth i lin1))
(setq xx2 xx1)
(setq yy1 (nth i lin2))
(setq yy2 yy1)
(while (> num (+ i 1))
(setq xx3 (nth (+ i 1) lin1))
(if (> xx3 xx1)
(setq xx1 xx3))
(if (< xx3 xx2)
(setq xx2 xx3))
(setq yy3 (nth (+ i 1) lin2))

(if (> yy3 yy1)
(setq yy1 yy3))
(if (< yy3 yy2)
(setq yy2 yy3))
(setq i (1+ i))
)
(setq right (itoa (vl-position xx1 lin1)))
(setq lift (itoa (vl-position xx2 lin1)))
(setq up (itoa (vl-position yy1 lin2)))
(setq down (itoa (vl-position yy2 lin2)))
(setq lin3 (list right lift up down))
(setq lin3 (acad_strlsort lin3))
(setq dow (vl-position down lin3))
(if (= dow 3)
(setq j 0)
(setq j (+ dow 1))
)
(if (= (nth j lin3) right)
(setq lin (reverse lin))
)
(setq len (length lin))
(setq i 0)
(while (> len 1)
(setq pp1 (nth i lin))
(setq pp2 (nth (+ i 1) lin))
(setq lon (distance pp1 pp2))
(setq ang (* (/ (angle pp1 pp2) pi) 180))
(if (and (<= ang 270) (> ang 90))
(setq ang (+ ang 180))
)
(setq pp3 (polar pp1 (angle pp1 pp2) (/ lon 2)))
(setq pp4 (polar pp3 (- (angle pp1 pp2) (/ pi 2)) hi1))
(command "_.text" "s" ik2 "j" "m" pp4 hi1 ang (rtos lon 2 2))
(setq len (- len 1))
(setq i (+ i 1))

)

)

LONGXIN

楼上的判断顺时、针逆时针的方法倒是可以借鉴