求各位大神帮帮忙
之前在论坛里找到个源码，现在长不到贴子了，谁能帮我改改么，把面积和周长的显示，从一行变成份两行显示，如下图 ，本人完全小白，只会用不会改，谢谢神以下是源码，
(defun C:mj (/pt a b c s ss tt ttt )
(vl-load-com)
(setq pt (getpoint "\\n请点取要标注的范围内一点:"))
(command "-boundary" pt "" "")
(setq a (entlast))
(setq b (vlax-ename->vla-object a))
(setq s (vla-get-area b))
(setq ss (rtos (/ s 1000000)2 1))
(setq tt (vla-get-length b))
(setq ttt (rtos (/ tt 1000)2 1))
(command "textsize" 160 "")
(command "mtext"pt pt (strcat "面积:" ss "周长:" ttt ) "")
(command "erase" a "")
)
(defun C:mj (/pt a b c s ss tt ttt pt1 )
(vl-load-com)
(setq pt (getpoint "\\n请点取要标注的范围内一点:"))
(command "-boundary" pt "" "")
(setq a (entlast))
(setq b (vlax-ename->vla-object a))
(setq s (vla-get-area b))
(setq ss (rtos (/ s 1000000)2 1))
(setq tt (vla-get-length b))
(setq ttt (rtos (/ tt 1000)2 1))
(setq pt1 (polar pt (* pi 1.5) 160))
(command "textsize" 160 "")
(command "mtext"pt pt (strcat "面积:" ss ) "")
(command "mtext"pt1 pt1 (strcat "周长:" ttt ) "")
(command "erase" a "")
)
(defun c:tt ()
(vl-load-com)
(setq pt (getpoint "\n请点取要标注的范围内一点: "))
(command "-boundary" pt "")
(setq a(entlast)
b(vlax-ename->vla-object a)
ss (vla-get-area b)
ss (rtos (* ss 1e-6) 2 1)
ll (vla-get-length b)
ll (rtos (* ll 1e-3) 2 1)
p1 (polar pt (* pi 1.5) 500)
)
(command "text" "j" "ml" pt 300 0 (strcat "面积:" ss))
(command "text" "j" "ml" p1 300 0 (strcat "周长:" ll))
(command "erase" a "")
(princ)
) 万分感谢xyp1964大神的帮助，谢谢 非常感谢xyp1964大神帮我改源码，上次改后在使用过程中我发现在“点取要标注的范围内一点”时，如边框太多时很久都不能选中，大虾能不能再帮我把“点取要标注的范围内一点”改成“选择封闭的框"
页:
[1]