[求助]如何使用VBA实现CAD中的“region-面域”和“intersect－交集”命令？

savannah

做好了一个封闭的函数曲线，如何将其转化为region？

另外，怎么才能实现CAD里面的intersect等命令。

因为我的函数方程比较复杂，在直接调用CAD中的命令时，计算量太大，所以期望用vba来实现。多谢！

wenwengg

<pre class="prog_in">Sub Ch4_CreateRegion()</pre><pre class="prog_in">    ' 定义保存面域边界</pre><pre class="prog_in">    ' 的数组。</pre><pre class="prog_in">    Dim curves(0 To 0) As AcadCircle</pre><pre class="prog_in"></pre><pre class="prog_in">    ' 创建圆，用作</pre><pre class="prog_in">    ' 面域的边界。</pre><pre class="prog_in">    Dim center(0 To 2) As Double</pre><pre class="prog_in">    Dim radius As Double</pre><pre class="prog_in">    center(0) = 2</pre><pre class="prog_in">    center(1) = 2</pre><pre class="prog_in">    center(2) = 0</pre><pre class="prog_in">    radius = 5#</pre><pre class="prog_in">    Set curves(0) = ThisDrawing.ModelSpace.AddCircle _</pre><pre class="prog_in">                    (center, radius)</pre><pre class="prog_in"></pre><pre class="prog_in">    ' 创建面域</pre><pre class="prog_in">    Dim regionObj As Variant</pre><pre class="prog_in">    regionObj = ThisDrawing.ModelSpace.AddRegion(curves)</pre><pre class="prog_in"></pre><pre class="prog_in">    ZoomAll</pre><pre class="prog_in_end">End Sub</pre>

savannah

谢谢！

按照您的意思，“ModelSpace.Addregion()”是面域的命令。如果我想画出两个圆交叉后形成的封闭曲线轮廓，即两个曲面的交集，如何实现？

在CAD里，这个命令是Modify-Solids Editing-Intersect。