急急急 由块名得到块中的所有属性

singlewolf

急急急 由块名得到块中的所有属性

LUCAS

2. ;;(TT "123")
3. ;;NO ERROR CHECK
4. ;;要先确定有这个属性图块(vl-load-com)
5. (defun TT (BLKNAME / ENT N)
6.    (setq N 0)
7.    (vlax-for ENT
8.          (vla-item (vla-get-blocks
9.       (vla-get-activedocument (vlax-get-acad-object))
10.                )
11.                BLKNAME
12.          )
13.        (if  (= (vla-get-objectname ENT) "AcDbAttributeDefinition")
14.            (setq N (1+ N))
15.        )
16.    )
17.    N
18. )

;;(TT "123") ;;NO ERROR CHECK ;;要先确定有这个属性图块(vl-load-com) (defun TT (BLKNAME / ENT N)    (setq N 0)    (vlax-for ENT          (vla-item (vla-get-blocks       (vla-get-activedocument (vlax-get-acad-object))                )                BLKNAME          )        (if  (= (vla-get-objectname ENT) "AcDbAttributeDefinition")            (setq N (1+ N))        )    )    N )

meflying

真假龙龙？

citykunan

不知这个lucas水平如何?

Ea

是找 Blockreference 的属性吧