QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3718|回复: 6
收起左侧

[已答复] AutoCAD2010定义面域

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

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

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

x
请高手指点,怎样用VBA定义面域?我用ThisDrawing.Modelspace.AddRegion实现不了。
发表于 2011-11-10 13:15:42 | 显示全部楼层 来自: 中国辽宁
1# lioney % ^) ~0 I6 M6 m' l2 G
你不上传有关文件和代码,谁也无法知道你错在哪里.
 楼主| 发表于 2011-12-1 11:57:07 | 显示全部楼层 来自: LAN
我其实想要画一根齿条,7个齿,但齿顶必须有圆角,用多义线很难实现。如果用直线和圆弧,在VBA怎样实现?怎么将面域传递给一个变量?
/ p; k% i5 J$ x; y我现在是用sendcommand来实现的,然后手工点击齿条,传递给变量。
发表于 2011-12-1 14:25:00 | 显示全部楼层 来自: 中国辽宁营口
本帖最后由 woaishuijia 于 2011-12-1 14:35 编辑
$ `, c- G3 ^* e/ ^1 y/ P7 m
# L  K# A( L. ?/ A+ y 4# woaishuijia 8 c  f" \# g" x0 X, Y
创建面域对象的AddRegion方法需要一个参数:构成面域的边界的对象数组,数组中的对象必须首尾相连构成封闭图形。
5 ?7 {) b, d) w: \1 P( I" R& K2 L该方法的返回值是一个面域对象数组--因为可能生成不止一个面域,通常这个返回值用一个变体变量接收,也可以用一个动态数组。
8 J3 f) T6 A, J3 s, D下面的例子用两条直线和一个圆弧生成一个面域5 Q2 }0 {( e7 e) Z. [2 D: V
本例第一行声明变量中,接收面域的变量用的是变体变量,如果用动态数组可以写成 dim 面域数组() as acadregion。
, g, n) L& t& F. s& ]
  1. Dim 对象数组(2) As Object, P1(2) As Double, P2(2) As Double, 面域数组 As Variant, I As Integer$ K: I& o- ~* h2 Z7 P
  2. With ThisDrawing1 m5 i) i8 L6 I0 b7 k+ r' h
  3.     P2(0) = 100 `! M! p* X( d# N. v
  4.     Set 对象数组(0) = .ModelSpace.AddLine(P1, P2)/ B7 K$ Y- o4 x
  5.     P2(0) = 0: P2(1) = 10
    + q1 D9 q6 v9 o0 k4 D+ f- g# y* R
  6.     Set 对象数组(1) = .ModelSpace.AddLine(P1, P2)
    ) l% Y% x0 N9 ~$ X( K, O6 Z% p; Y/ e
  7.     Set 对象数组(2) = .ModelSpace.AddArc(P1, 10, 0, .Utility.AngleToReal(90, acDegrees))
    " ?4 Z* u. C3 b* G' r; l
  8.     面域数组 = .ModelSpace.AddRegion(对象数组)
    5 Q* j( E. b- T
  9.     For I = 0 To 23 \0 N2 U" I+ l, U! ?
  10.         对象数组(I).Delete
    8 q; a6 m+ ]$ c
  11.     Next8 q1 F5 J: D! ^% N. _7 S
  12.     面域数组(0).color = acRed1 A* f! {% e* e. g9 S% a8 P6 s
  13. End With
    9 s- {9 t( o- C/ p" \! W
复制代码
 楼主| 发表于 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+ a8 j" f, N( Y) s
我其实想要画一根齿条,7个齿,但齿顶必须有圆角,用多义线很难实现。如果用直线和圆弧,在VBA怎样实现?怎 ...
( |9 w/ w* |" ]5 R
用多义线可以实现,setbulge
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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