|
(setvar "hpname" yf$) ;设置填充花纹为yf$ (while pt ;PT为真时执行循环体内程序,否则退出 (c:bhatch pt) (setq pt (getpoint "\n选择区域内任意一点:")) ;输入区域内任意一点坐标继续填充 );while pt 用程序1填充花纹时，选定点周围不能形成一个闭和区域时，除未填充外也不显示任何信息，因此需要增加一个判断，用程序2来实现。 程序2清单： (setq yf$ (getstring (strcat "花纹代号: "))) ;输入花纹代号 (setq bl (getreal "\n比例<1>:")) ;输入比例 (if (= bl nil) (setq bl 1.0)) ;比例约定值为1 (setq ang (getreal "\n角度<0>:")) ;输入角度 (if (= ang nil) (setq ang 0.0)) ;角度约定值为0 (setq pt (getpoint "\n选择区域内任意一点:")) ;输入区域内任意一点坐标 (while pt ;PT为真时执行循环体内程序,否则退出 (setq e (c:bpoly pt)) ;得到PT点所在的边界线, (if e ;如边界线存在就填充,否则不填充 (progn (command "hatch" yf$ bl ang e "") ;填充花纹 (command "erase" e "") ;删除边界线 (princ "\n填充完毕") ;打印填充完毕 );progn (princ "\n边界线不存在,不能填充") );if (setq pt (getpoint "\n选择区域内任意一点:")) ;输入区域内任意一点坐标继续填充 );while pt 为了更加方便实用，可以编制花纹图案的图标菜单，当提示输入花纹图案时，激活图标菜单。我们在实际运用时，从BPOLY返回的边界实体的各点坐标中计算出一个范围，该范围内的文本实体同时选中，使这些文本避开阴影线图案。 以上两个小程序所实现的功能与BPOLY和BHATCH相同，其实际意义不在于此，而是想通过以上介绍，能够将其应用到解决更为复杂的情况上，例如我们在地质开发中，使用上述方法解决了复杂的不规则区域自动填充多种花纹图案的程序，编写了对花纹图案的编辑命令，即对已经绘制到图形中的花纹进行编辑修改(篇幅所限源程序不列出) 。这里仅简介使用方法,在运行本程序之前，所编辑花纹的区域已经存在。 在Command提示符下用LOAD 加载本程序，计算机提示： I.选目标 T.改花纹代号 A.比例角度 C.改颜色 P.改边界 X.结束<X>: 选项I: 选定要编辑的花纹图案，只需用鼠标点取花纹图案上的一点即可; 选项T: 修改花纹图案的代号，输入新的花纹代号; 选项A: 修改花纹图案的比例角度，输入新的比例和角度; 选项C: 修改花纹图案的颜色，输入新的颜色号; 选项P: 是修改花纹图案的边界线，提示选择欲修改的边界线，然后是一个类似PEDIT的多义线顶点编辑命令，可将顶点位置移动或者删除，待新的边界线修改完成以后，图面上的花纹图案立即按新的边界更新。需注意的一点是在修改边界线之前选择花纹图案实体时，一定要使选择点位于新的边界线之内，否则图案将填充在新边界线之外。 以前绘制到图形中的花纹图案，如果发现代号、角度、比例、颜色、边界线等不满意时，就要将其删除再重新绘制，而且还不能保证重新绘制的花纹图案完全正确，使用本程序就可以随心所欲地非常方便地对花纹进行编辑修改，直到满意为止。
在绘制工程地质剖面图时，岩层产状在剖面拐点处的视倾角将发生变化，填充花纹时在拐点两侧应该使用不同的视倾角，而且在拐点处花纹应该连结正确。我们使用了以上两个命令编写了一个LISP程序，比较好的解决了这个问题，绘制的图形如上图所示。绘制褶皱构造的地质剖面图，也可使用本程序。 | 
