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

将对象传递给anot的脚本

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

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

可以通过AutoLISP语句执行此操作：
(command "_CHPROP" (ssget "_X" '((8 . "LayerFrom"))) "" "_LA" "LayerTo" "")
但请注意，这并不能解释源层被锁定的情况。

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

上述行针对您的第一个案例进行了调整：
(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

在这种情况下，应该定义一个新命令，并在其中包含这些语句。
(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。

MSasu 发表于 2022-7-7 00:08:41

刚刚注意到，从上面的示例中，您似乎想要合并一些层？对于这种情况，可能需要检查内置的LAYMRG命令。

nmareis 发表于 2022-7-7 00:11:51

thaks MSasu，
 
realy工作。。。谢谢
 
对不起，我的英语很差，但我是葡萄牙人，我的英语写作不太好。。英雄联盟
 
谢谢

MSasu 发表于 2022-7-7 00:16:56

很高兴听到它对你有用，恩玛丽；不客气！
 
至于你的英语写作技巧，我认为你的信息是可以理解的。别忘了，你们身边有很多非英语母语的人（包括我在内）。

nmareis 发表于 2022-7-7 00:20:06

好啊坦茨。。。
还有一个问题，也是最后一个问题。。。lol：）
如果我想将任何层的颜色更改为其他颜色，请退出任何autolisp以执行此操作？。。
我有一张纸条，但如果我能用这个系统，我想那更好。。。
谢谢
页: [1] 2
查看完整版本: 将对象传递给anot的脚本