pat file need

[ishaq03]

I would like to glad if any body convert me this cad file as a pat file, because I have a tiles area.    

[Kent1Cooper]

Here's one I already have that looks like that, but at 4x8 size:

*BJ-B-1,4" Brick Basketweave Single-Line
0,0,0,0,8
90,0,0,0,8
0,8,4,8,8,8,-8
90,4,0,8,8,8,-8

You can use it at a scale factor of 0.025 to get your size.

Or, it's a simple adjustment to make your size at a scale factor of 1:

*WHATEVER,0.1 x 0.2 Basketweave Single-Line
0,0,0,0,.2
90,0,0,0,.2
0,.2,.1,.2,.2,.2,-.2
90,.1,0,.2,.2,.2,-.2

[ishaq03]

Kent Cooper

can u please this codes add in to notepad and send me proper *.pat file because when i am adding in the notepad some error is coming to me please send me as soon as possible propper *.pat file.

[Kent1Cooper]

Make sure you end the file with a blank line, that is, if you press Ctrl+End to go to the very end of the file, it should not be at the end of the last line of code, but on an empty line below that.  Also, the file name before the .pat filetype ending must exactly match the name of the pattern defined in it.

If you make sure of those, and it still doesn't work, write back.

[ishaq03]

still error showing please provide me *.pat file pleae.

[Kent1Cooper · Accepted solution]

This seems to work, in minimal testing.

[ishaq03]

kent1 cooper

 Thanks now it's working perfectly as per my need.👍

[ishaq03]

Please I need one more help, Because  you have been provided me this lisp before. For which I am grateful to you

this lisp create the horizaltal and vertical  lines on closed polyline and circles. Just change the code where the layer should be different for horizontal and vertical lines after created on the closed polylines. for your reference I am attaching the lisp command.

[Kent1Cooper]

[Would have been better over >here<, but in any case....]

....

  (mapcar 'setvar svnames '(0 0 0 0)); turn off Osnap, command echo, UCS following, Blips
  (command "_.layer"

    "_make" "A-CROS-HAIR-1" "_color" 1 "" "_ltype" "CENTER" ""
    "_make" "A-CROS-HAIR-2" "_color" 2 "" "_ltype" "CENTER" ""

    ""
    ;; ^--- EDIT Layer names/colors/linetypes as desired ---^
  ); command
  (initget (if *CHExt 0 1)); no Enter on first use

........

  ); setq
  (command
    "_.line" (polar p1a (angle p1b p1a) *CHExt) (polar p1b (angle p1a p1b) *CHExt) ""

    "_.chprop" "_last" "" "_layer" "A-CROS-HAIR-1" "" ;; [the -2 Layer will be current]
    ;; ^--- EDIT Layer name to match name used above ---^

    "_.line" (polar p2a (angle p2b p2a) *CHExt) (polar p2b (angle p2a p2b) *CHExt) ""
    "_.ucs" "_previous"
  ); command
  (setq ucschg nil); disable reset in *error*

....

If it's important to you which Layer the horizontal one goes on and which Layer the vertical one goes on [when they are, in fact, horizontal and vertical], that would require some additional code.  Currently the routine simply draws between midpoints of segments [with extensions if specified], and doesn't know where a Polyline starts or in which direction it's drawn or whether its segments are orthogonal, or whether an Ellipse is orthogonally oriented, and therefore [except for a Circle] doesn't care whether the Lines it draws are horizontal and vertical.  That could be determined if it matters.  If it does, do your situations always result in horizontal and vertical Lines, and if not, what would determine which one goes on the Layer for horizontal ones and which for vertical?

[kmontgomery9CTEB]

Thanks for this! I was also having trouble starting a new file to create a regular basketweave pattern and was able to edit this to match your 4x8 code for my project and finally got no error issues. That was my first time making a custom hatch and glad I found your post!