[可选择]块属性刷刷刷.

机械工程师

支持分享源码。

flowerson

还缺少函数的 “选择对象:  ; 错误: no function definition: GETATTVALUE”

flowerson

选择对象:  ; 错误: no function definition: SETATTVALUE

这个也是!

njut_prince

希望楼主给个完整代码！！！！谢谢！！

htxhtx

不能用，还是用原来的完全刷！

htxhtx

test.dcl在那里啊？

77077

htxhtx 发表于 2014-7-10 19:33
test.dcl在那里啊？

不用个管它在哪里，不影响使用。
这是一个动态生成DCL的程序，程序运行会根据lst自动生成DCL.

fl202

以下是补缺少的两个子函数：

2. ;;;取得块属性值
   
3. (defun getattvalue (entblock attname / entdata entname test value)
   
4.   (setq entname entblock test t  )
   
5.   (while (and  test   (setq entname (entnext entname))  )
   
6.     (setq entdata (entget entname))
   
7.     (cond
   
8.     ((not (= (cdr (assoc 0 entdata)) "ATTRIB"))   (setq test nil)  )
   
9.     ((= "SEQEND" (cdr (assoc 0 entdata)))         (setq test nil)  )
   
10.     ((= (cdr (assoc 2 entdata)) attname)          (setq value (cdr (assoc 1 entdata)))  )
    
11.      )
    
12.   )
    
13.   value
    
14. )
    
15. ;;;getattnamelst 替换getattributes
    
16. ;;;给块属性赋值
    
17. (defun setattvalue (EN ATTNAME vALUE /  szb1 E TEST ENT)
    
18.         (setq E EN          RETURN NIL          TEST t    )
    
19.     (while (and        TEST                (setq E (entnext E))           )
    
20.         (setq ENT (entget E))
    
21.         (cond
    
22.             ;;
    
23.             ((not (= (cdr (assoc 0 ENT)) "ATTRIB"))
    
24.              (setq TEST NIL)
    
25.             )
    
26.             ;;
    
27.             ((= "SEQEND" (cdr (assoc 0 ENT)))
    
28.              (setq TEST NIL)
    
29.             )
    
30.             ;;
    
31.             ((= (cdr (assoc 2 ENT)) ATTNAME )
    
32.              (setq ENT (subst        (cons 1 VALUE)  (assoc 1 ENT) ENT) )
    
33.              (entmod ENT)
    
34.              (entupd EN)
    
35.              (setq RETURN t)
    
36.             )
    
37.            ) ;_结束cond
    
38.     )
    
39.     ;;返回
    
40.     RETURN
    
41. )

;;;取得块属性值<br /> (defun getattvalue (entblock attname / entdata entname test value)<br />   (setq entname entblock test t  )<br />   (while (and  test   (setq entname (entnext entname))  )<br />     (setq entdata (entget entname))<br />     (cond<br />     ((not (= (cdr (assoc 0 entdata)) "ATTRIB"))   (setq test nil)  )<br />     ((= "SEQEND" (cdr (assoc 0 entdata)))         (setq test nil)  )<br />     ((= (cdr (assoc 2 entdata)) attname)          (setq value (cdr (assoc 1 entdata)))  )<br />      )<br />   )<br />   value<br /> )<br /> ;;;getattnamelst 替换getattributes<br /> ;;;给块属性赋值<br /> (defun setattvalue (EN ATTNAME vALUE /  szb1 E TEST ENT)<br />         (setq E EN          RETURN NIL          TEST t    )<br />     (while (and        TEST                (setq E (entnext E))           )<br />         (setq ENT (entget E))<br />         (cond<br />             ;;<br />             ((not (= (cdr (assoc 0 ENT)) "ATTRIB"))<br />              (setq TEST NIL)<br />             )<br />             ;;<br />             ((= "SEQEND" (cdr (assoc 0 ENT)))<br />              (setq TEST NIL)<br />             )<br />             ;;<br />             ((= (cdr (assoc 2 ENT)) ATTNAME )<br />              (setq ENT (subst        (cons 1 VALUE)  (assoc 1 ENT) ENT) )<br />              (entmod ENT)<br />              (entupd EN)<br />              (setq RETURN t)<br />             )<br />            ) ;_结束cond<br />     )<br />     ;;返回<br />     RETURN<br /> )

附件是经测试的完整程序，对程序稍作修改，收币一个。大家自主选择，补函数后还要调试修改完才能用，嫌麻烦的就下载好了。

cabo0415

还是出错，比较麻烦

wy92160410

好想试一试，没明经币了