AutoCAD2006VBA程序参考

兰州人

要学好AutoCAD 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文件。

 http://www.ccebook.cn/books/16.html

兰州人

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

兰州人

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

兰州人

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

10309598

先下个看看,看标题应该是个不错的东东

大菜鸟

应该是好东西，不知是不是中文的

jockeywah

书在那里？可不可以下载

lxq-333

谢谢兰州的兄弟！！！

lxq-333

谢谢兰州的兄弟！！！

sdxylijian

谢谢版主，下载保存，好东西，值得珍藏！