明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: Melancholier

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

  [复制链接]
发表于 2018-6-25 13:32 | 显示全部楼层
用0层做块,块内的东西颜色就会随原图层,如果用其他层做块,块内的图元颜色可能随了这个图层,就会不一样了。
 楼主| 发表于 2018-6-25 14:28 | 显示全部楼层
evayleung 发表于 2018-6-25 13:32
用0层做块,块内的东西颜色就会随原图层,如果用其他层做块,块内的图元颜色可能随了这个图层,就会不一样 ...

我是设备专业,块是建筑专业已经做好了,我就想一键修改到位,不改图层。已经找到了命令SETBYLAYER,但是直接用起来操作比较繁琐,我又不大会用lisp编程
发表于 2018-6-25 16:57 | 显示全部楼层
Melancholier 发表于 2018-6-25 14:28
我是设备专业,块是建筑专业已经做好了,我就想一键修改到位,不改图层。已经找到了命令SETBYLAYER,但是 ...

你看看这样能否满足你要求,就简单写两句,太深奥的我也不懂得。
  • (defun c:tt (/ ss)
  •   (setvar "CMDECHO" 0)
  •   (command "UNDO" "be")
  •   (setq ss (ssget "_X" '((0 . "INSERT"))))
  •   (command "_.SETBYLAYER" ss "" "Y" "Y")
  •   (command "UNDO" "e")
  • )

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2018-6-26 13:12 | 显示全部楼层
evayleung 发表于 2018-6-25 16:57
你看看这样能否满足你要求,就简单写两句,太深奥的我也不懂得。
  • (defun c:tt (/ ss)

  • 虽然没达到我要的效果,但是还是谢谢你的帮助
    发表于 2018-6-26 14:20 | 显示全部楼层
    本帖最后由 taoyi0727 于 2018-6-26 14:32 编辑

    用G版代码改的


    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?注册

    x
    发表于 2019-8-14 11:29 | 显示全部楼层

    顾老,请问一下这种属性块如何实现呀

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?注册

    x
    发表于 2021-1-19 09:12 | 显示全部楼层
    谢谢分享,先标记下
    发表于 2022-4-3 13:20 | 显示全部楼层

    非常感谢,非常好用.
    发表于 2023-3-25 17:12 | 显示全部楼层

    感谢,已经使用~
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
    ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

    GMT+8, 2024-3-28 18:39 , Processed in 0.169876 second(s), 19 queries , Gzip On.

    Powered by Discuz! X3.4

    Copyright © 2001-2021, Tencent Cloud.

    快速回复 返回顶部 返回列表