hdslj 发表于 2007-6-12 16:26:00

如何将选择集中不同类型的对象赋予单一明确对象！

本帖最后由 作者 于 2007-6-12 17:10:35 编辑 <br /><br /> <p>求助：&nbsp; </p><p>Set SSet = ThisDrawing.SelectionSets.Add("poumiantu")<br/>&nbsp;&nbsp;&nbsp; Call CreateSSetFilter(fType, fData, -4, "&lt;or", 0, "text", 0, "line", 0, "LWPOLYLINE", 0, "INSERT", -4, "or&gt;")<br/>&nbsp;&nbsp;&nbsp; SSet.Select acSelectionSetAll, , , fType, fData<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Dim ent As AcadEntity<br/>&nbsp;&nbsp;&nbsp; For Each ent In SSet<br/>&nbsp;&nbsp;&nbsp; Select Case ent.ObjectName<br/>&nbsp;&nbsp;&nbsp; Case "AcDbText"<br/>&nbsp;&nbsp;&nbsp; Dim txttemp As AcadText<br/>&nbsp;&nbsp;&nbsp; txttemp.InsertionPoint<br/>&nbsp;&nbsp;&nbsp; Case "AcDbline"<br/>&nbsp;&nbsp;&nbsp; Dim linetemp As AcadLine<br/>&nbsp;&nbsp;&nbsp; linetemp.StartPoint</p><p>sset选择集中包括文字、直线、多段线、块等对象，我想按照不同的类型进行不同的操作，如：</p><p>当ent为“text”时</p><p>将ent赋予texttemp</p><p>当ent为"line" 时</p><p>将ent赋予linetemp</p><p></p><p>本人为热爱vba的小菜鸟，恳求各位高手多多指教！问题应该很简单，就是不知道怎么搞！多谢，多谢！</p><p>已经解决，请版主删除帖子！惭愧！</p>
页: [1]
查看完整版本: 如何将选择集中不同类型的对象赋予单一明确对象！