---

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

---

Anworten wirst du wohl hier finden können, das Lisp funktioniert auch mit nicht assoziativen Schraffuren oder gänzlich fehlenden Umgrenzungen.
http://www.jtbworld.com/lisp/hatchb.htm

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Udo,
ich habe mir einen Wolf gesucht, den Beitrag hatte ich aber nicht gefunden. Ich werde mich da mal durcharbeiten, heimlich hatte ich ja noch auf eine kurze und knappe VLA-Variante gehofft.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP