【求助】请高手看看我的代码

我来看MM的

2. (defun c:mjj()
   
3. (setvar "cmdecho" 0)
   
4. (command "style" "宋体" "宋体" "0" "1" "0" "" "")         ;设定字体
   
5. 
   
6.   (setq en (entsel "请选择对象："))
   
7. 
   
8.   (command "area" "o" en)
   
9.   (setq a (getvar "area"))
   
10.   (redraw (car en) 3)
    
11.   (setq s (strcat "S=" (rtos a 2 2)))
    
12.   
    
13.   (setq #Final (grread T 4 4))
    
14.   
    
15.   (setq bb (cadr #final))
    
16. 
    
17.   (entmake
    
18.        (list
    
19.          '(0 . "text")
    
20.          '(100 . "AcDbEntity")
    
21.          '(100 . "AcDbText")
    
22.          '(7 . "宋体")          
    
23.           (cons 1 s)
    
24.           (cons 10 bb)                        
    
25.           ;(cons 50 ang)
    
26.          '(72 . 1)
    
27.          '(40 . 3)
    
28.          (cons 11 bb)
    
29.        );end list
    
30.      );end entmake
    
31.   (setq en1 (entlast))
    
32.   (while (eq 5 (car (setq #Final (grread T 4 4))))
    
33. 
    
34. (setq b (cadr #final))
    
35.    
    
36. (setq en_data (entget  en1))   
    
37. (setq oh (assoc 10 en_data))
    
38. (setq ol (cons 10 b))
    
39.   
    
40. (setq en_data (subst ol oh en_data))
    
41. (entmod en_data)
    
42.    
    
43. );end while
    
44. 
    
45. );end

(defun c:mjj()<br /> (setvar "cmdecho" 0)<br /> (command "style" "宋体" "宋体" "0" "1" "0" "" "")         ;设定字体<br /> <br />   (setq en (entsel "请选择对象："))<br /> <br />   (command "area" "o" en)<br />   (setq a (getvar "area"))<br />   (redraw (car en) 3)<br />   (setq s (strcat "S=" (rtos a 2 2)))<br />   <br />   (setq #Final (grread T 4 4))<br />   <br />   (setq bb (cadr #final))<br /> <br />   (entmake<br />        (list<br />          '(0 . "text")<br />          '(100 . "AcDbEntity")<br />          '(100 . "AcDbText")<br />          '(7 . "宋体")           <br />           (cons 1 s)<br />           (cons 10 bb)                         <br />           ;(cons 50 ang)<br />          '(72 . 1)<br />          '(40 . 3)<br />          (cons 11 bb) <br />        );end list <br />      );end entmake<br />   (setq en1 (entlast))<br />   (while (eq 5 (car (setq #Final (grread T 4 4))))<br /> <br /> (setq b (cadr #final))<br />     <br /> (setq en_data (entget  en1))   <br /> (setq oh (assoc 10 en_data))<br /> (setq ol (cons 10 b))<br />   <br /> (setq en_data (subst ol oh en_data))<br /> (entmod en_data)<br />     <br /> );end while<br /> <br /> );end

我来看MM的

(entmake
17.       (list
18.         '(0 . "text")
19.         '(100 . "AcDbEntity")
20.         '(100 . "AcDbText")
21.         '(7 . "宋体")           
22.          (cons 1 s)
23.          (cons 10 bb)                        
24.          ;(cons 50 ang)
25.         '(72 . 1)
26.         '(40 . 3)
27.         (cons 11 bb)
28.       );end list
29.     );end entmake
30.  (setq en1 (entlast))

我本想利用这段代码生成文字后再获取文字的对象名称，但好像这句(setq en1 (entlast))
不起作用啊。

我来看MM的

求高手指正

我来看MM的

我来看MM的 发表于 2013-6-26 22:47
(entmake
17.       (list
18.         '(0 . "text")

好吧，研究了下，这句没问题。只是不懂为什么接下来没起到更新的作用

ZZXXQQ

2.   (setq en1 (entmakex
   
3.    (list
   
4.     '(0 . "TEXT")
   
5.     '(100 . "AcDbEntity")
   
6.     '(67 . 0)
   
7.     '(100 . "AcDbText")
   
8.     (cons 10 bb)
   
9.     '(40 . 3)
   
10.     (cons 1 s)
    
11.     (cons 50 0)
    
12.     '(41 . 1)
    
13.     '(51 . 0.0)
    
14.     '(7 . "宋体")           
    
15.     '(72 . 1)
    
16.     (cons 11 bb)
    
17.     '(210 0.0 0.0 1.0)
    
18.     '(100 . "AcDbText")
    
19.     (cons 73 0)
    
20.    );list
    
21.   );entmakex
    
22. )
    

  (setq en1 (entmakex<br />    (list<br />     '(0 . "TEXT")<br />     '(100 . "AcDbEntity")<br />     '(67 . 0)<br />     '(100 . "AcDbText")<br />     (cons 10 bb)<br />     '(40 . 3)<br />     (cons 1 s)<br />     (cons 50 0)<br />     '(41 . 1)<br />     '(51 . 0.0)<br />     '(7 . "宋体")           <br />     '(72 . 1)<br />     (cons 11 bb)<br />     '(210 0.0 0.0 1.0)<br />     '(100 . "AcDbText")<br />     (cons 73 0)<br />    );list <br />   );entmakex<br /> )<br />

我来看MM的

ZZXXQQ 发表于 2013-6-27 00:01

谢谢斑竹了，解决了。问题是不是出在文字创建的时候，属性列表没弄全而导致，最好没办法更新？