Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
, C. i- A% e" ], R* i一，同心圆问题
源程序如下
8 C$ ~, S3 F; f( X: aSub c100()
9 A, ^7 W( t) `* I5 U( jDim cc(0 To 2) As Double '声明坐标变量
" C# ~# d, {9 g- H0 ucc(0) = 1000 '定义圆心座标
) C7 l  [9 _& e7 \$ y5 |cc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
, t6 M2 m3 i; L. v  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
2 x4 ]2 s! n; {4 J) F) zNext i
: ~1 D, z; d+ G4 fEnd Sub
; h- @/ y/ F: T) f! d操作步骤如下
１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口
9 z) n6 y/ e! Q1 a
$\5w
4 }, m# p1 U  a& \8 Xq{
2008年1月26日更新ＰＤＦ文件

3 p2 R' a+ a0 W9 \[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
* D- r8 V! k0 U* d- `) E+ j2 v& }# h３、 在Sub c100()和End Sub之间粘贴代码
2 z2 T4 S) ~8 c/ j' P# v" w４、回到模型空间，再次按Alt+F8，点击“运行”2J
* t0 E; L' M1 L' }- A, Q# R! O9 v+ [8 v不会贴图，所以将图附件上传。
个人理解：
  }8 U2 `5 \( N- o) r- w1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
2、宏的存储范围决定了他的应用范围，这个以后会讲到。
8 ]+ s- p% N! }8 i1 z' }3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）
+ _# a8 R% s5 T2 r: T
' i: j- i- c+ J9 ]' @% A1 M: D! i[ 本帖最后由 auluolal 于 2008-1-25 01:01 编辑 ]

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
. U  z" f7 H/ m$ \$ H源码如下：
Sub myl()
Dim p1 As Variant
) z9 O5 i: J0 `1 i% e. q3 IDim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
p1(2) = z
On Error GoTo Err_Control
7 ~1 c% h- x1 Q, qDo
3 l8 H# t. G) _3 s; Dp2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
p2(2) = z
Call ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
Loop
Err_Control:
End Sub

个人认为要点为：
Do  -----  Loop 循环
AddLine函数
1 i' a! t0 y; x8 ^* t/ \, iOn Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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