Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
一，同心圆问题
源程序如下
Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
* \  f6 p' e. H) n( \; ecc(1) = 1000
1 D& N, @% y$ b' b. J, [) fcc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
9 Z$ ~# T8 l2 `1 e0 x  z  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
9 z) E% A& {5 f6 T2 z7 H" O+ y" DNext i
End Sub
操作步骤如下
１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口
% b6 m8 r/ V$ K! S  j
4 a! o4 s: W. O, `+ d! ~$ c$\5w
# q6 }0 g! t1 Q3 Hq{
2008年1月26日更新ＰＤＦ文件

  f4 ^1 Y' h! H. G1 q[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
３、 在Sub c100()和End Sub之间粘贴代码
: h# c7 S" _* f9 w1 d. }& Q４、回到模型空间，再次按Alt+F8，点击“运行”2J
0 {+ v4 F+ ]2 T# @8 W/ [不会贴图，所以将图附件上传。
个人理解：
1 W  u3 r8 R! A) ^1 A1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
6 U" e. z7 ?, r5 c8 G0 h2、宏的存储范围决定了他的应用范围，这个以后会讲到。
% c* W) {! v0 ], |; D. `8 V' P; j5 k3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）

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

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
, H1 m) K1 \. J* ~) g- w源码如下：
- y' |2 ^+ r5 JSub myl()
, U5 j1 y4 e$ i- R* p! m8 S: D! X8 KDim p1 As Variant
& m1 a* U' e3 B& S1 ~Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
- Z4 q* ~' z, b) }8 R) D$ gp1(2) = z
On Error GoTo Err_Control
# f7 I, p! Y; f1 H# R" gDo
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
% Y) l- W+ B* X7 `5 ^# qz = ThisDrawing.Utility.GetReal("Z坐标:")
9 H: Z! U5 O7 t1 @/ G# Bp2(2) = z
1 P2 K7 N4 ~, K! m5 iCall ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
, ?; F8 h3 \& m7 K. wLoop
Err_Control:
End Sub
7 W* o9 j8 j  _7 d
个人认为要点为：
Do  -----  Loop 循环
- |7 A1 d( l0 `" ~8 g( QAddLine函数
On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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