Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
一，同心圆问题
/ e% ~! k& X& b1 U源程序如下
% Z/ H9 R8 g8 n8 O9 ]Sub c100()
( j9 u& [' J, ?2 |: FDim cc(0 To 2) As Double '声明坐标变量
* E* \# {! o" z/ zcc(0) = 1000 '定义圆心座标
. Z- c# i* P; C" Q/ Gcc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
& ]% d% ^7 B% V- K5 J$ fNext i
End Sub
操作步骤如下
１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口
  b! P/ t1 d( U( z3 T  ^
0 ~- U2 r1 G+ v  N+ w1 z$\5w
q{
2008年1月26日更新ＰＤＦ文件
! U  D: Z; o5 z$ s" Q$ `
[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
３、 在Sub c100()和End Sub之间粘贴代码
+ }' |" |8 K* l４、回到模型空间，再次按Alt+F8，点击“运行”2J
1 S3 @" L* B; v& }不会贴图，所以将图附件上传。
个人理解：
  r& C) T7 i; o1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
2、宏的存储范围决定了他的应用范围，这个以后会讲到。
6 M+ v2 c4 Q7 p8 a7 d6 C3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）

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

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
源码如下：
Sub myl()
9 H' b+ ~" r- b" N% d5 ^Dim p1 As Variant
* g0 H$ u1 w, S% h0 F6 O% ]Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
' r2 L. U0 C  P2 p+ J5 K' l. h7 rp1(2) = z
On Error GoTo Err_Control
Do
+ h* E/ Q" L2 f$ k6 U' fp2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
, t7 p3 x, s6 }$ F- D( o6 Az = ThisDrawing.Utility.GetReal("Z坐标:")
5 H9 i+ ^0 }. U' p- f! \p2(2) = z
Call ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
- ~9 x) T. K8 z9 TLoop
2 J' G* G( V+ y' P) }, OErr_Control:
9 j' B9 I1 ]3 h4 EEnd Sub
( X& i6 m" z# N' w. R
个人认为要点为：
' V* i- \7 a" Z, d; |Do  -----  Loop 循环
AddLine函数
% h. n. [7 j- W' b+ x: L' wOn Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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