大侠请进

xujie5606

刚学编程，希望各位高手帮忙解答！谢谢！
通过屏幕选择对象来创建图块，调试下段程序有异常，希望各位高手帮忙解答！谢谢！
Dim optsel As New PromptSelectionOptions
            optsel.MessageForAdding = "选择加入块的对象"
Dim ressel As PromptSelectionResult = ed.GetSelection(optsel)
            Dim ssel As SelectionSet = ressel.Value
Dim ids As ObjectId() = ssel.GetObjectIds()
For Each sselid As ObjectId In ids
                Dim ent As Entity = trans.GetObject(sselid, OpenMode.ForRead)
               blocktablerecord.AppendEntity(ent）)-------此句调试有异常，

frandy

你应该是实体存在了 新建议个blocktablerecord   然后添加应该就没问题了

sieben

1，先多看看样例代码或别人的代码吧。
2，你应该在标题说明你要讨论的内容。