求助一个可以修改块内图层为Bylayer的插件程序

Melancholier

求助一个可以修改块内图层为Bylayer的插件程序（比如我有一个图层，图层内的颜色是红色，但是块内还是黄色，怎么样才可以不进块批量修改成与图层一致的颜色），先谢过大神

yshf

2. (defun c:cc()
   
3.     (setq AcadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
4.     (setq Blocks (vla-get-blocks AcadDoc))
   
5.     (if (setq ssa (ssget '((0 . "INSERT"))))
   
6.         (vlax-for Ent (vla-get-ActiveSelectionSet AcadDoc)
   
7.             (vlax-for Obj (vla-item Blocks (vla-get-name Ent))
   
8.                 (vla-put-color Obj 256) ;对象颜色随层
   
9.             )
   
10.         )
    
11.     )
    
12.     (vlax-release-object Blocks)
    
13.     (vlax-release-object AcadDoc)
    
14.     (princ)
    
15. )

(defun c:cc()<br />     (setq AcadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     (setq Blocks (vla-get-blocks AcadDoc))<br />     (if (setq ssa (ssget '((0 . "INSERT"))))<br />         (vlax-for Ent (vla-get-ActiveSelectionSet AcadDoc)<br />             (vlax-for Obj (vla-item Blocks (vla-get-name Ent))<br />                 (vla-put-color Obj 256) ;对象颜色随层<br />             )<br />         )<br />     )<br />     (vlax-release-object Blocks)<br />     (vlax-release-object AcadDoc)<br />     (princ)<br /> )

shh1980

SETBYLAYER

Gu_xl

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e (car (entsel "\n选择块：")))
   
4.         (= "INSERT" (cdr (assoc 0 (setq el (entget e)))))
   
5.       )
   
6.     (vlax-for o        (setq blkdef (vla-item (vla-get-blocks
   
7.                                          (vla-get-ActiveDocument
   
8.                                            (vlax-get-acad-object)
   
9.                                          )
   
10.                                        )
    
11.                                        (cdr (assoc 2 el))
    
12.                              )
    
13.                 )
    
14.       (vla-put-layer o "0") ;_ 对象修改到"0"层
    
15.       (vla-put-color o 256) ;_ 对象颜色随层
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

(defun c:tt ()<br />   (if (and<br />         (setq e (car (entsel "\n选择块：")))<br />         (= "INSERT" (cdr (assoc 0 (setq el (entget e)))))<br />       )<br />     (vlax-for o        (setq blkdef (vla-item (vla-get-blocks<br />                                          (vla-get-ActiveDocument<br />                                            (vlax-get-acad-object)<br />                                          )<br />                                        )<br />                                        (cdr (assoc 2 el))<br />                              )<br />                 )<br />       (vla-put-layer o "0") ;_ 对象修改到"0"层<br />       (vla-put-color o 256) ;_ 对象颜色随层<br />     )<br />   )<br />   (princ)<br /> )

Andyhon

您试过在 '0' 层造图块吗?

Melancholier

Andyhon 发表于 2018-6-13 12:30
您试过在 '0' 层造图块吗?

没懂你的意思呢，我的情况是别人做好了块，我想通过程序直接修改，而不进块

Andyhon

我们在学用AutoCAD之初即被带上 得在 '0' 层造图块的规范
是以我们的程序链就缺了您所说的这一环

669423907

Gu_xl 发表于 2018-6-14 10:35

G版：
我觉得楼主想要的是块内对象为Bylayer，
所以可以去掉 ;(vla-put-layer o "0") ;_ 对象修改到"0"层，
最后添加 (command "_move" e "" 0 0) ;刷新
能否改为多选呢？

Melancholier

yshf 发表于 2018-6-15 16:09

我想请教下，我导入到cad，提示说未知命令，您能再帮忙看看是什么问题吗

Melancholier

shh1980 发表于 2018-6-14 10:01
SETBYLAYER

我要的就是这个命令，谢谢，但是怎么用lisp程序，把图纸内所有的块一次按这个命令修改到位呢