Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
% |' D4 F: B: \8 H7 @0 x! U/ ?一，同心圆问题
9 }7 ~6 p- c6 D1 X" P源程序如下
Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
cc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
Next i
End Sub
' P. Z- q* r/ Z! v: Q7 E. X操作步骤如下
１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口
+ z. b  z; N0 K
! A: c2 U; C& A$\5w
+ X$ D1 [; Y, fq{
2008年1月26日更新ＰＤＦ文件

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

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
: X7 P3 _' ~* k: \! a2 }３、 在Sub c100()和End Sub之间粘贴代码
４、回到模型空间，再次按Alt+F8，点击“运行”2J
/ D! p; P; v, v: z+ |不会贴图，所以将图附件上传。
个人理解：
1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
8 z2 Q! N0 k( n+ C4 f2、宏的存储范围决定了他的应用范围，这个以后会讲到。
8 h! s1 k5 h! s* \& Y. h$ c( y1 F3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）
% t- u$ i) _. B8 B4 w3 ?) o
- M! a, _; \2 }4 t  W[ 本帖最后由 auluolal 于 2008-1-25 01:01 编辑 ]

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
* P5 l2 _2 }6 R* H7 P源码如下：
  e/ T2 P  d& T. a- r  p' l0 NSub myl()
! n; W4 U( {2 P+ F, n: gDim p1 As Variant
Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
7 N& Z* Y" |" P9 r; n" S  Xz = ThisDrawing.Utility.GetReal("Z坐标:")
4 P3 `  K; B$ Y+ E0 Op1(2) = z
3 D. t# ~- h1 S& E" @On Error GoTo Err_Control
Do
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
. i' }4 l( C4 Q; Oz = ThisDrawing.Utility.GetReal("Z坐标:")
p2(2) = z
0 I8 X' u2 k& }& c4 {0 H( ICall ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
Loop
Err_Control:
End Sub

个人认为要点为：
Do  -----  Loop 循环
AddLine函数
3 L+ _( t8 E/ }4 @On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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