|
|
AutoCAD VBA 初级教程 程序运行效果3 G$ a: M7 C$ g1 W
我看了AutoCAD VBA 初级教程后觉得非常不错，我就把这个教程的所有程序的在AuotCAD中的运行效果给大家展示一下：5 q% ~3 ?% w* ~0 V
1、一百个同心圆0 Y' Y$ @! A6 j+ T M/ G
2 U- @) q( I% _2 J$ q" _6 o- E2 \
; k4 j* O! k# e- w4 b
- E. I1 |- L# J3 p& {$ ^. A1 @0 N/ o% X w
2、那个思考题的程序代码# U. S+ U! L3 w: r
Sub c100()
1 b# }" s5 c- Q- iDim cc(0 To 2) As Double '声明坐标变量. t: n- `( U, U8 |7 q1 o
cc(0) = 4 '定义圆心座标
( ]) ^+ D+ W: M& F/ @cc(1) = 2+ w8 L' [; d* ?+ _* j5 G
cc(2) = 0
6 F% s' R: u1 [9 o5 U) Q2 O* O. VFor i = 1 To 5 Step 1 '开始循环& p- C* T! K4 x1 ]4 m3 I3 N
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 1) '画圆
3 h h) Q' X' @4 }' i+ JNext i
b/ C9 ?5 `: ]4 W4 y% ~7 xEnd Sub m" g4 u4 Z& O7 x5 g; k! z2 y
就是在一百个同心圆的那个程序上稍微改动一下
0 A5 N0 `" j! q7 a
/ G* G/ L% s, z7 C[ 本帖最后由 summerfly2008 于 2006-4-21 12:27 编辑 ] |
|
发表于 2006-4-21 11:59
发表于 2006-4-21 12:05
有制作方法解析吗？