AutoCAD2010定义面域

lioney

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

woaishuijia

1# lioney
# F' n' K% H2 J你不上传有关文件和代码,谁也无法知道你错在哪里.

lioney

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

woaishuijia

& M8 }; W2 ~' ] 4# woaishuijia
9 j- k5 u1 I/ p  F' z创建面域对象的AddRegion方法需要一个参数：构成面域的边界的对象数组，数组中的对象必须首尾相连构成封闭图形。
该方法的返回值是一个面域对象数组--因为可能生成不止一个面域，通常这个返回值用一个变体变量接收，也可以用一个动态数组。
* s! _. Z$ W) [+ c6 V+ ]下面的例子用两条直线和一个圆弧生成一个面域
本例第一行声明变量中，接收面域的变量用的是变体变量，如果用动态数组可以写成 dim 面域数组() as acadregion。

1. Dim 对象数组(2) As Object, P1(2) As Double, P2(2) As Double, 面域数组 As Variant, I As Integer
   7 o! t' E# K! T: p: {
2. With ThisDrawing
   / l( x  n0 G6 D. B  P% e6 ^! b
3.     P2(0) = 10
   ( w# B' ]3 Y% l
4.     Set 对象数组(0) = .ModelSpace.AddLine(P1, P2)
   # u3 ?3 Y, c$ ?& _" s+ f. }$ Y
5.     P2(0) = 0: P2(1) = 10
   2 W; P" h( R# S; B% F' j/ y1 S8 e
6.     Set 对象数组(1) = .ModelSpace.AddLine(P1, P2)
   * Y" F& y$ R9 x0 }" l
7.     Set 对象数组(2) = .ModelSpace.AddArc(P1, 10, 0, .Utility.AngleToReal(90, acDegrees))
   
8.     面域数组 = .ModelSpace.AddRegion(对象数组)
   9 S, w' A" j7 s! G
9.     For I = 0 To 2
   - ]/ K' [7 R, K# Z: x" J
10.         对象数组(I).Delete
    9 P( B% w1 x. \+ `  v+ K' e" a1 K
11.     Next
    9 u: e- c, X* |* \- @' X
12.     面域数组(0).color = acRed
    
13. End With
    $ h2 s$ ]' Q  x" U7 w9 @% q

复制代码

lioney

谢谢，我再试试

lioney

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

LeoZhangShang

lioney 发表于 2011-12-1 11:57
" u6 b% s) F5 H+ u  \# f& E% ?我其实想要画一根齿条，7个齿，但齿顶必须有圆角，用多义线很难实现。如果用直线和圆弧，在VBA怎样实现？怎 ...

用多义线可以实现，setbulge