[求助]关于“GETXX类，专用于GETXX方法时可以平移缩放命令”的问题

liujiping

我把GETXX类摸块加到程序中。
程序用的是本论坛上的BUILDFILTER
ssetobj.selection  ftype fdate
但选择对象时，平移或缩放将退出。
命令行为“选择对象：*取消*”
没加GETXX时是出错。
是不是还要设置什么？

mccad

使用GETXX类时，必须使用类中的方法，而不是还使用原来CAD中提供的方法

liujiping

vb功底太差，看了一下里面有selectonsreen(),不知怎么用。
我要的是在屏幕上只选择文字，还得麻烦版主明示。

efan2000

selectonsreen表示在屏幕上选择。只选择文字应该使用过滤机制。组码是0，值是"Text"。它只选择单行文字，对于其它的文字，如多行文字、属性等，分别使用MText、Attribute，而块引用中的属性引用是不能使用选择集来操作的。

liujiping

还是不明白，能给具体的语句吗？

efan2000

2. 
   
3. Sub Example_Select()
   
4.     ' 创建选择集
   
5.     Dim ssetObj As AcadSelectionSet
   
6.     Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
   
7. 
   
8.     ' 使用过滤机制，只选择单行文字
   
9.     Dim gpCode(0) As Integer
   
10.     Dim datavalue(0) As Variant
    
11.     gpCode(0) = 0
    
12.     datavalue(0) = "Text"
    
13.    
    
14.     Dim groupCode As Variant, dataCode As Variant
    
15.     groupCode = gpCode
    
16.     dataCode = datavalue
    
17.    
    
18.     ssetObj.SelectOnScreen groupCode, dataCode
    
19. 
    
20. End Sub
    

<br /> Sub Example_Select()<br />     ' 创建选择集<br />     Dim ssetObj As AcadSelectionSet<br />     Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")<br /> <br />     ' 使用过滤机制，只选择单行文字<br />     Dim gpCode(0) As Integer<br />     Dim datavalue(0) As Variant<br />     gpCode(0) = 0<br />     datavalue(0) = "Text"<br />     <br />     Dim groupCode As Variant, dataCode As Variant<br />     groupCode = gpCode<br />     dataCode = datavalue<br />     <br />     ssetObj.SelectOnScreen groupCode, dataCode<br /> <br /> End Sub<br />

liujiping

我用的就是这方法，不行
MCCAD兄说“使用GETXX类时，必须使用类中的方法，而不是还使用原来CAD中提供的方法”
应该是什么方法，还请不吝赐教。

mccad

请同时参照最新的GetXX类模块

2. Sub DispEntityType()
   
3.     Dim gx As GetXX
   
4.     Set gx = New GetXX
   
5.     Set gx.Application = ThisDrawing.Application
   
6.     Dim ent As AcadEntity
   
7.     Dim pnt As Variant
   
8.     Dim ler As GetXX_Error_Code
   
9.     Set ent = gx.GetEntity(ler, pnt, "选择对象：")
   
10.     Debug.Print TypeName(ent)
    
11. End Sub
    

Sub DispEntityType()<br />     Dim gx As GetXX<br />     Set gx = New GetXX<br />     Set gx.Application = ThisDrawing.Application<br />     Dim ent As AcadEntity<br />     Dim pnt As Variant<br />     Dim ler As GetXX_Error_Code<br />     Set ent = gx.GetEntity(ler, pnt, "选择对象：")<br />     Debug.Print TypeName(ent)<br /> End Sub<br />

liujiping

还是调试不成功，老提示找不到工程或库
请教MCCAD兄 ，以下程序怎样改才能实现在屏幕上选实体时可以平移缩放命令
Dim fType As Variant
Dim fData As Variant
On Error Resume Next
Set ssetObj = ThisDrawing.SelectionSets("test")
  If Err.Number <> 0 Then
        Err.Clear
        Set ssetObj = ThisDrawing.SelectionSets.Add("test")
End If
ssetObj.Clear
BuildFilter fType, fData, -4, "<or", 0, "text", 0, "mtext", -4, "or>"
ssetObj.SelectOnScreen fType, fData
还有最新的GetXX类模块在哪