关于hatch，还有可选参数函数

夏生生

研究了一段时间hatch，有几个问题请大家指教。1、函数(bhatch pt [ss][])后面两个可选参数是什么？查遍我能搜索到的互联网没找到我能看明白的网站。
2、填充渐变色的控制组码为453、463、63、421、470，当我需要为真彩色时，63值很怪异，看不到规律。
实际由421控制，421为(+ (* BLUE 65536) (* GREEN 256) RED)，当我需要为双色时421的值第一个63后面
跟随的421值又不是真彩色，这里比较模糊。
3、如自定义类似这样的可选参数函数怎么做，可否给个小范例。

marting

下面的提供的命令，是一个填充的刷子，里面有BHATCH的可选参数的用法

1. ;;;===================================================================================
   
2. ;;;Hatch - Matches existing hatch and allows user to pick new object
   
3. ;;;===================================================================================
   
4. 
   
5. 
   
6. (defun c:mh (/ ocol olay col ent lay hat sca rot po)
   
7.   (setq ocol (getvar "cecolor"))
   
8.   (setq olay (getvar "clayer"))
   
9.   (setq oosn (getvar "osmode"))
   
10.   (setvar "osmode" 0)
    
11.   (if (setq ent (entsel "\nSelect a hatch pattern to copy."))
    
12.     (progn
    
13.       (setq ent (entget (car ent)))
    
14.       (if (= (cdr (assoc 0 ent)) "HATCH")
    
15.         (progn
    
16.           (setq lay (cdr (assoc 8 ent)))
    
17.           (setq hat (cdr (assoc 2 ent)))
    
18.           (setq sca (cdr (assoc 41 ent)))
    
19.           (setq rot (cdr (assoc 52 ent)))
    
20.           (setq rot (* rot (/ 180 pi)))
    
21.           (setq col (cdr (assoc 62 ent))) ; may return nil
    
22.           (cond
    
23.             ((or
    
24.                (= col "BYLAYER")
    
25.                (= col "BYBLOCK")
    
26.              )
    
27.               (setvar "cecolor" col)
    
28.             )
    
29.             ((= (type col) 'int)
    
30.               (setvar "cecolor" (itoa col))
    
31.             )
    
32.           )
    
33.           (command "layer" "s" lay "")
    
34.           (initget "s")                       ; this allows numbers to be entered
    
35.           (setq po (getpoint "\nSelect Internal Point or (S)elect Objects:"))
    
36.           (if (= (type po) 'list)
    
37.             (command "-bhatch" po "p" hat sca rot "")  ;;PO是点的情况下，BHATCH用法
    
38.             (if (setq po (ssget))      ; allow one choice only
    
39.               (command "-bhatch" "s" po "" "p" hat sca rot "");;PO是选择集的情况下，BHATCH用法
    
40.               (prompt "\nNothing selected.")
    
41.             )
    
42.           )
    
43.         )
    
44.         (prompt "\nSelection was not a hatch.")
    
45.       )
    
46.     )
    
47.     (prompt "\nNothing selected.")
    
48.   )
    
49.   (setvar "clayer" olay)
    
50.   (setvar "cecolor" ocol)
    
51.   (setvar "osmode" oosn)
    
52.   (princ)
    
53. )
    

;;;===================================================================================<br /> ;;;Hatch - Matches existing hatch and allows user to pick new object<br /> ;;;===================================================================================<br /> <br /> <br /> (defun c:mh (/ ocol olay col ent lay hat sca rot po)<br />   (setq ocol (getvar "cecolor"))<br />   (setq olay (getvar "clayer"))<br />   (setq oosn (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (if (setq ent (entsel "\nSelect a hatch pattern to copy."))<br />     (progn<br />       (setq ent (entget (car ent)))<br />       (if (= (cdr (assoc 0 ent)) "HATCH")<br />         (progn<br />           (setq lay (cdr (assoc 8 ent)))<br />           (setq hat (cdr (assoc 2 ent)))<br />           (setq sca (cdr (assoc 41 ent)))<br />           (setq rot (cdr (assoc 52 ent)))<br />           (setq rot (* rot (/ 180 pi)))<br />           (setq col (cdr (assoc 62 ent))) ; may return nil<br />           (cond<br />             ((or<br />                (= col "BYLAYER")<br />                (= col "BYBLOCK")<br />              )<br />               (setvar "cecolor" col)<br />             )<br />             ((= (type col) 'int)<br />               (setvar "cecolor" (itoa col))<br />             )<br />           )<br />           (command "layer" "s" lay "")<br />           (initget "s")                       ; this allows numbers to be entered<br />           (setq po (getpoint "\nSelect Internal Point or (S)elect Objects:"))<br />           (if (= (type po) 'list)<br />             (command "-bhatch" po "p" hat sca rot "")  ;;PO是点的情况下，BHATCH用法<br />             (if (setq po (ssget))      ; allow one choice only<br />               (command "-bhatch" "s" po "" "p" hat sca rot "");;PO是选择集的情况下，BHATCH用法<br />               (prompt "\nNothing selected.")<br />             )<br />           )<br />         )<br />         (prompt "\nSelection was not a hatch.")<br />       )<br />     )<br />     (prompt "\nNothing selected.")<br />   )<br />   (setvar "clayer" olay)<br />   (setvar "cecolor" ocol)<br />   (setvar "osmode" oosn)<br />   (princ)<br /> )<br />

GTJ116600

研究得真深入呀，佩服。支持高手们深入研究:lol

marting

先贴个不用可选参数的使用BHATCH的用法

1. (setq ent1 (getpoint "*** Select POINT for Hatch "))
   
2. (command "_.-bhatch" ent1 "" "")
   
3. (while (= 1 (getvar "cmdactive"))
   
4.   (command pause)
   
5. )
   
6. ;;; end while
   
7. (command "")
   

(setq ent1 (getpoint "*** Select POINT for Hatch "))<br /> (command "_.-bhatch" ent1 "" "")<br /> (while (= 1 (getvar "cmdactive"))<br />   (command pause)<br /> )<br /> ;;; end while<br /> (command "")<br />

ll_j

没有仔细研究过Hatch，不过，有种设定叫做“忽略”。
下面是2012的帮助：
HATCH

以下组码适用于图案填充和 MPolygon 图元。除此处所述的组码以外，另请参见通用图元组码。关于此表中使用的缩写和格式方面的信息，请参见本参考的格式惯例。

HATCH 组码
组码	说明
100	子类标记 (AcDbHatch)
10	标高点（在 OCS 中） DXF：X 值 = 0；APP：三维点（X 和 Y 始终等于 0，Z 表示标高）
20, 30	DXF：标高点的 Y 值和 Z 值（在 OCS 中） Y 值 = 0，Z 表示标高
210	拉伸方向（可选；默认值 = 0, 0, 1） DXF：X 值；APP：三维矢量
220, 230	DXF：拉伸方向的 Y 值和 Z 值
2	填充图案名
70	实体填充标志（实体填充 = 1；图案填充 = 0）；对于 MPolygon，为 Mpolygon 的版本
63	对于 Mpolygon，图案填充颜色为 ACI
71	关联性标志（关联 = 1；无关联 = 0）；对于 Mpolygon，为实体填充标志（有实体填充 = 1；无实体填充 = 0）
91	边界路径（环）数
多种	边界路径数据。重复代码 91 指定的次数。参见边界路径数据
75	图案填充样式： 0 = 对“奇数奇偶校验”区域进行图案填充（普通样式） 1 = 仅对最外层区域进行图案填充（“外部”样式） 2 = 对整个区域进行图案填充（“忽略”样式）
76	填充图案类型： 0 = 用户定义；1 = 预定义；2 = 自定义
52	填充图案角度（仅限图案填充）
41	填充图案比例或间距（仅限图案填充）
73	对于 Mpolygon，为边界注释标志（边界是注释边界 = 1；边界不是注释边界 = 0）
77	填充图案双向标志（仅限图案填充）： 0 = 非双向；1 = 双向
78	图案定义直线数
多种	图案直线数据。代码 78 指定的重复次数。参见图案数据
47	在相关图案填充和使用图案填充的“填充”方法创建的图案填充的填充图案计算中，用于确定执行各种相交和射线法操作的密度的像素大小。
98	种子点数
11	对于 MPolygon，为偏移矢量
99	对于 MPolygon，为退化边界路径（环）数（退化边界路径是图案填充忽略的边框）
10	种子点（在 OCS 中） DXF：X 值；APP：二维点（多个条目）
20	DXF：种子点的 Y 值（在 OCS 中）；（多个条目)
450	表示实体图案填充或渐变色；如果是实体图案填充，则剩余代码的值将被忽略，但必须存在。可选；如果代码 450 在文件中，下列代码也必须在文件中：451、452、453、460、461、462 和 470。如果代码 450 不在文件中，下列代码也必须不在文件中：451、452、453、460、461、462 和 470 0 = 实体图案填充 1 = 渐变色
451	保留零供以后使用
452	记录定义颜色的方法，仅用于对话框代码： 0 = 双色渐变色 1 = 单色渐变色
453	颜色数： 0 = 实体图案填充 2 = 渐变色
460	以弧度表示的渐变色的旋转角度（默认值 = 0, 0）
461	渐变色定义；对应于“边界图案填充”对话框“渐变色”选项卡中的“居中”选项。每个渐变色有两个定义，移动和非移动。“移动”值描述了应使用的两种定义的过渡。值 0.0 表示应仅使用非移动版本，值 1.0 表示应仅使用移动版本。
462	对话框代码使用的色调值（默认值 = 0, 0；范围从 0.0 到 1.0）。色调值是一个渐变色，用于当图案填充组码 452 设定为 1 时，控制对话框中的色调度。
463	保留供以后使用： 0 = 第一个值 1 = 第二个值
470	字符串（默认值 = 线性）

laibinwu

marting 发表于 2013-5-30 08:37
下面的提供的命令，是一个填充的刷子，里面有BHATCH的可选参数的用法

学习了:D。。。