Irregular room
@stevor wrote:
... if there is a sequence order to the 6 distances, and the orientation might be if two sides were constrained.
....
Yes, because without some kind of particulars like those, there are an infinite number of solutions to the same set of "raw" distances:
And that's just if you know which two are the diagonals [yellow]. If the list of distances doesn't differentiate those from the edges, it might be possible for a routine to figure out which they need to be for a viable solution, but I expect it would be a real challenge.
Kent Cooper, AIA 
@Anonymous wrote:
These dimensions give shape to the same polygon that if we look rotated.
Post a drawing or an image. I'm having a hard time understanding what you are trying to do, and obviously people are interpreting it in different ways.
Kent Cooper, AIA
In case perhaps what you mean is something like this [a room that's regular in overall rectangular shape, but with the irregularity of diagonal chamfered corners]:
then I have a routine that will Chamfer a corner when what you know is the desired width of the resulting new edge [the "diagonal" in your description?], rather than the distance back from the intersection [or apparent intersection] of two selected edges. ChamferWidth.lsp with its CW command is available here. But be aware that it works only on Lines, not on corners of Polylines -- something could probably be developed to do the latter, but it would be more complicated.
Kent Cooper, AIA
@Anonymous wrote:
I need to draw a field that was measured in the terrain or draw an apartment using the measured dimensions of the rooms.
In reality there is no perfect (90°) rectang field or room. The goal is to transfer the existing state to the computer.
I don't think you will find an automated solution. If there are more than three edges, and you know only their lengths [I am assuming that from Post 1, but maybe that's not what you meant], there are an infinite number of solutions, so even if an AutoLisp routine could somehow be made to find one of them, it is not likely to be the correct one. You would need a survey that includes angles as well as lengths.
Kent Cooper, AIA
@Kent1Cooper wrote:
@Anonymous wrote:
These dimensions give shape to the same polygon that if we look rotated.
Post a drawing or an image. I'm having a hard time understanding what you are trying to do, and obviously people are interpreting it in different ways.
I repeat -- post something specific as an example, preferably an image or drawing file showing the distances and how they relate to each other, even if it's only approximate. I'm not sure what you meant in Post 1 by "diagonal entries" -- are they entrances [e.g. doorways] into the room that are in diagonal walls at the corners of the room, as some are obviously thinking? Or are they diagonal measurements between opposite corners of the room ["entries" in a list of measurements, not into a room]? Post 12 suggests that, and that's what I was thinking in Post 3. Also, I don't think "pages" [Posts 7 and 13] is the right English word for whatever you are talking about, but I can't figure out what the right word should be. Is there someone more fluent in English who can word it differently for you?
Kent Cooper, AIA
@Kent1Cooper wrote:
... are they diagonal measurements between opposite corners of the room ...? .....
On the assumption that that's the idea, here's another way to do it:
(defun Quad42 ; = Quadrilateral given lengths of 4 edges & 2 diagonals
; First 4 arguments are edge lengths, 5th & 6th are diagonal lengths;
; 5th must be diagonal from 1st to 3rd point [start of 1st edge to end of 2nd].
; Draws roughly centered in screen, 1st edge [AB] horiz. left-to-right as base;
; A is lower left, B lower right, C upper right, D upper left.
; Move/Rotate/Mirror result as appropriate.
; If any inaccuracy in measurements, diagonal BD will not meet D exactly.
(AB BC CD AD AC BD / osm A B c1 c2 intC C intD D)
(setq
osm (getvar 'osmode)
A (mapcar '- (getvar 'viewctr) (list (/ AB 2.0) (/ AD 2.0) 0))
B (polar A 0 AB)
); setq
(setvar 'osmode 0)
(command "_.circle" A AC) (setq c1 (vlax-ename->vla-object (entlast)))
(command "_.circle" B BC) (setq c2 (vlax-ename->vla-object (entlast)))
(setq
intC (vlax-invoke c1 'intersectwith c2 acExtendNone)
C
(if (> (nth 1 intC) (nth 4 intC)); first Y coordinate higher
(reverse (cdddr (reverse intC))); then -- first 3
(cdddr intC); else -- last 3
); if & C
); setq
(command "_.erase" "_last" "" "_.erase" "_last" "")
(command "_.circle" C CD) (setq c1 (vlax-ename->vla-object (entlast)))
(command "_.circle" A AD) (setq c2 (vlax-ename->vla-object (entlast)))
(setq
intD (vlax-invoke c1 'intersectwith c2 acExtendNone)
D
(if (> (nth 1 intD) (nth 4 intD)); first Y coordinate higher
(reverse (cdddr (reverse intD))); then -- first 3
(cdddr intD); else -- last 3
); if & D
); setq
(command
"_.erase" "_last" "" "_.erase" "_last" ""
"_.line" A B C D A C ""
"_.line" B (polar B (angle B D) BD) ""
); command
(setvar 'osmode osm)
(princ)
); defun
(vl-load-com)
Kent Cooper, AIA