| 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 objectSet oLSM = ThisDrawing.Application. _GetInterfaceObject("AutoCAD.AcadLayerStateManager.16")' Associate the current drawing database with LayerStateManageroLSM.SetDatabase ThisDrawing.DatabaseoLSM.Save "ColorLinetype", acLsColor + acLsLineTypeEnd Sub
