如何修改块以及块中的块的图层

xiaomm250

选择一个块:
然后
1\修改这个块所在的图层,
2\修改该块内图元所在的图层
3\修改块内块所在的图层,以及块内块的图元所在的图层(如果这个块内有块的话)
请问如何实现呢?

xyp1964

方法：
1、当初就设定好实体的图层
2、refedit在位编辑改实体图层

xiaomm250

xyp1964 发表于 2014-4-14 13:56
方法：
1、当初就设定好实体的图层
2、refedit在位编辑改实体图层

程序,而不是人工的办法

xyp1964

仅供参考：

2. 
   
3. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
4. ;; 图块内实体改图层并颜色随层
   
5. (defun c:test1149 (/ ilst ll1 ll2)
   
6.   (xyp-CMDLA0)
   
7.   (defun main-pro (/ s1 lst la a)
   
8.     (if        (setq s1 (xyp-entsel "图块" "insert"))
   
9.       (progn
   
10.         (setq la (nth (atoi po1) lst1))
    
11.         (vlax-for a (xyp-Block-Item s1)
    
12.           (vla-put-layer a la)                ; 改图层
    
13.           (vla-put-color a acbylayer)        ; 颜色随层
    
14.         )
    
15.       )
    
16.     )
    
17.     (xyp-regen)
    
18.   )
    
19.   (xyp-initSet '(po1) '("0") )
    
20.   (setq lst1 (xyp-get-layers)
    
21.         ilst '(("po1" "图层" "poplist" "lst1" "8") "spacer;")
    
22.   )
    
23.   (if (= (xyp-Dcl-Init Ilst "【改块图层】" t) 1)
    
24.     (main-pro)
    
25.   )
    
26.   (xyp-CMDLA1)
    
27. )

<br /> ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> ;; 图块内实体改图层并颜色随层<br /> (defun c:test1149 (/ ilst ll1 ll2)<br />   (xyp-CMDLA0)<br />   (defun main-pro (/ s1 lst la a)<br />     (if        (setq s1 (xyp-entsel "图块" "insert"))<br />       (progn<br />         (setq la (nth (atoi po1) lst1))<br />         (vlax-for a (xyp-Block-Item s1)<br />           (vla-put-layer a la)                ; 改图层<br />           (vla-put-color a acbylayer)        ; 颜色随层<br />         )<br />       )<br />     )<br />     (xyp-regen)<br />   )<br />   (xyp-initSet '(po1) '("0") )<br />   (setq lst1 (xyp-get-layers)<br />         ilst '(("po1" "图层" "poplist" "lst1" "8") "spacer;")<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【改块图层】" t) 1)<br />     (main-pro)<br />   )<br />   (xyp-CMDLA1)<br /> )

xiaomm250

xyp1964 发表于 2014-4-14 14:25
仅供参考：

不是代码的代码,

菜卷鱼

http://lee-mac.com/applytoblockobjects.html

1. ;; Apply to Block Objects  -  Lee Mac
   
2. ;; Evaluates a supplied function on all objects in a block definition.
   
3. ;; Arguments:
   
4. ;; blks - VLA Block Collection in which block resides
   
5. ;; name - Block name
   
6. ;; func - function to apply to all objects in block
   
7. ;; Returns a list of results of evaluating the function, else nil.
   
8. 
   
9. (defun LM:ApplytoBlockObjects ( blks name func / def result )
   
10.     (setq func (eval func))
    
11.     (if (not (vl-catch-all-error-p (setq def (vl-catch-all-apply 'vla-item (list blks name)))))
    
12.         (vlax-for obj def (setq result (cons (func obj) result)))
    
13.     )
    
14.     (reverse result)
    
15. )

;; Apply to Block Objects  -  Lee Mac<br /> ;; Evaluates a supplied function on all objects in a block definition.<br /> ;; Arguments:<br /> ;; blks - VLA Block Collection in which block resides<br /> ;; name - Block name<br /> ;; func - function to apply to all objects in block<br /> ;; Returns a list of results of evaluating the function, else nil.<br /> <br /> (defun LM:ApplytoBlockObjects ( blks name func / def result )<br />     (setq func (eval func))<br />     (if (not (vl-catch-all-error-p (setq def (vl-catch-all-apply 'vla-item (list blks name)))))<br />         (vlax-for obj def (setq result (cons (func obj) result)))<br />     )<br />     (reverse result)<br /> )

The following example program will move all objects in a block to Layer "0".

1. (defun c:test ( / s )
   
2.     (princ "\nSelect Block: ")
   
3.     (if (setq s (ssget "_+.:E:S" '((0 . "INSERT"))))
   
4.         (LM:ApplytoBlockObjects
   
5.             (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
   
6.             (vla-get-effectivename (vlax-ename->vla-object (ssname s 0)))
   
7.            '(lambda ( obj ) (vla-put-layer obj "0"))
   
8.         )
   
9.     )
   
10.     (princ)
    
11. )
    
12. (vl-load-com) (princ)

(defun c:test ( / s )<br />     (princ "\nSelect Block: ")<br />     (if (setq s (ssget "_+.:E:S" '((0 . "INSERT"))))<br />         (LM:ApplytoBlockObjects<br />             (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))<br />             (vla-get-effectivename (vlax-ename->vla-object (ssname s 0)))<br />            '(lambda ( obj ) (vla-put-layer obj "0"))<br />         )<br />     )<br />     (princ)<br /> )<br /> (vl-load-com) (princ)

hnfsf

对多层嵌套块不完美