---

Hallo zusammen,

ich habe ein Tool zur Ermittlung der Neigung einer Linie erstellt.

Frage:
Die Prüfung ob die Elementwahl eine Linie ist, geht doch sicher viel einfacher oder?
Elegant wäre doch, wenn sich eine Einzelwahl wiederholt, bis das gewählte Element eine Linie ist oder auch wenn nichts gewählt wird. while, cond... ich kriege es einfach nicht hin.

Hier mal der Code (ich programmiere immer vollständig mit allen setq etc.)

----------------------------------------------------------------------------

(defun c:rC-Messen_Winkel-Prozent( / element sli li x1 x2 y1 y2 proz e_liste typ Prozentstr winkel Winkelstr)
;Meldung
(princ " ")
(princ "\nrC © ryfB  FUNKTION: misst Neigung einer Linie in Grad und %\n ")
(princ)
;Linie wählen:
(setq sli (entsel "\nBitte NUR Linie wählen: "))
;Wahl in Liste übergeben
(setq element (car sli))
;ist etwas gewählt?
(if sli
(progn
;Suchen nach Elementtyp aus der Liste
(setq e_liste (entget element))
(setq typ (cdr (assoc 0 e_liste)))
;wenn Linie dann...
(if
(= typ "LINE")
(progn
(setq li (entget (car sli)))
;Koordinaten der Punkte filtern (da Winkelauswahl 50 nicht möglich)
(setq x1 (car (cdr (assoc 10 li))))
(setq y1 (cadr (cdr (assoc 10 li))))
(setq x2 (car (cdr (assoc 11 li))))
(setq y2 (cadr (cdr (assoc 11 li))))
;Berechnung %-Wert und Umwandlung in Format XX.X und Anhang "%"
(setq proz (abs (* (/ (- y1 y2) (- x1 x2)) 100)))
;Umwandlung in String für Ausgabe
(setq Prozentstr (rtos proz 2 2))
;Berechnung des Winkels
(setq winkel (/ (* (ATAN (/ proz 100.0)) 180.0) pi))
;Umwandlung in String für Ausgabe
(setq Winkelstr (rtos winkel 2 2))
;Ausgabe
(alert
(strcat
"\n
rC © ryfB
\n
Die Neigung beträgt:\n\n"
Winkelstr "°  =  " Prozentstr "%
\n"

)
)
)
;wenn keine Linie: Fehlermeldung
(alert "\nrC © ryfB\n\nkeine Linie gewählt")
)
)
;wenn nichts gewählt: Fehlermeldung
(alert "\nrC © ryfB\n\nnichts gewählt")
) 
(princ)
)

------------------
Auch für LT gibt es Lösungen, aber Lisp erleichtert das Leben ungemein

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

---

>" Die Prüfung ob die Elementwahl eine Linie ist, geht doch sicher viel einfacher oder?"
Ich fasse deinen Code mal kurz zusammen: Du prüfst ob das Objekt eine Linie ist.
Frage: Wie soll man denn "prüfen ob ein Objekt eine Linie ist" einfacher gestalten
wie einfach zu prüfen ob das Element eine Linie ist?

Schreibe dir dafür irgendwann mal eine Funktion dafür, die wirst du öfter benötigen
und dann siehst du die ganzen Schritte nicht mehr, aber gemacht werden müssen die..)
Außer man erlaubt Mehrfach-Objektwahl, dann nutzt man SSGET und dort kann man bereits
für die Auswahl einen Filter  festlegen (ssget '((0 . "LINE"))). Stichwort: Auswahlsatz/SelectionSet

Viel einfacher geht nicht, man kann es aber schöner/kürzer gestalten wenn man nicht:
>" (ich programmiere immer vollständig mit allen setq etc.)"

>"Elegant wäre doch, wenn sich eine Einzelwahl wiederholt, bis das gewählte Element eine Linie ist"

>"oder auch wenn nichts gewählt wird. while, cond... ich kriege es einfach nicht hin."

Schreibe dir den Ablauf ordentlich auf (so gut es dir mit dem jetzigen Wissen möglich ist),
dann baue die benötigte Funktion zusammen (Denn es gibt diese nicht als native Funktion, da muß man selber ran)
Zum testen nimmst du einen einfachen code damit alle anderen potentiellen Fehler deines Codes ausgeschlossen sind,
also erstelle eine Funktion die mit (alert (cdr(assoc 8 entitylist))) einfach nur den Layer anzeigt.
Da es um die Objektwahl, verklicken und Wiederholung geht, interessiert der rest ja nicht in dem Moment.

PS: Bitte formatiere deinen Code etwas, ist ansonsten unnötig schwer zu lesen.

Code:

---

(while (setq EL (car(entsel "\nBitte wählen Sie eine Linie: "))) ; solange etwas gewählt wird
      (if (= "LINE" (strcase(cdr(assoc 0 (setq EL (entget EL)))))) ; Objekttyp LINE ?
          (progn ; dann mach
            (princ (strcat "\nLinie referenziert Layer \"" (cdr(assoc 8 EL)) "\""))
          )      ; ansonsten
          (princ "\nObjektwahl verworfen, es sind nur LINIEN-Objekte zulässig!\n")
      )
)

---

bis das gewählte Element eine Linie ist oder
auch wenn nichts gewählt wird. while, cond... ich kriege es einfach nicht hin."

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

---

Hallo ryfCAD,

probiere das hier mal:

Code:

---

(while (not (and (setq sli (entsel " Linie wählen "))
                (= (cdr (assoc 0 (entget (car sli))))  "LINE")
            )
        )
)

;weiter mit:
(setq li (entget (car sli)))
...

---

HTH
Gruß
Thomas

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

---

Hallo ryfCAD,
auch ich habe noch eine Variante, dabei ist sind die Funktionen AND und OR sehr hilfreich. Die Schleife wird erst beendet, wenn kein Objekt mehr gewählt wird.

Code:

---

(defun c:test ( / DO OBJ)
  (setq Do 'T)
  (while Do;;;solange Do = 'T ist
    (if
      (and
(setq obj (car(entsel "\nBitte wählen Sie eine Linie (ENTER=Ende):")))
(or
  (=(cdr(assoc 0 (entget obj)))"LINE")
  (alert "Das Objekt war keine Linie."));;;alert gibt NIL zurück
)
      (alert "Jetzt was mit der Linie machen.")
      (if (not obj);;;Do auf NIL setzen, wenn kein Objekt gewählt worden ist (ENTER)
(setq Do nil)
)
      )
    )
  )

---

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

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

Foto-Manager Youtube

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

---

Hallo und besten Dank!

Habe die Lösung von Spider_DD mal integriert und funktioniert:

@cadffm: die Formatierung geht mit copy-paste irgendwie verloren, kopiere aus Notepad++, die Einrückungen mache ich mit Tabs

code:
(defun c:rC-Messen_Winkel-Prozent( /  sli li x1 x2 y1 y2 proz Prozentstr winkel Winkelstr)

  ;Meldung
  (princ " ")
  (princ "\nrC © ryfB  FUNKTION: misst Neigung einer Linie in Grad und %\n ")
  (princ)

  ;Linie wählen:
  (while
      (not
        (and
            (setq sli (entsel "\nLinie wählen "))
            (= (cdr (assoc 0 (entget (car sli))))  "LINE")
        )
      )
  )
  (setq li (entget (car sli)))
 
  ;Koordinaten der Punkte filtern (da Winkelauswahl 50 nicht möglich)
  (setq x1 (car (cdr (assoc 10 li))))
  (setq y1 (cadr (cdr (assoc 10 li))))
  (setq x2 (car (cdr (assoc 11 li))))
  (setq y2 (cadr (cdr (assoc 11 li))))

  ;Berechnung %-Wert und Umwandlung in Format XX.X und Anhang "%"
  (setq proz (abs (* (/ (- y1 y2) (- x1 x2)) 100)))
  ;Umwandlung in String für Ausgabe
  (setq Prozentstr (rtos proz 2 2))
  ;Berechnung des Winkels
  (setq winkel (/ (* (ATAN (/ proz 100.0)) 180.0) pi))
  ;Umwandlung in String für Ausgabe
  (setq Winkelstr (rtos winkel 2 2))
  ;Ausgabe
  (alert
      (strcat
"\n
rC © ryfB
\n
Die Neigung beträgt:\n\n"
Winkelstr "°  =  " Prozentstr "%
\n"
      )
  )
(princ)
)

------------------
Auch für LT gibt es Lösungen, aber Lisp erleichtert das Leben ungemein

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