[求助]：小生整理的一个面积测量标注程序，希望高人帮忙改进一下

mikary

2. 
   
3.   [FONT=courier new]
   
4. (defun c:AR ( / ss all j)
   
5. (if(setq all 0 j -1 ss(ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,SPLINE,REGION,ARC"))))
   
6.    (repeat(sslength ss)
   
7.        (setq all(+ all(vla-get-area (vlax-ename->vla-object (ssname ss(setq j(1+ j)))) )))
   
8.   ))
   
9. (setq all (rtos (* 0.000001 all) 2 3 ))
   
10. (princ (strcat "\n总面积：" all "平方米"))
    
11. (setq all (strcat all "平方米"))
    
12. (setq pt (getpoint "\n请点取计算面积书写位置：" ))
    
13. (command "text" pt 350 0 all)
    
14. (princ)
    
15. )
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:AR ( / ss all j)<br /> (if(setq all 0 j -1 ss(ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,SPLINE,REGION,ARC"))))<br />    (repeat(sslength ss)<br />        (setq all(+ all(vla-get-area (vlax-ename->vla-object (ssname ss(setq j(1+ j)))) )))<br />   ))<br /> (setq all (rtos (* 0.000001 all) 2 3 ))<br /> (princ (strcat "\n总面积：" all "平方米"))<br /> (setq all (strcat all "平方米"))<br /> (setq pt (getpoint "\n请点取计算面积书写位置：" ))<br /> (command "text" pt 350 0 all)<br /> (princ)<br /> )<br />   [/FONT]<br />

这是小生参照论坛几位高人的程序整理出来的。
测量pline围合物体的面积并标注在图纸上。

偶想知道 (setq pt (getpoint "\n请点取计算面积书写位置：" ))如何改成自动获取所测量图形的中心点坐标？？免得每次都点一下