lisp for rectangle by sides
@nacho_korn wrote:
Hi, I need a lisp with which I can make a rectangle by choosing the center point and 2 points of the centers of the sides
This would be to make 3D planes based on cross-shaped 2d views.
Maybe you can do it by selecting the middle of the 2 sides, since it will always be in cross and you could calculate the center automatically.
....
I'm not quite sure I understand what you're describing, but if you mean something like this:
then can you just use the regular RECTangle command, with two APParent-intersection picks for the corners?
If I misunderstood, post a drawing or image.
@marko_ribar wrote:
Here try this :
....
(setq mp1 (getpoint "\nPick or specify first middle edge point : ")) (setq mp2 (getpoint "\nPick or specify second middle edge point : ")) ....HTH, M.R.
If that's the kind of thing they're after, and regular RECTangle with APParent intersections won't do, I would suggest at least a change in the prompts, since the order matters:
.... (setq mp1 (getpoint "\nPick middle of horizontal edge: ")) (setq mp2 (getpoint "\nPick middle of vertical edge: ")) ....
But another question for the OP: Might the cross shapes ever be asymmetrical? That is, with one arm not the same length as the opposite arm, so that the middle of some end-of-arm edges would not be the middle of the desired end result?
@marko_ribar wrote:
...
The order doesn't matter... Try the code and pick any 2 points...
Yes it does -- I did:
@marko_ribar wrote:
But of course that order does matter, but it's up on user to choose that, so your remark ab my prompt specifications for picking points is wrong... Simply there is first middle point and second middle point... Computer will calculate from picked order correct rectangle...
It clearly did not calculate the correct rectangle in the right part of the image in my previous Reply. From the prompts as you have them worded, there is no way of knowing that in order to get the result I want, I must pick the middle of the horizontal edge first. In that case I happened to pick the vertical-edge midpoint first, and it calculated the incorrect rectangle. Appropriate wording in the prompts would eliminate that problem.
@nacho_korn wrote:
....
This would be to make 3D planes based on cross-shaped 2d views.
.... it will always be in cross ....
Again, assuming some things about what you really want to do, here's an even better way. Load it up, type DBB for the command, and with one pick, anywhere on the cross [or any other] shape, it will draw the rectangle that encloses it, whether the arms are symmetrical or not, and without the need to hit midpoints or even the end-edges of the cross arms [you can pick it at a nowhere-in-particular location even near an inside corner, for example].
(defun C:DBB (/ minpt maxpt); = Draw Bounding Box (vla-getboundingbox
(vlax-ename->vla-object (car (entsel "\nSelect object to draw its Bounding Box: ")))
'minpt 'maxpt
); ...getbound... (command "_.rectangle" "_none" (vlax-safearray->list minpt) "_none" (vlax-safearray->list maxpt))
(princ) ); defun (vl-load-com) (prompt "\nType DBB to Draw the Bounding Box of a selected object.")
It could easily be made to verify that you actually picked something before trying to draw around it, if you think that's needed.
So it appears I did misinterpret your need, since your cross looks like just a crossing of two Lines, not a cross shape in something like a Polyline. I think I was interpreting your use of the word "middle" as meaning the midpoint of something that was already drawn, as well as of the resulting box edge.
In a cross of two Lines as in your latest image, the DrawBoundingBox routine would not do what you want. But it gave me an idea:
;|
DrawBoundingBoxMult.lsp [command name: DBBM]
To Draw the Bounding Box around Multiple objects. Finds overall extent
of object(s) selected, and draws a Rectangle around that collective box.
Kent Cooper, 10 November 2016
|;
(defun C:DBBM (/ ss minpt maxpt eLL eUR LL UR); = Draw Bounding Box, Multiple
(prompt "\nTo Draw the Bounding Box around Multiple objects,")
(if (setq ss (ssget))
(progn ; then
(repeat (setq n (sslength ss))
(vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq n (1- n)))) 'minpt 'maxpt)
(setq
eLL (vlax-safearray->list minpt)
eUR (vlax-safearray->list maxpt)
LL (if LL (mapcar 'min eLL LL) eLL)
UR (if UR (mapcar 'max eUR UR) eUR)
); setq
); repeat
(command "_.rectangle" "_none" LL "_none" UR)
); progn
(prompt "\nNothing selected."); else
); if
(princ)
); defun
(vl-load-com)
(prompt "\nType DBBM to Draw the Bounding Box around Multiple objects.")
That will do what you are after with selection of the two Lines by any method, and at any location on them [or at no location, e.g. inside a window] -- no need to pick on their endpoints, nor to pick two points in any particular order, and it doesn't matter if the Lines do not cross at their midpoints, nor even whether they are perpendicular:
