00x集体——cad 中DB(database)对象—— vba实现

Database 对象

外部参照块的内容。

VBA 类名	AcadDatabase
创建方法	不可使用
访问途径	Block.XRefDatabase

该对象提供对外部参照块的访问。只有IsXRef属性为TRUE的块才适用。

方法 CopyObjects

属性 Application Blocks Dictionaries DimStyles ElevationModelSpace ElevationPaperSpace Groups HandleToObject HasExtensionDictionary Layers Layouts Limits Linetypes ModelSpace ObjectIDToObject OwnerID PaperSpace PlotConfigurations Preferences RegisteredApplications TextStyles UserCoordinateSystems Viewports Views

 

Sub Example_SetDatabase()
    ' The following code saves the color and linetype settings
    ' of the current layer. It uses the SetDatabase method to
    ' associate the current drawing database with the
    ' LayerStateManager object. 

    Dim oLSM As AcadLayerStateManager

    ' Access the LayerStateManager object
    Set oLSM = ThisDrawing.Application. _
       GetInterfaceObject("AutoCAD.AcadLayerStateManager.16")

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

    oLSM.Save "ColorLinetype", acLsColor + acLsLineType

End Sub