摘要：AutoCAD R12版新增加了BHATCH命令来补充和加强HATCH命令功能。
关键词：AutoCAD R12 命令 应用
Auto
CAD
中填充阴影线图案(PAT文件)是一项十分有用的功能，在各种图形中都可能用到。我们在开发工程地质CAD
软件
时，经常要在图面上的指定区域内填充岩性花纹图案，而且填充区域不规则。在AutoCAD
低版本中,填充花纹命令仅有一条HATCH，使用HATCH时，需选择围成闭合区域的有关实体，若实体选择不全则会使填充出现混乱，特别是当填充区域由若干线、弧、园等实体交叉组合而成时，就要沿闭合区域的各点绘制一条PLINE线，然后以这条线作为填充边界线，在填充完成以后还要将这条线删除，比较麻烦。Auto
CADCAD
R12的使用说明书，通过简单的练习就可以掌握。本文想就如何在AUTO LSP中调用这两个命令进行编程的问题做一简单介绍。BHATCH和BPOLY命令不同于一般的Auto
CAD
命令，它们是用ADS应用程序开发的，如果想在图形编辑状态下或在AUTO LISP中使用这两个命令, 就要在AutoCAD
初始化时加载名为ACAD
APP的ADS程序，方法是在当前搜索路径上是否有ACAD
.ADS文件，这是一个纯文本的ASCII码文件，在这个文件中如有一行为ACAD
APP，那么在进入ACAD
图形时自动加载ACAD
APP，在AutoCAD
的Command:提示符下调用AUTO LISP函数(ADS)，将得到当前已加载的全部ADS应用程序的信息。如已加载ACAD
APP，在“Command:”就可以使用BPOLY和BHATCH。在AUTO LISP语言中，不能像调用一般命令那样用(COMMAND “命令”)来调用BPOLY和BHATCH，而是用(C：BPOLY 点)、(C：BHATCH 点)来调用，执行(C：BHATCH 点)之前要通过SETVAR对几个系统变量进行设置，HPANG是图案填充角度，HPNAME是图案填充名称，HPSCALE是图案填充比例系数。以下是一个简单的填充花纹图案的LISP程序:
程序1清单：
(setq yf$ (getstring (strcat "花纹代号: "))) ;输入花纹代号
(setq bl (getreal "n比例
