Hallo,
ich wollte mir von Schraffuren die Begrenzugskoordinaten rauslesen, mit dem unteren Code klappt das auch ganz gut, aber nur, wenn die Schraffuren assoziativ sind (dann erhalte ich eine Liste von VLA-Objekte => Polylinies).
Wie komme ich an die Koordinaten, wenn die Schraffur nicht assoziativ ist??? Dann gibt vla-GetLoopAt nur NIL zurück, aber irgendwo müssen die Koordinaten doch stecken???
Bin wie immer dankbar für jeden Tip
Code:
(defun c:HatchBoundary ( / OBJ VLA-OBJ VLA-PL-ARRAY VLA-PL-ARRAYLIST N)
(if(setq obj (car(entsel "\nSchraffur:")))
(progn
(setq n -1)
(repeat (vla-get-numberofloops
(setq vla-obj (vlax-ename->vla-object obj)))
(vla-GetLoopAt vla-obj (setq n (+ n 1)) 'vla-Pl-array)
(if vla-Pl-array
(setq vla-Pl-arrayList
(cons (vlax-safearray->list vla-Pl-array)
vla-Pl-arrayList))) )
)
)
(reverse vla-Pl-arrayList))
------------------
viele Grüße
Jörn
http://www.bosse-engineering.com
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP