[LISP程序]：多图档批处理修改图层名

lsjjm

多图档批处理修改图层名
(defun c:test ()
  ;(vl-load-com)
  (setq olay (getstring "\nEnter Old Layer Name : "))
  (setq nlay (getstring "\nEnter New Layer Name : "))
  (vlax-for i (vla-get-Documents (vlax-get-acad-object))
   (setq lays (vla-get-layers i))
   (vla-put-name (vla-item lays olay) nlay)
  )
)

自由的鱼

楼主这个程序不错，参考一下改为VB程序，：）
Sub replayer()

On Error Resume Next

Dim i As Integer
Dim ent As AcadEntity
Dim j As Integer
Dim Layerobj As AcadLayer
Dim oldname As String
Dim newname As String
oldname = InputBox("输入旧图层名")
newname = InputBox("输入新图层名")
For i = 0 To ThisDrawing.Application.Documents.Count - 1
  ThisDrawing.Application.Documents.Item(i).Activate
    For j = 0 To ThisDrawing.Layers.Count - 1
        Set Layerobj = ThisDrawing.Layers.Item(oldname)
        Layerobj.Name = newname
    Next
Next
End Sub

glyxmj

最初由 lsjjm 发布
[B]多图档批处理修改图层名
(defun c:test ()
  ;(vl-load-com)
  (setq olay (getstring "\nEnter Old Layer Name : "))
  (setq nlay (getstring "\nEnter New Layer Name : "))
  (vlax-for i (vla-get-Docume... [/B]

出错如下：
命令: test
Enter Old Layer Name : 41
Enter New Layer Name : 1
; 错误: Automation 错误。 记录名重复
请指教？？？

好为人师

怎么用啊？没有说明

yh01811

看不懂，可不可以用中文叙述下

98101yin

顶顶ID那个ID那个