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

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

做好了一个封闭的函数曲线，如何将其转化为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－交集”命令？

发表回复

精选推荐