Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
: ?8 A7 C  \9 L8 h- S  [9 Y一，同心圆问题
源程序如下
Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
9 p7 ?; e! P, a* G# K5 @cc(1) = 1000
cc(2) = 0
: T% Z0 Z8 G8 r5 W8 O; jFor i = 1 To 1000 Step 10 '开始循环
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
4 C  P) c0 L: b7 D9 e, UNext i
End Sub
操作步骤如下
１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口
$ N% }( S& Y6 @
$\5w
q{
; M! L2 V. P! ~! c2 `2008年1月26日更新ＰＤＦ文件
" U% Z" q% X" q) e. e; @
! ?* r1 |3 B- P/ |+ c[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
３、 在Sub c100()和End Sub之间粘贴代码
４、回到模型空间，再次按Alt+F8，点击“运行”2J
不会贴图，所以将图附件上传。
个人理解：
1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
+ d  f4 \- F, O: O2、宏的存储范围决定了他的应用范围，这个以后会讲到。
3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）
( L5 f9 d7 E. l7 T
[ 本帖最后由 auluolal 于 2008-1-25 01:01 编辑 ]

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
+ [2 S6 E: U: D9 O' T/ D源码如下：
& ?; ?9 ]1 J- R+ H/ T. xSub myl()
Dim p1 As Variant
5 q8 c/ X+ m9 s: O4 _) H3 nDim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
4 Y6 ?, t3 k- h0 Sp1(2) = z
4 j7 h) `: {( S1 d9 H9 bOn Error GoTo Err_Control
/ g  G! e% P- U1 v& G; _. IDo
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
p2(2) = z
5 _% \3 q- v; x0 cCall ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
Loop
2 T1 |& I, j$ m7 B* ~* ~$ \9 QErr_Control:
End Sub
5 `; B% |9 w( I0 _/ b% I. r
个人认为要点为：
6 |7 ]# R( S$ }+ z4 K/ w, s8 z, r7 WDo  -----  Loop 循环
AddLine函数
# W5 y: G" s9 D( Q! ?: pOn Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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