|
|
AutoCAD VBA 初级教程 程序运行效果
( L6 S) o, l) s! c 我看了AutoCAD VBA 初级教程后觉得非常不错，我就把这个教程的所有程序的在AuotCAD中的运行效果给大家展示一下：
; t1 {1 g' N+ t! C) C- C. n) N 1、一百个同心圆- y+ a9 E" Q" q0 h
& \( ?$ _( B4 D1 j) l2 B/ T
' F$ g' w" U; x/ C) G. |
8 m8 f1 P- ]9 o) j; d! W) W8 ]/ C& _% a( Q; G& l8 k- Q7 O; i
2、那个思考题的程序代码
9 ]! y4 T2 W( i. `Sub c100()
) e7 y0 b! P/ S q$ t" ADim cc(0 To 2) As Double '声明坐标变量
( k6 D3 q* A: n% {9 @( Tcc(0) = 4 '定义圆心座标2 `( P9 q8 L" R+ }( h; ^2 i
cc(1) = 2
, z+ g2 B4 \5 pcc(2) = 0
. U- `& c. V9 r" I6 B LFor i = 1 To 5 Step 1 '开始循环+ L/ _6 i8 B; F P6 D0 G
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 1) '画圆
\4 d2 k2 T% }+ H2 mNext i3 C, C; |" B T7 K+ I
End Sub
/ l% S3 @5 V8 y$ ^1 N1 B& z就是在一百个同心圆的那个程序上稍微改动一下
& S, L6 r9 O1 F, ]' L/ e
* q+ E5 T& W2 q' d+ Z- e: n/ M; e& p[ 本帖最后由 summerfly2008 于 2006-4-21 12:27 编辑 ] |
|
发表于 2006-4-21 11:59
发表于 2006-4-21 12:05
有制作方法解析吗？