找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1693|回复: 8

[编程申请] 求一个图层刷工具

[复制链接]
发表于 2013-6-11 08:04:22 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

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

×
有名称分别为  1    2    的两个图层,
现有一条线段在图层 1 上 颜色不随层,线型不随层,
编程目标:
defun C:2 ()
选中该条线段 -->移动该条线段到图层2,并使颜色随层,线型随层
if 未选中对象,右键 --> 置图层 2 为当前图层 颜色bylayer 线型 Bylayer

本人新手,急需这个命令  求帮忙~~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 593个

财富等级: 财运亨通

发表于 2013-6-11 08:17:21 | 显示全部楼层
CAD 有格式刷为什么不用?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 9955个

财富等级: 富甲天下

发表于 2013-6-11 08:25:48 | 显示全部楼层
本帖最后由 zxq0220 于 2013-6-11 12:59 编辑

  1. (defun c:tt ()
  2. (if (setq ss (ssget '((8 . "1"))))
  3.   (command "_.CHPROP" ss "" "LA" "2" "C" "BYLAYER" "LT" "BYLAYER" "")
  4. )
  5. (setvar "CLAYER" "2")
  6. (command "COLOR" "BYLAYER")
  7. (command "LINETYPE" "S" "BYLAYER" "")
  8. (princ)
  9. )

点评

非常感谢 我试了 很好用 if 未选中对象,右键 --> 置图层 2 为当前图层 颜色bylayer 线型 Bylayer 这个功能好像还没有,麻烦你能不能再调试下 谢谢  发表于 2013-6-11 11:38

评分

参与人数 1D豆 +10 收起 理由
XDSoft + 10 技术引导讨论和指点奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 9955个

财富等级: 富甲天下

发表于 2013-6-11 13:00:33 | 显示全部楼层
楼上改了,再试试。

点评

(defun c:0 () (if (setq ss (ssget)) (command "_.CHPROP" ss "" "LA" "10假想线层" "C" "BYLAYER" "LT" "BYLAYER" "") ) (setvar "CLAYER" "10假想线层" ) (command "COLOR" "BYLAYER" ) (command "L  详情 回复 发表于 2013-6-11 20:13
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-11 20:13:47 | 显示全部楼层
zxq0220 发表于 2013-6-11 13:00
楼上改了,再试试。

(defun c:0 ()
(if (setq ss (ssget))
  (command "_.CHPROP" ss "" "LA" "10假想线层" "C" "BYLAYER" "LT" "BYLAYER" "")
)
(setvar "CLAYER" "10假想线层" )
(command "COLOR" "BYLAYER" )
(command "LINETYPE" "S" "BYLAYER" "" )
(princ)
)

可以将任何对象转到"10假想线层"了
可是如果没选对象的话,并不能将"10假想线层"置为当前层噢
还请朋友再帮忙想想办法,谢谢~~~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 9955个

财富等级: 富甲天下

发表于 2013-6-11 21:06:15 | 显示全部楼层
(setvar "CLAYER" "10假想线层" )
改成
(command "-LAYER" "S" "10假想线层"  "")

点评

(command "-LAYER" "S" "10假想线层" "") >>>> 不知道怎么回事 我在命令行输入-layer是可以的 放在lisp里执行就没效果啦~郁闷 求解  详情 回复 发表于 2013-6-12 00:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-12 00:29:02 | 显示全部楼层
zxq0220 发表于 2013-6-11 21:06
(setvar "CLAYER" "10假想线层" )
改成
(command "-LAYER" "S" "10假想线层"  "")


(command "-LAYER" "S" "10假想线层"  "")
>>>>
不知道怎么回事  我在命令行输入-layer是可以的
放在lisp里执行就没效果啦~郁闷 求解
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-12 10:54:17 | 显示全部楼层
已经解决了  是pccad的问题 谢谢zxq0220的帮忙
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-6-19 03:26 , Processed in 0.262770 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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