Box Lisp

[neekcotrack]

I was wondering does anyone know of a lisp that will:

1. Ask for the width and height of a box.
2. Then ask if it is low volage or hight voltage. If it is low voltage go to next step, if it is high voltage hatch the box.
3. insert the box using the (getvar "dimscale") and pick the long sides midpoint for insertion point.
4. Use users insertion point and rotation.

Thanks in advance for any help that I can get I don't know how to do lisp but I can do diesel Macros.

[fixo]

Not sure this is exactly what you want
Give this a try, just translate all the prompts
on good english

(defun rtd (a)
  (* 180.0 (/ a pi))
)
(defun C:VB (/ ang flag hgt p1 p2 pt response wid)
  
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (setq ort (getvar "orthomode"))
  (setvar "orthomode" 0)
  
  (while
  (setq wid (getdist "\nEnter the width of box (or press Enter to exit): "))
  (setq hgt (getdist  "\nEnter the height of box: "))
  (if (and wid hgt)
    (progn
      (setq flag nil)
      (initget 1 "Low Heigh")
      (setq response (getkword "\nChoose voltage level [L]ow or [H]eigh <L> : "))
      (if (eq "Heigh" response)(setq flag t))
      	  (setq pt (getpoint "\nInsertion point (bottom center): "))
	  (setq p1 (list (- (car pt)(/ wid 2.))(cadr pt))
		p2 (list (+ (car pt)(/ wid 2.))(+ (cadr pt) hgt))
		)
      	  (command "rectangle" p1 p2)
	  (setq ang (getangle pt "\nSpecify rotation angle: "))
	  (command "rotate" "L" "" pt (rtd ang))
      (if flag
	(command "-hatch" "S" "L" "" "P" "S" "")

	  )
	  )
      )
)
  (setvar "orthomode" ort)
  (setvar "osmode" osm)
  (princ)
  )

~'J'~

[neekcotrack]

Its just what I was looking for but one thing. When I am prompted to clock where I want to place it, once I place it i was wondering if there is a way to let you selected the rotation by another point on the screen then typing it in. Is there a way to use ansi31 as my pattern and the scale of the pattern to be 18.

Thanks for everything by the way.

[neekcotrack]

If possible can you make the pattern rotation angle to be the angle the block is so the hatch is always at 45

[fixo]

Hope I added all what you need:

(defun C:VB (/ ang flag hgt osm p1 p2 pt response wid)
  
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)

  
  (while
  (setq wid (getdist "\nEnter the width of box (or press Enter to exit): "))
  (setq hgt (getdist  "\nEnter the height of box: "))
  (if (and wid hgt)
    (progn
      (setq flag nil)
      (initget 1 "Low Heigh")
      (setq response (getkword "\nChoose voltage level [L]ow or [H]eigh <L> : "))
      (if (eq "Heigh" response)(setq flag t))
      	  (setq pt (getpoint "\nInsertion point (bottom center): "))
	  (setq p1 (list (- (car pt)(/ wid 2.))(cadr pt))
		p2 (list (+ (car pt)(/ wid 2.))(+ (cadr pt) hgt))
		)
      	  (command "rectangle" p1 p2)
	  (setq ang (getreal "\nSpecify rotation angle (in degrees): "))
	  (command "rotate" "L" "" pt ang)
      (if flag
	(command "-hatch" "S" "L" "" "P" "ANSI31" "18" "45" "");<==45 is an angle for the pattern, change to suit
	  )
	  )
      )
)

  (setvar "osmode" osm)
  (princ)
  )

~'J'~

[neekcotrack]

ok just one thing left I am so sorry. Is there any way to scale it to the dimscale. what I type in for the width and height is what it would be at 1. Now if it is at eigth scale it would be a dimscale of 96. Is there any way to do that?

Thanks for everything you helped greatly!

[fixo]

I don't understand what are you talking about
Try to change dimscale:
(setvar "dimscale" 96)

~'J'~

[neekcotrack]

I want it to scale up depending on the dimscale!

[fixo]

Sorry,
perhaps somebody else will be able
to help you with this problem

~'J'~

[russell84]

Mean something like this??

(defun C:VB (/ ang flag hgt osm p1 p2 pt response wid)
  
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  
  (while
  (setq wid1 (getdist "\nEnter the width of box (or press Enter to exit): "))
  (setq wid (* wid1 (getvar "dimscale")))
  (setq hgt1 (getdist  "\nEnter the height of box: "))
  (setq hgt (* hgt1 (getvar "dimscale")))
  (if (and wid hgt)
    (progn
      (setq flag nil)
      (initget 1 "Low Heigh")
      (setq response (getkword "\nChoose voltage level [L]ow or [H]eigh <L> : "))
      (if (eq "Heigh" response)(setq flag t))
         (setq pt (getpoint "\nInsertion point (bottom center): "))
   (setq p1 (list (- (car pt)(/ wid 2.))(cadr pt))
  p2 (list (+ (car pt)(/ wid 2.))(+ (cadr pt) hgt))
  )
         (command "rectangle" p1 p2)
   (setq ang (getreal "\nSpecify rotation angle (in degrees): "))
   (command "rotate" "L" "" pt ang)
      (if flag
 (command "-hatch" "S" "L" "" "P" "ANSI31" "18" "45" "");<==45 is an angle for the pattern, change to suit
   )
   )
      )
)
  (setvar "osmode" osm)
  (princ)
  )