社区 › Auto Lisp › 用vb查找块。网

shirazbj 发表于 2022-7-6 22:31:42

用vb查找块。网

什么是匿名区块？谢谢。如何删除此线程？
 

                   Using tr
                     Dim bt As BlockTable = DirectCast(tr.GetObject(DB.BlockTableId, OpenMode.ForRead), BlockTable)
                     For Each btrid As ObjectId In bt
                           Dim btr As BlockTableRecord = DirectCast(tr.GetObject(btrid, OpenMode.ForRead), BlockTableRecord)
                           If Not btr.IsAnonymous And Not btr.IsLayout Then

查看完整版本: 用vb查找块。网