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

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

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

                                        ;设为当前层
(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>"
           )
        )
      )
**** Hidden Message *****
(princ "\n★已将图层 ")
(prin1 laynam)
(princ " 置为当前层.\n")
(princ)
)

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

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

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

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

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

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

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

学习了

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

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

感谢 荒野孤行 分享程序!

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

谢谢分享！

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

开始量产的节凑?

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

lucas_3333 发表于 2015-9-5 08:10 static/image/common/back.gif
开始量产的节凑?

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

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

出产批量呀

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

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

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

xiexiefenxiang~~
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 将对象所在图层及颜色设为当前