求一个移动图层的外挂 有红包
选中要移动的对象（比如说在0层）→→空格确定→→选择要移动到的对象（比如说在1层）→→空格确定（然后都会在1层）本帖最后由 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)
) 按照1楼的描述，就是把对象移动到指定对象的所在图层的话，AutoCAD自带的命令就可以实现，格式>图层工具>图层匹配，这个功能应该就是你要的效果。
ps，打个广告，如果是快速切换对象到指定的某几个图层的话，可以试试我发布的快速图层切换工具，里面有个简易版可以试试。 (defun c:tt()
(setq en (car (entsel)) la (cdr (assoc 8 (entget (car (entsel))))))
(command "change" en "" "p" "la" la "")) 你这是啥把1个图层里的所有对象全部改到另一个图层？ start4444 发表于 2018-8-24 17:28
(defun c:tt()
(setq en (car (entsel)) la (cdr (assoc 8 (entget (car (entsel))))))
(command "chan ...
第一步选择能改成框选吗 taoyi0727 发表于 2018-8-24 17:21
你这是啥把1个图层里的所有对象全部改到另一个图层？
把一个图层的移到另外一个图层（因为我这图层名字太复杂手打很麻烦只能选） taoyi0727 发表于 2018-8-24 17:21
你这是啥把1个图层里的所有对象全部改到另一个图层？
工作设计一大半时间都在移动图层= = 好像G版写了个自动图层，你无需关心图层，创建对象后自动归层。 自贡黄明儒 发表于 2018-8-24 19:51
好像G版写了个自动图层，你无需关心图层，创建对象后自动归层。
冰山一角= =除了wm不用其他都有单开命令
我这个图层控制是输入命令就跳转到，别的工具都是输入命令 第一下空格是选择东西到那个层两下空格才是切换到 wushijieqw 发表于 2018-8-24 20:18
我这个图层控制是输入命令就跳转到，别的工具都是输入命令 第一下空格是选择东西到那个层两下空格才是切 ...
一个东西5个层(￣▽￣！ )
页:
[1]
2