[编程交流] 访问关闭的图形

 
Public Class Class2
<CommandMethod("changedimstyle")> _
Public Sub ChangeDimStyle()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
Using trx As Transaction = db.TransactionManager.StartTransaction()
Dim dimTbl As DimStyleTable = trx.GetObject(db.DimStyleTableId, OpenMode.ForRead)
Dim dimDtr As DimStyleTableRecord = trx.GetObject(dimTbl("DimStyle1"), OpenMode.ForRead)
Dim ids As ObjectIdCollection = dimDtr.GetPersistentReactorIds()
For Each objId As ObjectId In ids
If objId.ObjectClass.IsDerivedFrom(RXClass.GetClass(GetType(Dimension))) Then
Dim dimen As Dimension = trx.GetObject(objId, OpenMode.ForWrite)
dimen.DimensionStyleName = "DimStyle2"
End If
Next
trx.Commit()
End Using
End Sub
End Class

Function GetAcDbxDoc() As Object
Dim strAcadVersion As String
With ThisDrawing.Application
  strAcadVersion = Mid(.Version, 1, 2)
  Set GetAcDbxDoc = .GetInterfaceObject("ObjectDBX.AxDbDocument." & strAcadVersion)
End With
End Function

Sub GetTextStyle(tStyl As String)
Dim objStyl As AcadTextStyle
Dim objStyls As AcadTextStyles
Dim objArray(0) As Object
Dim ACDbx As Object
Set ACDbx = GetAcDbxDoc()
ACDbx.Open blkFil
'blkFil is a Global variable I have set to a particular file in my arsenal
'just use whatever file name
Set objStyls = ACDbx.TextStyles
Set objStyl = objStyls.Item(tStyl)
Set objArray(0) = objStyl
ACDbx.CopyObjects objArray, ThisDrawing.TextStyles
Set ACDbx = Nothing
Set objStyls = Nothing
Set objStyl = Nothing
Set objArray(0) = Nothing
End Sub

ThisDrawing.ActiveDimStyle = WhatEverDimStyle

Public Function TestStyle(tStyl As String) As Boolean
Dim objStyl As AcadTextStyle
Dim i As String
For Each objStyl In ThisDrawing.TextStyles
If objStyl.Name = tStyl Then
i = "True"
Else
End If
Next
If i = "True" Then
TestStyle = True
Else
TestStyle = False
End If
End Function