cad二次开发中介绍vba
源代码在线查看： cad世界__autocad vba初级教程 (第一课入门).htm
CAD世界__Autocad VBA初级教程 (第一课:入门)
BODY {
BACKGROUND-IMAGE: url(image/pagebg.gif)
}
.style1 {
FONT-WEIGHT: bold; COLOR: #ff0066
}
.style2 {
FONT-WEIGHT: bold; FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Times New Roman, Times, serif, "黑体"
}
.style3 {
COLOR: #336699
}
.style4 {
COLOR: #333333
}
.style6 {
COLOR: #f76c8c
}
.style15 {
COLOR: #ff0033
}
.style16 {
FONT-WEIGHT: bold; COLOR: #ff0000
}
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
src="CAD世界__Autocad VBA初级教程 (第一课入门).files/headadA.js">
src="CAD世界__Autocad VBA初级教程 (第一课入门).files/headmenuA.js">
align=center>
src="CAD世界__Autocad VBA初级教程 (第一课入门).files/mu_search_red.gif"
width=159>
value=all name=datesearch> name=AreaSearch>
src="CAD世界__Autocad VBA初级教程 (第一课入门).files/leftmenu2_01_red.gif"
width=159>
src="CAD世界__Autocad VBA初级教程 (第一课入门).files/class2.js">
src="CAD世界__Autocad VBA初级教程 (第一课入门).files/leftmenu2_02_red.gif"
width=160>
src="CAD世界__Autocad VBA初级教程 (第一课入门).files/lttop6.js">
src="CAD世界__Autocad VBA初级教程 (第一课入门).files/mu_mail_red.gif"
width=160>
src="CAD世界__Autocad VBA初级教程 (第一课入门).files/tougaoA.js">
-->
当前位置：ICAD >> 数字化设计 >> CAD >>
正文
style="FONT-SIZE: 16px">Autocad VBA初级教程 (第一课:入门) height=12 src="CAD世界__Autocad VBA初级教程 (第一课入门).files/zi.jpg"
width=15>
作者：普天同庆 | 阅读次数：1858 转自： color=#cc0000>CAD世界网-论坛
时间：2005年5月30日15:30
size=3>
第一课：入门
1.为什么要写这个教程市面上ACAD
VBA的书不多，它的帮助是英文版的，很多人看不懂。其实我转行已经好几年了，而且手艺也慢慢生疏了，写个教程对自己来说也是一次复习。
2.什么是Autocad VBA？VBA是Visual Basic for
Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD命令不可能完成的，只要学好VBA就可以做到，相信到时候您一定会得到同事的佩服、老板的器重。
3、VBA有多难？相信大家都知道Basic是的含义。应该承认，我的水平还不高，错误之处在所难免，如果大家发现错误一定要提出批评，以便及时更正。
4、怎样学习VBA？介绍大家一个学习公式：信心+恒心=开心。仔细阅读本教程，完成例题，在学习的过程中一定要多思考，多想一些是什么、为什么。本教程将陆续发布在CAD世界论坛上，您不需要付费就可以学习。本作者在此郑重承诺：关于本教程中有任何疑问，可以跟贴提问，只要有时间，本人一定会耐心解答。我不会发到任何人的邮箱中，您自己在论坛上找就可以了，请不要再向我索要这份教程。
5、现在我们开始编写第一个程序：画一百个同心圆第一步：复制下面的红色代码第二步：在模型空间按快捷键Alt+F8，出现宏窗口第三步：在宏名称中填写C100，点“创建”、“确定”第四步：在Sub
c100()和End Sub之间粘贴代码第五步：回到模型空间，再次按Alt+F8，点击“运行”
Sub c100()Dim cc(0 To 2) As Double '声明坐标变量cc(0) = 1000
'定义圆心座标cc(1) = 1000cc(2) = 0For i = 1 To 1000 Step 10
'开始循环 Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)
'画圆Next iEnd Sub
也许您还看不懂上面的代码，这没有关系，只要能把同心画出来就可以了，祝您成功。(编辑：zhaozh)
if (window.print) {
document.write('【打印本文】 ');
}
// End -->
【 href="http://old.icad.com.cn/review/index.asp?article=2005530153032"
target=_blank>发表评论】【 href="javascript:window.close()"> color=#cc0000>关闭窗口】
上一篇： href="http://old.icad.com.cn/html/2005-5-30/2005530152118.asp"
target=_blank>[文章]基于Solidworks软件的摇摆试验台设计下一篇： href="http://old.icad.com.cn/html/2006-6-1/200661105959.asp"
target=_blank>[文章]CATIA车座设计中文教程（二）
src="CAD世界__Autocad VBA初级教程 (第一课入门).files/endA.js">
