Topic: [XDrX-Function(17)] point set minimum area rectangle

[xdcad]

min area rectange function:

Code - Auto/Visual Lisp: [Select]

1. (xdrx_points_minareabox <pts>)
2. parameter:
3. pts: point list
4. return value:
5. Minimum rectangle four-point coordinate list
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_MinAreaBox pts)
7.       )
8.       (xdrx-polyline-make box t)
9.       (xdrx-setpropertyvalue (entlast) "color" 1)
10.     )
11.   )
12.   (princ)
13. )