将对象传递给anot的脚本

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

可以尝试此操作-只需将蓝色部分替换为层名称，分别将红色部分替换为所需的颜色索引：

(vla-put-color (vlax-ename->vla-object (tblobjname "LAYER" "[color=blue]Layer1[/color]")) [color=red]75[/color])

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

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

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

只需用命令定义围绕该语句：

copy

(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个

选择对象：
输入要更改的属性
[Color/LAyer/LType/ltScale/LWeight/Thickness/Material]：_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

只需乘以并调整语句以满足您的需要：

copy

(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

代码如下：

copy

(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)
)

[综合讨论] 将对象传递给anot的脚本

发表回复

精选推荐