块的BYLAYER问题

citykunan

我做了一个块，做块的实体不是BYLAYER的，而且在图纸上按不同的比例插入很多个，现在我想把块中的实体都变成BYLAYER的，有什么办法吗？谢谢。

meflying

再插入一个X、Y相同比例的块，编辑这个块就可以了，编辑完后把这个删掉

Ea

3. (defun Blkbylyr       (bn)
4.    (vlax-map-collection
5.        (vla-item
6.            (vlax-get-property
7.        (vlax-get-property (vlax-get-acad-object) 'activedocument)
8.        'blocks
9.            )
10.            bn
11.        )
12.        '(lambda (x)
13.              (vlax-put-property x 'color 256)
14.          )
15.    )
16. )
17. (defun c:tt (/ e)
18.    (if (setq e (car (entsel))) ;_ select insert
19.        (blkbylyr (cdr (assoc 2 (entget e))))
20.    )
21.    (princ)
22. )

(defun Blkbylyr       (bn)    (vlax-map-collection        (vla-item            (vlax-get-property        (vlax-get-property (vlax-get-acad-object) 'activedocument)        'blocks            )            bn        )        '(lambda (x)              (vlax-put-property x 'color 256)          )    ) ) (defun c:tt (/ e)    (if (setq e (car (entsel))) ;_ select insert        (blkbylyr (cdr (assoc 2 (entget e))))    )    (princ) )

龙龙仔

Citykunan可能的话把EA的程序改一下,使它支持所有物件好吗?

注意:嵌套图块,属性,引线,公差

完成这样的程序,以后有关图块的问题那就简单多了!

sailorcwx

用2000版本以上的refedit不行吗?

Ea

这个函数在网上可以搜到的，好像明经的函数库中就有。我是临时写的，考虑的不周全只是作个参考

龙龙仔

;;By LUCAS
;;遍歷的另种写法
(defun BLKBYLYR_LAI (BN)
(vlax-for ENT
(vla-item (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
BN
)
(vla-put-color ENT 256)
)
) (defun C:TTT (/ E)
(if (setq E (car (entsel))) ;_ select insert
(BLKBYLYR_LAI (cdr (assoc 2 (entget E))))
)
(princ)
)

无痕

另外一个 (defun BLKBYLYR_LAI (BN)
(setq e (tblobjname "block" bn))
(while (setq e (entnext e))
(vla-put-color (vlax-ename->vla-object e) 256)
)
)

citykunan

版主给我出的题目真难啊，我嵌套块就不知道怎么处理，能不能提示一下？我一定努试试，谢谢。

龙龙仔

嵌套块-----写一个递归的程序(很简单的) 8-) ;;By LUCAS
;;增加了嵌套图块
;;属性,引线,公差,尺寸....就留给你
(defun BLKBYLYR_LAI (BN COL / ENT NAME)
(vlax-for ENT
(vla-item (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
BN
)
(vla-put-color ENT COL)
(if (= (vla-get-objectname ENT) "AcDbBlockReference")
(BLKBYLYR_LAI (vla-get-name ENT) COL)
)
)
) (defun C:TTT (/ E LST)
(if (and (setq E (car (entsel "\nSelect block: ")))
(setq COL (acad_colordlg 7))
)
(BLKBYLYR_LAI (cdr (assoc 2 (entget E))) COL)
)
(command "_.REGEN")
(princ)
)