create a custom flooring in a .pat file

[foz]

Bye to all,

there is some good soul that tells me a restraint as in figure....I have to pave a tide of islands. .

Thank you.

 

[xxfast]

If you look at the autocad guide explains how to do it. :tongue:

 

[foz]

...c I tried...but not funzia! ! !

*pavprat

0.0,0,37.9,30,75,-0.8
0.0.29.2,37.9.30.75.-0.8
90,0,0,30,-37.9,29.2,-31
90,75,0,30,-37.9,29.2,-31
90,75.8,0,30,-37.9,29.2,-31
90,112.9,0,30,-37.9,29.2,-31

 

[foz]

... says there's a paraneter missing in line seven

*pavprat,pavimentation29.2x75
0.0,0,37.9,30,75,-0.8.75,-0.8
0.0.29.2,37.9.30.75,-0.8.75,-0.8
90,0,0,30,-37.9,29.2,-31
90,75,0,30,-37.9,29.2,-31
90,75.8,0,30,-37.9,29.2,-31
90,150.8,0,30,-37.9,29.2,-31

 

[Tristan]

after the last value of the last line is there a sending?

 

[foz]

Bye-bye

there is no sending.

 

[GP.]

Bye-bye

there is no sending.

Try putting it on.

 

[foz]

put the sending the retino works but suffers an unusual deformation according to the distance from the origin...the other retini do not....
thanks so much to all



*pavprat,pavimentation29.2x75
0.0,0,37.9,30,75,-0.8.75,-0.8
0.0.29.2,37.9.30.75,-0.8.75,-0.8
90,0,0,30,-37.9,29.2,-31
90,75,0,30,-37.9,29.2,-31
90,75.8,0,30,-37.9,29.2,-31
90,150.8,0,30,-37.9,29.2,-31

 

[Tristan]

try to move the bird near the retino.. .

 

[ymg]

Foz,

download the following and install.
you will have all kinds of flooring.
Home

ymg

 

[GP.]

the uct has nothing to do with this, you have the definition of the wrong deduction (and some lines that overlap).

*pavprat,pavimentation29.2x75
0.0,0,37.9,30,75,-0.8.75,-0.8
0.0.29.2,37.9.30.75,-0.8.75,-0.8
90,0,30,-37.9,29.2,-30.8
90,75,0,30,-37.9,29.2,-30.8

 

[ymg]

you can also download this excel sheet which will automatically generate the definition.
Hatch pattern generator

Pavprat,75x29.2 - 0.8mm joint
0, 0,0, 0.60, 75,-0.8
0, 0.30.8, 0.60, 75,-0.8
0, 37.9.30, 0.60, 75,-0.8
0, 37.9.60.8, 0.60, 75,-0.8
90, 0.0, 0.75.8, -30.8.29.2
90, -0.8.0, 0.75.8, -30.8.
90, 37.9.30, 0.75.8, -30.8.
90, 37.1.30, 0.75.8, -30.8.

ymg

 

[GP.]

download the following and install.
you will have all kinds of flooring.
Home

you can also download this excel sheet which will automatically generate the definition.
Hatch pattern generator

interesting, thank you for reporting. :smile:

 

[ymg]

here in a small autolisp routine that will be generated dash patterns for tiles or bricks of any size.

the output is sent to the windoows notes ready to be glued in the acad.pat file.

(defun c:genh (/ cb name tw th jw)
  ;;; strtoclipboard                                                          ;
  ;;; not too sure of the origin of that one maybe asmi                       ;
   (defun strtoclipboard (str / html)
      (if (= 'str (type str))
         (vlax-invoke
              (vlax-get
                   (vlax-get (setq html (vlax-create-object "htmlfile")) 'parentwindow)
                        'clipboarddata
              )
              'setdata "text" str
         )
      )   
      (vlax-release-object html)
   )        
;-----------------------------------------------------------------------------;
  (setq name (getstring "\nenter name for your hatch pattern: ")
          tw (getreal "\nenter tile width: ")
          th (getreal "\nenter tile height: ")
          jw (getreal "\njoint width: ")
  )
  (textscr)
  (setq  cb (strcat "*" name  "-stagg, " (rtos tw 2 1) " x " (rtos th 2 1) " - " (rtos jw 2 1)"mm joint staggered"
                    "\n0,0,0," (rtos (/ (+ tw jw) 2) 2 1) "," (rtos (+ th jw) 2 1) "," (rtos tw 2 1) ",-" (rtos jw 2 1)
                    "\n0,-" (rtos (/ (+ tw jw) 2) 2 1) "," (rtos jw 2 1) "," (rtos (/ (+ tw jw) 2) 2 1) "," (rtos (+ th jw) 2 1) "," (rtos tw 2 1) ",-" (rtos jw 2 1)
                    "\n90,0,0," (rtos (+ th jw) 2 1) "," (rtos (/ (+ tw jw) 2) 2 1) ",-" (rtos (+ th jw jw) 2 1)"," (rtos th 2 1)
                    "\n90,-" (rtos jw 2 1) ",0," (rtos (+ th jw) 2 1) "," (rtos (/ (+ tw jw) 2) 2 1) ",-" (rtos (+ th jw jw) 2 1) "," (rtos th 2 1)
            )
  )      
  (strtoclipboard cb)
  (princ (strcat "\n\n" cb))
  (princ)
)
(princ "\n generate tile hatch with joint.....genh to start.")
(princ)