用于更改层名称和颜色的 Lisp
嗨！我需要一个lisp来改变我的一些图层的名称和颜色。我有一个用于更改图层名称的工具，但是我需要添加为每个图层设置颜色的选项:
(defun c:fixmlayers(/ss _ New layer change _ en)
(setq layer list(list
(cons " Original layer name 1 " " New layer name 1))
(cons " Original layer name 2 " " New layer name 2))
(cons " Original layer name 3 " " New layer name 3))
)；list
)；sq
(foreach item Layer list
(if(and(TBL search " Layer "(car item))
(not(TBL search " Layer "(cdr item)))；a
(命令"-重命名" "层" (汽车项)(cdr项))
)；I
)；Fe
(setq ss _ new layer(ss get " X))
(while(setq change _ en(ss name ss _ new layer 0))
(setq ss _ new layer(ss del change _ en ss _ new layer))
(if(assoc(cdr(assoc 8(entget change _ en)))layer list)
(entmod(subst(cons 8(assoc(cdr(assoc 8(entget change _ en)))layer list)))(assocI
)；w
(princ " \ n finished:")(princ))
有人知道如何为每个图层添加指定特定颜色的选项吗？
**** Hidden Message ***** 这让你有什么想法吗？
命令:-LAYER
当前层:" thislayer"
输入一个选项[？/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Unlock/stAte/Description/rEconcile]:Color
New Color:15
输入颜色的图层名称列表15
: thisLayer
输入一个选项[？/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/解冻/锁定/解锁/stAte/Description/rEconcile]:
可以翻译成这样的内容代码0] 我不知道如何编写代码，但我以前就有过这种情况
我需要能够将关于特定颜色的信息添加到每一行中，其中还说明了将图层名称从和更改为什么。 也许试试这样的东西
！未测试
(defun c:FIXMYLAYERS_42 (/ layerlist)
(setq layerlist
(list (list "Original layer name 1" "New layer name 1" 1)
(list "Original layer name 2" "New layer name 2" 2)
(list "Original layer name 3" "New layer name 3" 3)
)
)
(foreach item layerlist
(if (and (tblsearch "Layer" (car item))
(not (tblsearch "Layer" (cdr item)))
)
(vl-cmdf "-Rename" "LAYER" (car item) (cdr item))
)
(if (tblsearch "Layer" (cdr item))
(vl-cmdf "._Layer" "Color" (last item) (cdr item) "")
)
)
(princ)
)
(vl-load-com)
(princ)
你真好。
你太好了。
我实际上不是，你知道的。
今天必须服用他的药物。
页:
[1]