将对象传递给anot的脚本

nmareis · 发表于 2022-7-6 23:49:15

早上好

我需要一些脚本帮助。。
我需要一个脚本，将许多对象从一层传递到另一层，自动。。。。有人能帮我吗？
示例：具有x层的对象传递到y层

谢谢

MSasu · 发表于 2022-7-6 23:54:59

可以通过AutoLISP语句执行此操作：

(command "_CHPROP" (ssget "_X" '((8 . "[color=blue]LayerFrom[/color]"))) "" "_LA" "[color=blue]LayerTo[/color]" "")

但请注意，这并不能解释源层被锁定的情况。

nmareis · 发表于 2022-7-6 23:58:13

我试着在记事本上复制这个和过去，但不起作用。。你能帮助我吗？？我想把这个层传递：001\u 14\u C\u AUX\u ALTERADO\u NOVO到006\u 12\u C\u AUX\u ALTERADO\u NOVO；002\u 14\u C\u AUX\u ALTERADO\u NOVO到006\u 12\u C\u AUX\u ALTERADO\u NOVO。。。等谢谢

MSasu · 发表于 2022-7-7 00:01:35

上述行针对您的第一个案例进行了调整：

copy

(command "_CHPROP" (ssget "_X" '((8 . "001_14_C_AUX_ALTERADO_NOVO"))) "" "_LA" "006_12_C_AUX_ALTERADO_NOVO" "")

你是怎么测试的？你收到了什么信息？
如果源层未锁定？
目标层是否可用？不，t应该在尝试移动项目之前添加一行来创建它。

nmareis · 发表于 2022-7-7 00:05:09

这是可行的，但我需要在命令行中写一些东西，然后执行这个命令。。。你知道怎么做吗？

有些事情与。。。。写入lra并执行应用程序。。。

谢谢

MSasu · 发表于 2022-7-7 00:05:35

在这种情况下，应该定义一个新命令，并在其中包含这些语句。

copy

(defun c:LRA()
(command "_CHPROP"
         (ssget "_X" '((8 . "001_14_C_AUX_ALTERADO_NOVO")))
         "" "_LA" "006_12_C_AUX_ALTERADO_NOVO" "")
(command "_CHPROP"
         (ssget "_X" '((8 . "002_14_C_AUX_ALTERADO_NOVO")))
         "" "_LA" "006_12_C_AUX_ALTERADO_NOVO" "")
(princ)
)

将其加载到AutoCAD中，并在命令提示下调用LRA。