Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
一，同心圆问题
/ d. _2 V: d/ E7 W源程序如下
Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
) H4 s2 L  N& C2 U9 @8 ?. N6 _- wcc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
! H4 A* q% C1 O3 k  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
! W$ _; g. l- D0 INext i
2 |) C; J# ^# E7 J" }: a$ [' W" s0 `End Sub
2 {3 O% e' _6 |# b. I操作步骤如下
- e9 j8 h) |$ `3 P; M  p１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口

9 x8 W6 p9 }! E: \$\5w
) ?1 E" N% D3 M5 {6 E. Aq{
; u) a6 E' ?/ `$ ?/ `/ x2008年1月26日更新ＰＤＦ文件

[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
$ Z0 d. M; F$ L) Y& c３、 在Sub c100()和End Sub之间粘贴代码
４、回到模型空间，再次按Alt+F8，点击“运行”2J
" X; @: x$ V  Q4 s+ ]8 Z8 f不会贴图，所以将图附件上传。
个人理解：
% g7 f/ [" a% J5 t6 {! q* x8 P1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
2、宏的存储范围决定了他的应用范围，这个以后会讲到。
3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）

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

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
( n7 N% |( u: l. m& c3 U5 s源码如下：
' k1 V/ o1 J# k/ L0 N. qSub myl()
Dim p1 As Variant
Dim p2 As Variant
; r! h; e4 v. i. s" j; z, G9 {. qp1 = ThisDrawing.Utility.GetPoint(, "输入点:")
! }  b- N( P. M6 O6 zz = ThisDrawing.Utility.GetReal("Z坐标:")
p1(2) = z
On Error GoTo Err_Control
: d( l. C7 w( L- B6 }# tDo
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
  n' U0 t: W* Iz = ThisDrawing.Utility.GetReal("Z坐标:")
& E. ]$ [2 x$ \( x7 s) Up2(2) = z
Call ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
Loop
" f- l8 ^+ p9 ~: \, cErr_Control:
End Sub
& v% E: W0 j- W% K' N
/ |# U  N: D& R+ L5 P2 ^' M个人认为要点为：
% K$ X; a7 e2 T# F* {# B3 X: R0 lDo  -----  Loop 循环
0 B9 Q" I8 T0 R2 rAddLine函数
On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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