谢谢杰夫
我使用了你的代码,但我得到一个错误,它说
属性“IsFromExternalReference”为“ReadOnly”
-
- Dim Doc as Document = Application.DocumentMAnager.MdiActiveDocument
- Dim db as Database = doc.Database
- Dim ed as Editor = doc.Editor
- Dim bt as BlockTable = db.BlockTableId.GetObject(OpenMode.ForRead)
- Dim btr As BlockTableRecord = bt(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForWrite)
- btr.IsFromExternalReference = True
|