CAD二次开发技术课件(一二).ppt

§4.2 AutoLISP的图形数据库 向选择集中加入实体： (ssadd 实体名 选择集) 将指定的图元加入到选择集。如果调用该函数时无参数，将创建一个空选择集；如果只提供图元名，将创建一个仅含该图元的选择集。 从选择集中删除实体： (ssdel 实体名 选择集) 选择集中包含的实体数： (sslength 选择集) 二、选择集操作函数（2） §4.2 AutoLISP的图形数据库 选择集中的第n个实体名： (ssname 选择集 n) 返回选择集中由序号指定的那个实体名。选择集内第一个元素的序号为零。 测试实体是否在选择集中： (ssmemb 实体名 选择集) 二、选择集操作函数（3） §4.2 AutoLISP的图形数据库 三、实体名操作函数 (entnext 实体名 ) 获取图形数据库第一个实体的实体名或指定实体名的下一个实体的名字。 (entlast) 获取图形数据库最后一个加入的主实体的实体名，即最新生成的实体的名字。 (entsel [提示]) 用点选的方式选择单个实体，并返回一个表，表的第一个元素是所选择的实体的实体名，第二个元素是用于选择实体的点坐标。 §4.2 AutoLISP的图形数据库 四、实体数据函数（1） 获得实体定义数据函数：(entget 实体名) 该函数的功能是从当前图形数据库中获得＜实体名＞的实体定义。其参数必须是实体名，因为它是一个指针，只有它才能访问图形数据库。 函数返回一个实体数据表，它是AutoLISP的连接表，表中的每一个子表分别定义实体数据的各个部分。 如某圆心坐标为（10，10）半径为50的圆的实体数据表： ( (-1 . 图元名: 7ef75040) (0 . CIRCLE) (330 . 图元名: 7ef5dcf8) (5 . 100) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbCircle) (10 10.0 10.0 0.0) (40 . 50.0) (210 0.0 0.0 1.0) ) “-1”。开头的表示实体（图元）名。 “0”。开头的表示实体类型。 “8”。开头的表示图层。 “10”。开头的表示圆心坐标。 “40”。开头的表示半径。 §4.2 AutoLISP的图形数据库 四、实体数据函数（2） 修改实体定义数据 利用AutoLISP有关表处理的函数可以修改实体数据表。 用(assoc 关键字 连接表 )函数提取实体定义数据 连接表是以点对或子表为元素组成的表。每个点对和子表的第一个元素称为关键字。函数assoc搜索＜连接表＞，以找到此表中的关键字，并提取包含关键字的子表，并返回该子表；若未找到关键字，则返回nil。 用(subst 新项 旧项 表 ）函数替换实体定义数据 函数subst 从＜表＞搜索＜旧项＞，将表中的每一个＜旧项＞用＜新项＞替换，并返回替换后的表；若未在＜表＞中找到＜旧项＞，则返回没有更改的表 更新实体数据表函数：(entmod 实体数据表) 接受修改后的实体数据表，更新实体在数据库中的定义，同时又更新它在屏幕上的显示 §4.2 AutoLISP的图形数据库 四、实体数据函数（3） 例：修改圆的半径 如某圆心坐标为（10，10）半径为50的圆的实体数据表： ( (-1 . 图元名: 7ef75040) (0 . CIRCLE) (330 . 图元名: 7ef5dcf8) (5 . 100) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbCircle) (10 10.0 10.0 0.0) (40 . 50.0) (210 0.0 0.0 1.0)) 用DCL语言定义对话框 用AutoLISP驱动对话框 第5章 AutoLISP 对话框 设计技术 §5.1 概述 对话框是一种边界固定的窗口，也是一种流行的人机交互界面。运用对话框可以方便而直观地实现程序设计时的数据传输，所以当今几乎所有的软件都要用到对话框界面与用户交流。 AutoCAD软件包从早期的版本就提供了各种对话框以方便用户使用，但是只有从AutoCADR12以后才提供可编程对话框开发功能，即从R12以后，用户进行二次开发时可以在自己开发的应用程序中使用对话框。 在A