请教怎么创建一个块
<p>是这样的</p><p>我调用<font face="Verdana">PromptSelectionResult</font> 让用户自己选择一些集，</p>
<p><font face="Verdana"> Dim opt As New PromptSelectionOptions()</font></p>
<p><font face="Verdana"> opt.MessageForAdding = "请选择块中要包含的对象"<br/> Dim res As PromptSelectionResult = ed.GetSelection(opt)</font></p>
<p><font face="Verdana"> </font><font face="Verdana"> Dim selSet As SelectionSet = res.Value</font></p>
<p>然后呢，我想将选择的集创建了一个块</p>
<p> </p>
<p>请教，该怎么做</p>
页:
[1]