Hallo
Ik zou graag willen weten of het mogelijk is om een rechthoek te maken die in staat is tot de kleinst mogelijke in vergelijking met een poligone
rectangle_capable.pdf
rectangle_capable.pdf
Hallo
Voor zover ik weet geen automatische oplossing, gewoon de zijden samenlaten vallen met de hoekpunten van de veelhoek.
Ik heb zelfs een LISP-programma gevonden dat het doet:
;; SmallestRectangle.lsp [naam opdracht: SR]
;; Om de kleinste orthogonale rechthoek rond een gebruiker te tekenen-
;; geselecteerde groep objecten. Trekt op de huidige laag.
;; Kent Cooper, 27 februari 2013
(defun C:SR (/obb oLL oUR ss LL UR); = Kleinste rechthoek
(defun obb (ent); = Hoeken van het begrenzingsvak van het object
(vla-getboundingbox (vlax-ename->vla-object ent) 'minpt 'maxpt)
(setq
oLL (vlax-safearray->list minpt); Object linksonder
oUR (vlax-safearray->lijst maxpt); Object rechtsboven
); setq
); Defun -- OBB
(vl-belasting-com)
(prompt "\nOm de kleinste rechthoek eromheen te tekenen,")
(setq ss (ssget))
(OBB (SSname SS 0))
(setq LL oLL UW oUR); initiële totale LL&UR [van het eerste object]
(ssdel (ssname ss 0) ss)
(herhalen (hv hv)
(OBB (SSname SS 0))
(setq
LL (mapcar 'min oLL LL); het minste van elk onderdeel
UR (mapcar "max oUR UR); Grootste van elk onderdeel
); setq
(ssdel (ssname ss 0) ss)
); Herhalen
(commando "_.rechthoek" "_none" LL "_none" UR)
(prinç)
); defun -- C:SR
Lente:
http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/the-smallest-rectangle-enclosing-selected-set-of-objects/td-p/3791519
Bewerken: voor het gebruik van LISP's, zie deze tutorial:
http://cadxp.com/topic/14323-charger-un-lisp/
1 like