sendcommand与-boundary取得的边界

fmfm · 发表于 2004-5-5 16:10:00

请问怎么把这样取得的边界放到一个集合中呢？这样取得的边界有的线不是整条的呀！

fmfm · 发表于 2004-5-5 16:12:00

是不是就成了一条线了？
能不能还是一条一条的呀？

小美菜 · 发表于 2004-5-5 17:58:00

说具体点,你想干什么?

fmfm · 发表于 2004-5-5 20:02:00

已经很具体了

雪山飞狐_lzh · 发表于 2004-5-5 20:38:00

可以用Explode炸开，下面是炸开MText的例子，可以借鉴一下Private function MToS(MText As Variant) As Variant
'炸开MText并返回一个Text数组
   Dim i As Integer
   Dim ss As AcadSelectionSet
   Dim pTexts() As AcadObject
   ThisDrawing.ActiveSelectionSet.Clear
   ThisDrawing.SendCommand "Explode" & vbCr & "(handent " & Chr(34) _
   & MText.Handle & Chr(34) & ")" & vbCr & vbCr
   set ss = ThisDrawing.ActiveSelectionSet
   ReDim pTexts(ss.Count - 1) As AcadObject
   For i = 0 To ss.Count - 1
   Set pTexts(i) = ss(i)
   Next i
   MToS = pTexts
End Function

fmfm · 发表于 2004-5-6 14:07:00

呵呵谢谢提示    找到了
   ' Explode the polyline
   MsgBox "Explode the polyline?", , "Explode Example"
   Dim explodedObjects As Variant
   explodedObjects = plineObj.Explode

   ' Loop through the exploded objects
   Dim I As Integer
   For I = 0 To UBound(explodedObjects)
   explodedObjects(I).Update
   MsgBox "Exploded Object " & I & ": " & explodedObjects(I).ObjectName, , "Explode Example"
   explodedObjects(I).Color = acByLayer
   explodedObjects(I).Update
   Next