LISP移动选定对象

Dan Kitchens · 发表于 2022-7-6 08:11:27

大家好，

我有一个新的挑战：是否有一个Lisp可以将选定的对象移动到现有的指定层？

我希望能够在屏幕上选择对象，输入一个短命令，然后它们自动转到某个层（我们称之为“第1层”）。

在网上到处找了，我找不到任何类似的东西，我也不知道足够的AutoLISP，我自己也写不出来。。。

提前谢谢！

丹

Dadgad · 发表于 2022-7-6 08:21:27

在程序中有一些不使用lisp的方法，你可以使用COPYTOLAYER。如果您确定要使用lisp，那么您可以在本页底部的“类似线程”部分找到答案。

Dan Kitchens · 发表于 2022-7-6 08:27:30

嗨，Dadgad，

谢谢你的建议。

COPYTOLAYER不起作用，因为我不想复制对象，我想将它们移动到指定的层。
至于下面的线程，我刚刚又看了一眼，什么也找不到。

肯定有Lisp程序的地方。

Dadgad · 发表于 2022-7-6 08:29:13

更改命令或属性。也可以编写脚本或动作录制宏。
你查过李的网站了吗？我打赌他一定有办法做到这一点。

rickh · 发表于 2022-7-6 08:35:14

也许是LAYMCH？

Dadgad · 发表于 2022-7-6 08:41:49

这就是那张票，从来没用过那张，打得好！我会在“快捷特性”选项板中执行此操作，该选项板始终处于打开状态。

Dan Kitchens · 发表于 2022-7-6 08:44:17

谢谢大家的意见。LAYMCH确实有效，但我觉得它太慢了。我的道具。调色板总是关闭的，所以我可以最大限度地利用工作空间，而且它需要很长时间才能打开。

好消息是，我在另一个网站上发现了一个Lisp：

http://www.theswamp.org/index.php?topic=33195.0

代码如下：-

copy


; Changes selected objects to Layer PL1
(defun c:setpl1 ()
 (command "_.chprop"
   (ssget ) "" "LA" "PL1" "")
        )

感谢memerson的支持。谢谢大家的帮助。

丹

Dadgad · 发表于 2022-7-6 08:54:08

很高兴你把它整理好了，我讨厌属性调色板，我觉得这简直是一场噩梦。我喜欢QUICK PROPERTIES调色板，它是可自定义的，可以像你想要的那样小，可以随时获取你需要的所有信息，无需等待。

VVA · 发表于 2022-7-6 08:58:59

不使用命令的版本（运行速度更快）。如果不存在具有该名称的层，则会创建该层

copy


; Changes selected objects to Layer PL1
(defun c:setpl1 ()
 (tolayer
   (ssget "_:L") ;;selection
   "PL1"         ;;Layer
   )
 (princ)
)
(defun tolayer ( ss lay / i e )
 ;;; ss - pickset
 ;;; lay -layer name
 (repeat (setq i (sslength ss))
   (entmod
     (subst
       (cons 8 lay)
       (assoc 8 (entget (setq e (ssname ss (setq i (1- i))))))
       (entget e)
       )
     )
   )
 )

Lee Mac · 发表于 2022-7-6 09:04:07

为什么不选择你的对象，选择图层下拉菜单，然后选择图层；对象将移动到您选择的层：

[编程交流] LISP移动选定对象

发表回复

精选推荐