将对象所在图层及颜色设为当前

荒野孤行 · 发表于 2015-9-4 22:15

将单选的对象所在的图档及颜色设置为当前图层的

;设为当前层
(defun c:t1 ()
  (setvar "osmode" 15359)
  (setvar "cmdecho" 0)
  (setvar "expert" 0)
  (princ "\n将选取对象图层及颜色置为当前层.")
  (initget "N A")
  (if (not
(setq
   kw
   (getkword
      "\n将选取对象的---设置为当前：[图层(N)/图层及其颜色(A)]<N>"
   )
)
   )
(setq kw "N")
  )
  (while (not (setq ent (entsel "\n请单选对象：")))
(princ "\n未选中对象，请再试一次：")
  )
  (vl-load-com)
  (setq obj (vlax-ename->vla-object (car ent)))
  (setq laynam (vla-get-layer obj))
  (setq laycol (vla-get-color obj))
  (command "_.layer" "s" laynam "")
  (setvar "cecolor" "Bylayer")
  (if (= kw "A")
(if (/= laycol 256)
   (setvar "cecolor" (itoa laycol))
)
  )
  (princ "\n★已将图层 ")
  (prin1 laynam)
  (princ " 置为当前层.\n")
  (princ)
)

Aries · 发表于 2020-9-10 15:05

我想把所有图层改为当前层但不改颜色

leedun · 发表于 2024-1-4 19:34

收藏，将对象所在图层及颜色设为当前

xvjiex · 发表于 2020-1-19 16:21

荒野孤行辛苦了，感谢分享。

xchj81 · 发表于 2015-9-4 22:22

学习了

hastan · 发表于 2015-9-4 23:36

提示: 作者被禁止或删除内容自动屏蔽

yoyoho · 发表于 2015-9-5 05:07

感谢荒野孤行分享程序!

dbx511 · 发表于 2015-9-5 07:08

谢谢分享！

lucas_3333 · 发表于 2015-9-5 08:10

开始量产的节凑?

荒野孤行 · 发表于 2015-9-5 08:24

lucas_3333 发表于 2015-9-5 08:10
开始量产的节凑?

慢慢的会把WDY工具箱里的功能分开发出的。

429014673 · 发表于 2015-9-5 09:20

出产批量呀

ckss · 发表于 2015-9-5 09:54

good!!!!!!!!!!!!!!!

adc · 发表于 2015-9-5 10:04

xiexiefenxiang~~

账号		自动登录	找回密码
密码			注册

[源码] 将对象所在图层及颜色设为当前

本帖子中包含更多资源

hastan hastan 当前离线积分 1925 明经币个注册时间 2014-12-26 在线时间小时威望金钱个贡献激情	发表于 2015-9-4 23:36 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡