---

Hallo,

mit dem Code habe ich die Abfrage nein/ja beim spiegeln auf erst ja dann nein umgestellt. Die Abfrage kommt aber vor der Abfrage der Spiegel-Linie.
Kann man das auch in wie im originalen Befehl nach der Spiegel-Linie abfragen?

Danke

Code:

---

(defun c:mir (/ wa au )
(vl-load-com)
(setq wa (ssget))
(initget "Ja Nein")
(setq au (getkword "\nAuswahl [Ja/Nein] <Ja>: "))
(if au (command "_mirror" wa "" pause pause au))
(princ)
)

---

------------------
Error in Layer 8

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

---

(defun c:mir (/ wa au PKT1 PKT2)
(if(and(princ "\nSpiegeln:")
        (setq wa (ssget))       
        (setq PKT1(getpoint "\Ersten Punkt der Spiegelachse angeben:"))
        (setq PKT2(getpoint PKT1 "\nZweiten Punkt der Spiegelachse angeben:"))
        (or(initget "Ja Nein")'T)
        (setq au(if(=(getkword "\nQuellobjekte löschen? [Ja/Nein] <Ja>: ")"Nein")"_No" "_yes"))               
    )
  (command "_mirror" wa "" PKT1 PKT2 au)
) 
(princ)
)

so?

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo,

ich würde einfach den Befehl spiegeln komplett "nachbauen", mit all den Eingabeaufforderungen, die auch vom Originalbefehl angefordert werden.
Dann den command-Aufruf mit den Eingabewerten füttern.
Könnte auf die Schnelle so aussehen (ungetestet):

(defun c:sp_del (/ aws p1 p2 au)
  (setq aws (ssget))
  (setq p1 (getpoint "\nErsten Punkt der Spiegelachse angeben: "))
  (setq p2 (getpoint "\nZweiten Punkt der Spiegelachse angeben: "))
  (initget "Ja Nein")
  (setq au (getkword "\nQuellobjekte löschen? [Ja/Nein] <Ja>: "))
  (setq cmdecho 0)
  (if au
    (command "_mirror" aws "" p1 p2 au)
  )
  (setq cmdecho 1)
  (princ]
)

Hier ist noch nicht implementiert, wenn der User die Abfrage nach dem Löschen der Objekte mit ENTER beantwortet. Du willst ja auch noch was machen   Und cmdecho natürlich speichern und zurückschreiben.

Jürgen

[EDIT] Damn, Thomas war schneller ...

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 14. Mai. 2014 editiert.]

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

---

ja klar - einfach die zwei Punkte abfragen.

SUPER! DANKE!

------------------
Error in Layer 8

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

---

kleines Beispiel

Code:

---

(defun c:mir_ (/ wa au )
(vl-load-com)
(setq wa (ssget))
(command "_mirror" wa "" pause pause (progn (initget "Ja Nein")(setq au (getkword "\nAuswahl [Ja/Nein] <Ja>: "))(if (= au "Nein")(setq au "Nein" )(setq au "Ja" ))))
(princ)
)

---

[Diese Nachricht wurde von -ikarus- am 15. Mai. 2014 editiert.]

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

---

Kommt ja immer wieder vor, dass man sowas braucht.
Ich hab mir dafür eine Funktion gebaut (die Abfragebedingungen könnte man natürlich "verfeinern" ...):

Code:

---

(defun f#defask (#vorgabe #anztext / )
  (if #vorgabe
    (= "" (getstring T (strcat "\n" #anztext ": Nein/<Ja> "))) ;nur Enter gedrückt ...
    (/= "" (getstring T (strcat "\n" #anztext ": Ja/<Nein> "))) ;bei einer Eingabe von "J" oder ...
  );if
);defun

---

Beispiel:

Code:

---

(if (setq #vorgabe (f#defask #vorgabe "IrgendeinHinweistext"))
  tu dieses
  tu jenes
);if

---

Je nach Bedarf ist #vorgabe auf T oder nil zu setzen.
(f#defask T "IrgendeinHinweistext") "Ja" als default
(f#defask nil "IrgendeinHinweistext") "Nein" als default

------------------
Schöne Grüße
Ernst

www.geopaint.at

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