|
|
AutoCAD VBA 初级教程 程序运行效果
# `' ^" [8 I$ m& P* B Y/ B 我看了AutoCAD VBA 初级教程后觉得非常不错，我就把这个教程的所有程序的在AuotCAD中的运行效果给大家展示一下：3 o, |+ z! e( r) w4 k: Y" w5 @
1、一百个同心圆
# _! \( |) m j8 K. X$ Z
7 ^! g5 e0 F& Q/ `' b $ l* q) w, F& @0 `# n+ G0 z3 t3 _7 V
; c3 J) f% k% E6 i' E3 W
0 H) w' ?. M4 J9 S1 C, _
2、那个思考题的程序代码, _& F7 H# j$ R, I) t9 X
Sub c100()
. o M) m. O& a! ^' S1 IDim cc(0 To 2) As Double '声明坐标变量6 M" z) A/ H+ K% R+ a
cc(0) = 4 '定义圆心座标
9 U( P$ e" \, _. w* L3 Hcc(1) = 2# A+ \" [9 m4 m: \0 o
cc(2) = 0
' b# O& q2 p% U; mFor i = 1 To 5 Step 1 '开始循环
3 ?5 F. M' }! j2 b7 r9 E# M Call ThisDrawing.ModelSpace.AddCircle(cc, i * 1) '画圆! x4 o2 Z4 b: [* D: m, ]
Next i
) J) v! u8 F" n# R* n4 KEnd Sub/ r( l" v- O+ t4 E+ X: k
就是在一百个同心圆的那个程序上稍微改动一下; ]3 w9 N2 N7 l" Q! o2 @) \
- E! |8 L: i3 g5 _1 O
[ 本帖最后由 summerfly2008 于 2006-4-21 12:27 编辑 ] |
|
发表于 2006-4-21 11:59
发表于 2006-4-21 12:05
有制作方法解析吗？