---

Hallo zusammen,
vielleicht kann mir jemand helfen...

Wie kann man in LISP Linien identifizieren?
Der Befehl offset benötigt Objekte. Diese Funktionen habe ich erfolgreich eingesetzt.

Nun möchte ich z.B. eine Linie bemassen .
Es wird nach Bogen Kreis Linie gefragt....und nicht nach Objekten.
Und dieses bekomme ich nicht hin.
Kann ich so etwas nicht über die Entity Einträge herausfiltern?

Schönen Tag noch

Gruß
dschu

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

---

Hallo dschu,

was meinst Du denn mit identifizieren?
Du kannst einen Auswahlsatz erstellen und diesen dann filtern, oder du kannst gleich einen gefilterten Auswahlsatz erstellen, oder oder oder. Aber den Sinn Deiner Frage, solltest Du etwas erläutern, am besten beschreibst Du komplett was die Ausgangssituation ist und was das Ziel sein soll.

Grüße Holger

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

---

Hi,
guck Dir mal diesen Versuchsaufbau an:

Code:

---

;;; Unterfunktion gibt nil oder das Ergebnis von entsel zurück
(defun TEST (/ OBJ X)
  (setq OBJ (entsel "\nBogen, Kreis oder Linie wählen: "))
  (if OBJ
    (if (apply
          'or
          (mapcar
            '(lambda (X) (= (cdr (assoc 0 (entget (car OBJ)))) X))
            '(
              "CIRCLE"
              "ARC"
              "LINE"
            )
          ) ;_ end of mapcar
        ) ;_ end of apply
      OBJ
    ) ;_ end of if
  ) ;_ end of if
) ;_ end of defun

;;; While-Schleife mit oben definierter Sub-Funktion
;;; Aufforderung solange, bis Test nicht nil zurückgibt
(while (not (setq OBJ (TEST)))
  (princ "\nFalsches Objekt gewählt, versuch's noch einmal..."
  ) ;_ end of princ
) ;_ end of while

---

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

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

---

Hallo Holger,

Ich versuch's mal zu beschreiben
Das soll der ungefähre Aufbau sein

Zuerst werden Linien gezeichnet
(command "_.line" "0,0" "200,200" "")
Dann möchte ich mir diese Linien merken
(setq linie1
      (entget(entlast)))
--und hier hab ich's noch nicht begriffen weil ich mir damit ja nur das Objekt merke !

(command "_.line" "0,0" "200,0" "")
(setq linie2
      (entget(entlast))
);end setq

;; Und zum Schluß möchte ich einen Winkel damit bemaßen
(command "_.dimangular" linie1 linie2 "")

Bedenke - ich bin Neu im LISP-Geschäft.
Danke für die Mühe

Gruß dschu

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

---

Hallo Dschu,

(schau Dir mal an, in welchem Format die Funtion (entsel) ein Ergebnis liefert, in dieser Form mußt du die Werte übergeben.
Bsp:
(command "_.dimangular" (entsel) (entsel) "")

oder für dein Bsp:
(command "_.dimangular"
(list (cdr (assoc -1 linie1)) (cdr (assoc 10 linie1)))
(list (cdr (assoc -1 linie2)) (cdr (assoc 10 linie2)))
(getpoint)
)

Bei Fragen ...

Grüße Holger

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

---

Ich danke Holger und Marc

für die Hilfe. Es hat funktioniert.

Schönen Tag noch...

Gruß dschu

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