[求助]在vba中如何选择一条多段线，或者是获得一条已选中的多段线的信息？

inxiu

我想获得当前选中的多段线的坐标，我知道用coordinate可以，可是目前问题是，我不知道怎样获得一条选中的多段线。

如果用GetEntity来选图元的话，选出来的图元不是多段线，就不能获得多段线各顶点的坐标。

如果在运行VBA程序前选中多段线，我又不知道怎样把当前选中的多段线的信息赋值给我定义的acadpolyline形式的变量。

我是新手，思考这个问题了很久，也看了一些书，希望各位高手指点一二！

azjmjsj

给你个程序，试用一下

*******************************************************************
西北凡人：www.abofanyi.com/blog

inxiu

嗯。就是这种的。这位大人能告诉我怎么实现的吗？

sailorcwx

可以用getentity来选择，然后判断返回的对象的objectname是不是acdbpolyline

或者直接用selectonscreen,将filtertype设为0，filterdata设为"LWPOLYLINE"

azjmjsj

选择集过滤器中多段线的判断
filtertype(0)=0
FilterData(0) = "*POLYLINE"

inxiu

有道理，直接通过选择集让用户选取～

各位大人太有才了～

谢谢

lchong

如果选出了多段线，怎么使用它的属性呢？

Sub GetObjInSet()
  Dim selset As AcadSelectionSet
   Dim FilterType(0) As Integer
   Dim FilterData(0) As Variant
   FilterType(0) = 0
   FilterData(0) = "LWPOLYLINE"
  Set selset = ThisDrawing.SelectionSets.Add("SS28")
 selset.SelectOnScreen FilterType, FilterData
  MsgBox ("Selection set " & selset.Name & " contains " & _
    selset.Count & " items")
 Dim ent As Object
 Dim mselobj As AcadPolyline
i = 0
For i = 0 To selset.Count - 1
  If selset(i).ObjectName = "AcDbPolyline" Then
       Set ent = selset.Item(i) ‘在这里怎样调用多段线的属性值，请各位不吝指教，谢谢了！       
  End If
Next
selset.Delete
End Sub

robbin840311

请问楼上，你所指多段线的属性值是指什么内容？

是否可以通过Obj.GetXData来获取呢？

tl319

azjmjsj发表于2008-4-27 11:16:00给你个程序，试用一下40732*******************************************************************西北凡人：www.abofanyi.com/blog

能分享一下源码部分吗,学习!