AutoCAD VBA 二 次 开 发 初 级 教 程 第 一 课 ： 入 门 1.什 么 是 Autocad VBA？ VBA 是 Visual Basic for Applications 的 英 文 缩 写 ， 它 是 一 个 功 能 强 大 的 开 发工 具 ， 学 好 VBA 可 以 成 倍 甚 至 成 百 、 成 万 倍 提 高 工 作 效 率 ， 在 工 作 中 ， 有 很 多 任务 仅 用 ACAD 命 令 不 可 能 完 成 的 ， 只 要 学 好VBA 就 可 以 做 到 ， 相 信 到 时 候 您 一 定会 得 到 同 事 的 佩 服 、 老 板 的 器 重 。 2、 VBA 有 多 难 ？ 相 信 大 家 都 知 道Basic 是 的 含 义 。 应 该 承 认 ， 我 的 水 平 还 不 高 ， 错 误 之 处 在 所 难免 ， 如 果 大 家 发 现 错 误 一 定 要 提 出 批 评 ， 以 便 及 时 更 正 。 3、 怎 样 学 习 VBA？ 介 绍 大 家 一 个 学 习 公 式 ： 信 心 +恒 心 =开 心 。 仔 细 阅 读 本 教 程 ， 完 成 例题， 在 学 习的 过程 中 一 定 要 多 思考， 多 想一 些是 什 么 、 为什 么 。 本 教 程 将陆续发 布在CAD世界论坛上， 您 不 需要 付费就 可 以 学 习 。 本 作 者在 此郑重 承 诺： 关于本 教 程 中 有任 何疑问， 可 以 跟贴提 问， 只 要 有 时 间， 本 人一 定 会 耐心 解答。 我 不 会 发 到 任 何人的 邮箱中 ， 您 自己在 论坛上找就 可 以 了， 请不 要 再向我 索要 这份教 程 。 4、 现 在 我 们开 始编写 第 一 个 程 序： 画一 百 个 同 心 圆 第 一 步： 复制下面的 红色代码 第 二 步： 在 模型空间按快捷键Alt+F8， 出 现 宏窗口 第 三步： 在 宏名称中 填写C100， 点“创建”、 “确定 ” 第 四步： 在 Sub c100()和 End Sub 之 间粘贴代码 第 五步： 回到 模型空间， 再次 按Alt+F8， 点击“运行” Sub c100() Dim cc(0 To 2) As Double ' 声明坐标变量 cc(0) = 1000 ' 定 义 圆心 座标 cc(1) = 1000 cc(2) = 0 For i = 1 To 1000 Step 10 ' 开 始循环 Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) ' 画圆 Next i End Sub...
