| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY präsentiert die PRO Elite™ High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung
|
|
Autor
|
Thema: Mitteilung zeigen (540 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: 1838
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 |
| | Anzeige: | Infos zum Werbeplatz >> | pissuCAD CAD APP für Tiefbau, Umwelt Since 1985, AnkiSOFT Software developes software to design infrastructure projects.
pissuCAD has been developed for Wastewater Network Design. It is for Drawing / Modelling / Planning / Design / Analyze / Simulation the wastewater network.
The software works under AutoCAD or ZWCAD.
|
|
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
| 
. Danke!
