Autocad VBA初级教程 （强烈推荐）

623552525

太好了！谢谢哦！

2005lyf

能提供教材下载就最好不过啦！

hbycld

社区币太少,努力赚钱中

ulyss

你太厉害了，非常感谢

hgdage

看来我还是应该慢慢把忘掉的东西拾起来,原来没学过的东西不一定没用,而有用的一定要不能忘呀!CAD我忘的太快了！

wt001

很好，我也要好好学学。。

新猎手

楼主提供的资料确实很好，值得认真学习一下。这方面的尝试做得不多，先感谢楼主的好资料！

tjp

首先感谢楼主的好资料！我得慢慢学习，在此请教在已有极径极角数据表（在EXSEL中）的情况下如何导入CAD来自动画出凸轮曲线。听说用VBA编个小程序，但我没编过，老师能帮这个忙吗？我的信箱为[email protected]

mint0316

过来看看
但还是先从基础的学吧

gyc0201

我是CAD初学者，看了教程，虽然看得不太懂，感觉很不错，不知能不能学会！

jxjjmlx

第一课入门练习:
; j# A. a( v+ Z2 Q* Z
& Q: _# ^2 {* [7 _2 N: T' D" u
  r3 ]3 b% A0 c; V, F
0 S* J9 i7 s8 L) E我在粘贴代码时好多怪怪的符号

jxjjmlx

第二课练习:
4 z; F$ p/ {% P8 W5 p. qSub c5()
Dim cc(0 To 2) As Double '声明坐标变量
4 C1 ?9 _9 t/ |" M  [/ G9 n1 zcc(0) = 4 '定义圆心座标
cc(1) = 2
  ^- e4 i; n+ y1 z. ^cc(2) = 0
' ]: c, B0 ^! `7 z* gFor i = 1 To 5 '开始循环
Call ThisDrawing.ModelSpace.AddCircle(cc, i) '画圆
2 k) X9 i; {# DNext i
End Sub

crusader

谢谢楼主！希望继续写下去。

jxjjmlx

Autocad VBA初级教程 (第四课 程序的调试和保存)作业:
本课结束，请做思考题；监视下列代码中的i和j的值，注意，此题虽然要监视2个变量，但是在代窗口中只要设置1个断点就足够了。
$ q( ?$ ?; l% G9 Y9 }2 Msub test()
for i=2 to 4 step 0.6
9 A' J# j9 P; V8 j. g) ofor j=-5 to 2 step 5.5
next j
& }1 {& [: |% D  i) Knext i
End sub

. C: {2 }' X: a, n0 S. Xi值:  2    2.6    3.2    3.8
) O3 f2 v6 V2 C' `5 dj值:  -5    .5

jxjjmlx

感觉很难！第三课还不大明白，第四课作业也不知对不对，好象不大对，又没人来批改，