Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
一，同心圆问题
源程序如下
Sub c100()
3 N" R" q$ b+ N6 H/ T3 kDim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
2 {5 |1 d! [3 `cc(1) = 1000
* [; d+ t2 j6 E/ `$ mcc(2) = 0
8 |. |! b; H8 H3 j7 j+ s; E4 X  ~: FFor i = 1 To 1000 Step 10 '开始循环
& c& R. k" o8 x  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
" S$ G2 U; ~$ x$ m% P! LNext i
End Sub
* e  c5 s( G  I操作步骤如下
１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口

$\5w
1 [/ M* V8 A0 P7 x0 x) i( ^( Iq{
2008年1月26日更新ＰＤＦ文件
, ?! O) E( I6 Y
[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
4 d. L% y' `- h) ^３、 在Sub c100()和End Sub之间粘贴代码
3 M& Y. L4 Z/ D. o+ |- L４、回到模型空间，再次按Alt+F8，点击“运行”2J
不会贴图，所以将图附件上传。
" F) x7 k! O, `# u: N. P. T个人理解：
$ R0 O6 r& A% f6 g/ z  W0 `1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
! N! [! X. z* z2 S2、宏的存储范围决定了他的应用范围，这个以后会讲到。
# b# O  w) |  e! v- W3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）
3 k' W8 w# j' p5 ^8 R+ |# m# |6 W
5 B3 R/ p5 Q) ]1 ^) i[ 本帖最后由 auluolal 于 2008-1-25 01:01 编辑 ]

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
源码如下：
Sub myl()
! q4 k+ B& G5 kDim p1 As Variant
  s: O8 c; s2 Q" t% Q. U- s  Y3 EDim p2 As Variant
" F8 r+ ?! E+ ?- i$ P/ w4 ]; M6 Kp1 = ThisDrawing.Utility.GetPoint(, "输入点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
! N! b6 v  L" y& G4 d5 X5 z- i+ m' op1(2) = z
On Error GoTo Err_Control
9 e" U! a& v5 \+ |3 {Do
2 a  O$ h, K) o. Tp2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
  D7 [" ^4 q$ ez = ThisDrawing.Utility.GetReal("Z坐标:")
p2(2) = z
Call ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
Loop
Err_Control:
End Sub

个人认为要点为：
Do  -----  Loop 循环
, }8 G1 v' i1 c3 X+ d/ o& zAddLine函数
On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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