[求助]：关于选择集

lijiao

请教各位高手，能不能将图块中的部分实体构成一个选择集？
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
我正在设计一个程序，将一图块中的多行文字取出进行编辑，然后进行更新，请大家帮我想想有没有较好的办法。

efan2000

用ThisDrawing.Utility对象的GetSubEntity方法来选择子对象。

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_GetSubEntity()
   
5.     ' 这个例子提示用户在屏幕上用鼠标选择一个对象，返回选择的对象的一些信息。
   
6.    
   
7.     Dim Object As Object
   
8.     Dim PickedPoint As Variant, TransMatrix As Variant, ContextData As Variant
   
9.     Dim HasContextData As String
   
10.    
    
11.     On Error GoTo NOT_ENTITY
    
12. 
    
13.         
    
14. TRYAGAIN:
    
15.         
    
16.     MsgBox "当提示框消失后，用鼠标在当前图纸的实体上单击进行选择。"
    
17.         
    
18.     ' 获取选择对象的信息。
    
19.     ThisDrawing.Utility.GetSubEntity Object, PickedPoint, TransMatrix, ContextData
    
20.    
    
21.     ' 显示选择对象的属性。
    
22.     HasContextData = IIf(VarType(ContextData) = vbEmpty, " does not ", " does ")
    
23.    
    
24.     MsgBox "你选择的对象是: " & TypeName(Object) & vbCrLf & _
    
25. 
    
26.             "你选择点在: " & PickedPoint(0) & ", " & _
    
27.                                               PickedPoint(1) & ", " & _
    
28.                                               PickedPoint(2) & vbCrLf & _
    
29.             "这个对象" & HasContextData & "有关联对象。"
    
30.    
    
31.     Exit Sub
    
32.    
    
33. NOT_ENTITY:
    
34.     ' 如果你在空白区单击或者没有选中实体。
    
35. 
    
36.     ' 将触发错误。
    
37.     If MsgBox("你没选中实体，按 OK 键重试。", _
    
38.                vbOKCancel & vbInformation) = vbOK Then
    
39.         Resume TRYAGAIN
    
40.     End If
    
41. End Sub
    
42.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_GetSubEntity()<br />     ' 这个例子提示用户在屏幕上用鼠标选择一个对象，返回选择的对象的一些信息。<br />     <br />     Dim Object As Object<br />     Dim PickedPoint As Variant, TransMatrix As Variant, ContextData As Variant<br />     Dim HasContextData As String<br />     <br />     On Error GoTo NOT_ENTITY<br /> <br />         <br /> TRYAGAIN:<br />         <br />     MsgBox "当提示框消失后，用鼠标在当前图纸的实体上单击进行选择。"<br />         <br />     ' 获取选择对象的信息。<br />     ThisDrawing.Utility.GetSubEntity Object, PickedPoint, TransMatrix, ContextData<br />     <br />     ' 显示选择对象的属性。<br />     HasContextData = IIf(VarType(ContextData) = vbEmpty, " does not ", " does ")<br />     <br />     MsgBox "你选择的对象是: " & TypeName(Object) & vbCrLf & _<br /> <br />             "你选择点在: " & PickedPoint(0) & ", " & _<br />                                               PickedPoint(1) & ", " & _<br />                                               PickedPoint(2) & vbCrLf & _<br />             "这个对象" & HasContextData & "有关联对象。"<br />     <br />     Exit Sub<br />     <br /> NOT_ENTITY:<br />     ' 如果你在空白区单击或者没有选中实体。<br /> <br />     ' 将触发错误。<br />     If MsgBox("你没选中实体，按 OK 键重试。", _<br />                vbOKCancel & vbInformation) = vbOK Then<br />         Resume TRYAGAIN<br />     End If<br /> End Sub<br />   [/FONT]<br />

lijiao

多谢版竹。
我指的是图块，不是图块的引用，请问该怎么办？

夜语

在LISP中有函数用于遍历图块中的实体，好象是TBLSEARCH，你
可以查一下函数的使用说明。

lijiao

遍历图块中的实体会使程序运行很慢，因为这种循环在我的程序中要用许多次，并且图块中只有部分实体（MTEXT）要进行编辑和更新，其它不变，所以我想进行一次遍历图块中的实体，把需要的部分放在一个选择集中，后面的只遍历选择集中的实体即可，这样会大大减少循环次数，不知我的思路是否正确，是否可行。

efan2000

更新块中的实体，并不一定要通过块才行，其实对块引用对象的操作将直接反映到块中实体的变更，两者的实质是一样的。

lijiao

多谢各位热心的朋友。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
    我想做的是一个表格处理程序，如机械加工过程卡、机械加工工序卡等等。我把这些表格定义成块，在编辑时，从一个列表中选取一种表格名称，程序自动提取图块中的有关内容放入电子表格中，编辑完成后，再更新图块。
    由于这种表格具有固定的格式，所以在更新图块时，图块的数量和内容要随填写内容的变化而变化。