Corner points(p1 p2 p3 p4)

[Anonymous]

Sir,

i need a lisp for.................

I have a closed box(lines only), with in i want to create a region and get corner four points (p1 p2 p3 p4) list.

please help me.

Thank you

[ВeekeeCZ]

---

(defun c:LinesToRegion (/ s i e p l)

  (princ "Lines required, ")
  (if (setq s (ssget '((0 . "LINE"))))
    (repeat (setq i (sslength s))
      (setq e (entget (ssname s (setq i (1- i)))))
      (foreach k '(10 11)
	(setq p (cdr (assoc k e)))
	(if (not (member p l))
	  (setq l (cons p l))))))
  (if s
    (progn
      (command "_.region" s "")
      (print l)))
  (princ)
  )

[Anonymous]

Sir,

I have already a rectangle/square with lines, i want to create a region and get X min Y min & X max Y max of corners using autolisp.

[john.uhden]

Let's picture a parallelogram with the sides vertical and the right side lower than the left...

xmin and xmax are simple, but

Is ymin the bottom right, and ymax the top left?

Or are you looking at it differently?

[Anonymous]

Yes ......sir exactly

[Kent1Cooper]

---

@Anonymous wrote:

Sir,

I have already a rectangle/square with lines, i want to create a region and get X min Y min & X max Y max of corners using autolisp.

---

If you're talking about an orthogonally-oriented  rectangle/square, this could get you started -- DrawBoundingBoxMult.lsp, with its DBBM command, available >here<.

Load it, call the DBBM command, pick your Lines, and it will draw a Polyline [not a Region, but the conversion can be added easily enough if you need that specifically].  If you remove LL and UR from the localized variables list at the top, they will remain after the routine is done, and LL will give you the min-X and min-Y, and UR will give you the max-X and max-Y.

[john.uhden]

You might try joining the lines into a closed polyline and using the
vla-getboundingbox function. We can help you if you need.

[Sea-Haven]

A quick way is bpoly pick inside then get co-ordinates if you only want cnr pts.

(setq pt (getpoint "\npick point inside"))
(command "bpoly" pt "" )
(setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (entlast)))))
(command "erase" "l" "")

[Kent1Cooper]

---

@john.uhden wrote:
You might try joining the lines into a closed polyline and using the
vla-getboundingbox function. ....

---

… again, for only an orthogonally-oriented  rectangle.

[Kent1Cooper]

---

@Anonymous wrote:

....

I have a closed box(lines only), with in i want to create a region and get corner four points (p1 p2 p3 p4) list.

….

---

Just because many replies are assuming or hoping that you're talking about an orthogonally-oriented rectangle or square, but you apparently haven't replied about that question, please clarify.  And if it might sometimes be at some other angle, do you want the four corners of the box, or the minimum and maximum X and Y coordinates [not the same thing]?  @john.uhden asked "is it A or B" and you replied "Yes," which doesn't answer the question.