一个填充刷子（可以刷图块中的填充）

marting · 发表于 2017-7-29 14:53:48

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

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

×

本帖最后由 marting 于 2017-7-29 21:45 编辑

下面代码可以把图中所有目标样式（包括图块中）刷成源样式。

(defun c:HatchMatchALL ( / block class doc e1 e2 ent obj pat scl ss to x)
(defun hatch-src->to (pat to / ss obj ent)
(if (setq ss (ssget "x" (list (cons 0 "HATCH") (cons 2 pat))))
(progn
(repeat (setq x (sslength ss))
(setq
obj (vlax-ename->vla-object (ssname ss (setq x (- x 1))))
)
(vla-setPattern obj acHatchPatternTypePreDefined to)
(vla-put-PatternScale obj scl)
)
)
) ; (alert "Hatches changed in current view")
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for block (vla-get-blocks doc)
(if (not (wcmatch (strcase (vla-get-name block) t) "*_space*"))
(vlax-for block (vla-get-blocks doc)
(vlax-for ent block
(if (and (= "AcDbHatch" (vla-get-objectname ent))
(= pat (vla-get-PatternName ent))
)
(progn (vla-setPattern ent acHatchPatternTypePreDefined to)
(vla-put-PatternScale ent scl)
)
)
)
)
)
)
(vla-regen doc acactiveviewport) ; (alert "Hatches changed in blocks")
(princ)
)
(if (and (setq e1 (car (entsel "\n拾取一个源填充<退出>:")))
(setq class
(vla-get-objectname (setq e1 (vlax-ename->vla-object e1)))
)
(= class "AcDbHatch")
(setq e2 (car (nentsel "\n拾取修改的填充样式<退出>:")))
(setq class
(vla-get-objectname (setq e2 (vlax-ename->vla-object e2)))
)
(= class "AcDbHatch")
)
(progn (setq to (vla-get-patternname e1)
scl (vla-get-patternscale e1)
pat (vla-get-patternname e2)
)
(hatch-src->to pat to)
)
)
(princ)
)

(defun c:HatchMatchALL ( / block class doc e1 e2 ent obj pat scl ss to x) 
  (defun hatch-src->to (pat to / ss obj ent) 
    (if        (setq ss (ssget "x" (list (cons 0 "HATCH") (cons 2 pat)))) 
      (progn 
        (repeat        (setq x (sslength ss)) 
          (setq 
            obj        (vlax-ename->vla-object (ssname ss (setq x (- x 1)))) 
          ) 
          (vla-setPattern obj acHatchPatternTypePreDefined to) 
          (vla-put-PatternScale obj scl) 
        ) 
      ) 
    )                                        ;  (alert "Hatches changed in current view") 
    (setq doc (vla-get-activedocument (vlax-get-acad-object))) 
    (vlax-for block (vla-get-blocks doc) 
      (if (not (wcmatch (strcase (vla-get-name block) t) "*_space*")) 
        (vlax-for block        (vla-get-blocks doc) 
          (vlax-for ent        block 
            (if        (and (= "AcDbHatch" (vla-get-objectname ent)) 
                     (= pat (vla-get-PatternName ent)) 
                ) 
              (progn (vla-setPattern ent acHatchPatternTypePreDefined to) 
                     (vla-put-PatternScale ent scl) 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
    (vla-regen doc acactiveviewport)        ;  (alert "Hatches changed in blocks") 
    (princ) 
  ) 
  (if (and (setq e1 (car (entsel "\n拾取一个源填充<退出>:"))) 
           (setq class 
                  (vla-get-objectname (setq e1 (vlax-ename->vla-object e1))) 
           ) 
           (= class "AcDbHatch") 
           (setq e2 (car (nentsel "\n拾取修改的填充样式<退出>:"))) 
           (setq class 
                  (vla-get-objectname (setq e2 (vlax-ename->vla-object e2))) 
           ) 
           (= class "AcDbHatch") 
      ) 
    (progn (setq to (vla-get-patternname e1) 
                 scl (vla-get-patternscale e1) 
                 pat  (vla-get-patternname e2) 
           ) 
           (hatch-src->to pat to) 
    ) 
  ) 
  (princ) 
)

sh_h · 发表于 2017-7-29 16:05:13

谢谢大师的分享！！！

st788796 · 发表于 2017-7-29 19:37:44

本帖最后由 st788796 于 2017-7-29 19:41 编辑

EvaluateHatch即可不必regen

marting · 发表于 2017-7-29 20:07:42

st788796 发表于 2017-7-29 19:37

主要是有INSERT里面的HATCH

xiaoq5672010 · 发表于 2017-7-29 21:34:44

不能刷到块内啊！

marting · 发表于 2017-7-29 21:37:59

xiaoq5672010 发表于 2017-7-29 21:34

可以的，试验过了。

他不是刷块内，而是选一个不是块的，普通的填充样式，确定要修改的样式，然后全图所有这个样式都修改成源填充。

xiaoq5672010 · 发表于 2017-7-29 21:46:08

会用了，如果可以直接刷到块就更屌了

marting · 发表于 2017-7-29 21:46:32

xiaoq5672010 发表于 2017-7-29 21:34

修改了下代码，可以直接选块内填充作为目标了，重新拷贝回去试试。

sicky111 · 发表于 2017-7-31 00:08:55

这个很牛。

bingshuier · 发表于 2017-7-31 09:15:48

学习学习一下~

ming1789 · 发表于 2017-10-11 00:03:35

感謝分享

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

[每日一码] 一个填充刷子（可以刷图块中的填充）

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

评分