Topic: vertial and horizin hatch lisp

[dussla]

hi freind
i am difficult in my work
that is hatch lisp
i want  200 * 400 size and other size   in  hatch line
i can't find  good lisp

can you help me some

[ribarm]

I've found this old HatchMaker.lsp... Try it and follow the instructions while executing... After hatch has been created go to command BH or HATCH and find your pattern under custom hatch patterns...

M.R.

[ribarm]

Here, I've made one to suit your needs... Created one with dimensions 1.0x1.0 and then in notepad I've changed to be 0.8x0.8... So all you have to do is select pattern that should be in AutoCAD Support Search Path... Then you should set up hatch through BH command (pick hatch under custom patterns, select scale 1000 and pick origin point... Alternatively you can change its orientation to 90 degree if I misunderstood your needs (divisions in X and Y directions)...
So here is *.pat file...

M.R.

[fixo]

hi freind
i am difficult in my work
that is hatch lisp
i want  200 * 400 size and other size   in  hatch line
i can't find  good lisp

can you help me some

Something like that will be help you too

Code: [Select]

(if (setq  pline (car (entsel "\nSelect a closed contour: ")))
(progn
(setvar "HPNAME" "ANSI31")
(setvar "HPANG" 45)
(command "_.-bhatch" "_S" pline "" "_P" "ANSI31" 64 45.0 "")
    (setvar "HPSCALE" 2)
    (setvar "HPANG" -45)
    (command "_.-bhatch" "_S" pline "" "_P" "ANSI31" 128 -45.0 "")
)
    )
~'J'~

[danallen]

for simple grids, try "user defined" (instead of "predefined"), and hatch the same boundary twice, one with spacing of 200, the other rotated 90 degrees and spacing 400

[dussla]

fixo thank you and other freind too
answer  is all good
i used them ~

[fixo]

Glad you got it to working
Cheers

~'J'~

[Ketxu]

Or sth like this, with multi select :

Code - Auto/Visual Lisp: [Select]

(defun c:df(/ ss varLst oVal)
(or W (setq W 200))
(or H (setq H 400))
(setq W (cond ((getreal (strcat "\nWIDTH < " (rtos W 2 0) " >:")))(W)))
(setq H (cond ((getreal (strcat "\nLENGTH < " (rtos H 2 0) " >:")))(H)))
(setq 	varLst '("hpname" "HPORIGINMODE" "hpdouble" "cmdecho" "hpAng")
		oVal (mapcar 'getvar varLst)
)
(mapcar 'setvar varLst '("_USER" 0 0 0 0))
(prompt "\nPlease select closed plines :")
(if (setq ss (ssget))
	(progn
		(setvar "hpang" 0)
		(setvar "hpspace" H)
		(command "-bhatch" "s" ss "" "")
		(setvar "hpang" (* pi 0.5))
		(setvar "hpspace" W)
		(command "-bhatch" "s" ss "" "")
	)
)
(mapcar 'setvar varLst oVal)
)

[dussla]

thank  ketxu
but that did not work  well in autocad 2004~~

[Ketxu]

Srr, i don't have 2004 to test, so you can use fixo's lisp