| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Mitteilung zeigen (512 mal gelesen)
|
sharipova
Mitglied
   Beiträge: 3
Registriert: 17.07.2013
|
erstellt am: 17. Jul. 2013 22:53  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, ich schreibe gerade ein Programm mit AutoLisp. Es geht darum, Kreis oder Linie wählen, falls weder Linie noch Kreis gewählt wurde oder Eingabebefehl abgebrochen wurde, eine Mitteilung zeigen. Mein Programm funktioniert, aber die Mitteilung wird nicht gezeigt. Kann mir vielleicht jemand sagen was ich falsch mache? Hier ist Ausschnitt: (defun c:aufgabe7() (setq elem (car(entsel "\nBitte Linie oder Kreis waehlen "))) (if elem (progn
(setq e_liste (entget elem)
typ (cdr(assoc 0 e_liste))
)
(cond
((= typ "LINE") (up_line e_liste))
((= typ "CIRCLE") (up_circle e_liste))
(T (print "Kein Objekt gewaehlt"))
);end cond
);end progn );end if
(princ)
) Vielen Dank! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
sharipova
Mitglied
Beiträge: 3
Registriert: 17.07.2013
|
erstellt am: 17. Jul. 2013 22:57 <-- editieren / zitieren --> Unities abgeben:
|
cadplayer
Ehrenmitglied
CADniker
Beiträge: 1832
Registriert: 28.04.2009 Windows 10
64bit system
Autocad Civil3d 2020 ENGLISH
Visual Studio 2019
OpenDCL.Runtime.9<P>
|
erstellt am: 18. Jul. 2013 08:37 <-- editieren / zitieren --> Unities abgeben: Nur für sharipova 
ich wuerde vielleicht noch while vornanstellen, dann brauchst du im Falle du triffst bei der Auswahl nicht richtig ,die Funktion neu aufrufen. Code:
(while (not (setq elem (car(entsel "\nBitte Linie oder Kreis waehlen ")))))
------------------
Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Bauleiter (m/w/d) | Unsere Mitarbeiter:innen sind das Geheimnis unseres Erfolgs. Als Teil eines weltweiten Teams entwickeln Sie Ingenieurskunst für die Hightech-Märkte der Zukunft weiter, darunter Halbleiter, Batterien, Pharma, Biotechnologie und Rechenzentren. Gemeinsam arbeiten wir leidenschaftlich und ambitioniert an den Herausforderungen von heute und den Innovationen für morgen. Damit setzen wir die Tradition unseres Unternehmens fort und leisten unseren Teil zum Aufbau einer besseren Welt.... | | Anzeige ansehen | Bauwesen |
|
sharipova
Mitglied
Beiträge: 3
Registriert: 17.07.2013
|
erstellt am: 18. Jul. 2013 08:58 <-- editieren / zitieren --> Unities abgeben:
Zitat:
Original erstellt von cadplayer:
ich wuerde vielleicht noch while vornanstellen, dann brauchst du im Falle du triffst bei der Auswahl nicht richtig ,die Funktion neu aufrufen.Code:
(while (not (setq elem (car(entsel "\nBitte Linie oder Kreis waehlen ")))))
Vielen Dank, gute Idee. Habe nicht darüber gedacht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
. Danke!
