Are the four known points always in the same order around the rectangle, i.e. 1-2-4-3 going around, not in numerical order? If so, I would think [untested] this:
(ssget "_CP" (list CP1 CP2 CP4 CP3) '((0 . "LINE") (8 . "H")))
would find it. In your lower cases 4-5-6, that would be all -- only one Line on that Layer. In the upper ones, with the rectangle's Lines on the same Layer as the one you want, you would need to step through the selection set and check whether either end of each Line is at any of the known points, and keep only the one that doesn't have either endpoint on one of them.
@Kent1Cooper wrote:
.... I would think [untested] this:
(ssget "_CP" (list CP1 CP2 CP4 CP3) '((0 . "LINE") (8 . "H")))
would find it. .... you would need to step through the selection set and check ....
I tried that, this way:
(defun matches ()
(setq pt (vlax-curve-getStartPoint line))
(member T
(mapcar
'(lambda (x) (equal pt x 1e-4))
(list CP1 CP2 CP3 CP4)
); mapcar
); member
); defun
(defun C:DOIT (/ ss n)
(if (setq ss (ssget "_CP" (list CP1 CP2 CP4 CP3) '((0 . "LINE") (8 . "H"))))
(progn
(if (> (sslength ss) 1)
(repeat (setq n (sslength ss))
(setq line (ssname ss (setq n (1- n))))
(if (matches) (ssdel line ss))
); repeat
); if
(setq YourLine (ssname ss 0))
); progn
); if
(princ)
); defun
For some reason I haven't figured out, it didn't work right in your CASE-1 example [it didn't "see" the Line you want in the selection], but did in all the others, including the illustration of where the known points are.
@avinash00002002 wrote:
....
the result required is
1. if the line is matches with (distance cp1 cp2)
2. if the line is more than (distance cp1 cp2)
3. if the line is slightly small than (distance cp1 cp2)
....
Well, that's a rather different set of circumstances, if there can be many more Lines than the one you want, on the same Layer within the area of the set of known points. But it seems to me that one length test will do: your option 3 or longer [and without its endpoints on the known points]. Options 1 & 2 would be covered by that. Do you have any percentage in mind for what qualifies as "slightly" shorter? At least 75% as long? 90%?
