社区 › AutoLISP/Visual LISP 编程技术 › 求助一个可以修改块内图层为Bylayer的插件程序

ferious 发表于 2023-4-20 17:20:50

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

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

ferious 发表于 2023-4-20 17:30:33

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


亲测无改变？

tensir 发表于 2024-7-2 13:11:24

感谢作者的分享！

jun470 发表于 2024-7-2 17:57:43

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


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

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

tensir 发表于 2024-7-8 07:50:55

感谢作者的分享！

yk1216 发表于 2024-7-15 12:51:34

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


能改成多选块就更好了

查看完整版本: 求助一个可以修改块内图层为Bylayer的插件程序