欢迎大家光临【无师自通-教程网】您的到来是我们的荣幸。本站提供photoshop教程,ps教程,flash教程,cad教程,网页制作教程,excel教程,asp教程,vb教程,3d教程,c语言教程,html教程,coreldraw教程,dreamweaver教程,java教程,3dmax教程 等各种教程为主题的内容和服务,相信您会在这里找到您所需要的东东。无师自通伴您一生-谢谢您的光临！！
网站地图 设为首页
简繁切换 加入收藏
栏目待定 留言本站
您现在的位置： 无师自通-教程网 >> 图形图像 >> AutoCAD教程 >> AutoCad基础教程 >> 教程正文

  没有公告
图形图像教程
photoshop
Flash
3DS Max
CorelDraw
Fireworks
Illustrator
Maya
AutoCAD
网络应用教程
局域网教程
综合布线
系统集成
无盘网络组建
网络产品资料
网络风险评估
光纤通信
网络接入
程序设计教程
C语言教程
vb教程
C#教程
VC语言教程
Ｃ＋＋教程
Java教程
数据库教程
Delphi教程
操作系统教程
WindowsXP
Linux
Win2003
Vista
Win2000
苹果系统
Dos教程
FreeBSD
办公软件教程
Word教程
Excel教程
Powerpoint
Wps教程
Office视频
系统相关
系统工具
杀毒查毒
WEB开发教程
Asp教程
Jsp教程
Php教程
Xml教程
Html教程
CSS教程
CGI-Perl教程
ASP.NET
运用VBA创建运用程序 更多...
运用VBA创建运用程序
    实例1 最简单的VBA程序—“Hello.dvb”
    Step 1 创建新文件
    运行AutoCAD 2002系统，以“acadiso.dwt”为样板创建图形文件，并调用“vbaide”命令进入VBA环境；
    Step 2 创建窗体
    (1) 选择菜单【Insert（插入）】→【UserForm（用户窗体）】，编辑器将创建一个新的窗体，并显示在窗体窗口中。选择该窗体，然后在属性窗口中将“Caption”项改为“Draw Text”。
    (2) 在控件工具箱中单击 按钮，并在窗体的适当位置拖动鼠标，创建一个编辑框控件。
    (3) 在控件工具箱中单击 按钮，并在窗体的适当位置拖动鼠标，创建一个按钮控件。选择该控件后，在属性窗口中将“Caption”项改为“Click”。
    创建结果参见图37-6。


    Step 3 编写代码
    (1) 在窗体窗口中双击按钮控件，编辑器显示代码窗口，并提示用户输入代码，如图37-7所示。代码清单如下：
    Private Sub CommandButton1_Click()
    Dim TextObj As AcadText '定义文字对象变量
    Dim TextString As String '定义字符串变量
    Dim InsPnt(0 To 2) As Double '定义文字插入点数组变量
    Dim Height As Double '定义文字高度变量
    TextString = TextBox1.Text '字符串取值为编辑框中输入的文字
    '指定文字插入点位置和文字高度
    InsPnt(0) = 100: InsPnt(1) = 100: InsPnt(2) = 0
    Height = 15
   '在模型空间创建文字对象
    Set TextObj = ThisDrawing.ModelSpace.AddText(TextString, InsPnt, Height)
    TextObj.Color = acGreen '指定文字对象的颜色为绿色
    ZoomAll '缩放视图
    Unload Me '关闭窗体
    End Sub

    (2) 单击“Standard（标准）”工具栏中的 按钮，以“Hello.dvb”为名保存该文件。
    Step 4 运行VBA程序
    (1) 单击“Standard（标准）”工具栏中的 按钮运行该程序，系统将切换到AutoCAD窗口，并显示如图37-8所示的对话框。用户可在该对话框的编辑框中输入“Hello, VBA!”，并单击按钮，则将在当前图形中创建文字对象，结果如图37-9所示。

    实例说明
    如果用户退出VBA环境并返回AutoCAD系统窗口，则需要对该程序进行加载后才能运行。加载VBA程序的方式有如下几种：
    1. 选择菜单【Tools（工具）】→【Load Appcation…（加载应用程序）】，弹出“Load/Unload Applications（加载/卸载应用程序）”对话框。利用该对话框进行加载的过程与加载LISP程序相同。
    2. 选择菜单【Tools（工具）】→【Macro（宏）】→【Load Project…（加载工程）】，弹出“Open VBA Project（打开VBA工程）”对话框，用户可选择“Hello.dvb”文件并单击Open按钮进行加载。
    3. 选择菜单【Tools（工具）】→【Macro（宏）】→【VBA Manager…（VBA管理器）】，弹出“VBA Manager（VBA管理器）”对话框，如图37-10所示。

    该对话框中的“Drawing（图形）”下拉列表中显示了加载的所有图形文件。对于该列表中指定的图形文件，“Projects（工程）”列表显示了该文件中已加载的VBA程序，用户可单击 按钮载入其他的VBA程序。


小 结
    本章主要介绍了AutoCAD ActiveX和VBA的概念和作用，并通过一个简单的实例讲述了在AutoCAD系统中开发VBA程序的过程。

教程录入：admin    责任编辑：admin 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
     
     
     
     

    photoshop滤镜大全---photoshop滤…

    photoshop制作实例---一个玻璃球

    Photoshop把MM照片转化为浪漫工笔…

    Photoshop用抽出法抠婚纱图技巧实…

    photoshop换衣服

    photoshop照片合成---多幅照片精…

    photoshop 数码照片

    photoshop cs实例---Photoshop把…
    免责声明!本站资料大部分来自于互联网,其版权归原作者或其他合法者所有.如内容涉及或侵犯了您的权益,请通知本人,我将尽快处理!.欢迎您的光临。
    辽ICP备07003958号
    		 无师自通,伴你一生-教程网