我正在搜索将附件批量更改为覆盖的例程。您的例程看起来不错,但重新插入并不好,因为图层设置已取消。理论上它能使用斯蒂芬·普雷斯顿在这里列出的.NET方法吗
- _
- Public Sub changeToOverlay()
- Dim doc As Document =
- Application.DocumentManager.MdiActiveDocument
- Dim db As Database = doc.Database
- Using trans As Transaction =
- db.TransactionManager.StartTransaction()
- Dim bt As BlockTable =
- trans.GetObject(db.BlockTableId, OpenMode.ForRead)
- For Each btrId As ObjectId In bt
- Dim btr As BlockTableRecord =
- trans.GetObject(btrId, OpenMode.ForRead)
- If btr.IsFromExternalReference Then
- btr.UpgradeOpen()
- btr.IsFromOverlayReference = True
- End If
- Next
- trans.Commit()
- End Using
- End Sub
或者这在Autolisp中是不可能的,并且只能在VB中完成?如果是这样的话,那么理论上可以从Autolisp访问这样的VB子例程吗<向你问好,克拉普卡 |