社区 › 付费开发 › 付费求图块内填充类型修改

casd 发表于 2014-3-8 23:37:17

付费求图块内填充类型修改

因为专业关系，图块内的填充类型用的dots，提给其它专业的时候，需要改成solid，注意，是图块内的填充。
求开发，价格可以商量。

q3_2006 发表于 2014-3-9 07:35:20

发个演示.....

casd 发表于 2014-3-9 10:25:43

就是这个样子，需要写成通用函数xxx（块名， 原填充，新填充）
请联系 qq 85855472

wylong 发表于 2014-3-10 09:09:54

要求什么语言？

casd 发表于 2014-3-10 10:46:16

wylong 发表于 2014-3-10 09:09 static/image/common/back.gif
要求什么语言？

lsp吧，这个我还会一点。

Gu_xl 发表于 2014-3-10 12:03:47

(defun f (n a b / doc blkdef)
(if (not
        (VL-CATCH-ALL-ERROR-P
          (setq        blkdef
               (VL-CATCH-ALL-APPLY
                   'vla-item
                   (list
                     (vla-get-blocks
                     (setq doc
                              (vla-get-ActiveDocument
                                (vlax-get-acad-object)
                              )
                     )
                     )
                     n
                   )
               )
          )
        )
      )
    (progn
      (vlax-for        o blkdef
        (if (and
              (= "AcDbHatch" (vla-get-ObjectName o))
              (= (strcase a) (strcase (vla-get-PatternName o)))
          )
          (VL-CATCH-ALL-APPLY
          'vla-SetPattern
          (list o
                  (vla-get-PatternType o)
                  b
          )
          )
        )
      )
      (vla-regen doc :vlax-true)
    )
)
)

查看完整版本: 付费求图块内填充类型修改