Topic: [XDrX-Function(22)] point set maximum perimeter rectangle

[xdcad]

Max Perimeter function:

Code - Auto/Visual Lisp: [Select]

1. (xdrx_points_MaxPerimeterBox <pts>)
2. parameter:
3. pts: point list
4. return value:
5. LIST: (point point  point point)
6.  

Code - Auto/Visual Lisp: [Select]

1. (defun c:tt ()
2.   (if (setq ss (xdrx-ssget "\nSelect Points<Exit>" '((0 . "point"))))
3.     (progn
4.       (setq pts (xdrx-getpropertyvalue ss "position")
5.             pts (apply 'append pts)
6.             box (xdrx_points_MaxPerimeterBox pts)
7.       )
8.       (xdrx-polyline-make box t)
9.       (xdrx-setpropertyvalue (entlast) "color" 4)
10.     )
11.   )
12.   (princ)
13. )