关于 Hatch 的制造

st788796 · 发表于 2015-11-9 09:55:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 st788796 于 2015-11-9 09:58 编辑

Hatch 是经常用的一种实体类型，在 ObjectARX 中 AcDbHatch 的默认构造是
AcDbHatch* pHatch = new AcdbHatch();
可以看到这里没有**任何 Hatch 特殊属性，要生成显示的 Hatch 实体，还需要对这个 pHatch 进行一些列的设置，比如样式类型、角度、填充比例等等，最后不可或缺一步就是要加上“边界”(appendLoop) ，这样这个 Hatch 才有可能成功的创建。
而且，这些边界不一定是真实存在的，在命令中创建完 Hatch ，即使删掉这些边界实体，Hatch 依然可以存在。这些边界信息在 DXF 中 “边界路径数据” 可以查看边界信息，在 ObjectARX 模型中这些边界是 AcGeCurve。

通过上面信息可以知道 Entmake 如果仅用 Hatch 头信息而没有边界信息是不能制造出 Hatch 的。在不用 ARX 时可以用 ActiveX 方法制作 Hatch

RetVal = object.AddHatch(PatternType, PatternName, Associativity [, HatchObjectType])

Object ModelSpace Collection, **Space Collection, Block

要加入Hatch实体的Object，包括模型空间、图纸空间、块定义.

PatternType 图案类型，枚举类型 input-only

AcPatternType or AcGradientPatternType enum;
If the HatchObjectType enum value is acHatchObject, then use the AcPatternType enum; if the HatchObjectType enum value is AcGradientObject, then use the AcGradientPatternType enum.

PatternName 图案名称，字符串 input-only
If the HatchObjectType enum value is acHatchObject, then PatternName should contain the hatch pattern name. If the HatchObjectType enum value is acGradientObject, then PatternName should contain one of the the gradient pattern names listed in GradientName.

Associativity 关联选项，布尔值; input-only

TRUE: The hatch will be associative. FALSE: The hatch will not be associative.

HatchObjectType 填充实体类型，可选项 ; input-only
The default value is the AcHatchObjectType enum value of AcHatchObject. If the AcHatchObjectType enum value is AcGradientObject, then PatternType should be of type AcGradientPatternType, and PatternName should contain the gradient pattern name.

返回值 Hatch object
The newly created Hatch object.

说明：
The PatternType constant values are as follows:

acHatchPatternTypePredefined Selects the pattern name from those defined in the acad.pat file.

acHatchPatternTypeUserDefined Defines a pattern of lines using the current linetype.

acHatchPatternTypeCustomDefined Selects the pattern name from a PAT file other than the acad.pat file.

After the Hatch object is created, you must add the outer loop using the AppendOuterLoop method.
Hatch创建后，你必须对Hatch使用 AppendOuterLoop 方法增加外部边界
The outer loop must be closed and must be created before any inner loops can be created.
外部边界必须在内部环创建前创建
Inner loops are created one at a time, using the AppendInnerLoop method.
内部环使用 AppendInnerLoop 一次创建

WARNING! Once the Hatch object has been created, you must append the outer loop to the Hatch object for it to become a valid AutoCAD object.

警告！Hatch 一旦创建，你必须增加外部环，以使 Hatch 成为 AutoCAD 有效实体

If you attempt any operation other than calling the AppendOuterLoop method, AutoCAD will enter an unpredictable state.

如果你在使用 AppendOuterLoop 方法之前试图其它任何操作，AutoCAD将进入不可预测状态

待续

st788796 · 发表于 2015-11-9 10:26:19

一个例子

(vl-load-com)
(defun c:mkhatch (/ ss sl e lst space hatch)
(princ "\n选择边界...")
(if
(setq
ss (ssget
'((0 . "line,arc,circle,ellipse,lwpolyline,spline,region"))
);_选择边界
)
(progn
(setq sl (sslength ss))
(while (setq e (ssname ss (setq sl (1- sl))))
(setq lst (cons (vlax-ename->vla-object e) lst))
);_提取构造边界的 Object
(setq space (if (zerop (getvar "tilemode"))
(vla-get-**space
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
)
);_获取当前空间
(setq hatch (vla-addhatch
space
acHatchPatternTypePredefined
"line"
:vlax-true
)
);_构造一个 Hatch Object
(vla-appendouterloop
hatch
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbobject
(cons 0 (1- (length lst)))
)
lst
)
);_增加外环
(vla-put-patternangle hatch (* pi 0.25));_设置角度
(vla-put-patternscale hatch 2.0);_设置填充比例
(vla-Evaluate hatch);_重新计算填充
)
)
(princ)
)

(vl-load-com) 
(defun c:mkhatch (/ ss sl e lst space hatch) 
  (princ "\n选择边界...") 
  (if 
    (setq 
      ss (ssget 
           '((0 . "line,arc,circle,ellipse,lwpolyline,spline,region")) 
         );_选择边界 
    ) 
     (progn 
       (setq sl (sslength ss)) 
       (while (setq e (ssname ss (setq sl (1- sl)))) 
         (setq lst (cons (vlax-ename->vla-object e) lst)) 
       );_提取构造边界的 Object 
       (setq space (if (zerop (getvar "tilemode")) 
                     (vla-get-**space 
                       (vla-get-activedocument (vlax-get-acad-object)) 
                     ) 
                     (vla-get-modelspace 
                       (vla-get-activedocument (vlax-get-acad-object)) 
                     ) 
                   ) 
       );_获取当前空间 
       (setq hatch (vla-addhatch 
                     space 
                     acHatchPatternTypePredefined 
                     "line" 
                     :vlax-true 
                   ) 
       );_构造一个 Hatch Object 
       (vla-appendouterloop 
         hatch 
         (vlax-safearray-fill 
           (vlax-make-safearray 
             vlax-vbobject 
             (cons 0 (1- (length lst))) 
           ) 
           lst 
         ) 
       );_增加外环 
       (vla-put-patternangle hatch (* pi 0.25));_设置角度 
       (vla-put-patternscale hatch 2.0);_设置填充比例 
       (vla-Evaluate hatch);_重新计算填充 
     ) 
  ) 
  (princ) 
)

HLCAD · 发表于 2015-11-11 07:56:12

感谢楼主提供Lisp制造Hatch的方法。

q3_2006 · 发表于 2016-9-11 11:48:44

st788796 发表于 2015-11-9 10:26
一个例子

怎么我用不了...选择集只有一个图元没问题...多个就这个提示选择对象:
; 错误: Automation 错误。输入无效
命令:
已删除图案填充边界关联性

q3_2006 · 发表于 2016-9-11 12:17:42

st788796 发表于 2015-11-9 10:26
一个例子

看了说明..只能一个个加....

newer · 发表于 2016-9-11 12:26:42

q3_2006 发表于 2016-9-11 12:17
看了说明..只能一个个加....

只能一个一个加什么？

q3_2006 · 发表于 2016-9-11 13:08:14

newer 发表于 2016-9-11 12:26
只能一个一个加什么？

版主来一个一次搞定的...上面代码我真用不了...

newer · 发表于 2016-9-11 13:54:27

q3_2006 发表于 2016-9-11 13:08
版主来一个一次搞定的...上面代码我真用不了...

下面代码通过你拾取的一些点做边界创建一个关联的填充。

(defun c:tt (/ acadObj doc patternName
patternType bAssociativity modelSpace
hatchObj center radius startAngle endAngle
arc line outerLoop pt pt2
ptlist tmp myobj a i
)
;;本例子在模型空间创建一个关联HATCH，并添加一个外部LOOP
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
;; 定义HATCH数据
(setq patternName
"ANSI31"
patternType
0
bAssociativity :vlax-true
)
;; 创建关联 Hatch object
(setq modelSpace (vla-get-ModelSpace doc))
(setq hatchObj (vla-AddHatch
modelSpace patternType
patternName bAssociativity
acHatchObject
)
)
;;;边界第一点
(setq pt (getpoint "\nSpecify start point: "))
(setq ptlist (cons pt ptlist))
(setq i 0)
(while (setq pt (getpoint "\nSpecify next point: " pt))
(setq i (+ i 1))
(setq ptlist (cons pt ptlist))
)
(setq ptlist (cons (nth i ptlist) ptlist))
(setq ptlist (apply 'append ptlist))
;; 给HATCH添加外部LOOP
;; ARC和LINE用于添加封闭的LOOP
(setq
tmp (vlax-make-safearray
vlax-vbDouble
(cons 0 (- (length ptlist) 1))
)
)
(vlax-safearray-fill tmp ptlist)
(setq poly (vla-AddPolyline modelSpace tmp))
(setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 0)))
(vlax-safearray-put-element outerLoop 0 poly)
;; Append the outer loop to the hatch object, and display the hatch
(vla-AppendOuterLoop hatchObj outerLoop)
(vla-Evaluate hatchObj)
(princ)
)

(defun c:tt (/                acadObj           doc              patternName 
             patternType           bAssociativity         modelSpace 
             hatchObj        center           radius     startAngle endAngle 
             arc        line           outerLoop  pt         pt2 
             ptlist        tmp           myobj      a                 i 
            ) 
  ;;本例子在模型空间创建一个关联HATCH，并添加一个外部LOOP 
  (setq acadObj (vlax-get-acad-object)) 
  (setq doc (vla-get-ActiveDocument acadObj)) 
 
  ;; 定义HATCH数据 
  (setq        patternName 
         "ANSI31" 
        patternType 
         0 
        bAssociativity :vlax-true 
  ) 
 
  ;; 创建关联 Hatch object 
  (setq modelSpace (vla-get-ModelSpace doc)) 
  (setq        hatchObj (vla-AddHatch 
                   modelSpace             patternType 
                   patternName             bAssociativity 
                   acHatchObject 
                  ) 
  ) 
 
;;;边界第一点 
  (setq pt (getpoint "\nSpecify start point: ")) 
  (setq ptlist (cons pt ptlist)) 
  (setq i 0) 
  (while (setq pt (getpoint "\nSpecify next point: " pt)) 
    (setq i (+ i 1)) 
    (setq ptlist (cons pt ptlist)) 
 
  ) 
  (setq ptlist (cons (nth i ptlist) ptlist)) 
  (setq ptlist (apply 'append ptlist)) 
 
  ;; 给HATCH添加外部LOOP 
  ;; ARC和LINE用于添加封闭的LOOP 
 
  (setq 
    tmp        (vlax-make-safearray 
          vlax-vbDouble 
          (cons 0 (- (length ptlist) 1)) 
        ) 
  ) 
  (vlax-safearray-fill tmp ptlist) 
 
  (setq poly (vla-AddPolyline modelSpace tmp)) 
 
  (setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 0))) 
  (vlax-safearray-put-element outerLoop 0 poly) 
 
  ;; Append the outer loop to the hatch object, and display the hatch 
  (vla-AppendOuterLoop hatchObj outerLoop) 
  (vla-Evaluate hatchObj) 
  (princ) 
)

newer · 发表于 2016-9-11 14:14:16

q3_2006 发表于 2016-9-11 13:08
版主来一个一次搞定的...上面代码我真用不了...

下面VLISP代码在原点创建一个有内部孤岛的HATCH

游客，如果您要查看本帖隐藏内容请回复

q3_2006 · 发表于 2016-9-11 14:28:42

newer 发表于 2016-9-11 14:14
下面VLISP代码在原点创建一个有内部孤岛的HATCH
**** 本内容被作者隐藏 ****

学习了...谢谢N版...

Lisphk · 发表于 2016-9-11 14:53:02

q3_2006 发表于 2016-9-11 13:08
版主来一个一次搞定的...上面代码我真用不了...

我这有一个，用 vlax-put-property实现的，把你选择的多个封闭的多段线填充。

(defun c:tt (/ ss h)
(vl-load-com)
(if (setq ss (ssget '((0 . "LWPOLYLINE")
(-4 . "<OR")
(70 . 1)
(70 . 129)
(-4 . "OR>")
)
)
)
((lambda (space)
(vlax-for x (setq ss (vla-get-activeselectionset *AcadDoc*))
(vla-put-layer
(setq h (vla-AddHatch
space
acHatchPatternTypePredefined
"SOLID"
:vlax-true
)
)
(vla-get-layer x)
)
(vlax-invoke h 'AppendOuterLoop (list x))
(vlax-invoke h 'Evaluate)
)
(vla-delete ss)
)
(if (or (eq acmodelspace
(vla-get-activespace
(cond (*AcadDoc*)
((setq *AcadDoc* (vla-get-activedocument
(vlax-get-acad-object)
)
)
)
)
)
)
(eq :vlax-true (vla-get-mspace *AcadDoc*))
)
(vla-get-modelspace *AcadDoc*)
(vla-get-paperspace *AcadDoc*)
)
)
)
(princ)
)

(defun c:tt (/ ss h) 
  (vl-load-com) 
  (if (setq ss (ssget '((0 . "LWPOLYLINE") 
                        (-4 . "<OR") 
                        (70 . 1) 
                        (70 . 129) 
                        (-4 . "OR>") 
                       ) 
               ) 
      ) 
    ((lambda (space) 
       (vlax-for x (setq ss (vla-get-activeselectionset *AcadDoc*)) 
         (vla-put-layer 
           (setq h (vla-AddHatch 
                     space 
                     acHatchPatternTypePredefined 
                     "SOLID" 
                     :vlax-true 
                   ) 
           ) 
           (vla-get-layer x) 
         ) 
         (vlax-invoke h 'AppendOuterLoop (list x)) 
         (vlax-invoke h 'Evaluate) 
       ) 
       (vla-delete ss) 
     ) 
      (if (or (eq acmodelspace 
                  (vla-get-activespace 
                    (cond (*AcadDoc*) 
                          ((setq *AcadDoc* (vla-get-activedocument 
                                             (vlax-get-acad-object) 
                                           ) 
                           ) 
                          ) 
                    ) 
                  ) 
              ) 
              (eq :vlax-true (vla-get-mspace *AcadDoc*)) 
          ) 
        (vla-get-modelspace *AcadDoc*) 
        (vla-get-paperspace *AcadDoc*) 
      ) 
    ) 
  ) 
  (princ) 
)

q3_2006 · 发表于 2016-9-11 17:52:26

Lisphk 发表于 2016-9-11 14:53
我这有一个，用 vlax-put-property实现的，把你选择的多个封闭的多段线填充。

学习了..今天收获不小...

yoyoho · 发表于 2016-9-12 20:08:56

学习内部孤岛的HATCH!!!!

Lispboy · 发表于 2016-9-12 20:15:58

学习下N版的代码。

mmh1 · 发表于 2016-10-5 11:17:00

学习了，不知道entmake能不能建立图形填充

账号		自动登录	找回密码
密码			立即注册

[教学] 关于 Hatch 的制造

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

评分

点评

点评

点评

点评

点评

浏览过的版块