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

623552525

太好了！谢谢哦！

2005lyf

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

hbycld

社区币太少,努力赚钱中

ulyss

你太厉害了，非常感谢

hgdage

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

wt001

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

新猎手

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

tjp

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

mint0316

过来看看
6 p) Y' N4 S9 t但还是先从基础的学吧

gyc0201

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

jxjjmlx

第一课入门练习:
2 Z- c# v) ?2 m9 [" C" Y: M


我在粘贴代码时好多怪怪的符号

jxjjmlx

第二课练习:
Sub c5()
* ]0 U7 B6 a! M/ ?Dim cc(0 To 2) As Double '声明坐标变量
cc(0) = 4 '定义圆心座标
cc(1) = 2
% n& w. ^" E: Q; @cc(2) = 0
- j+ U% f: c+ E1 X# X; TFor i = 1 To 5 '开始循环
5 f; S- M+ U# `) T# P% RCall ThisDrawing.ModelSpace.AddCircle(cc, i) '画圆
: Y/ [! A+ X) {3 YNext i
End Sub

crusader

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

jxjjmlx

Autocad VBA初级教程 (第四课 程序的调试和保存)作业:
本课结束，请做思考题；监视下列代码中的i和j的值，注意，此题虽然要监视2个变量，但是在代窗口中只要设置1个断点就足够了。
sub test()
: P3 d" ]- o, T# ?% Dfor i=2 to 4 step 0.6
for j=-5 to 2 step 5.5
9 @" z! U) J9 H2 \& c" Knext j
# n0 U/ {: d8 @5 unext i
End sub

+ x- c& U- [/ d4 w( L$ q- si值:  2    2.6    3.2    3.8
$ T; @8 |$ q! c! E! T- P0 L/ cj值:  -5    .5

jxjjmlx

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