AutoCAD2006VBA程序参考

兰州人 · 发表于 2007-12-6 20:05:00

要学好 VBA程序，AutoCAD 2006 VBA A Programmer’s Reference是一本相当好的参考书。可惜这本书是英文，为了让大家能更好的学好这本书，本人抛砖引玉，摘要部分学习心得与网友共享。
This book provides a concise guide to the kind of customization programmers can achieve with AutoCAD 2006. It demonstrates how to use AutoCAD through short code examples written in Visual Basic for Applications (VBA). It also includes a complete quick reference that lists all the events, methods, and properties available with AutoCAD. Finally, it describes all the constants and system variables.
本书通过提供简明扼要AutoCAD程序，采用短程序教学法介绍VBA编程。而且用表的形式，快速介绍所有的事件、方法和有用的AutoCAD特性。
What Is This Book About? 有关这本这本书
By interfacing with AutoCAD, you can exploit all of AutoCAD’s functionality that would have taken you a long time to write yourself. This book will first help you learn how to use this functionality.
如何用AutoCAD接口技术开发AutoCAD功能。
TABLE OF CONTENT:目录
Chapter 01 - The VBA Integrated Development Environment (VBAIDE)----VBA整合开发环境
Chapter 02 - Introduction to Visual Basic Programming----介绍VBA
Chapter 03 - Application Elements ----- 应用原理
Chapter 04 - AutoCAD Events----AutoCAD事件
Chapter 05 - User Preferences----用户参数
Chapter 06 - Controlling Layers and Linetypes----图层和线的控制
Chapter 07 - User Interaction and the Utility Object
Chapter 08 - Drawing Objects
Chapter 09 - Creating 3-D Objects
Chapter 10 - Editing Objects
Chapter 11 - Dimensions and Annotations
Chapter 12 - Selection Sets and Groups
Chapter 13 - Blocks,Attributes,and External References
Chapter 14 - Views and Viewports
Chapter 15 - Layout and Plot Configurations
Chapter 16 - Controlling Menus and Toolbars
Chapter 17 - Drawing Security
Chapter 18 - Using the Windows API
Chapter 19 - Connecting to External Applications
Chapter 20 - Creating Tables
Chapter 21 - The SummaryInfo Object
Chapter 22 - An Illustrative VBA Application
Appendix A - AutoCAD Object Summary
Appendix B - AutoCAD Constants Reference
Appendix C - System Variables
附本书的PDF文件。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

兰州人 · 发表于 2007-12-6 21:18:00

P68页要点
以下程序为声明类模块示例。
Option Explicit
Public objApp As New clsApplicationEvents
Public Sub InitializeEvents()
Set objApp.objApp = ThisDrawing.Application
End Sub
As soon as the InitializeEvents subroutine is called, in this case by running the
App_StartMacro macro shown next, the application-level events are enabled.
运行初始子程序，
Public Sub App_StartMacro()
InitializeEvents
End Sub

兰州人 · 发表于 2007-12-6 21:38:00

P89
Checking for Existing Layers检查已经存的图层。
Public Sub CheckForLayerByIteration()
  Dim objLayer As AcadLayer
  Dim strLayerName As String
  strLayername = InputBox("Enter a Layer name to search for: ")
  If "" = strLayername Then Exit Sub ' exit if no name entered
  For Each objLayer In ThisDrawing.Layers ' iterate layers
If 0 = StrComp(objLayer.name, strLayername, vbTextCompare) Then
   MsgBox "Layer '" & strLayername & "' exists"
   Exit Sub ' exit after finding layer
End If
  Next objLayer
  MsgBox "Layer '" & strLayername & "' does not exist"
End Sub

兰州人 · 发表于 2007-12-6 21:47:00

P93页
The ActiveLayer property is a member of the Document object. To make a specific layer
active, assign the Layer object to the ActiveLayer.
激活图层示例
Public Sub ChangeEntityLayer()
  On Error Resume Next ' handle exceptions inline
  Dim objEntity As AcadEntity
  Dim varPick As Variant
  Dim strLayerName As String
  Dim objLayer As AcadLayer
  ThisDrawing.Utility.GetEntity objEntity, varPick, "Select an entity"
  If objEntity Is Nothing Then
   MsgBox "No entity was selected"
   Exit Sub ' exit if no entity picked
  End If
  strLayerName = InputBox("Enter a new Layer name: ")
  If "" = strLayerName Then Exit Sub ' exit if no name entered
  Set objLayer = ThisDrawing.Layers(strLayerName)
  If objLayer Is Nothing Then
MsgBox "Layer was not recognized"
Exit Sub ' exit if layer not found
  End If
  objEntity.Layer = strLayerName ' else change entity layer
End Sub