[VBA程序]：怎么样自定义填充

yicol

怎么样自定义填充

efan2000

帮助文件中就有，参看自定义手册。

1. 
   
2.   [FONT=courier new]
   
3. 创建填充图案
   
4. 
   
5. 为 AutoCAD 开发填充图案定义需要一些知识、实践和耐心，以及一个文本编辑器。可将图案加入库文件 acad.pat 或将它单独保存在一个文件中。将图案单独保存时，文件名必须与图案名相同。例如，名为 PIT
   
6. 的图案必须保存在文件 pit.pat 中。
   
7. 不管定义保存在什么文件中，其格式都是一样的。它包括如下格式的标题行：
   
8. 
   
9. *pattern-name [, description]
   
10. 
    
11. 还包括一行或多行如下形式的说明：
    
12. 
    
13. angle, x-origin, y-origin, delta-x, delta-y [, dash-1, dash-2, ...]
    
14. 
    
15. 例如，图案 L45 用间隔为 0.5 图形单位的 45 度直线进行填充，其定义如下：
    
16. 
    
17. *L45,45 degree lines
    
18. 
    
19. 45, 0,0, 0,0.5
    
20. 
    
21. 这个简单图案指定：直线按 45 度角绘制，填充直线族中的第一条直线穿过图形原点 (0,0)，且填充直线之间的距离为 0.5 图形单位。L45 是图案的名称，这里的说明字段是图案由 HATCH 命令的“?”选项显示时的可选说明。（如果省略说明，则图案名后不能有逗号。）
    
22. 图案定义文件的每一行最多可包含 80 个字符。AutoCAD 忽略空行和分号右边的文字。
    
23.   [/FONT]
    

复制代码

SGP007

本人以为，做好自定义填充,需注意以下几点：
1、扩展名为.PAT
2、所存的文件夹必须在支持路径内（在选项中改）
3、文件名与图案名称必须一致
其实，他就是N条线组合起来的图形
过程：用如记事本新建一文本，保存为PAT格式（注意第2点，存到支持路径内的文件夹中）。以下就是具体的自定义的游戏规则：

*图案名称，图案描述（给自己看的）
角度，基点X，基点Y，X差值，Y差值，线型描述1，线型描述2，。。。。。
角度————画线的角度    基点X，基点Y————线型的有效起点（必须是有效起点，其实就是你假设的原点）    X差值，Y差值———同线型的相对点的X，Y的偏移量。    线型描述———要复杂的还要懂线型自定义，简单的就是：正数下笔实线，负数空格，零为点。不太好讲，其中基点和差值较难理解。一个例子，看懂了便知！
*A1,VVVVVVVVVVVVVVVVVVV
45,  0,0,  4.2426,4.2426,  4.2426,-4.2426
-45,  0,0,  4.2426,4.2426,  4.2426,-4.2426