KO你 发表于 2019-5-13 18:40:20

图层合并

快捷键rs图层合并
(defun c:rs (/ en1 en2 la)
(setq en1 (car (entsel "\n选择要合并的图层上的对象:")))
(redraw en1 3)
(setq en2 (car (entsel "\n选择目标图层上的对象:")))
(redraw en2 3)
(setq la (cdr (assoc 8 (entget en1))))
(if (/= la (getvar "clayer"))
(command "laymrg" en1 "" en2 "y")
(progn
(mapcar 'redraw (list en1 en2) '(4 4))
(alert "无法合并当前图层!")))
(princ))
以上合并后图层的颜色与线型都会跟着图层随层，而且是单选


怎么附加上窗选和合并选项，求大神完善
(initget "D F")
(if (not
      (setq
          kw
         (getkword "\n图层合并后颜色与线型变(D)/图层合并后颜色与线型不变(F)]<F>"

alexmai 发表于 2019-5-27 18:44:26

啥图层合并，都没有这命令好用(需安装ET工具箱)：laytrans

配合这个命令搭配一起用更方便：laywalk

我会开2个CAD，一个用laywalk，一个用laytrans，效率高

KO你 发表于 2019-5-27 23:09:27

alexmai 发表于 2019-5-27 18:44
啥图层合并，都没有这命令好用(需安装ET工具箱)：laytrans

配合这个命令搭配一起用更方便：laywalk


ET工具箱有些命令与我常用的工具有冲突所以卸掉了很多年都没用了.
有全码吗，发上来学习学习。

KO你 发表于 2019-5-28 22:48:21

本帖最后由 KO你 于 2019-5-28 22:49 编辑

alexmai 发表于 2019-5-28 22:17
我以前也像你一样，大量用插件，后来精简出，不常用和必用

然后测试那些必用有没有同系统冲突，有冲突就 ...
是的，和你的观念一样,总会有点想法想着完善再完善。

KO你 发表于 2019-5-13 20:39:01

本帖最后由 KO你 于 2019-5-13 20:43 编辑

参照http://bbs.mjtd.com/forum.php?mod=attachment&aid=NjgwNzJ8NzdhNzFjNWZ8MTU1Nzc1MTA1OHw3MzI2NjY2fDkzMDIz&noupdate=yes

KO你 发表于 2019-5-13 20:40:15

本帖最后由 KO你 于 2019-5-13 20:43 编辑

http://bbs.mjtd.com/thread-93023-1-1.html

lxl217114 发表于 2019-5-14 11:03:21

直接ET工具箱

KO你 发表于 2019-5-26 15:47:27

没有大神关注到吗，顶一下

alexmai 发表于 2019-5-28 22:17:10

我以前也像你一样，大量用插件，后来精简出，不常用和必用

然后测试那些必用有没有同系统冲突，有冲突就寻求方法解决，

把插件的变量值名字改一下，子程序名字改一下，就可以使用了

happy336 发表于 2019-10-29 18:53:01

谢谢分享，学习
页: [1] 2
查看完整版本: 图层合并