求一个移动图层的外挂有红包

wushijieqw · 发表于 2018-8-24 17:03:18

选中要移动的对象（比如说在0层）→→空格确定→→选择要移动到的对象（比如说在1层）→→空格确定（然后都会在1层）

namezg · 发表于 2018-8-25 08:39:41

本帖最后由 namezg 于 2018-8-25 12:20 编辑

;将对象移动到指定层（多选），并使用指定层颜色，线型，线宽(也就是将对象匹配到指定层)
(defun c:ZG_LayMCH (/ ss en lay)
(setvar "cmdecho" 0)
(command "_undo" "be")
(princ "\n请选择要更改图层的对象: ")
(if (setq ss (ssget))
(progn
(if (setq en (car (nentsel "\n选择目标图层上的对象或 <当前层>:")))
(setq lay (cdr (assoc 8 (entget en))))
(setq lay (getvar "clayer"))
)
;(command "chprop" ss "" "la" lay "");仅改变图层，不理会颜色，线型，线宽
(command "chprop" ss "" "la" lay "color" "bylayer" "ltype" "bylayer" "lweight" "bylayer" "")
)
)
(command "_undo" "e")
(setvar "cmdecho" 1)
(princ)
)

lostbalance · 发表于 2018-8-24 22:00:05

按照1楼的描述，就是把对象移动到指定对象的所在图层的话，AutoCAD自带的命令就可以实现，格式>图层工具>图层匹配，这个功能应该就是你要的效果。
ps，打个广告，如果是快速切换对象到指定的某几个图层的话，可以试试我发布的快速图层切换工具，里面有个简易版可以试试。

start4444 · 发表于 2018-8-24 17:28:03

(defun c:tt()
(setq en (car (entsel)) la (cdr (assoc 8 (entget (car (entsel))))))
(command "change" en "" "p" "la" la ""))

taoyi0727 · 发表于 2018-8-24 17:21:17

你这是啥把1个图层里的所有对象全部改到另一个图层？

wushijieqw · 发表于 2018-8-24 19:38:51

start4444 发表于 2018-8-24 17:28
(defun c:tt()
(setq en (car (entsel)) la (cdr (assoc 8 (entget (car (entsel))))))
(command "chan ...

第一步选择能改成框选吗

wushijieqw · 发表于 2018-8-24 19:42:04

taoyi0727 发表于 2018-8-24 17:21
你这是啥把1个图层里的所有对象全部改到另一个图层？

把一个图层的移到另外一个图层（因为我这图层名字太复杂手打很麻烦只能选）

wushijieqw · 发表于 2018-8-24 19:43:31

taoyi0727 发表于 2018-8-24 17:21
你这是啥把1个图层里的所有对象全部改到另一个图层？

工作设计一大半时间都在移动图层= =

自贡黄明儒 · 发表于 2018-8-24 19:51:40

好像G版写了个自动图层，你无需关心图层，创建对象后自动归层。

wushijieqw · 发表于 2018-8-24 20:14:33

自贡黄明儒发表于 2018-8-24 19:51
好像G版写了个自动图层，你无需关心图层，创建对象后自动归层。

冰山一角= =除了wm不用其他都有单开命令

wushijieqw · 发表于 2018-8-24 20:18:04

我这个图层控制是输入命令就跳转到，别的工具都是输入命令第一下空格是选择东西到那个层两下空格才是切换到

wushijieqw · 发表于 2018-8-24 20:18:55

wushijieqw 发表于 2018-8-24 20:18
我这个图层控制是输入命令就跳转到，别的工具都是输入命令第一下空格是选择东西到那个层两下空格才是切 ...

一个东西5个层(￣▽￣！ )

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

[讨论] 求一个移动图层的外挂有红包