sharksun 发表于 2004-5-7 00:45:00

关于面域的问题




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

雪山飞狐_lzh 发表于 2004-5-7 08:58:00

<B>-boundary命令</B>



<B>如果有曲线，会生成面域</B>

sharksun 发表于 2004-5-7 11:07:00

谢谢雪山飞狐.


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

雪山飞狐_lzh 发表于 2004-5-7 11:13:00

可以用Explode炸开，下面是炸开MText的例子，可以借鉴一下






Private function MToS(MText As Variant) As Variant<BR>'炸开MText并返回一个Text数组<BR>                       Dim i As Integer<BR>                       Dim ss As AcadSelectionSet<BR>                       Dim pTexts() As AcadObject<BR>                       ThisDrawing.ActiveSelectionSet.Clear<BR>                       ThisDrawing.SendCommand "Explode" &amp; vbCr &amp; "(handent " &amp; Chr(34) _<BR>                                                                                                                                                                                                                       &amp; MText.Handle &amp; Chr(34) &amp; ")" &amp; vbCr &amp; vbCr


                       set ss = ThisDrawing.ActiveSelectionSet<BR>                       ReDim pTexts(ss.Count - 1) As AcadObject<BR>                       For i = 0 To ss.Count - 1<BR>                       Set pTexts(i) = ss(i)<BR>                       Next i<BR>                       MToS = pTexts<BR>End Function<BR>
页: [1]
查看完整版本: 关于面域的问题