MSasu 发表于 2022-7-7 00:22:14

可以尝试此操作-只需将蓝色部分替换为层名称，分别将红色部分替换为所需的颜色索引：
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "Layer1")) 75)

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

作品但是我该如何把comand称为颜色的autolisp。。。。其中一个文件中图层的autolisp询问我在尝试运行时图层的新名称。。。谢谢

MSasu 发表于 2022-7-7 00:27:43

只需用命令定义围绕该语句：
(defun c:FIXLAYERCOLOR()
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "Layer1")) 75)
(princ)
)
 
 
似乎目标层在该图形中不可用-按查看整个错误消息。

nmareis 发表于 2022-7-7 00:31:36

改变不止一个？？？

nmareis 发表于 2022-7-7 00:35:21

这就是错误。。。
 
命令：chl
_CHPROP公司
选择对象：找到2个
 
选择对象：
输入要更改的属性
：_LA
输入新层名称：006\u 12\u C\u AUX\u ALTERADO\u NOVO
找不到层“006\u 12\u C\u AUX\u ALTERADO\u NOVO”。
; 错误：功能已取消
 
输入新图层名称：*取消*

MSasu 发表于 2022-7-7 00:37:33

如您所见，006_12_C_AUX_ALTERADO_NOVO在该图纸中不可用。

MSasu 发表于 2022-7-7 00:40:18

只需乘以并调整语句以满足您的需要：
(defun c:FIXLAYERCOLOR()
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "Layer1")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "Layer2")) 76)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "Layer3")) 77)
(princ)
)

nmareis 发表于 2022-7-7 00:44:30

只有改变第一个，其他人保持平等。。
 
 
命令：clc
; 错误：错误的参数类型：lentyp nil

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

请张贴调整后的代码。

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

代码如下：
 
(defun c:clc()
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "RAMAISmdm")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "G_EM_CONSTRUCAO")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_ARRUAMENTOS")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "001_14_C_AUX_ALTERADO_NOVO")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_AUX_ALTERADO_NOVO")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_EDIFICACOES")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_EDIFICACOES_PUBLICAS")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_N_POLICIA")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_TERRENOS")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "C_TOPONIMIA")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "CROQUIS_MOLD500")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "MARGEM")) 75)
(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "MOLD500")) 75)
(princ)
)
页: 1 [2]
查看完整版本: 将对象传递给anot的脚本