Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
一，同心圆问题
3 a( c7 J6 u4 `! k3 l. Z3 r& c源程序如下
1 _9 J5 f0 z* OSub c100()
- w4 m) L; P) _1 `3 L5 [* P4 P# fDim cc(0 To 2) As Double '声明坐标变量
' V6 V" o( ?! j. e7 N6 Icc(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
操作步骤如下
１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口
6 W+ b) `9 O" N4 c( L: c
$\5w
7 L1 k1 y* O8 W5 G& G$ p, M. Kq{
8 @: q* m% Y) \# r8 I2008年1月26日更新ＰＤＦ文件
: R3 q& }3 B& c( {5 }
4 k+ }9 l1 j9 ]" c' E$ {) f[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
３、 在Sub c100()和End Sub之间粘贴代码
４、回到模型空间，再次按Alt+F8，点击“运行”2J
不会贴图，所以将图附件上传。
5 ^# A0 I+ [* ^5 u  p个人理解：
, p% Y( {  o" E1 `! t( Z4 N8 [1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
8 }8 ]% ~. l; v4 s/ q: Z3 R# x2、宏的存储范围决定了他的应用范围，这个以后会讲到。
" P/ M$ B$ B0 X1 m3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）

8 H  V' P" Y4 q2 Y0 Q, F! s$ D  u[ 本帖最后由 auluolal 于 2008-1-25 01:01 编辑 ]

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
源码如下：
2 V  r% P- e$ W% g; t5 @Sub myl()
Dim p1 As Variant
Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
! t. `2 V. ~4 H5 D: Ez = ThisDrawing.Utility.GetReal("Z坐标:")
p1(2) = z
7 i5 e" E+ |( z( x& Y- R( Z* kOn Error GoTo Err_Control
, b; O1 W( B7 DDo
: Y( b6 v- d  Jp2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
$ w: W& C$ T+ O  z( k( {! S2 Xp2(2) = z
* d0 k5 R( s- h+ B  N% LCall ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
Loop
Err_Control:
) g: F( Z# [1 aEnd Sub
. J9 q8 R" \' P9 c9 l
. ?7 a8 D3 s4 x0 `9 S个人认为要点为：
Do  -----  Loop 循环
AddLine函数
On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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