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

ferious

taoyi0727 发表于 2018-6-26 14:20
用G版代码改的

感谢，效果如图，貌似线型以及线型比例全部丢失？块的显示颜色还是根据所在图层？如何改为0层？

ferious

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

亲测无改变？

tensir

感谢作者的分享！

jun470

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

版主，问一下一个基础的东西，这个程序需要的if做什么用呢，好像注释掉也没关系。我是想尽量精简程序，所以尝试改了您的程序。企望可以解答

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

  (defun c:tt ( / e el o blkdef)<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 />                                        (cdr (assoc 2 el))<br />                              )      )<br />       (vla-put-layer o "0") ;_ 对象修改到"0"层<br />       (vla-put-color o 0) ;_ 对象颜色随层<br />     )<br />    ; )<br />     (command "regen")<br />     (princ))

tensir

感谢作者的分享！

yk1216

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

能改成多选块就更好了