topic Re: Draw a rectangular box knowing two base center points, its width and height. in Visual LISP, AutoLISP and General Customization Forum

Draw a rectangular box knowing two base center points, its width and height.

Kh.mbkh — Sun, 16 Apr 2023 22:25:39 GMT

Hello!

Objectif: Draw a rectangular box knowing center of two base, width and height:

Input:

- center point C1 = '(x1 y1 z1) of the first base

- center point C2 = '(x2 y2 z2) of the second base

- Width and Height.

As you know, BOX command asks for P1 P2 P3 and P4 points (see picture, red points), but for us the input we know are only Center1, Center2, Width and Height.

It's a geometric issue, but you may have idea to help...

Thanks!

Re: Draw a rectangular box knowing two base center points, its width and height.

paullimapa — Sun, 16 Apr 2023 23:26:10 GMT

I can get you partially there with a Square when Width=Height by using command:

POLYGON

4 sides

center is C1

Circumscribed option

Radius is Width or Height divided by 2

Then use the following command to create the BOX:

Extrude

Last

Direction

Re: Draw a rectangular box knowing two base center points, its width and height.

Sea-Haven — Mon, 17 Apr 2023 00:36:30 GMT

Your talking about a SOLID Box ? So you have distance between pt1 pt2 as the length so need width and extrusion height, so just do that use solid box command then do a rotate and move to the 2 points.

Re: Draw a rectangular box knowing two base center points, its width and height.

paullimapa — Mon, 17 Apr 2023 05:42:02 GMT

@Sea-Haven I like where you're going with this

@Kh.mbkh see example pix below:

Re: Draw a rectangular box knowing two base center points, its width and height.

komondormrex — Mon, 17 Apr 2023 07:32:10 GMT

hey,

just box with width, height and depth

(setq center_point_1 '(-100. 150. 200.)) (setq center_point_2 '(300. -50. -400.)) (setq height 130.) (setq width 50.) ;(command "_line" center_point_1 center_point_2 "") (command "_rectang" "_non" (list (* -1 0.5 height) (* -1 0.5 width)) "_non" (list (* 0.5 height) (* 0.5 width))) (setq profile_object (vlax-ename->vla-object (setq profile_ename (entlast)))) (setq divider (apply 'max (mapcar 'abs (mapcar '- center_point_1 center_point_2)))) (vla-put-normal profile_object (vlax-3d-point (mapcar '/ (mapcar '- center_point_1 center_point_2) (list divider divider divider)))) (vla-move profile_object (vlax-3d-point '(0 0 0)) (vlax-3d-point center_point_1)) (command "_extrude" profile_ename "" "_d" center_point_1 center_point_2)

Re: Draw a rectangular box knowing two base center points, its width and height.

Kh.mbkh — Mon, 17 Apr 2023 13:57:55 GMT

Thank you for your time:

I did thoses steps:

-Command box - Center (Select midpoint of Center1-Center2) - Length (Insert my length = distance between center1 and center2) - Width (Insert my width) - Then, autocad asks to insert height or 2Points, I tried both height and 2Points, but can't draw the correct box.

Thanks.

Re: Draw a rectangular box knowing two base center points, its width and height.

paullimapa — Mon, 17 Apr 2023 14:06:29 GMT

You forgot the step before the Box command which is:

UCS

ZAxis

Center1

Center2

now do the Box command sequence then for height you can pick either Center1 or Center2

Re: Draw a rectangular box knowing two base center points, its width and height.

Kh.mbkh — Mon, 17 Apr 2023 16:03:24 GMT

Good, but I may need to calculate new coordinate (In new systeme) for each point (Box center point - center1 - center2 ); because when I run Box command - center (I inserted coordinate of Box center point in old systme W-UCS) , so here "No Center found for specified point".
Maybe need to calculate new coordinate in the new UCS ?

Re: Draw a rectangular box knowing two base center points, its width and height.

paullimapa — Mon, 17 Apr 2023 16:09:30 GMT

Yes all points now need to be entered in the current ucs or use lisp trans function to translate the coordinates from one ucs to another:

http://docs.autodesk.com/ACD/2013/ENU/index.html?url=files/GUID-1A316343-0B68-4DBE-8F49-B4D601CB8FCC.htm,topicNumber=d30e633480