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

liujiping · 发表于 2003-9-27 10:39:00

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

mccad · 发表于 2003-9-27 12:10:00

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

liujiping · 发表于 2003-9-30 16:59:00

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

efan2000 · 发表于 2003-9-30 19:44:00

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

liujiping · 发表于 2003-10-10 20:09:00

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

efan2000 · 发表于 2003-10-10 21:16:00

copy


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

liujiping · 发表于 2003-10-13 17:27:00

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

mccad · 发表于 2003-10-13 19:26:00

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

copy


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

liujiping · 发表于 2003-10-15 10:54:00

还是调试不成功，老提示找不到工程或库
请教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, ""
ssetObj.SelectOnScreen fType, fData
还有最新的GetXX类模块在哪

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

发表回复

精选推荐

浏览过的版块