3个回答
展开全部
炸开,MA刷成你想要保留的图层,然后PU
清除图层的方法:la 打开图层 隐藏其它的图层,只显示你想要删除的图层 然后把显示出来的东西移到隐藏的层上用PU就好搏薯了(注意当前选中图层0层还有定一点层是无法删除的)
还有04版后都有一个强制合并图层的命令laytrans
如果你用的是04及以后的版本的话就很好解决了
先选中要合并的图层,点野银侍右边颂吵的新建图层,建好新图层后点映射接着点转换就好了
清除图层的方法:la 打开图层 隐藏其它的图层,只显示你想要删除的图层 然后把显示出来的东西移到隐藏的层上用PU就好搏薯了(注意当前选中图层0层还有定一点层是无法删除的)
还有04版后都有一个强制合并图层的命令laytrans
如果你用的是04及以后的版本的话就很好解决了
先选中要合并的图层,点野银侍右边颂吵的新建图层,建好新图层后点映射接着点转换就好了
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
使用lisp程序。
;;; LayerOffM 关闭物体所在的层纯带(多选)
(Defun C:LayerOffM ()
(setvar "cmdecho" 0)
(prompt "\nSelect entities to turn off:")
(setq ss (ssget))
(if (and
ss
(sslength ss)
)
(progn
(setq ct 0
len (sslength ss)
cl (getvar "clayer")
)
(command ".layer"做姿芦)
(while (< ct len)
(setq la (cdr (assoc 8 (entget (ssname ss ct)))))
(if (/= cl la)
(command "off" la)
(progn
(prompt "\nThe layer ")
(prompt la)
(prompt " is CURRENT!")
(command "off" la "y")
)
)
(setq ct (1+ ct))
)
(command "")
)
)
(princ)
(setvar "cmdecho" 0)
(prin1)
)
2.4 LayerLockM 锁住物体所在的层(多选)
(defun C:LayerLockM (/ ES EN EL A)
(setq ES (ssget "Selected Entity(s) Layers Locked:")
A 0
EN ""
EL nil
FL nil
)
(while (/= EN nil)
(setq EN (ssname ES A)
EL (cons EN EL)
A (1+ A)
)
)
(setq EL (cdr EL)
FL (cdr (assoc '8 (entget (car EL))))
EL (cdr EL)
)
(repeat (- A 2)
(setq EN (cdr (assoc '8 (entget (car EL))))
FL (strcat EN "," FL)
EL (cdr EL)
)
)
(command "LAYER"册滚 "LO" (eval FL) "")
(princ)
)
;;; LayerOffM 关闭物体所在的层纯带(多选)
(Defun C:LayerOffM ()
(setvar "cmdecho" 0)
(prompt "\nSelect entities to turn off:")
(setq ss (ssget))
(if (and
ss
(sslength ss)
)
(progn
(setq ct 0
len (sslength ss)
cl (getvar "clayer")
)
(command ".layer"做姿芦)
(while (< ct len)
(setq la (cdr (assoc 8 (entget (ssname ss ct)))))
(if (/= cl la)
(command "off" la)
(progn
(prompt "\nThe layer ")
(prompt la)
(prompt " is CURRENT!")
(command "off" la "y")
)
)
(setq ct (1+ ct))
)
(command "")
)
)
(princ)
(setvar "cmdecho" 0)
(prin1)
)
2.4 LayerLockM 锁住物体所在的层(多选)
(defun C:LayerLockM (/ ES EN EL A)
(setq ES (ssget "Selected Entity(s) Layers Locked:")
A 0
EN ""
EL nil
FL nil
)
(while (/= EN nil)
(setq EN (ssname ES A)
EL (cons EN EL)
A (1+ A)
)
)
(setq EL (cdr EL)
FL (cdr (assoc '8 (entget (car EL))))
EL (cdr EL)
)
(repeat (- A 2)
(setq EN (cdr (assoc '8 (entget (car EL))))
FL (strcat EN "," FL)
EL (cdr EL)
)
)
(command "LAYER"册滚 "LO" (eval FL) "")
(princ)
)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
图层管理器里面有
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询