[编程申请]：批量修改图层名

jobpenn

比如有一DWG文件，其图层名为“0”，“Defpoints”，“图层1”，“图层2”，图层3”，“图层…”，“图层99”，现在想把其中的“图层”全部换成“LAYER”，即图层名变成“0”，“Defpoints”，“LAYER1”，“LAYER2”，LAYER3”，“LAYER…”，“LAYER99”，求高手编个程序解答。

xyp1964

测试：
[php]
(defun c:test ()
  (setq i 1)
  (while (< i 99)
    (setq la-old (strcat "图层" (rtos i 2 0))
          la-new (strcat "layer" (rtos i 2 0))
    )
    (setq SS (ssget "x" (list(cons 8 la-old))))
    (if        ss
      (progn
        (mkla-nc la-new)
        (command "chprop" ss "" "la" la-new "")
      )
    )
    (setq i (1+ i))
  )
  (princ)
)
(defun mkla-nc (name)
  (If (= (Tblsearch "layer" name) nil)
    (Command "layer" "m" name "")
    (Command "layer" "t" name "s" name "")
  )
)
[/php]

jobpenn

多谢长老的程序，问题已得到解决，cad中的改名命令。如下→　http://www.xdcad.net/forum/showthread.php?s=&threadid=333602

huangxiuyong

找不到图层“P3”。
Error: 函数被取消

(defun c:yy55()

(setvar "CMDECHO" 0)  
(command "rename" "la" "P3" "COVER");上盖板

(command "rename" "la" "P01A" "UP") ;上模座

(command "rename" "la" "P02A" "UB") ;上垫板

(command "rename" "la" "P03A" "PH") ;上夹板

(command "rename" "la" "S02A" "PPS");止挡板

(command "rename" "la" "S01A" "PS") ;脱料板

(command "rename" "la" "D03A" "DIE");下模板

(command "rename" "la" "D02A" "LB");下垫板

(command "rename" "la" "D01A" "LP");下模座

(setvar "CMDECHO" 1)


(princ)
)

执行不下去,哪位兄弟帮忙写个程序呀

王子

这好像应该是最简单的程序了，一个循环，一个判断就搞定。