|
|
AutoCAD VBA 初级教程 程序运行效果
1 l+ _ k0 }5 P 我看了AutoCAD VBA 初级教程后觉得非常不错，我就把这个教程的所有程序的在AuotCAD中的运行效果给大家展示一下：1 B9 F+ ?0 Y6 K4 u% T' ]
1、一百个同心圆
! C- F( k- w/ B+ c0 e
' p! p- U" k7 a+ P0 g( j . r& n, W' X8 L, A
) @! x5 \5 c& U! ?5 B1 S
! k7 H K; q. V9 S$ r; k2、那个思考题的程序代码
2 \3 O+ m2 p: aSub c100()
^8 ^4 E$ D5 N* h$ {/ BDim cc(0 To 2) As Double '声明坐标变量0 R( ]( s1 [: l6 L I
cc(0) = 4 '定义圆心座标
6 p1 m1 {, l( P9 N6 bcc(1) = 2
6 J7 J' E* g) B7 lcc(2) = 0+ e' m1 ^, F6 \$ o" f$ S* q! C
For i = 1 To 5 Step 1 '开始循环* Q8 R3 k1 ^! H9 }
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 1) '画圆
, D! S5 F C. I! {$ ` uNext i& T8 h+ T, N: i8 O
End Sub
# \6 r# m, J. j1 ?2 L, \; B就是在一百个同心圆的那个程序上稍微改动一下3 ]- H0 g8 @! p: u' W, O
5 B6 [' I4 j7 L0 g
[ 本帖最后由 summerfly2008 于 2006-4-21 12:27 编辑 ] |
|
发表于 2006-4-21 11:59
发表于 2006-4-21 12:05
有制作方法解析吗？