[编程交流] 同一行上有两个文本

 
(defun c:LAND ()
(setq p "")
  (setq p(getpoint "\n....... Select a point inside a room: "))
(if (/= p nil)(progn
   (setq cpltype(getvar "PLINETYPE"))
       (setq clay(getvar "clayer"))
(setvar "PLINETYPE" 1)
(command "._layer" "_m" "polyline" "")
(command "_bpoly" p "")
(setq poli(entlast))
(setq polix(entget poli))
(if (= (cdr(assoc 0 polix)) "LWPOLYLINE")(progn
   (command "_area" "_o" poli)
   (setq Area(getvar "Area"))
 (setq hs 0.10)
 [color=red](command "_text" p hs "0" (strcat "Sup = " "mq   " ) \r)[/color]
 [color=red](command "_text" (polar p 0 0.75) hs "0" (rtos area 2 2) \r)[/color]
))  
       (setvar "clayer" clay)
(setvar "PLINETYPE" cpltype)
))
(princ)
)