« previous next »
Pages: [1] |   Go Down

Author Topic: Create a Hatch  (Read 1565 times)

0 Members and 1 Guest are viewing this topic.

Fabricio28

  • Swamp Rat
  • Posts: 670
Create a Hatch
« on: January 17, 2014, 06:57:39 AM »
Hi guys,

How Can I make a hatch with that dimension 0.625 x 1.25 meters??

Thank in advance.
Logged

Rob...

  • King Gator
  • Posts: 3824
  • Take a little time to stop and smell the roses.
Re: Create a Hatch
« Reply #1 on: January 17, 2014, 07:05:32 AM »
Draw a rectangle and hatch it?
Logged
CAD Tech

CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: Create a Hatch
« Reply #2 on: January 17, 2014, 07:40:11 AM »
Logged
I've reached the age where the happy hour is a nap. (°¿°)
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

Fabricio28

  • Swamp Rat
  • Posts: 670
Re: Create a Hatch
« Reply #3 on: January 17, 2014, 07:58:50 AM »
@ RobDraw
Thank you for suggestion. I'll try this out.

@ CAB
I don't know how to use that code to create my own hatch ( rectangle  0.625 x 1.25).
Maybe a lisp will be wonderful.

regards
Logged

CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: Create a Hatch
« Reply #4 on: January 17, 2014, 09:20:19 PM »
Start with this:
Code - Auto/Visual Lisp: [Select]
  1. (defun entmakex-hatch (L)
  2.  ;; By ElpanovEvgeniy
  3.  ;; 03.04.2007 10:03:51:
  5.   (apply
  6.    'append
  7.    (list
  8.     (list '(0 . "HATCH")
  9.           '(100 . "AcDbEntity")
  10.           '(410 . "Model")
  11.           '(100 . "AcDbHatch")
  12.           '(10 0.0 0.0 0.0)
  13.           '(210 0.0 0.0 1.0)
  14.           '(2 . "SOLID")
  15.           '(70 . 1)
  16.           '(71 . 0)
  17.           (cons 91 (length l))
  18.     ) ;_  list
  19.     (apply 'append
  20.     (mapcar '(lambda (a)
  21.              (apply 'append
  22.                     (list (list '(92 . 7) '(72 . 0) '(73 . 1) (cons 93 (length a)))
  23.                           (mapcar '(lambda (b) (cons 10 b)) a)
  24.                           '((97 . 0))
  25.                     ) ;_  list
  26.              ) ;_  apply
  27.             ) ;_  lambda
  28.             l
  29.     ) ;_  mapcar
  30.            )
  31.     '((75 . 0)
  32.       (76 . 1)
  33.       (47 . 1.)
  34.       (98 . 2)
  35.       (10 0. 0. 0.0)
  36.       (10 0. 0. 0.0)
  37.       (451 . 0)
  38.       (460 . 0.0)
  39.       (461 . 0.0)
  40.       (452 . 1)
  41.       (462 . 1.0)
  42.       (453 . 2)
  43.       (463 . 0.0)
  44.       (463 . 1.0)
  45.       (470 . "LINEAR")
  46.      )
  47.    ) ;_  list
  48.   ) ;_  apply
  49.  ) ;_  entmakex
  50. )
  51.  
  52.  
  53. (defun c:test (/ pt x y)
  54.   (setq pt '(100 150)) ; lower left corner
  55.   (setq x (car pt)
  56.         y (cadr pt)
  57.   )
  58.   (setq h (entmakex-hatch
  59.             (list (list pt
  60.                         (list x (+ y 1.25))
  61.                         (list (+ x 0.625) (+ y 1.25))
  62.                         (list (+ x 0.625) y)
  63.                   )
  64.             )
  65.           ) ;_  entmakex-hatch
  66.   ) ;_  setq
  67. )
  68.  
Logged
I've reached the age where the happy hour is a nap. (°¿°)
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

Fabricio28

  • Swamp Rat
  • Posts: 670
Re: Create a Hatch
« Reply #5 on: January 20, 2014, 09:15:29 AM »
Thank you CAB,
I was trying to create a hatch with dimension (0,64x1,20).
Select the perimeter that I want to hatch and create rectangle in it.
Logged
Pages: [1] |   Go Up
« previous next »