TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: 2e4lite on January 08, 2014, 09:42:05 PM

Title: the fill pattern scale
Post by: 2e4lite on January 08, 2014, 09:42:05 PM

How to dynamically change the fill pattern scale?

Title: Re: the fill pattern scale
Post by: Kerry on January 08, 2014, 11:45:07 PM

From the help file

Code - Auto/Visual Lisp: [Select]

1.  
2.     ;; Find the scale of the hatch pattern
3.  
4.     (setq patternScale (vla-get-PatternScale hatchObj))
5.     (alert (strcat "The scale of the hatch pattern is " (rtos patternScale 2)))
6.                  
7.     ;; Change the scale of the hatch pattern
8.     (vla-put-PatternScale hatchObj (+ patternScale 2))
9.     (vla-Evaluate hatchObj)
10.     (vla-Regen doc :vlax-true)
11.  
12.  
13.  

If you mean interactively dynamic ( using grread or some such) I don't have a sample handy.

You could also modify the DXF code representing hatch scale (dxf  41 I think would work)

Title: Re: the fill pattern scale
Post by: CAB on January 09, 2014, 08:58:15 AM

Here is one and there are others I think:
http://www.theswamp.org/index.php?topic=26444.30 (http://www.theswamp.org/index.php?topic=26444.30)

Another
http://www.theswamp.org/index.php?topic=26448.msg319545#msg319545 (http://www.theswamp.org/index.php?topic=26448.msg319545#msg319545)

Title: Re: the fill pattern scale
Post by: 2e4lite on January 09, 2014, 08:37:51 PM

Thank you both for enthusiastic reply!