Topic: Help, how such array

[myloveflyer]

The following drawings, please help us look at how to use LISP to achieve the right image！thank

[irneb]

Is the width of the panels always the same? Looks like 1640 on your drawing. Just guessing, but is that a standard sheet-metal size?

[CAB]

You could hatch using USER pattern, 90 deg and spacing 820.
Adjust the Base Point: (pick the roof peak)

Code: [Select]

;;  CAB 10.29.2007
;; Hatch Base Point Edit
(defun c:HBPEdit (/ ent elst x y bp)
  (command "._undo" "_begin")
  (if (and (setq ent (car (entsel "\nSelect hatch for new base point.")))
           (= (cdr (assoc 0 (setq elst (entget ent)))) "HATCH")
      )
    (while (setq bp (getpoint "\nSelect new basepoint: "))
      (setq x (car bp)
            y (car (cdr bp))
      )
      (setq elst (subst (cons 43 x) (assoc 43 elst) elst))
      (setq elst (subst (cons 44 y) (assoc 44 elst) elst))
      (entmod elst)
    )
    (prompt "\nNot a hatch, bye.")
  )
  (command "._undo" "_end")
  (princ)
)Then explode the hatch. 

[cmwade77]

The new array command in 2012 should easily be able to accomplish this as well.

[CAB]

How about this: (no layer support)

Code: [Select]

(defun c:test(/ p1 p2 ent)
  (if (and
    (setq p1 (getpoint "\nSpecify hatch origon."))
    (setq p2 (getpoint "\nSpecify internal point."))
    )
    (progn
       (Command "-HATCH" "_P" "_USER" 90.0 820.0 "_N" "_O" "_S" "_non" p1 "_N" "_non" p2 "")
   
      (if (and (setq ent (entlast)) (equal '(0 . "HATCH") (assoc 0 (entget ent))))
        (command "._explode" ent "")
      )
    )
  )
  (princ)
)

[myloveflyer]

Irneb:

The width of the plate to artificially set, DWG is 820.

CAD:

Program failed to run.

THANKS！

This procedure is to calculate a wall plate (in addition to the window and door ) were ranked number plates, so that the processing factory

[bchapman]

Have you explored express tools -> super hatch? I've never used it but it might work for this situation.