| ? 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
?
