CAD设计论坛

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

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

[复制链接]
发表于 2011-5-25 08:25 | 显示全部楼层
顶 虽然还是不会
发表于 2011-5-30 19:30 | 显示全部楼层
很不错的一款程序
发表于 2011-5-31 20:37 | 显示全部楼层
谢谢分享
发表于 2011-6-2 09:00 | 显示全部楼层
回复 1# cad
6 S0 k5 X- F/ Q7 I9 B7 L% P9 C/ Q5 i$ U  j; D3 \9 R3 ?

2 j) `% k- N  @* ~8 Z$ A4 G    感谢楼主的分享!!
发表于 2011-6-7 19:47 | 显示全部楼层
回复 1# cad 0 u& \, Z4 q2 e: f2 U+ H1 ?3 L
& Y6 A7 M4 X2 l5 F% {' Y- d0 w, t
学习了!!谢谢!
发表于 2011-6-29 10:28 | 显示全部楼层
初看挺有趣,但学起来不是那么容易
发表于 2011-6-29 16:29 | 显示全部楼层
太谢谢楼主了!!!
发表于 2011-7-3 15:01 | 显示全部楼层
讲的很仔细。
发表于 2011-7-3 18:56 | 显示全部楼层
DDDDDDDDDDDDDDDDDDDDDDDDDD下
发表于 2011-7-4 13:55 | 显示全部楼层
太好了,认真学习学习
发表于 2011-7-10 11:36 | 显示全部楼层
楼主辛苦了~!
发表于 2011-8-13 16:10 | 显示全部楼层
本课主要任务是对上一课的例程进行详细分析* G9 @7 g% L. H: p" t
& k2 P- Z: ], |( t# J2 f
下面是源码:
5 Y) ^1 L4 ^2 j& E# QSub c100()' V( C3 u9 ~  z, n+ E
Dim cc(0 To 2) As Double '声明 ...
8 {. v; D9 x  ~/ H8 x4 p; Rcad 发表于 2006-4-14 13:19

! X# w/ _: w$ F  G6 y# s7 K7 U% M( O  D6 l8 r3 i1 }

+ Y+ D5 P9 n( g* u! d    Dim cc(0 To 2) As Double '声明坐标变量8 C9 w( v* `! u
cc(0) = 4 '定义圆心座标
3 }) @$ r& L0 \! W7 Acc(1) = 2
- b' p- y% J8 S7 }( U9 l( @cc(2) = 07 w# C7 g1 }4 Q" q+ c+ N
For i = 1 To 5 Step 1 '开始循环; f5 A) z8 A: N2 Z) z
  Call ThisDrawing.ModelSpace.AddCircle(cc, i * 1) '画圆4 ^+ f6 f& Y6 i  \" \8 [- L
Next i
发表于 2011-9-2 12:30 | 显示全部楼层
这么深奥,看来要好好学习了!
发表于 2011-9-5 05:02 | 显示全部楼层
版主有心了!!!
发表于 2011-9-6 10:09 | 显示全部楼层
好贴!强烈顶起,认真学习。最近正在忙这个呢。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-10-3 07:06

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

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

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