QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
8天前
查看: 3692|回复: 6
收起左侧

[已答复] AutoCAD2010定义面域

[复制链接]
发表于 2011-11-9 17:13:36 | 显示全部楼层 |阅读模式 来自: LAN

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

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

x
请高手指点,怎样用VBA定义面域?我用ThisDrawing.Modelspace.AddRegion实现不了。
发表于 2011-11-10 13:15:42 | 显示全部楼层 来自: 中国辽宁
1# lioney
3 f+ `' H: x- @你不上传有关文件和代码,谁也无法知道你错在哪里.
 楼主| 发表于 2011-12-1 11:57:07 | 显示全部楼层 来自: LAN
我其实想要画一根齿条,7个齿,但齿顶必须有圆角,用多义线很难实现。如果用直线和圆弧,在VBA怎样实现?怎么将面域传递给一个变量?% _$ h. O) Y0 ?+ j0 `& f4 w0 q" i: }
我现在是用sendcommand来实现的,然后手工点击齿条,传递给变量。
发表于 2011-12-1 14:25:00 | 显示全部楼层 来自: 中国辽宁营口
本帖最后由 woaishuijia 于 2011-12-1 14:35 编辑 . B5 T# C, V2 S* x! _
0 e% z; A$ {- U0 j" s0 \5 ^* u0 S
4# woaishuijia
, ~$ W& O) \% ^. k( v) E创建面域对象的AddRegion方法需要一个参数:构成面域的边界的对象数组,数组中的对象必须首尾相连构成封闭图形。
5 x5 c4 r$ U& ], C该方法的返回值是一个面域对象数组--因为可能生成不止一个面域,通常这个返回值用一个变体变量接收,也可以用一个动态数组。, u: Z3 V, b: S+ N" @
下面的例子用两条直线和一个圆弧生成一个面域2 P9 S* w( L# Z& }* K; q
本例第一行声明变量中,接收面域的变量用的是变体变量,如果用动态数组可以写成 dim 面域数组() as acadregion。
$ \* w  A$ w4 ^5 `+ D
  1. Dim 对象数组(2) As Object, P1(2) As Double, P2(2) As Double, 面域数组 As Variant, I As Integer3 T) G% r8 h, L3 l: e: j! }  f
  2. With ThisDrawing
    ( s( A' X; Y* K9 X
  3.     P2(0) = 10
    " S) E8 D6 g5 t& k* n% l+ L* Q( Z
  4.     Set 对象数组(0) = .ModelSpace.AddLine(P1, P2)
    * f8 Y- k7 H6 i
  5.     P2(0) = 0: P2(1) = 10" c' u8 i/ P8 j; C
  6.     Set 对象数组(1) = .ModelSpace.AddLine(P1, P2)" Y$ ?6 ~. j5 b3 _9 x7 e
  7.     Set 对象数组(2) = .ModelSpace.AddArc(P1, 10, 0, .Utility.AngleToReal(90, acDegrees)). P( a/ ?% C4 n$ {% W* n* W7 T
  8.     面域数组 = .ModelSpace.AddRegion(对象数组)6 y3 O/ y% W% I& ~
  9.     For I = 0 To 2
    9 l7 n, @% v- a
  10.         对象数组(I).Delete" R) ?3 D0 u8 ?( q% |9 Z
  11.     Next
    3 E, ^: D) b* W& Y4 p
  12.     面域数组(0).color = acRed& ]! X5 s; O# Y# l" n
  13. End With. M8 @2 h0 x: v. E' j
复制代码
 楼主| 发表于 2011-12-2 16:03:53 | 显示全部楼层 来自: LAN
谢谢,我再试试
 楼主| 发表于 2011-12-15 15:06:55 | 显示全部楼层 来自: LAN
谢谢版主,已经试过了,可以的
发表于 2016-10-28 09:41:24 | 显示全部楼层 来自: 中国上海
lioney 发表于 2011-12-1 11:57
' d+ z9 d8 L# B3 a9 \, [8 i我其实想要画一根齿条,7个齿,但齿顶必须有圆角,用多义线很难实现。如果用直线和圆弧,在VBA怎样实现?怎 ...

$ E, T$ U) {$ K用多义线可以实现,setbulge
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表