Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
一，同心圆问题
& U* Z- f# W  A0 W6 k: `5 F1 `源程序如下
6 r& o! I* {4 j' x1 Z9 U2 BSub c100()
& x' N% s8 ^4 vDim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
2 g" z1 M9 X3 E/ Mcc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
# U# v* u. R" F% Q" E9 b+ y  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
# l& d- k- A  W4 R$ }1 ^Next i
End Sub
操作步骤如下
+ B% b) n; X  g  c& k9 b; K１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口
# Z  [# U# Q5 \6 m) W- V' m
$\5w
q{
2008年1月26日更新ＰＤＦ文件
0 i' R! M2 p3 J4 G
[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
9 A' ~* b7 U( p2 {* \/ T, d% q/ D2 d３、 在Sub c100()和End Sub之间粘贴代码
４、回到模型空间，再次按Alt+F8，点击“运行”2J
  [1 \, E1 a& Y' ]  h8 C不会贴图，所以将图附件上传。
2 |' v; Z% Q  q, U, N* m% X个人理解：
1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
2、宏的存储范围决定了他的应用范围，这个以后会讲到。
5 R4 K! E& S" B0 r) {3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）

9 I" b! X7 c8 D% }( Q[ 本帖最后由 auluolal 于 2008-1-25 01:01 编辑 ]

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
源码如下：
0 g  a" f7 p( {! h/ w/ [& u3 i2 T$ BSub myl()
; [! u0 Y8 t# t3 g5 W; c! oDim p1 As Variant
Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
p1(2) = z
4 K& H6 P5 w  |) f9 N/ nOn Error GoTo Err_Control
Do
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
% P' j9 ?' n) q5 l. h) zz = ThisDrawing.Utility.GetReal("Z坐标:")
  _! y3 ?6 ^" T/ up2(2) = z
Call ThisDrawing.ModelSpace.AddLine(p1, p2)
1 Z9 K- i( |3 C# T" ]- ~6 d+ n7 {- [# pp1 = p2
' ?% K( \, @4 \0 V( T/ b  hLoop
6 Q! f: @" |' G6 i" {  }4 S/ ~* aErr_Control:
End Sub
' }( [* }+ d) h  V2 t
( {. y, {/ V+ e! L5 u个人认为要点为：
Do  -----  Loop 循环
+ `: q$ X7 b+ U1 N6 l% E) {AddLine函数
On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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