;;====================“多边形内单行文字居中”====================
(defun C:tt()
(setq ss (ssget ":E:S" )
en (ssname ss 0 )
vo (vlax-ename->vla-object en)
)
(vlax-invoke-method vo 'GetBoundingBox 'MinPoint 'MaxPoint )
(setq p1 (vlax-safearray->list MinPoint)
P2 (vlax-safearray->list MaxPoint )
mp (mapcar'(lambda(x y)(/(+ x y)2))p1 p2)
)
(command "-boundary" "non"p1 "" )
(setq PL (entlast)
vo(vlax-ename->vla-object PL)
)
(vlax-invoke-method vo 'GetBoundingBox 'MinPoint 'MaxPoint )
(setq p1(vlax-safearray->list MinPoint)
P2(vlax-safearray->list MaxPoint)
mpL (mapcar'(lambda(x y)(/(+ x y)2))p1 p2)
)
(command "_move" ss"" "non"mp "non"mpL)
)
;;====================================================================