代码怎么改填充的种类

xj6019

    选择了几个填充以后，怎么用代码改变填充的种类呀，我经常需要把别人的图纸的填充改成SOLID，34号颜色
哪位能给段代码完成这个工作啊，谢谢！！

taoyi0727

(defun C:tt (/ dxf name obj ss)
        (if (not (tblobjname "LAYER" "34"))
                (progn
                        (foreach x (list
                                                                         '(0 . "LAYER")
                                                                         '(100 . "AcDbSymbolTableRecord")
                                                                         '(100 . "AcDbLayerTableRecord")
                                                                         '(70 . 0)
                                                                         '(2 . "34");图层名
                                                                 )
                                (if (/= x nil)
                                        (setq dxf (cons x dxf))
                                )
                        )
                        (entmake (setq dxf (reverse dxf)))
                )
        )
        (setq ss (ssget '((0 . "HATCH"))))
        (if ss
                (while (setq name (ssname ss 0))
                        (setq obj (vlax-ename->vla-object name))
                        (vla-put-Layer obj "34")
                        (vla-put-Color obj 34)
                        (setq dxf (entget name))
                        (entmod (subst '(2 . "SOLID") (assoc 2 dxf) dxf))
                        (ssdel name ss)
                )
        )
)

taoyi0727

(defun C:tt (/ dxf name ss)
        (setq ss (ssget '((0 . "HATCH"))))
        (if ss
                (while (setq name (ssname ss 0))
                        (vla-put-Color (vlax-ename->vla-object name) 34)
                        (setq dxf (entget name))
                        (entmod (subst '(2 . "SOLID") (assoc 2 dxf) dxf))
                        (ssdel name ss)
                )
        )
)

xj6019

taoyi0727 发表于 2019-12-26 20:49
(defun C:tt (/ dxf name ss)
        (setq ss (ssget '((0 . "HATCH"))))
        (if ss

非常感谢，忘了一个事，我是把34号色单独建立了一个图层，我找了个老师的代码，是把填充移动到一个图层的。麻烦在下面的代码基础上，改一下，填充移动到填充图层后，图案种类变成solid可以吗，您的代码很简洁，可以的话用您的代码改一下也行（就是移动到填充图层并变成solid）
麻烦给再修改一下，谢谢了！！
((defun htchlay (lynm )
  (or activedocument
      (setq activedocument (vlax-get-property (vlax-get-acad-object) 'activedocument))
      ); or
  (or blocks
      (setq blocks (vlax-get-property activedocument 'blocks))
      ); or
  (or layers
      (setq layers (vlax-get-property activedocument 'layers))
      ); or
  (if (not
        (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list layers lynm)))
        ); not
    (progn
      (vlax-for x blocks
        (vlax-for n x
          (if (equal "AcDbHatch" (vlax-get-property n 'objectname))
            (vl-catch-all-apply 'vlax-put-property (list n 'layer lynm))
            ); if
          ); vlax-for
        ); vlax-for
      ); progn
    ); if
  (vl-cmdf "regen")
  (princ)
  ); defun
(defun c:htc ()
(htchlay  "填充")))

xj6019

taoyi0727 发表于 2019-12-26 22:51
(defun C:tt (/ dxf name obj ss)
        (if (not (tblobjname "LAYER" "34"))
                (progn

非常非常感谢！！

sbwdx

taoyi0727 发表于 2019-12-26 22:51
(defun C:tt (/ dxf name obj ss)
        (if (not (tblobjname "LAYER" "34"))
                (progn

老师，你好，如果不是SOLID图案，是其他图案，能否增加一项，要拿来替换的图案，比例设为1，不然被替换的图案比例不是1，新的图案替换上去就是原来图案的比例