求各位大神帮帮忙

starysb

之前在论坛里找到个源码，现在长不到贴子了，谁能帮我改改么，把面积和周长的显示，从一行变成份两行显示，如下图 ，本人完全小白，只会用不会改，谢谢神


以下是源码，
(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 "")
)

kwok

2. (defun C:mj (/  pt a b c s ss tt ttt pt1 )
   
3. (vl-load-com)
   
4. (setq pt (getpoint "\\n请点取要标注的范围内一点:"))
   
5. (command "-boundary" pt "" "")
   
6. (setq a (entlast))
   
7. (setq b (vlax-ename->vla-object a))
   
8. (setq s (vla-get-area b))
   
9. (setq ss (rtos (/ s 1000000)2 1))
   
10. (setq tt (vla-get-length b))
    
11. (setq ttt (rtos (/ tt 1000)2 1))
    
12.   (setq pt1 (polar pt (* pi 1.5) 160))
    
13. (command "textsize" 160 "")
    
14. (command "mtext"  pt pt (strcat "面积:" ss ) "")
    
15. (command "mtext"  pt1 pt1 (strcat "周长:" ttt ) "")
    
16. (command "erase" a "")
    
17. )

(defun C:mj (/  pt a b c s ss tt ttt pt1 )<br /> (vl-load-com)<br /> (setq pt (getpoint "\\n请点取要标注的范围内一点:"))<br /> (command "-boundary" pt "" "")<br /> (setq a (entlast))<br /> (setq b (vlax-ename->vla-object a))<br /> (setq s (vla-get-area b))<br /> (setq ss (rtos (/ s 1000000)2 1))<br /> (setq tt (vla-get-length b))<br /> (setq ttt (rtos (/ tt 1000)2 1))<br />   (setq pt1 (polar pt (* pi 1.5) 160))<br /> (command "textsize" 160 "")<br /> (command "mtext"  pt pt (strcat "面积:" ss ) "")<br /> (command "mtext"  pt1 pt1 (strcat "周长:" ttt ) "")<br /> (command "erase" a "")<br /> )

xyp1964

1. (defun c:tt ()
   
2.   (vl-load-com)
   
3.   (setq pt (getpoint "\n请点取要标注的范围内一点: "))
   
4.   (command "-boundary" pt "")
   
5.   (setq        a  (entlast)
   
6.         b  (vlax-ename->vla-object a)
   
7.         ss (vla-get-area b)
   
8.         ss (rtos (* ss 1e-6) 2 1)
   
9.         ll (vla-get-length b)
   
10.         ll (rtos (* ll 1e-3) 2 1)
    
11.         p1 (polar pt (* pi 1.5) 500)
    
12.   )
    
13.   (command "text" "j" "ml" pt 300 0 (strcat "面积:" ss))
    
14.   (command "text" "j" "ml" p1 300 0 (strcat "周长:" ll))
    
15.   (command "erase" a "")
    
16.   (princ)
    
17. )

(defun c:tt ()<br />   (vl-load-com)<br />   (setq pt (getpoint "\n请点取要标注的范围内一点: "))<br />   (command "-boundary" pt "")<br />   (setq        a  (entlast)<br />         b  (vlax-ename->vla-object a)<br />         ss (vla-get-area b)<br />         ss (rtos (* ss 1e-6) 2 1)<br />         ll (vla-get-length b)<br />         ll (rtos (* ll 1e-3) 2 1)<br />         p1 (polar pt (* pi 1.5) 500)<br />   )<br />   (command "text" "j" "ml" pt 300 0 (strcat "面积:" ss))<br />   (command "text" "j" "ml" p1 300 0 (strcat "周长:" ll))<br />   (command "erase" a "")<br />   (princ)<br /> )

starysb

万分感谢xyp1964大神的帮助，谢谢

starysb

非常感谢xyp1964大神帮我改源码，上次改后在使用过程中我发现在“点取要标注的范围内一点”时，如边框太多时很久都不能选中，大虾能不能再帮我把“点取要标注的范围内一点”改成“选择封闭的框"