Autocad VBA初级教程

auluolal

引用该贴作为教材，介绍简单的VBA编程。（本人将其转化为PDF形式）
一，同心圆问题
. }4 M& t6 i& j0 k6 D* G源程序如下
# d/ C: s" @; p8 x: }$ BSub c100()
Dim cc(0 To 2) As Double '声明坐标变量
4 D) m: Y, K0 T  m3 Q. o1 I9 @" J' Tcc(0) = 1000 '定义圆心座标
! `& S8 k# W3 K/ T( q: _cc(1) = 1000
1 q  D1 a* }- }- R% [cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
; O1 U# s+ C+ u. o. c3 W- B- {2 {  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆
2 X3 j: A3 o/ v; WNext i
9 m. k+ ~* n" h- y. ?End Sub
操作步骤如下
- U6 b0 \$ x9 M: ^2 h１、在模型空间按快捷键Alt+F8（或点菜单“工具－＞宏－＞宏（Ｍ）”），出现宏窗口
2 k& D; ~) q  B" @! z- Z& {
$\5w
. ?" [0 e4 F3 j& r  G. K2 p) Aq{
2008年1月26日更新ＰＤＦ文件

[ 本帖最后由 auluolal 于 2008-1-26 15:34 编辑 ]

auluolal

２、在宏名称中填写C100，点“创建”、“确定”
4 l! ~5 S% Q6 V7 x8 P+ x3 ]; K３、 在Sub c100()和End Sub之间粘贴代码
４、回到模型空间，再次按Alt+F8，点击“运行”2J
+ w- L7 B/ o( z7 \不会贴图，所以将图附件上传。
, r# T! C. y/ w! @; u个人理解：
1、宏是用来做一些重复的繁琐的文件，虽然最终能实现很复杂的功能，但还是重复劳动
. h: O9 p' R5 Y% e  A' N! g+ l2、宏的存储范围决定了他的应用范围，这个以后会讲到。
3、AddCircle(参数1, 参数2)，其中参数1，是个数组参数。（当然可以用Variant表示）

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

maoyangmy

有没有深入一点的资料

auluolal

二、三维线段的问题
5 P2 P6 q% w& P! V1 c8 X1 \2 y源码如下：
Sub myl()
7 [. e: ~/ j. ~0 VDim p1 As Variant
! q4 I7 W; ?% _3 eDim p2 As Variant
( B' O6 H% Y2 L7 ^& fp1 = ThisDrawing.Utility.GetPoint(, "输入点:")
z = ThisDrawing.Utility.GetReal("Z坐标:")
& @# W& @" T2 C5 E5 _8 m1 jp1(2) = z
1 e+ s2 ^6 d+ B! O: }  [& AOn Error GoTo Err_Control
2 F8 g5 X8 B$ KDo
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:")
8 @; O1 D$ I8 ]z = ThisDrawing.Utility.GetReal("Z坐标:")
0 C7 P  ~4 ~9 U9 d% Sp2(2) = z
Call ThisDrawing.ModelSpace.AddLine(p1, p2)
+ Q/ G4 `6 O* T# k4 np1 = p2
- z0 q! U  j  b0 KLoop
* F% F- h/ g: F% EErr_Control:
" ?- e2 N# J4 a3 K  a* iEnd Sub

/ S4 F" S3 U$ p- {7 y% m5 |个人认为要点为：
! C! n7 e4 I+ e9 w% G7 u. P& |- `7 A3 \( nDo  -----  Loop 循环
AddLine函数
On Error goto 标号

C791218

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

dai8812312

谢谢啊,刚开始学

qinrongshan

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