Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
) W2 g" J9 d4 L# |2 `一，同心圆问题
源程序如下
Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量
4 `+ v) H! o- Mcc(0) = 1000 '定义圆心座标
; p. u1 C$ J. ]! vcc(1) = 1000
. y# r  [6 b1 d6 }# j- x5 N0 Bcc(2) = 0
- ?( a/ t" R# R) _( l3 g( A; F5 AFor i = 1 To 1000 Step 10 '开始循环
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
6 P9 r2 B' r1 Q: N$ cNext i
+ G5 o& ]" @6 NEnd Sub
操作步骤如下
１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口

; U) E! [2 @: I$\5w
- f& o$ {; ^, O, C/ l  ?q{
2008年1月26日更新ＰＤＦ文件
, N3 u6 m# k" j
2 q4 B# q8 X6 w2 e) D$ ]& i) E[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
; o7 J* R7 p( d# U# R. g３、 在Sub c100()和End Sub之间粘贴代码
* F! \' m7 K- V4 k４、回到模型空间，再次按Alt+F8，点击“运行”2J
不会贴图，所以将图附件上传。
- G" X" V  ]) R, k7 a$ c个人理解：
3 S( Y" W- [: D0 k, N1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
2、宏的存储范围决定了他的应用范围，这个以后会讲到。
3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）
; h! ^( F  t1 a, d, N6 |! F
2 s- L9 V9 Q9 w, Z[ 本帖最后由 auluolal 于 2008-1-25 01:01 编辑 ]

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
源码如下：
Sub myl()
% U7 Q, u. B0 B- WDim p1 As Variant
* y: n& h1 h5 E6 I7 \0 C1 ]Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
9 x+ m1 m7 o; L/ Y% g' zz = ThisDrawing.Utility.GetReal("Z坐标:")
p1(2) = z
' Q" L, ^* z8 i5 G1 E2 w7 B: BOn Error GoTo Err_Control
Do
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
# C, D8 _2 O. R/ ]  xz = ThisDrawing.Utility.GetReal("Z坐标:")
/ N1 [4 C4 c+ B$ d" u0 t* U) ?p2(2) = z
Call ThisDrawing.ModelSpace.AddLine(p1, p2)
+ \8 n1 ]  H. V" i% yp1 = p2
/ i" m( W+ Q+ `Loop
Err_Control:
End Sub

个人认为要点为：
# p! O4 y  v( ODo  -----  Loop 循环
2 B1 s2 R& o3 W2 CAddLine函数
On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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