请教：怎样得到块中各属性的值？哪有介绍autocad类的资料？多谢了！
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database
Dim trans As Transaction = db.TransactionManager.StartTransaction()
Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)
For Each Id As ObjectId In bt
Dim btr As BlockTableRecord = trans.GetObject(Id, OpenMode.ForRead, False)
If btr.Name.Substring(0, 1) <> "*" Then
ed.WriteMessage(vbCrLf & btr.Name)
End If
Next