CAD答疑栏 | 怎么将面积测量结果标注到图形中？

(defun C:mj()  ;查询对象（多线段封闭图形、圆、矩形）面积
 (setq a (vlax-ename->vla-object (car (entsel "\选择对象: "))))
 (setq b (vla-get-area a))
 (setq c (rtos b ))
 (setq ch1 (strcat "面积：" c "mm2"))  
(setq ch2 (getpoint "\n屏幕单击插入点")) 
(entmake (list '(0 . "text")    
 (cons 10 ch2)
(cons 11 ch2)
(cons 1 ch1)     '(40 . 350)     )  )
(prin1))