AutoCAD R两个新增命令在编程中的应用().doc

AutoCAD R12两个新增命令在编程中的应用(1)3200字
摘要:autocad r12版新增加了bhatch命令来补充和加强hatch命令功能。
关键词:autocad r12 命令应用

autocad中填充阴影线图案(pat文件)是一项十分有用的功能,在各种图形中都可能用到。我们在开发工程地质cad软件时,经常要在图面上的指定区域内填充岩性花纹图案,而且填充区域不规则。在autocad低版本中,填充花纹命令仅有一条hatch,使用hatch时,需选择围成闭合区域的有关实体,若实体选择不全则会使填充出现混乱,特别是当填充区域由若干线、弧、园等实体交叉组合而成时,就要沿闭合区域的各点绘制一条pline线,然后以这条线作为填充边界线,在填充完成以后还要将这条线删除,比较麻烦。论文
autocad r12版新增加了bhatch命令来补充和加强hatch命令功能。bhatch命令以窗口交互方式执行,它将自动以多义线来定义边界,然后忽略全部或部份不是边界的区域,完成填充后自行删除多义线,还可以使边界内的图形和文字避开填充图案。简言之,填充时只需要用鼠标器点取闭合区域内一点就可完成填充。为了更方便地使用hatch和bhatch这两个命令,在r12版中还新增加了一条命令bpoly。使用bpoly可迅速生成一封闭曲线的边界,即通过点取封闭区域内任意一点形成本区域的边界线,根据返回的边界线可使用hatch填充花纹图案,也可使用area来计算封闭区域的面积和周长。有关这两条命令的操作,可参阅autocad r12的使用说明书,通过简单的练****就可以掌握。本文想就如何在auto lsp中调用这两个命令进行编程的问题做一简单介绍。
bhatch和bpoly命令不同于一般的autocad命令,它们是用ads应用程序开发的,如果想在图形编辑状态下或在auto lisp中使用这两个命令, 就要在autocad初始化时加载名为acadapp的ads程序,,这是一个纯文本的ascii码文件,在这个文件中如有一行为acadapp,那么在进入acad图形时自动加载acadapp,mand:提示符下调用auto lisp函数(ads),将得到当前已加载的全部ads应用程序的信息。如已加载acadapp,mand:”就可以使用bpoly和bhatch。
在auto lisp语言中,mand “命令”)来调用bpoly和bhatch,而是用(c:bpoly 点)、(c:bhatch 点)来调用,执行(c:bhatch 点)之前要通过setvar对几个系统变量进行设置,hpang是图案填充角度,hpname是图案填充名称,hpscale是图案填充比例系数。以下是一个简单的填充花纹图案的lisp程序: 论文
程序1清单:
(setq yf$ (getstring (strcat “花纹代号: “))) ;输入花纹代号
(setq bl (getreal “
比例<1>:”)) ;输入比例
(if (= bl nil) (setq bl )) ;比例约定值为1
(setq ang (getreal “
角度<0>:”)) ;输入角度
(if (= ang nil) (se