新问题 请教，还是属性块的问题。

45296876

下面就是经超版指点所完成的批量修改属性块文字的字高与字宽程序，真心感谢此论坛的各坛友与版主。谢谢

2. 
   
3. 
   
4. (defun c:zg(/ a b c d e f g )
   
5.   
   
6. (setq a (getdist "\n输入字高："))
   
7.   (setq b (getdist "\n请输入字宽比例："))
   
8. (setq c -1)
   
9.   (setq d (ssget '((0 . "INSERT") (66 . 1))));获得包含'((0 . "INSERT") (66 . 1))两种信息的图块，也就是说获得有属性的图块
   
10. (repeat (sslength d)
    
11.    (setq e (ssname d (setq c (+ 1 c))))
    
12.    (setq f e)
    
13.   
    
14.   (while (and
    
15.            (setq f (entnext f))
    
16.            (= "ATTRIB" (cdr (assoc 0 (setq g (entget f)))))
    
17.            )   
    
18. 
    
19.    (setq g (entmod (subst (cons 40 a) (assoc 40 g) g)))
    
20.            (entmod (subst (cons 41 b) (assoc 41 g) g))
    
21.   
    
22. 
    
23.   (entupd e)
    
24.     );while闭括号
    
25.   );repeat闭括号
    
26.   
    
27.   (princ)
    
28.   );defun闭括号
    

<br /> <br /> (defun c:zg(/ a b c d e f g )<br />   <br /> (setq a (getdist "\n输入字高："))<br />   (setq b (getdist "\n请输入字宽比例："))<br /> (setq c -1)<br />   (setq d (ssget '((0 . "INSERT") (66 . 1))));获得包含'((0 . "INSERT") (66 . 1))两种信息的图块，也就是说获得有属性的图块<br /> (repeat (sslength d)<br />    (setq e (ssname d (setq c (+ 1 c))))<br />    (setq f e)<br />   <br />   (while (and<br />            (setq f (entnext f))<br />            (= "ATTRIB" (cdr (assoc 0 (setq g (entget f)))))<br />            )   <br /> <br />    (setq g (entmod (subst (cons 40 a) (assoc 40 g) g)))<br />            (entmod (subst (cons 41 b) (assoc 41 g) g))<br />   <br /> <br />   (entupd e)<br />     );while闭括号<br />   );repeat闭括号<br />   <br />   (princ)<br />   );defun闭括号<br />

zhangcan0515

谢谢分享学习了，解决了我很多问题

45296876

木有人回答啊……

wowan1314

属性块没玩过，估计也就是加个循环把一个块里面的属性都弄出来按条件处理下。

你可以先去查查看怎么得到属性块内的全部属性文字。

45296876

wowan1314 发表于 2013-4-10 17:42
属性块没玩过，估计也就是加个循环把一个块里面的属性都弄出来按条件处理下。

你可以先去查查看怎么得到 ...

暂时先这样，研究一下吧，等有人帮忙再看看。也许这回能自已解决了，如果解决了就把源码发上来给大家参考一下。

45296876

2. (defun c:ccc()
   
3. (setq a (getreal "\n输入字高："))
   
4.   (setq b (getreal "\n字宽："))
   
5. (setq c -1)
   
6.   (setq d (ssget '((0 . "INSERT") (66 . 1))))
   
7. (repeat (sslength d)
   
8.    (setq e (ssname d (setq c (+ 1 c))))
   
9.    (setq f (entnext (cdar ( entget e))))
   
10.    (setq g (entget f))
    
11.    (setq g (entmod (subst (cons 40 a) (assoc 40 g) g)))
    
12.            (entmod (subst (cons 41 b) (assoc 41 g) g))
    
13.   
    
14. (setq h (entnext f))
    
15.   (setq i (entget h))
    
16.   (setq i (entmod (subst (cons 40 a) (assoc 40 i) i)))
    
17.            (entmod (subst (cons 41 b) (assoc 41 i) i))
    
18. 
    
19.   (setq j (entnext h))
    
20.   (setq k (entget j))
    
21.   (setq k (entmod (subst (cons 40 a) (assoc 40 k) k)))
    
22.            (entmod (subst (cons 41 b) (assoc 41 k) k))
    
23. 
    
24.    (setq L (entnext j))
    
25.   (setq m (entget L))
    
26.   (setq m (entmod (subst (cons 40 a) (assoc 40 m) m)))
    
27.            (entmod (subst (cons 41 b) (assoc 41 m) m))
    
28.   (entupd e)
    
29.   );repeat闭括号       
    
30.   (princ)
    
31.   );defun闭括号

(defun c:ccc()<br /> (setq a (getreal "\n输入字高："))<br />   (setq b (getreal "\n字宽："))<br /> (setq c -1)<br />   (setq d (ssget '((0 . "INSERT") (66 . 1))))<br /> (repeat (sslength d)<br />    (setq e (ssname d (setq c (+ 1 c))))<br />    (setq f (entnext (cdar ( entget e))))<br />    (setq g (entget f))<br />    (setq g (entmod (subst (cons 40 a) (assoc 40 g) g)))<br />            (entmod (subst (cons 41 b) (assoc 41 g) g))<br />   <br /> (setq h (entnext f))<br />   (setq i (entget h))<br />   (setq i (entmod (subst (cons 40 a) (assoc 40 i) i)))<br />            (entmod (subst (cons 41 b) (assoc 41 i) i))<br /> <br />   (setq j (entnext h))<br />   (setq k (entget j))<br />   (setq k (entmod (subst (cons 40 a) (assoc 40 k) k)))<br />            (entmod (subst (cons 41 b) (assoc 41 k) k))<br /> <br />    (setq L (entnext j))<br />   (setq m (entget L))<br />   (setq m (entmod (subst (cons 40 a) (assoc 40 m) m)))<br />            (entmod (subst (cons 41 b) (assoc 41 m) m))<br />   (entupd e)<br />   );repeat闭括号        <br />   (princ)<br />   );defun闭括号

这样一个一个的做，把ENTMOD一直做下去，同时还要把ENTNEXT一直做下去，如何用WHILE判断呢？高手帮忙修改一下，谢谢

Gu_xl

45296876 发表于 2013-4-11 09:17
这样一个一个的做，把ENTMOD一直做下去，同时还要把ENTNEXT一直做下去，如何用WHILE判断呢？高手帮忙修改一 ...

.
.
.
(repeat (sslength d)
   (setq f (ssname d (setq c (+ 1 c))))
  (while (and
           (setq f (entnext f))
           (= "ATTRIB" (cdr (assoc 0 (setq g (entget f)))))
           )
    .
    .
    .
    )
  )
.
.
.

45296876

Gu_xl 发表于 2013-4-11 09:29
.
.
.

超版就是超版，小弟在此学习了，谢谢。有啥问题我还会回来的。

45296876

Gu_xl 发表于 2013-4-11 09:29
.
.
.

2. (defun c:ccc()
   
3. (setq a (getreal "\n输入字高："))
   
4.   (setq b (getreal "\n字宽："))
   
5. (setq c -1)
   
6.   (setq d (ssget '((0 . "INSERT") (66 . 1))))
   
7. (repeat (sslength d)
   
8.    (setq e (ssname d (setq c (+ 1 c))))
   
9.   
   
10. 
    
11.   (while (and
    
12.            (setq f (entnext f))
    
13.            (= "attrib" (cdr (assoc 0 (setq g (entget f))))))
    
14.     (setq f (entnext (cdar (entget e))))
    
15.     (setq g (entget f))            
    
16.   
    
17.    (setq g (entmod (subst (cons 40 a) (assoc 40 g) g)))
    
18.            (entmod (subst (cons 41 b) (assoc 41 g) g))
    
19.   )
    
20. 
    
21.   (entupd e)
    
22.   );repeat闭括号       
    
23.   (princ)
    
24.   );defun闭括号
    
25. 这里加载的时候提示点位置不对，望版主给指路明灯

(defun c:ccc()<br /> (setq a (getreal "\n输入字高："))<br />   (setq b (getreal "\n字宽："))<br /> (setq c -1)<br />   (setq d (ssget '((0 . "INSERT") (66 . 1))))<br /> (repeat (sslength d)<br />    (setq e (ssname d (setq c (+ 1 c))))<br />   <br /> <br />   (while (and<br />            (setq f (entnext f))<br />            (= "attrib" (cdr (assoc 0 (setq g (entget f))))))<br />     (setq f (entnext (cdar (entget e))))<br />     (setq g (entget f))            <br />   <br />    (setq g (entmod (subst (cons 40 a) (assoc 40 g) g)))<br />            (entmod (subst (cons 41 b) (assoc 41 g) g))<br />   )<br /> <br />   (entupd e)<br />   );repeat闭括号        <br />   (princ)<br />   );defun闭括号<br /> 这里加载的时候提示点位置不对，望版主给指路明灯

Gu_xl

45296876 发表于 2013-4-11 10:42

(setq f (entnext (cdar (entget e))))
    (setq g (entget f))            
两句代码删掉！
要仔细阅读代码！看明白每句都是什么意思！

45296876

Gu_xl 发表于 2013-4-11 10:46
(setq f (entnext (cdar (entget e))))
    (setq g (entget f))            
两句代码删掉！

(setq e (ssname d (setq c (+ 1 c))))这句里面如果不用entnext，能让assoc搜索到“ATTRIB”吗？直接ENTGET E,只能获得(0 . "INSERT")