Zentraloid eines Gebiets, das von einer Polylinea begrenzt wird

[arri]

legt einen punkt in der mitte der ausgewählten geometrien (politik sollte geschlossen werden)

(refun c:polycen (/polyset polylist model newpl obarr newreg newwpt)
(princ "\n*** Suche abgeschlossene Polylinien **)
(Fälle)
(setq polyset(ssget '(0 . "lwpolyline"))))))))))
(Progn)
(setq polylist(mapcar 'vlax-ename->vla Objekt
(vl-remove-if'listp)
(Karte 'cadr(ssnamex polyset)))))))
modell(vla-get-modelspace)
(fla-get-aktives Dokument
(vlax-get-acad-Objekt)
; endsetq
(foreach p polylist
(if(= :vlax-true(vla-get-closed p)))
(Progn)
(setq newpl(vla-copy p)
obarr(vlax-make-safearray vlax-vbobject '(0.0)
; endsetq
(vlax-safearray-put element obarr 0 newpl)
(setq newreg(car(vlax-safearray)>list
(vlax-variant wert)
(fla-addregion model obarr)
newpt(vlax-3d-point
(beifall)
(vlax-safearray->list
(vlax-variant wert)
(Liste 0.0)
; endsetq
(fla-addpoint model newpt)
(vla-delete newpl)(vla-delete newreg)
— Endprog
Ende, wenn
Ende für dich
— Endprog
(princ "\n*** notning Closed Polylines select! ***")
Ende, wenn
(princ)
); ende c:Polycen
(vl-load-com)

segnalato da Antoniovinci