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

casd

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

q3_2006

发个演示.....

casd

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

wylong

要求什么语言？

casd

wylong 发表于 2014-3-10 09:09
要求什么语言？

lsp吧，这个我还会一点。

Gu_xl

1. (defun f (n a b / doc blkdef)
   
2.   (if (not
   
3.         (VL-CATCH-ALL-ERROR-P
   
4.           (setq        blkdef
   
5.                  (VL-CATCH-ALL-APPLY
   
6.                    'vla-item
   
7.                    (list
   
8.                      (vla-get-blocks
   
9.                        (setq doc
   
10.                               (vla-get-ActiveDocument
    
11.                                 (vlax-get-acad-object)
    
12.                               )
    
13.                        )
    
14.                      )
    
15.                      n
    
16.                    )
    
17.                  )
    
18.           )
    
19.         )
    
20.       )
    
21.     (progn
    
22.       (vlax-for        o blkdef
    
23.         (if (and
    
24.               (= "AcDbHatch" (vla-get-ObjectName o))
    
25.               (= (strcase a) (strcase (vla-get-PatternName o)))
    
26.             )
    
27.           (VL-CATCH-ALL-APPLY
    
28.             'vla-SetPattern
    
29.             (list o
    
30.                   (vla-get-PatternType o)
    
31.                   b
    
32.             )
    
33.           )
    
34.         )
    
35.       )
    
36.       (vla-regen doc :vlax-true)
    
37.     )
    
38.   )
    
39. )

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