[求助]：请教如何修改填充名称，并改变填充图案？

Wildcat

希望修改填充名称，例如：把砂浆图例换成斜线。
通过点表发现，组码2对应的就是填充名称，使用subst和entmod函数修改点表，可以成功把组码2的值改变，但图案却是不变的。
查看visuallisp函数，找到vla-get-PatternName函数，可惜却不存在“vla-put-PatternName”函数。
请问如何解决这个问题呢？谢谢

Free-Lancer

重新entmake

Wildcat

问题解决了。谢谢。

wly555

好好学习CAD，天天向你学lisp“

Wildcat

最初由 Free-Lancer 发布
[B]重新entmake [/B]

不好意思呀，原来以为已经解决了，但后来发现部份填充还是不能正常修改。似乎和填充图案的比例有关，附件中“P05黑金砂.pat”可以用下面的程序修改，而“L05黑金砂.pat”则不可用下面的程序修改，两个填充的区别只是“P05黑金砂.PAT”尺寸是“L05黑金砂.pat”的四倍。难道这个就是造成程序出错的原因？可以解决吗？
附件包含了需要的填充文件和测试使用的DWG及LSP。
再次感谢

2. 
   
3.   [FONT=courier new]
   
4.   (defun c:test ()
   
5.   (setq        en            (entsel "\n选择填充:")
   
6.         en_list            (entget (car en))
   
7.   )
   
8.   (initget "1 2 3")
   
9.   (setq key (getkword "变为 1-L05黑金砂 2-P05黑金砂 3-L01平行线40 <1>:"))
   
10.   (cond ((= key "1")(setq en_name_new "L05黑金砂,_O"))
    
11.         ((= key "2")(setq en_name_new "P05黑金砂,_O"))
    
12.         ((= key "3")(setq en_name_new "L01平行线40,_O"))
    
13.         ((null key )(setq en_name_new "L05黑金砂,_O"))
    
14.   )
    
15.   (setq        en_list_new
    
16.          (subst (cons 2 en_name_new) (assoc 2 en_list) en_list)
    
17.   )
    
18.   (entmake en_list_new)
    
19.   (entdel (car en))
    
20. )
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br />   (defun c:test ()<br />   (setq        en            (entsel "\n选择填充:")<br />         en_list            (entget (car en))<br />   )<br />   (initget "1 2 3")<br />   (setq key (getkword "变为 1-L05黑金砂 2-P05黑金砂 3-L01平行线40 <1>:"))<br />   (cond ((= key "1")(setq en_name_new "L05黑金砂,_O"))<br />         ((= key "2")(setq en_name_new "P05黑金砂,_O"))<br />         ((= key "3")(setq en_name_new "L01平行线40,_O"))<br />         ((null key )(setq en_name_new "L05黑金砂,_O"))<br />   )<br />   (setq        en_list_new<br />          (subst (cons 2 en_name_new) (assoc 2 en_list) en_list)<br />   )<br />   (entmake en_list_new)<br />   (entdel (car en))<br /> )<br />   [/FONT]<br />

leeyuan

关注中，希望哪位给个完美的解决方法

leeyuan

似乎block 和hatch是不能用entmod来修改点表，楼主5楼的代码也不完善，哪位高手指点一二

雨箭风刀

在程序中重新计算一下hatch就可以了

Wildcat

最初由 leeyuan 发布
[B]似乎block 和hatch是不能用entmod来修改点表，楼主5楼的代码也不完善，哪位高手指点一二 [/B]

5楼的代码只为针对性的测试而作的，所以未完善。
entmod作用是生成新的图元，block我未试过，我也是最近才会粗略使用这个函数，对于大部份hatch，entmod是可以生成的，但对于某些自身比例相对小的填充就出问题了，具体是什么原因我也不知道。似乎和平时使用填充时偶然命今行提示“填充太密，无法填充”有点关系，另外发现，用特别匹配命令，想以L05黑金砂为参照，匹配别的填充也是失败的。

Wildcat

最初由 雨箭风刀 发布
[B]在程序中重新计算一下hatch就可以了 [/B]

对，现在我只好调用hatchedit来更新这类“顽固的”填充了。