[求助]帮我看看这段代码(关于筛选选择的东东)
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"就出错.
dim filtertype(0) as integer
dim filterdata(0) as variant
FilterType (0)= 0
FilterData (0)= "TEXT"
试试 终于搞定了,谢谢楼上的兄弟.
页:
[1]