CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

Rename 方法（ActiveX）

2024-5-18 18:56| 发布者: admin| 查看: 264| 评论: 0|原作者: admin|来自: AutoCAD

Rename 方法（ActiveX）

重命名字典中的项目或一组已保存的图层设置。

支持的平台：仅限 Windows

签名

VBA：

object.Rename OldName, NewName

对象

类型：字典、LayerStateManager

此方法应用到的对象。

旧名称

访问：仅输入

类型：字符串

字典中对象的当前名称（关键字），或一组已保存图层设置的名称。

新名称

访问：仅输入

类型：字符串

字典中对象的新名称（关键字）或已保存图层设置的新名称。

返回值（RetVal）

无返回值。

言论

没有其他评论。

例子

VBA：

Sub Example_Rename()
' This example creates a dictionary and adds
' a custom object to that dictionary. It then
' renames the object in the dictionary.

Dim dictObj As AcadDictionary
Set dictObj = ThisDrawing.Dictionaries.Add("TEST_DICTIONARY")

' Load the ObjectARX application that defines the custom object.
' Note: The application listed here does not exist and
' will cause an error when run. Change the application name
' to the path and name of your ObjectARX application.
ThisDrawing.Application.LoadArx "MyARXApp.dll"

' Create the custom object in the dictionary
Dim keyName As String
Dim className As String
Dim customObj As AcadObject

keyName = "OBJ1"
className = "CAsdkDictObject"

Set customObj = dictObj.AddObject(keyName, className)

' Rename the object
dictObj.Rename keyName, "NewKeyName"

End Sub

Public Sub Example_RenameLayerSettings()
' This example renames a set of saved layer settings from
' "ColorLinetype" to "OldColorLinetype."

Dim oLSM As AcadLayerStateManager

' Access the LayerStateManager object.
Set oLSM = ThisDrawing.Application. _
GetInterfaceObject("AutoCAD.AcadLayerStateManager." & Left(AcadApplication.Version, 2))

' Associate the current drawing database with the
' LayerStateManager object.
oLSM.SetDatabase ThisDrawing.Database

' Rename the saved layer settings.
oLSM.Rename "ColorLinetype", "OldColorLinetype"
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_Rename()
    ;; This example creates a dictionary and adds
    ;; a custom object to that dictionary. It then
    ;; renames the object in the dictionary.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq dictionaries (vla-get-Dictionaries doc))
  
    (setq dictObj (vla-Add dictionaries "TEST_DICTIONARY"))
    
    ;; Load the ObjectARX application that defines the custom object.
    ;; Note: The application listed here does not exist and
    ;; will cause an error when run. Change the application name
    ;; to the path and name of your ObjectARX application.
    (vla-LoadArx acadObj "MyARXApp.dll")
    
    ;; Create the custom object in the dictionary
    (setq keyName "OBJ1")
    (setq className "CAsdkDictObject")
    
    (setq customObj (vla-AddObject dictObj keyName className))
    
    ;; Rename the object
    (vla-Rename dictObj keyName "NewKeyName")
)

(defun c:Example_RenameLayerSettings()
    ;; This example renames a set of saved layer settings from
    ;; "ColorLinetype" to "OldColorLinetype."
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; Access the LayerStateManager object.
    (setq oLSM (vla-GetInterfaceObject acadObj (strcat "AutoCAD.AcadLayerStateManager." (substr (getvar "ACADVER") 1 2))))
	   
    ;; Associate the current drawing database with the 
    ;; LayerStateManager object.
    (vla-SetDatabase oLSM (vla-get-Database doc))
	
    (vla-Save oLSM "ColorLinetype" (+ acLsColor acLsLineType))

    ;; Rename the saved layer settings.
    (vla-Rename oLSM "ColorLinetype" "OldColorLinetype")
)