xujie5606 发表于 2013-5-1 21:28:43

大侠请进

刚学编程，希望各位高手帮忙解答！谢谢！
通过屏幕选择对象来创建图块，调试下段程序有异常，希望各位高手帮忙解答！谢谢！
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 发表于 2013-5-1 22:33:47

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

sieben 发表于 2013-5-2 07:05:36

1，先多看看样例代码或别人的代码吧。
2，你应该在标题说明你要讨论的内容。
页: [1]
查看完整版本: 大侠请进