Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
0 @" @. e  T% H6 t3 r4 C一，同心圆问题
4 L% @! a/ D. X6 h4 @; k7 J3 g源程序如下
5 M) q& G8 b( c5 d" z! Y- Q# s0 rSub c100()
( E/ P$ l- ]( Z! |Dim cc(0 To 2) As Double '声明坐标变量
cc(0) = 1000 '定义圆心座标
5 r8 B- F: Q6 Q# lcc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
Next i
End Sub
操作步骤如下
2 ]' @" p+ s% Q１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口
) c7 x: v# E4 i; D* }+ w* g& a/ b
$\5w
% A( f$ \4 Y" Oq{
! G, U$ b; D; }; R2 Q, ?  C2008年1月26日更新ＰＤＦ文件

$ U% f+ o3 y  P3 q) s% _6 @- Y[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
３、 在Sub c100()和End Sub之间粘贴代码
% F6 ?! V9 U6 G) ^% s2 r* _- q４、回到模型空间，再次按Alt+F8，点击“运行”2J
不会贴图，所以将图附件上传。
个人理解：
: K- s( ^+ n# C0 y1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
% ^2 [3 K8 K& h* h6 G2、宏的存储范围决定了他的应用范围，这个以后会讲到。
0 |1 ]6 x+ L6 z0 P3 t# }3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）

& A; o. v8 `1 z) }[ 本帖最后由 auluolal 于 2008-1-25 01:01 编辑 ]

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
源码如下：
Sub myl()
8 y4 R) @6 t! a% |1 Z/ R; bDim p1 As Variant
Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
9 L" \3 e( s- i0 Qp1(2) = z
* F$ ~& l4 J9 X2 q" z. e3 k# JOn Error GoTo Err_Control
Do
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
7 r/ \0 Z  q; I# T( L3 \2 Bp2(2) = z
Call ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
# g' R9 U; `: aLoop
+ H" c) \. }# F/ g' kErr_Control:
9 t" y2 ?+ d  L. j6 NEnd Sub
. m4 ?' r3 w: k% z- k# F
个人认为要点为：
7 P6 h1 I0 M) ]6 i. @, c' K2 V" KDo  -----  Loop 循环
! s! p; V0 j& t* b* V8 ^0 M2 VAddLine函数
On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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