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

外部参照块的内容。

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