求指点，想把area命令得到的面积输入到文字中，但不知为何每次都是先选文字后启动命令

ll_j

(setq aa (car (entsel)))
(command "o" "area" aa)
(getvar "area")

ZZXXQQ

1. (defun c:aaw ()
   
2. (setq atext(entsel "\n选取写入面积的文字:"))
   
3. (setq elist (entget (car atext)))
   
4. (setq mc(cdr(assoc 1 elist)))
   
5. (if (setq s1 (entsel "\n选择封闭图线:")) (progn
   
6. (command "_.area" "o" s1)
   
7. (setq area (/ (getvar "area") 1000000.0))
   
8. (setq new (strcat mc "(" (rtos area 2 3) ")"))
   
9. (setq atext (subst (cons 1 new) (assoc 1 elist) elist))
   
10. (entmod atext)
    
11. ))
    
12. (prin1)
    
13. )
    

(defun c:aaw ()<br /> (setq atext(entsel "\n选取写入面积的文字:"))<br /> (setq elist (entget (car atext)))<br /> (setq mc(cdr(assoc 1 elist)))<br /> (if (setq s1 (entsel "\n选择封闭图线:")) (progn<br /> (command "_.area" "o" s1)<br /> (setq area (/ (getvar "area") 1000000.0))<br /> (setq new (strcat mc "(" (rtos area 2 3) ")"))<br /> (setq atext (subst (cons 1 new) (assoc 1 elist) elist))<br /> (entmod atext)<br /> ))<br /> (prin1)<br /> )<br />

ZZXXQQ

如果需要直圈点面积，可以：

1. (defun c:aaw ()
   
2. (setq atext(entsel "\n选取写入面积的文字:"))
   
3. (setq elist (entget (car atext)))
   
4. (setq mc(cdr(assoc 1 elist)))
   
5. (command "_.area")
   
6. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   
7. (setq area (/ (getvar "area") 1000000.0))
   
8. (setq new (strcat mc "(" (rtos area 2 3) ")"))
   
9. (setq atext (subst (cons 1 new) (assoc 1 elist) elist))
   
10. (entmod atext)
    
11. (prin1)
    
12. )
    

(defun c:aaw ()<br /> (setq atext(entsel "\n选取写入面积的文字:"))<br /> (setq elist (entget (car atext)))<br /> (setq mc(cdr(assoc 1 elist)))<br /> (command "_.area")<br /> (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> (setq area (/ (getvar "area") 1000000.0))<br /> (setq new (strcat mc "(" (rtos area 2 3) ")"))<br /> (setq atext (subst (cons 1 new) (assoc 1 elist) elist))<br /> (entmod atext)<br /> (prin1)<br /> )<br />

如果文字是封闭区域内，可以：

1. (defun c:aaw ()
   
2. (setq atext(entsel "\n选取写入面积的文字:"))
   
3. (setq elist (entget (car atext)))
   
4. (setq mc(cdr(assoc 1 elist)))
   
5. (setq s1 (entlast) ss (ssadd))
   
6. (setq pt (cdr(assoc 10 elist)))
   
7. (command "BPOLY" pt "")
   
8. (while (setq s1 (entnext s1)) (setq ss (ssadd s1 ss)))
   
9. (if (= (sslength ss) 1) (progn
   
10.   (command "_.area" "o" ss)
    
11.   (setq area (/ (getvar "area") 1000000.0))
    
12.   (setq new (strcat mc "(" (rtos area 2 3) ")"))
    
13.   (setq atext (subst (cons 1 new) (assoc 1 elist) elist))
    
14.   (entmod atext)
    
15. ))
    
16. (prin1)
    
17. )
    

(defun c:aaw ()<br /> (setq atext(entsel "\n选取写入面积的文字:"))<br /> (setq elist (entget (car atext)))<br /> (setq mc(cdr(assoc 1 elist)))<br /> (setq s1 (entlast) ss (ssadd))<br /> (setq pt (cdr(assoc 10 elist)))<br /> (command "BPOLY" pt "")<br /> (while (setq s1 (entnext s1)) (setq ss (ssadd s1 ss)))<br /> (if (= (sslength ss) 1) (progn<br />   (command "_.area" "o" ss)<br />   (setq area (/ (getvar "area") 1000000.0))<br />   (setq new (strcat mc "(" (rtos area 2 3) ")"))<br />   (setq atext (subst (cons 1 new) (assoc 1 elist) elist))<br />   (entmod atext)<br /> ))<br /> (prin1)<br /> )<br />

xiabin68

Z版出手就是不一样，，，，，