---

Hallo!

In dem unteren Lisp-Prg. (nicht von mir) wird nach der Auswahl einer Linie gefragt. Bei einer normalen Linie ist es OK, bei einer 2D-Polylinie kommt die Meldung: Fehlerhafter Argumenttyp: 2D-/3D-Punkt.
Wie sollte die Abfrage für eine 2D-Polylinie aussehen?

Für Eure Bemühungen bedanke ich mich schon im Voraus.

(defun c:LINIENAUSWAHL()
  ;...
  (SETQ Q@@(ENTSEL"\n Linie wählen: "))
  (SETQ ENAME(CAR Q@@)QQ@(CADR QO@)Ql@(ENTGET ENAME)Q|(TRANS(CDR(ASSOC 10 Ql@))ENAME 1)Q%(TRANS(CDR(ASSOC 11 Ql@))ENAME 1))
  ;...
)

- AutoCAD 2002 -

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

---

Hallo,
der Fehler bezieht sich nicht auf das entsel sondern auf das trans. Du bekommst natürlich für eine Polylinie eine andere Entity-Liste!

------------------
Nur Döner macht schöner und wenn du ihn nicht isst, bleibst du wie du bist!

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

---

Schau mal (ungetestet)

(defun c:LINIENAUSWAHL()
  ;...
  (if (SETQ Q@@(ENTSEL"\n Linie wählen: "))
    (progn
      (SETQ ENAME(CAR Q@@)
            QQ@  (CADR QO@)
            Ql@  (ENTGET ENAME)
      )
      (cond
        ((=(cdr(assoc 0 Ql@)) "LINE")
          (setq  Q|  (TRANS (CDR(ASSOC 10 Ql@)) ENAME 1)
                  Q%  (TRANS (CDR(ASSOC 11 Ql@)) ENAME 1)
          )
        )
        ((=(cdr(assoc 0 QL@)) "LWPOLYLINE")
            (setq Q|  (TRANS (reverse (cons 0.0 (CDR(ASSOC 10 Ql@)))) ENAME 1)
            ; ...
            )
       
        )
      )
    )
  )
  ;...
)

------------------
- Thomas -

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

---

Hallo Thomas,

könntes Du dein Lisp-Prg. so anpassen, dass es auch mit 2D-Polylinien klappt?

MfG

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

---

Klar ist das machbar .. Was hast du denn vor ?
Schau mal Hier. Da ist eine Funktion, die die Koordinatenliste von Polylinien liefert.. DT:PL-Coords->PKTLIST ... Brauchst du nur den ersten Punkt, alle ... ? Aus deinem Fragment ist das nicht ersichtlich.. und laß dir doch bitte sprechendere Variablennamen einfallen 

------------------
- Thomas -

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

---

Hallo,

wie ich oben angemerkt habe, ist das Lisp-Prg. nicht von mir. Ich möchte aber das Prg. so anpassen, dass es auch mit den von uns hauptsächlich benutzten 2D-Polylinien funktioniert. Das kompl. Prg. benutzt die Angabe um eine parallele Linie zu erzeugen. Leider verstehe ich das Prg. auch nur ganz grob.
Also, wenn ich auf eine normale Linie klicke bekomme ich Koordinaten angezeigt (x, y, z) die zur weiteren Berechnung so benötigt werden. Diese Koordinaten müssten so auch aus einer 2D-Polylinien generiert werden. Leider reichen hierfür meine Kentnisse z. Zt. nicht aus um das zu realisieren. 

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

---

Hm,
parallele Linie.
Kein Problem mit ActiveX. Habe da so'n paar Funktionen für die Methode offset rumliegen. Sag doch mal, was genau bei Deiner parallel-Funktion passieren soll.

------------------
Ciao,
Marc

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