第6章 交互与编辑对象 CAD二次开发课件

Visual LISP具有以下特性： 1）在可视化的开发环境下编写、调试； 2）经编译后，提高了运行性能和保密性； 3）LISP代码通过AutoCAD 的Object ARX接口，提高
运行速度； 4）本质上是一个被建立并装载的ObjectARX应用程
序，因而可在AutoCAD外部装载和更新。
基于 VBA 的开发技术
CAD的二次开发适具有哪些基本要素？
把用户的设计思想转化为特定的新功能需要以下基 本要素，这些基本要素构成了CAD软件二次开发 平台的基本结构： （1）通用CAD软件－管理层； （2）编程开发环境－开发层； （3）应用程序编程接口（API）－支持层； （4）开发者的设计思想－知识层。
CAD的二次开发适具有哪些基本要素？
AutoLISP优点：
1）编程简洁，便于调试；2）直接针对AutoCAD， 易于交互；3）解释执行，效果明显。 Autolisp 缺点：1）功能单一；2）解释执行速度慢；3）缺 乏很好的保护机制；4）不能直接访问硬件设备；
5)）调试不方便。
Visual LISP
Visual LISP是一个可视化的LISP语言开发环境， AutoCAD从R14版开始支持Visual LISP开发工具，它 是AutoLISP语言的扩展。
其根本目的是提高设计制造质量，缩短产品的生 产周期，充分发挥通用CAD 软件的价值。
CAD的二次开发具有哪些特点？
采用二次开发主要基于以下一些优势： （1）无需从底层开始设计开发； （2）针对用户特定需求，实用性强； （3）效费比高。
CAD的二次开发适用于哪些场合？
主要应用于以下两个场合： （1）实现软件专业性的场合； （2）开发与其它CAD软件的接口。
根据CAD软件应用开发接口的开放程度，一般 可将其二次开发分为非程序以及程序的二次开发 两个方面。

(工具-选项-编辑器-要求变量声明) 作用域：过程级、模块级（private）、全局（public） 数据类型 ：弱类型
4）常量 系统常量 vbOK AcadCircle 自定义 Const PI = 3.14159265358979
5）运算 算术：+ - * / \ mod ^ 连接字符串：+ & 关系：> >= < <= = <> 逻辑：Not And Or Xor
3）保存图形 Sub Ch3_SaveActiveDrawing()
' Save the active drawing under the current name
ThisDrawing.Save ' Save the active drawing under a new name ThisDrawing.SaveAs "MyDrawing.dwg" End Sub
3 窗体
例 1）属性 2）方法 3）事件
4 控件
内部控件 ActiveX控件 可插入对象
5 ActiveX部件的使用
1） 添加引用 工程——引用——AutoCAD2004类型库
2） 声明对象变量 Dim acadApp As AcadApplication
3） 将对象引用赋予变量 Set acadApp = CreateObject("AutoCAD.Application") Set acadApp = GetObject (,
6）数组 Dim intCounter(9) As Integer Dim intSums(3 to 10) as Integer
7）控制结构 判断结构 条件 if dtm < Now then dtm = Now

梁晓冬
培训目标
AutoCAD
培训内容主要是

Raptor
ObjectARX基础知识 如何使用 ObjectARX 如何在以后的实际工作中独立的获取相关资源和帮助
不是

如何使用 C++ 对所有的ObjectARX API做完整的讲述
© 2008 Autodesk
4
Autodesk 系列产品开发培训教程
如何得到ObjectARX
AutoCAD
Raptor
SDK(
Software Development Kits)
免费下载

Autodesk 网站

/objectarx

ADN 网站，检索ObjectARX


13
AutoCAD 的API和IDE
AutoCAD

API
ObjectARX
COM
Raptor
Automation (VB, Java, Delphi, etc.)
AutoLISP
.NET
托管 API

IDE
Visual
Visual
LISP
Basic, Applications Edition (VBA)
16
AutoCAD API 性能比较
S.0.58 API Performance
100.00 90.00 80.00 70.00
Seconds
60.00 50.00 40.00 30.00 20.00 10.00 0.00
Total Create 1000 2dPolylines Add XData to 1000 Entities Update 1000 Circles Create 1000 lines

4．(NAMED OBJDICT)
返回当前图形的命名对象词典的图元名，当前图形的命名对象词典是所有
非图形对象的来源(root)。
5．(HANDENT HANDLE)
该函数根据一个实体的句柄返回它的实体名。
☆☆ 第6章实体和设备访问函数
2
第6章实体和设备访问函数
6.1 基本概念 1．实体 一个图形总是由若干基础图元 (如圆、圆弧、直线等)所组成。 实体(Entity)是AutoCAD预先 定义的图元，所谓一个实体就 是在AutoCAD下用一个简单命 令执行后生成的图形单元。 AutoCAD常用实体见表6-1。
实体类型名 POINT LINE CIRCLE ARC TRACE SOLID TEXT SHAPE 3DLINE 3DFACE DIMENSION POLYLINE INSERT
体不存在，则返回NIL。 例如： (SSDEL el ss) ；返回删去<实体名el>所指实体的选择集
☆☆ 第6章实体和设备访问函数
14
第6章实体和设备访问函数
6.3 实体名操作函数
1．(ENTNEXT <实体名>)
该函数的功能是获取图形数据库中紧跟<实体名>之后的第一个没有被删除
的实体名，并返回此实体名；否则，返回NIL。
实体中文名 点 直线
圆 圆弧 轨迹 实心体 正文 形 三维直线 三维平面 尺寸标注 多段线
插入块
☆☆ 第6章实体和设备访问函数
3
第6章实体和设备访问函数
6.1 基本概念 2．实体名
实体名(ENTITY NAME)是指图形中每一个实体(或图元)所对 应的名字。它只是一个指针(Pointer)，是AutoLISP的数据类型 之一。用这个指针可以找到该实体在图形数据库中的记录及其在