AutoCAD2010定义面域

lioney · 发表于 2011-11-9 17:13:36

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

请高手指点，怎样用VBA定义面域？我用ThisDrawing.Modelspace.AddRegion实现不了。

woaishuijia · 发表于 2011-11-10 13:15:42

1# lioney
你不上传有关文件和代码,谁也无法知道你错在哪里.

lioney · 发表于 2011-12-1 11:57:07

我其实想要画一根齿条，7个齿，但齿顶必须有圆角，用多义线很难实现。如果用直线和圆弧，在VBA怎样实现？怎么将面域传递给一个变量？
我现在是用sendcommand来实现的，然后手工点击齿条，传递给变量。

woaishuijia · 发表于 2011-12-1 14:25:00

本帖最后由 woaishuijia 于 2011-12-1 14:35 编辑

4# woaishuijia
创建面域对象的AddRegion方法需要一个参数：构成面域的边界的对象数组，数组中的对象必须首尾相连构成封闭图形。
该方法的返回值是一个面域对象数组--因为可能生成不止一个面域，通常这个返回值用一个变体变量接收，也可以用一个动态数组。
下面的例子用两条直线和一个圆弧生成一个面域
本例第一行声明变量中，接收面域的变量用的是变体变量，如果用动态数组可以写成 dim 面域数组() as acadregion。

Dim 对象数组(2) As Object, P1(2) As Double, P2(2) As Double, 面域数组 As Variant, I As Integer
3 l* T2 t7 x0 B, o
With ThisDrawing% A( k. `1 D$ ~* ]& E/ Y, v
P2(0) = 10; C& p7 a; ~: N- S$ I. M* k
Set 对象数组(0) = .ModelSpace.AddLine(P1, P2)
) k5 A/ z4 _5 z* I9 e Y7 |) K, i
P2(0) = 0: P2(1) = 10
, u$ t7 N9 ~. V4 }3 {& ?$ P
Set 对象数组(1) = .ModelSpace.AddLine(P1, P2)
. U( r2 }( e& p' P0 b: k
Set 对象数组(2) = .ModelSpace.AddArc(P1, 10, 0, .Utility.AngleToReal(90, acDegrees))
7 k* A% L0 R4 D a5 c" L0 E
面域数组 = .ModelSpace.AddRegion(对象数组)4 @; e* A* d* Y3 i, C) {
For I = 0 To 2
8 s/ i. D4 D: H$ \/ y
对象数组(I).Delete8 e+ T* i5 I$ @2 M7 R/ I
Next
$ C$ j9 J W* j
面域数组(0).color = acRed
7 z" S( l9 J. H8 l! V. J
End With
: W$ }# p \# H: D& J& ~ M

复制代码

lioney · 发表于 2011-12-2 16:03:53

谢谢，我再试试

lioney · 发表于 2011-12-15 15:06:55

谢谢版主，已经试过了，可以的

LeoZhangShang · 发表于 2016-10-28 09:41:24

lioney 发表于 2011-12-1 11:576 J G- ]% m0 I& L4 L$ ]9 s9 M+ g& L0 p
我其实想要画一根齿条，7个齿，但齿顶必须有圆角，用多义线很难实现。如果用直线和圆弧，在VBA怎样实现？怎 ...

用多义线可以实现，setbulge

		自动登录	找回密码
密码			注册

通知

[已答复] AutoCAD2010定义面域

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块