Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
一，同心圆问题
4 j; n9 F4 A7 ]$ k8 f! I( R源程序如下
% U, O+ n) Q8 A, C  _+ o- y6 dSub c100()
Dim cc(0 To 2) As Double '声明坐标变量
6 E/ L( }6 l+ ], h& j% o* Jcc(0) = 1000 '定义圆心座标
0 O# P. ^1 B0 ?1 G. i4 s( Xcc(1) = 1000
cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
" T, `1 P# q7 w- KNext i
End Sub
操作步骤如下
( {( ]' d- S0 H' ~4 s１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口
8 b* |) ]1 r+ H" j0 o0 }( r
  R$ C# s+ ^" h+ j' o$ Y/ ]$\5w
, T) s( v8 A6 k# v$ Z4 Rq{
% o* ]  V4 H) c  s! x) m2008年1月26日更新ＰＤＦ文件

( F( Q1 I, i' K3 A) c% V  k[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
３、 在Sub c100()和End Sub之间粘贴代码
４、回到模型空间，再次按Alt+F8，点击“运行”2J
不会贴图，所以将图附件上传。
个人理解：
% C, n; }0 z% H1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
2、宏的存储范围决定了他的应用范围，这个以后会讲到。
! K' c% F9 {' m0 }2 v3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）

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

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
源码如下：
Sub myl()
" ~( y  i5 T% cDim p1 As Variant
Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:")
0 _# w5 i+ c4 J# Wz = ThisDrawing.Utility.GetReal("Z坐标:")
p1(2) = z
On Error GoTo Err_Control
. J* e" K1 e* K+ B2 F7 w, KDo
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
( c4 B9 Q9 {2 I: D8 h2 N$ K8 gz = ThisDrawing.Utility.GetReal("Z坐标:")
- s1 D! x4 @& b& K1 y8 qp2(2) = z
Call ThisDrawing.ModelSpace.AddLine(p1, p2)
p1 = p2
3 z0 D0 D, X: }; XLoop
Err_Control:
' t4 E! \! Q  v/ {5 m0 LEnd Sub

  E& @+ L( k  s$ X% L2 e/ R个人认为要点为：
" J$ S. G5 O: ]- }/ {, J4 NDo  -----  Loop 循环
9 q' x! e3 L3 U0 D8 b. P2 ^$ uAddLine函数
On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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