CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
楼主: cad

[开发] Autocad VBA初级教程 (强烈推荐)

[复制链接]
发表于 2008-1-8 10:00 | 显示全部楼层
太好了!谢谢哦!
发表于 2008-1-11 09:28 | 显示全部楼层
能提供教材下载就最好不过啦!
发表于 2008-1-11 10:49 | 显示全部楼层
社区币太少,努力赚钱中
发表于 2008-1-15 19:35 | 显示全部楼层
你太厉害了,非常感谢
发表于 2008-1-29 14:11 | 显示全部楼层

看来我还是应该慢慢把忘掉的东西拾起来

看来我还是应该慢慢把忘掉的东西拾起来,原来没学过的东西不一定没用,而有用的一定要不能忘呀!CAD我忘的太快了!
发表于 2008-1-29 17:47 | 显示全部楼层
很好,我也要好好学学。。
发表于 2008-1-29 20:07 | 显示全部楼层
楼主提供的资料确实很好,值得认真学习一下。这方面的尝试做得不多,先感谢楼主的好资料!
发表于 2008-1-29 21:48 | 显示全部楼层
首先感谢楼主的好资料!我得慢慢学习,在此请教在已有极径极角数据表(在EXSEL中)的情况下如何导入CAD来自动画出凸轮曲线。听说用VBA编个小程序,但我没编过,老师能帮这个忙吗?我的信箱为[email protected]
发表于 2008-1-29 23:57 | 显示全部楼层
过来看看
+ L7 z; z/ g- X" K8 m- Q8 [! Q但还是先从基础的学吧
发表于 2008-2-2 00:03 | 显示全部楼层
我是CAD初学者,看了教程,虽然看得不太懂,感觉很不错,不知能不能学会!
发表于 2008-2-2 12:56 | 显示全部楼层
第一课入门练习:
. p8 A# P& d1 U- p; H/ ~/ [. L( c' y* a  l0 m
. ~) T; s: z) p6 M) Q2 J

' ~0 z9 z) n& M4 E2 u: [# ]$ f0 h% q我在粘贴代码时好多怪怪的符号

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2008-2-2 13:24 | 显示全部楼层
第二课练习:0 l6 X1 T* Y  ]' u6 T
Sub c5()
1 _$ N. O3 k2 U6 N% {5 q. _6 o* `Dim cc(0 To 2) As Double '声明坐标变量# Y$ t2 D! j* v; m# {8 c
cc(0) = 4 '定义圆心座标) E7 ^. r% K9 u" ]
cc(1) = 2; E3 C  B9 c! X1 T( p( O
cc(2) = 0
0 s# ^; `" R* `8 R/ K, MFor i = 1 To 5 '开始循环& J8 c4 P' p6 y. I& F
Call ThisDrawing.ModelSpace.AddCircle(cc, i) '画圆6 ^9 R: `7 r: Q/ g7 m
Next i
& p3 b( h  U/ T) B8 Q- i* m. EEnd Sub
. w" `3 k2 l$ f; ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2008-2-2 13:38 | 显示全部楼层
谢谢楼主!希望继续写下去。
发表于 2008-2-2 23:33 | 显示全部楼层
Autocad VBA初级教程 (第四课 程序的调试和保存)作业:
1 m( r9 r+ u+ x8 X本课结束,请做思考题;监视下列代码中的i和j的值,注意,此题虽然要监视2个变量,但是在代窗口中只要设置1个断点就足够了。
  T5 l" U% X2 f, F' f, t9 H- ~sub test()( Y* g, K, \1 j
for i=2 to 4 step 0.6
( z1 c' v4 `$ dfor j=-5 to 2 step 5.55 P) H: Q! ]% D0 |$ C0 s! z( x
next j% D0 f- y2 Y3 l( k
next i
4 }8 q( i# o# T1 zEnd sub
# l2 a% E' j! d7 |8 [% z) F, l# b% H3 A* r& d7 V& Y
i值:  2    2.6    3.2    3.8
9 A) z* |! ~& k& {4 l' U6 uj值:  -5    .5
发表于 2008-2-3 13:10 | 显示全部楼层
感觉很难!第三课还不大明白,第四课作业也不知对不对,好象不大对,又没人来批改,
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2026-1-9 16:43

CAD设计论坛,为工程师增加动力。

© 2005-2026 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表