图案填充的比例修改了，但图的显示并未修改

zxjing

回复 Gu_xl 的帖子
,奥~
那可能就是版本的问题了，我单位是CAD09的，回头单位试一下。08可以，09就应该也没问题了，谢G版。

zxjing

回复 gzxl 的帖子

gzxl ，谢谢你的回复，G版的程序应该是没有问题的，在我的04上确实不行，可能是我CAD版本的问题，好在单位常用的是09，周一上班的时候我再拿09试试

Gu_xl

回复 zxjing 的帖子

我试了，04也没问题！在04里，如果填充是不关联边界的，就不行了！08没问题！

zxjing

回复 Gu_xl 的帖子

，正解，问题就出在这里了，太谢谢G版了，以后制图的时候还是应该注意下尽量保留关联

ZZXXQQ

三楼已改，在2004中调试通过。再试试。

gzxl

Z版的程序也测试通过

比n还多

这个问题是啥原因？我也遇到同样问题

2. (defun DCL_TC ()
   
3. (setq sst(entget(car(entsel))))
   
4. (setq BL1 (cdr(assoc 41 sst)))
   
5. (vl-file-delete(strcat (getvar "TEMPPREFIX") "TMP_BL.DCL"))
   
6. (setq FA2(open (strcat (getvar "TEMPPREFIX") "TMP_BL.DCL") "a"))
   
7. (foreach stream '( "TCBLTZ:dialog{\n"
   
8.             "label= "填充比例调整:";\n"
   
9.                                                 "initial_focus="edit_p";\n"       
   
10.             ":edit_box{" "label= "当前填充比例:"; key="YBL"; edit_width=8;}\n"
    
11.             ":edit_box{" "label= "新的填充比例:"; key="edit_p"; edit_width=8; allow_accept=true;}\n"
    
12.             "ok_cancel;\n"                                               
    
13.             "}\n"      
    
14.             )
    
15. (princ stream FA2))
    
16. (close FA2)
    
17. (setq DCL_T (LOAD_DIALOG (strcat (getvar "TEMPPREFIX") "TMP_BL.DCL")))
    
18. (new_dialog "TCBLTZ" DCL_T)
    
19.         (set_tile "YBL" (rtos BL1 2 3))
    
20.         (action_tile "accept" "(BLXG) (done_dialog 1)")
    
21.         (start_dialog))
    
22. (defun BLXG ()
    
23. (setq a (atof (get_tile "edit_p")))
    
24. (setq sst (subst (cons 41 a) (assoc 41 sst) sst))
    
25. (entmod sst))

(defun DCL_TC ()<br /> (setq sst(entget(car(entsel))))<br /> (setq BL1 (cdr(assoc 41 sst)))<br /> (vl-file-delete(strcat (getvar "TEMPPREFIX") "TMP_BL.DCL"))<br /> (setq FA2(open (strcat (getvar "TEMPPREFIX") "TMP_BL.DCL") "a"))<br /> (foreach stream '( "TCBLTZ:dialog{\n"<br />             "label= "填充比例调整:";\n"<br />                                                 "initial_focus="edit_p";\n"        <br />             ":edit_box{" "label= "当前填充比例:"; key="YBL"; edit_width=8;}\n"<br />             ":edit_box{" "label= "新的填充比例:"; key="edit_p"; edit_width=8; allow_accept=true;}\n"<br />             "ok_cancel;\n"                                                <br />             "}\n"       <br />             )<br /> (princ stream FA2)) <br /> (close FA2)<br /> (setq DCL_T (LOAD_DIALOG (strcat (getvar "TEMPPREFIX") "TMP_BL.DCL")))<br /> (new_dialog "TCBLTZ" DCL_T)<br />         (set_tile "YBL" (rtos BL1 2 3))<br />         (action_tile "accept" "(BLXG) (done_dialog 1)")<br />         (start_dialog))<br /> (defun BLXG ()<br /> (setq a (atof (get_tile "edit_p"))) <br /> (setq sst (subst (cons 41 a) (assoc 41 sst) sst))<br /> (entmod sst))