ntfanl 发表于 2005-12-12 11:16:00

[求助]帮我看看这段代码(关于筛选选择的东东)

dim aCADapp As AcadApplication' 的application对象
    dim aCADdoc As AcadDocument   'AutoCAD document对象
    Dim sset As AcadSelectionSet
    Set aCADapp = GetObject(, "autoCAD.application")
    Set aCADdoc = aCADapp.ActiveDocument
    aCADapp.Visible = True '此语句是使CAD可见。
    Set sset = aCADdoc.SelectionSets.Add("SelectText")
    Dim FilterType As Integer, FilterData As String
    FilterType = 0
    FilterData = "TEXT"
    sset.SelectOnScreen
    'sset.SelectOnScreenFilterType, FilterData
以上是我的代码,意思是只想选择文字的内容,但在实际运行时只能用"sset.SelectOnScreen",而在用"sset.SelectOnScreenFilterType, FilterData"就出错.


zhuxuhong 发表于 2005-12-12 11:37:00

dim filtertype(0) as integer
dim filterdata(0) as variant
FilterType (0)= 0
    FilterData (0)= "TEXT"
试试

ntfanl 发表于 2005-12-12 12:51:00

终于搞定了,谢谢楼上的兄弟.
页: [1]
查看完整版本: [求助]帮我看看这段代码(关于筛选选择的东东)