用于更改层名称和颜色的 Lisp

MickkeJ · 发表于 2015-11-12 07:13:42

嗨！我需要一个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))
有人知道如何为每个图层添加指定特定颜色的选项吗？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Kerry · 发表于 2015-11-12 07:33:13

这让你有什么想法吗？
命令:-LAYER
当前层:" thislayer"
输入一个选项[？/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Unlock/stAte/Description/rEconcile]:Color
New Color[true Color/Color book]:15
输入颜色的图层名称列表15
: thisLayer
输入一个选项[？/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/解冻/锁定/解锁/stAte/Description/rEconcile]:

可以翻译成这样的内容代码0]

MickkeJ · 发表于 2015-11-12 08:25:03

我不知道如何编写代码，但我以前就有过这种情况
我需要能够将关于特定颜色的信息添加到每一行中，其中还说明了将图层名称从和更改为什么。

Kerry · 发表于 2015-11-12 10:00:13

也许试试这样的东西
！未测试

copy

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