请问群码变更后为什么图型不会变化?

lincctw_ccl

各位好想请各位老师帮忙看看下面
lsp是哪错了?我执行完程序后我再次查询群码及点击像素所显示的比例均是我更改过的比例为什么图型不会变化? 谢谢!!
(defun c:chght()
(setvar "cmdecho"0)
(setq en(entsel"选取 HATCH 图型:"))
(setq en_data(entget(car en)))
(setq hatch_list(assoc41 en_data))
(setq old_hatchscale(cdr hatch_list))
(princ "\n现有 HATCH比例=")(princold_hatchscale)
(setq new_hatchscale(getreal "\n 新的 HATCH 比例:"))
(setq new_hatch_list(cons 41 new_hatchscale))
(setq new_data(substnew_hatch_list hatch_list en_data))
(entmod new_data)
(prin1))(prompt "***************** <<C:CHGHT>>*******************")(prin1)

Andyhon

請參閱 EntUpd 函數的使用說明

lincctw_ccl

感谢Andyhon的指导!!

我有去查了说明
无耐小弟刚学能力有限
还是搞不定!
请问哪位大哥可以帮我修改一下上面的程序吗?
谢谢!!

Andyhon

Sorry!
改用ActiveX

2. 
   
3. (defun c:chght()
   
4.    (setvar "cmdecho"0)
   
5.    (setq en (entsel"選取 HATCH 圖型:"))
   
6.    (setq en (car en))
   
7.    (setq en_data (entget en))
   
8.    (setq hatch_list(assoc 41 en_data))
   
9.    (setq old_hatchscale(cdr hatch_list))
   
10.    (princ "\n現有 HATCH比例=")(princ old_hatchscale)
    
11.    (setq new_hatchscale(getreal "\n 新的 HATCH 比例:"))
    
12.    (vlax-put (vlax-ename->vla-object en) 'PatternScale new_hatchscale)
    
13.    (prin1)
    
14. )
    

<br /> (defun c:chght()<br />    (setvar "cmdecho"0)<br />    (setq en (entsel"選取 HATCH 圖型:"))<br />    (setq en (car en))<br />    (setq en_data (entget en))<br />    (setq hatch_list(assoc 41 en_data))<br />    (setq old_hatchscale(cdr hatch_list))<br />    (princ "\n現有 HATCH比例=")(princ old_hatchscale)<br />    (setq new_hatchscale(getreal "\n 新的 HATCH 比例:"))<br />    (vlax-put (vlax-ename->vla-object en) 'PatternScale new_hatchscale)<br />    (prin1)<br /> )<br />

lincctw_ccl

回复 Andyhon 的帖子

感謝您!!
程式ok了!!