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

savannah 发表于 2007-9-7 03:48:00

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

做好了一个封闭的函数曲线，如何将其转化为region？
另外，怎么才能实现CAD里面的intersect等命令。
因为我的函数方程比较复杂，在直接调用CAD中的命令时，计算量太大，所以期望用vba来实现。多谢！

wenwengg 发表于 2007-9-7 08:29:00

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

savannah 发表于 2007-9-7 10:14:00

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

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