Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
+ _) N' L! p1 T6 |5 M. x一，同心圆问题
源程序如下
Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
; i* M: U% K' J% M& p% }cc(1) = 1000
+ [; @. X) H6 y4 ^3 Y* z1 z8 \+ pcc(2) = 0
5 w) l# j6 g# U8 j" {; ]  `For i = 1 To 1000 Step 10 '开始循环
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
5 Q0 V5 g7 s* r% @' d: fNext i
! W* ~! K/ t1 f2 QEnd Sub
操作步骤如下
１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口

$\5w
q{
3 Y# X/ j# Y2 ?) d- u6 c3 W2008年1月26日更新ＰＤＦ文件
' C* B! V* F: @) Z: f: Y
[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
３、 在Sub c100()和End Sub之间粘贴代码
４、回到模型空间，再次按Alt+F8，点击“运行”2J
2 o! l& e% q3 b( T8 w% r& m不会贴图，所以将图附件上传。
- R2 g( X5 |4 m* q个人理解：
, p, [8 q* ^: I: C" D; {1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
2、宏的存储范围决定了他的应用范围，这个以后会讲到。
3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）

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

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
0 H( b  v' {* J; L7 X* K; D源码如下：
Sub myl()
Dim p1 As Variant
: T4 c& r; @- hDim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
2 P* \; R8 f& E5 _# M, }p1(2) = z
On Error GoTo Err_Control
5 E) t' ]; l; z/ X  E. T0 H8 WDo
! s) O- V) R3 @! }; A0 D& D# hp2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
p2(2) = z
4 q- e4 V* D. x1 z" Z' nCall ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
Loop
/ I4 u4 v& f' W7 s  @7 @Err_Control:
End Sub
( Q, {0 n2 b. s# I  A
个人认为要点为：
Do  -----  Loop 循环
/ |6 D- C* p9 r: T! G, h: a' p! _) XAddLine函数
On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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