Question

CAD图层lisp问题

我想将CAD一个图层的名字变成另一个名字，
如“A01 TXT”变成“S01 TXT"，
这样的LISP怎么写呢？

Answer 1

(defun c:tt (/ JU LU XI)
(setvar "cmdecho" 0)
(defun table (s / d r)
(while (setq d (tblnext s (null d)))
(setq r (cons (cdr (assoc 2 d)) r))
)
)
(princ "\n功能 [修改图层名称]")
(setq ju (getstring "\n输入旧图层名:")
xi (getstring "\n输入新图层名:")
)
(setq Lu (table "LAYER"))
(if
(and (/= ju "")
(/= xi "")
(member ju Lu)
)
(command "-rename" "la" ju xi)
)
(princ)
)

Answer 2

直接在图层管理找到你要修改的图层，直接改名字就好了

Answer 3

可以编写LSP程序的啊，我会编写LSP程序