社区 › Auto Lisp › Why I can't change the Ha

DuanJinHui 发表于 2022-7-5 20:58:22

 
Mr.Tharwat , My code can change hatchspace & hatchscale , I can see it from property. But hatch can't update. why ?

Tharwat 发表于 2022-7-5 21:03:08

 
Can you upload a sample drawing ?

Tharwat 发表于 2022-7-5 21:05:12

Have a look at the following PROGRAM that I have written not a long time ago , and you can modify it to suit your needs .

DuanJinHui 发表于 2022-7-5 21:08:53

 
Thanks ,Mr Tharwat. a good routine!
 
I thinkmy CAD version is too low,

Tharwat 发表于 2022-7-5 21:10:43

 
You are welcome
 
 
What does that affect with the program ?

DuanJinHui 发表于 2022-7-5 21:15:40

 
Because I use CAD2013, can be used normally

Tharwat 发表于 2022-7-5 21:19:09

 
Whatever the Autocad version you are using , the program should work
 
Did you try the program ?

DuanJinHui 发表于 2022-7-5 21:20:25

 
 
Mr. Tharwat , your routine and this function can't use for cad2007 , can't upload . in cad2013 ,No problem.

(defun ZMH_Change_Hatch_Scale() (setq i -1) (while (setq s1 (ssname ss (setq i (1+ i))))   (vla-put-PatternScale (vlax-ename->vla-object s1) (rtos bl 2 3)) );while (setvar "hpscale" hpsc) (princ (strcat "\nModify Scale:")))

Tharwat 发表于 2022-7-5 21:25:09

I am sorry , I don't have ACad 2007 installed on my Lap to check the program with .
 
Did you receive any message on running or loading ?

DuanJinHui 发表于 2022-7-5 21:26:37

 
 
it doesn't matter , no receive any message .

查看完整版本: Why I can't change the Ha