余国海：在管道支吊架CAD中采用人工智能技术 ·39· 数据。 (4)材料框架构造。材料框架均以部件型号为框架名。 (5)图块框架的构造。以图块名称为框架名。 (6)图形框架的构造。 由于篇幅限制，实例从略。 4 知识库的建立 凡属知识库，都须有维护工具，对知识库进行删除、增加和修改。知识库能随着技术 的进步，不断更新。在新建知识库时，由于量大（例如吊架ECAD的知识库有近3000条记 录)，若采用维护工具，逐条记录用交互方式写人，则其效率甚低。 TURBO PROLOG语言是一种编译型语言，其外部数据库采用二进制文件，不能用正 文编辑工具直接编写。为提高效率，除维护工具外，还专门编写了一个转换程序。先用正 文编辑工具编辑知识，再用转换程序将其转换为二进制文件，效率甚高。转换程序比较简 单，先读人一条正文记录，再将其以二进制形式插入库文件，在插入的同时，将关键字插 人B十树。接着处理下一条记录，直到全部处理完毕。 须注意的是，B+树每条记当的关键字只有1个，而框架记录的关键字却有2个。因此 须将3个关键字合并为1个后，再将其插入B十树。 5知识库的搜索 由于TURBO PROLOG的外部数据库采用B+树索引，搜索速度很快。须注意的是关 键字的合并要与建库时保持一致。 5.1搜索过程 首先按指定的框架名、槽名和侧面名进行搜索。如未成功，将槽名换为default后，再 行搜索，提取隐含值，如还未成功，再将槽名换为if needed,进行最后一次搜索，提取谓词 名，并调用该谓词求值。如不成功，则宣布失败。在每次搜素时，先将关键字合并。关键 字长定义为18，分别取框架名、槽名和侧面名的前6个字符组成关键字。 5.2搜索谓词的说明和子句 PREDICATES fgetdraw-fdi(FRAME,SLOT,FACET,VALLIST)/*搜索绘图框架的谓词说明*/ fgetdraw(string,string,string,VALLIST)/*搜索绘图框架的子谓词说明*/ CLAUSES fgetdraw一fdi(FRAME,SLOT,FACET,VALLIST):按框架名、槽名和侧面名进行搜索 fgetdraw (FRAME,SLOT,FACET,VALLIST),!. fgetdraw一fdi(FRAME,一，FACET,VALLIST):按框架名，default和侧面名进行搜索 fgetdraw (FRAME,default,FACET,VALLIST),!. fgetdraw-一fdi(FRAME,一，FACET,VALLIST):按框架名，f-needed和侧面名进行余国海 : 在管道 支吊架 C A D 中采用人工智能技术 数据 。 (4 ) 材料框架构造 。 材料框架均 以部件型 号为框架名 。 (5 ) 图块框架的构造 。 以图块名称为框架 名 。 ( 6) 图形框架的构造 。 由于 篇幅 限制 , 实例从略 。 4 知 识库的建立 凡属知识库 , 都须有维 护工具 , 对知识库进行 删除 、 增加 和修改 。 知识库能随着 技术 的进 步 , 不 断更新 。 在 新建知识库时 , 由于量 大 ( 例如吊架 E C A D 的知识库有近 3 0 0 0 条记 录 ) , 若采用维 护工具 , 逐 条记录用交互方式写人 , 则其效率甚低 。 T U R B O P RO L (〕G 语言是一种编译型 语言 , 其外部数据库采用 二进制文件 , 不 能用正 文编辑工具直接编写 。 为提高效率 , 除维护工 具外 , 还专门编写 了一个转换程 序 。 先用正 文编 辑工 具编辑知识 , 再用转换程序将其转换为二 进制文 件 , 效率甚高 。 转换 程序 比较简 单 , 先读人一条正文 记录 , 再将其以二进 制形 式插人库文 件 , 在插 人的同时 , 将关键字插 人 B + 树 。 接着处理下 一条记录 , 直到全部处理完毕 。 须 注意 的是 , B 十 树 每条记当的关键字只有 1 个 , 而框架记 录的关键字却有 2 个 。 因此 须将 3 个关键字合并为 1 个后 , 再将其插人 B + 树 。 5 知识库的搜索 由于 T U R B O P R O L (叉子 的外 部数据库采用 B + 树索引 , 搜索速度很快 。 须注意的是关 键字的合并要 与建库时保持一致 。 5 . 1 搜索过程 首先按指定的框架名 、 槽名和 侧面 名进行搜索 。 如未成功 , 将槽名换为 d ef au h 后 , 再 行搜索 , 提取 隐含值 , 如还未成功 , 再将槽名换为 if en ed ed , 进行最后 一次搜索 , 提取谓词 名 , 并调用该谓词求值 。 如不成功 , 则宣布失败 。 在每次搜索时 , 先将关键字合并 。 关键 字长 定义 为 18 , 分别取框架名 、 槽名和 侧面名的前 6 个字符组成关键字 。 5 . 2 搜索谓词 的说明和子句 P R E D IC A T E S f g e t d r a w 一 f a i ( F R A M E , s L O T , F A e E T , V A L L I S T ) / , 搜索绘图框架的谓词说 明 ` / f g e t d r a w ( s t r i n g , s t r i n g , s t r i n g , V A L L IS T ) ) / ` 搜索绘 图框架的子谓词说明 , / C L A U S E S f g e t a r a w 一 f a i ( F R A M E , s L O T , F A C E T , V A L L I S T ) : 按框架名 、 槽名和 侧面名进行搜索 f g e t d r a w ( F R A M E , S L O T , F A C E T , V A L L IS T ) , ! . f g e t d r a w 一 f d i ( F R A M E , 一 , F A e E T , v A L L Is T ) : 按 框架名 , d e f a u l t 和侧面 名进行搜索 f g e t d r a w ( F R A M E , d e f a u l t , F A C E T , V A L L IS T ) , ! . f g e t d r a w 一于d i ( F R A M E , 一 , F A C E T , V A L L IS T ) : 按框架名 , i f 一 n e e d e d 和 侧面名进行