Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
一，同心圆问题
源程序如下
Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
# s. c( o( N- ?8 o& t7 }cc(1) = 1000
cc(2) = 0
8 `( |  \8 p% Y- NFor i = 1 To 1000 Step 10 '开始循环
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
Next i
End Sub
5 }' l1 q! u& ~' l' o操作步骤如下
１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口

9 o' ^1 V* `( L* p/ K2 x' l2 i$\5w
q{
+ M2 Q* S1 C/ f7 e8 @9 Z1 H% V2008年1月26日更新ＰＤＦ文件

$ l1 [( ^1 s7 {) d4 z. p[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
３、 在Sub c100()和End Sub之间粘贴代码
3 n- y* i9 V1 T& ^4 d; N; \1 F４、回到模型空间，再次按Alt+F8，点击“运行”2J
不会贴图，所以将图附件上传。
& m3 [" `6 b/ D( x; x2 e个人理解：
! \/ }9 r$ \% v$ x& G; U# c1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
2、宏的存储范围决定了他的应用范围，这个以后会讲到。
3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）
" X4 y' O  v' W" ?2 G, T
[ 本帖最后由 auluolal 于 2008-1-25 01:01 编辑 ]

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
  h9 c  r: t6 p8 c源码如下：
1 [' r0 _6 f$ w+ ASub myl()
Dim p1 As Variant
1 m+ C# m( R& ^- F. p5 u- f& j% kDim p2 As Variant
- d  W6 H4 Z, @p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
/ {% h0 k) A5 u* c0 az = ThisDrawing.Utility.GetReal("Z坐标:")
! d$ R2 i$ M' P; n+ c1 |p1(2) = z
4 M& Z. L$ b7 z- V: N( \6 {On Error GoTo Err_Control
Do
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
% P) s6 `: R4 O7 }z = ThisDrawing.Utility.GetReal("Z坐标:")
( J. l  t. q* lp2(2) = z
Call ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
2 w; q) G5 H$ {  T. ~Loop
' z1 p, q! `! z" x- PErr_Control:
6 I. H% c: @: R8 }3 y* j& k& ^: |End Sub

; Z1 G; s0 Q+ d+ ]' r! A) N$ ]个人认为要点为：
Do  -----  Loop 循环
3 o1 g- i6 N7 [4 P1 A7 ], TAddLine函数
  _3 I2 W0 X6 J0 Q% TOn Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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