Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
一，同心圆问题
$ k7 p- h9 D9 }4 a* K源程序如下
Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量
3 r/ R! ]3 l/ _cc(0) = 1000 '定义圆心座标
1 p- h8 b. B+ v# t% [cc(1) = 1000
cc(2) = 0
3 b& z& I3 D8 l. [For i = 1 To 1000 Step 10 '开始循环
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
Next i
" R5 _- P" Y- e+ t# [1 oEnd Sub
& R. T& a7 T$ ~操作步骤如下
) s% ]- `! j& v# O5 Y3 N' b１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口

7 B5 E1 L: q# V$\5w
, U6 y. l$ U( v# q6 n: L1 ?q{
2008年1月26日更新ＰＤＦ文件
9 `- Q; Z5 k7 z" T: e
6 O3 u, r# y9 q8 c' V[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
/ P/ b; @- l6 r- x, d0 K8 g３、 在Sub c100()和End Sub之间粘贴代码
) s' ], \" v; Z" M' J0 L４、回到模型空间，再次按Alt+F8，点击“运行”2J
, O  }, q/ l, L' r. C1 e不会贴图，所以将图附件上传。
8 X0 l0 {& H& i: b7 F个人理解：
1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
* u$ [; A& @7 v8 p8 `2、宏的存储范围决定了他的应用范围，这个以后会讲到。
0 \& h/ E3 J, r2 P3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）

[ 本帖最后由 auluolal 于 2008-1-25 01:01 编辑 ]

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
' V$ W- @. o8 O0 y# Y源码如下：
- c# C3 B" h. U. g5 }Sub myl()
Dim p1 As Variant
Dim p2 As Variant
- o8 l) a3 l$ f8 m3 a% P; Mp1 = ThisDrawing.Utility.GetPoint(, "输入点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
+ k0 ]; l& R+ u! v, K- K3 G& ep1(2) = z
On Error GoTo Err_Control
7 s" I8 h" u7 S& E1 NDo
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
- p6 X) b% n; ]8 j/ U2 Z6 ~p2(2) = z
. b- G# k1 E: U- ~% H. kCall ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
Loop
Err_Control:
" n* `$ u0 z+ Z" p. nEnd Sub
8 t0 {/ |# C' t4 V9 V
个人认为要点为：
Do  -----  Loop 循环
- j* Z& i' K# y" L6 uAddLine函数
On Error goto 标号

C791218

我十分想学习CAD方面的知识。谢谢楼主分享！

dai8812312

谢谢啊,刚开始学

qinrongshan

需要更深入的资料啊！！先谢谢哦！！