如何用VLISP程序修改图层的名字?

sunny_w

请帮忙:如何用VLISP程序修改图层的名字?谢谢帮忙

firstinti

 vla-put-Name，请看下边的范例：

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 

(defun Example_Name ()

  (VL-LOAD-COM)

  (setq    AcadObject   (vlax-get-acad-object)

       AcadDocument (vla-get-ActiveDocument AcadObject)

       mSpace        (vla-get-ModelSpace AcadDocument)

  )

;;;这个范例建立一个新的图层，接着

;;;改变图层的名称

 

;;;加入新的图层

  (setq LayerColl (vla-get-Layers AcadDocument))

  (setq layerObj (vla-add LayerColl "NewLayer"))

;;;找出新图层的名称

  (setq layerName (vla-get-Name layerObj))

  (princ

    (STRCAT "建立新图层名为: " layerName "　 Name范例 \n")

  )

  (PROMPT "<Enter>进行:")

  (VL-CMDF pause)

;;;将图层的名称改变为 "TEST".注意，下列程序码的行为

;;;会因对象而不同，在有情况下如Block参照，改变名称表示

;;;参照新的Block，因此名为"TEST"的Block必须存在，否则

;;;错误

 

  (vla-put-Name layerObj "TEST")

  (setq layerName (vla-get-Name layerObj))

  (princ

    (STRCAT "图层的新名称是: " layerName "　 Name范例 \n")

  )

  (princ)

)

xyp1964

rename;la

blue123

(comman "rename" )试试