关于面域的问题

sharksun

对于形成面域以及求交,要求自身封闭.但是常常遇到如图所示的情况,已知一些曲线和一些直线的表达式,来求其围成的面域. 这样,应该如何处理呢?

雪山飞狐_lzh

-boundary命令 如果有曲线，会生成面域

sharksun

谢谢雪山飞狐.


顺便问一下: 如何炸开曲线和直线组成得面域? (好像炸开标注,pline等方法不适用啊)

雪山飞狐_lzh

可以用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