|
|
求助：
Set SSet = ThisDrawing.SelectionSets.Add("poumiantu")
Call CreateSSetFilter(fType, fData, -4, "")
SSet.Select acSelectionSetAll, , , fType, fData
Dim ent As AcadEntity
For Each ent In SSet
Select Case ent.ObjectName
Case "AcDbText"
Dim txttemp As AcadText
txttemp.InsertionPoint
Case "AcDbline"
Dim linetemp As AcadLine
linetemp.StartPoint
sset选择集中包括文字、直线、多段线、块等对象，我想按照不同的类型进行不同的操作，如：
当ent为“text”时
将ent赋予texttemp
当ent为"line" 时
将ent赋予linetemp
本人为热爱vba的小菜鸟，恳求各位高手多多指教！问题应该很简单，就是不知道怎么搞！多谢，多谢！
已经解决，请版主删除帖子！惭愧！ |
|
置顶卡
