| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Eingabe manuell oder mit Maus (1742 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 31. Jan. 2014 14:08 <-- editieren / zitieren --> Unities abgeben:
Aus der Dokumentation von grread werde ich nicht richtig schlau Code:
(grread [track] [allkeys [curtype]])
track... T oder nil allkeys... integer Steuertype ??? curtype... Cursoranzeige Jetzt habe ich einmal vor die Grösse eines Kreises mit der Maus und der Tastatur zu steuern, d.h. am Fadenkreuz wird mir der Radiuswert angezeigt. Mit Hilfe der Tastatur möchte ich einen realWert eingeben Bisher bin ich soweit gekommen, folgende while schleife mit Eingabe Enter- oder Space zu unterbrechen. Ich möchte die Grösse aber ersteinmal mit der Maus aufziehen. Das müsste noch eingebaut werden, aber wie - ich versteh´s nicht richtig
Code:
(princ "\n Eingabe radius: ") (while (and (setq pt (grread t 4 0)) (not (and (= 2 (car pt)) (if (or (= 13 (cadr pt)) (= 32 (cadr pt)) (setq inp (getreal)) ) inp ) ) ) ) inp )
------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 31. Jan. 2014 14:46 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 31. Jan. 2014 16:48 <-- editieren / zitieren --> Unities abgeben:
ganz so einfach ist es nicht in diesem fall. der kreis wird bei mir erzeugt anhand zwei gew. tangenten. dabei ändert sich der radius vom kreis bei bewegung der maus innerhalb des tangent bereiches. gleichzeitig wird mir der radius am fadenkreuz angezeigt. alles läuft über eine while schleife mit der funktion grread jetzt möchte ich erreichen, dass wenn man visuell die grösse sieht möchte ich die exakte grösse radius gern eingeben. ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6050 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 31. Jan. 2014 16:54 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Zitat: Original erstellt von cadplayer: ganz so einfach ist es nicht
Gamz so einfach ist auch nicht zu verstehen, was Du machen willst. Kannst Du mal eine (meinetwegen mit Paint gemalte) Skizze einstellen? Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 31. Jan. 2014 17:37 <-- editieren / zitieren --> Unities abgeben:
nein ich glaube nicht das sie hg so eine gewichtige rolle spielen. denn man sollte einfach mal an meinem codeschnipsel testen was passiert. die ganze vorgeschichte würde hier den thread sprengen. 1 grread übergibt mir anhand typ 5 die grafische koordinate des fadenkreuzes 2 grread wird unterbrochen sobald eine tastatur eingabe erfolgt 3 in meinem beispiel wird grread mit drücken von enter oder space unterbrochen 4 es fehlt an der kombination ich möchte unterbrechen sobald ein real wert eingegeben wird 5 ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 31. Jan. 2014 18:02 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 31. Jan. 2014 19:31 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 31. Jan. 2014 20:07 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Zitat: Original erstellt von cadplayer:4 es fehlt an der kombination ich möchte unterbrechen sobald ein real wert eingegeben wird
Die Kombination liefert dir grread schon inklusive (grread t 1 0), liefert dir Koordinaten wie auch Tastatureingaben Jetzt liegt es an dir die Rückgabe zu verwerten ! In diesem Fall nicht ganz trivial da man von grread nur jede einzelne Tasteneingabe zurück bekommt, was in deinem Fall ja eher nicht gewüscht ist. ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meldin Mitglied
Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 01. Feb. 2014 10:26 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo, Zitat: 3 in meinem beispiel wird grread mit drücken von enter oder space unterbrochen 4 es fehlt an der kombination ich möchte unterbrechen sobald ein real wert eingegeben wird 5
und wie schon von meinem Vorredner Zitat: Jetzt liegt es an dir die Rückgabe zu verwerten !
Hier ein stichpunktmäßiger Hinweis: wenn grread 3 dann punkt auswerten. wenn grread 2 und zwischen 48 und 57 dann Ergebnisse zusammenfügen bis grread 2 den wert 13 hat. Dann das Ergebnis ausgeben. ------------------ Gruß Wolfgang Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 01. Feb. 2014 10:58 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6050 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 01. Feb. 2014 11:24 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Zitat: Original erstellt von cadffm: Die 46 sollte man nicht vergessen..
Und evtl. sogar 69 und 101? und die 45? Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) [Diese Nachricht wurde von jupa am 01. Feb. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Messtechniker F-35 (m/w/d) | - Überprüfung der Maßhaltigkeit von Flug- und Fahrzeugbauteilen, Baugruppen, Vorrichtungen, Prüflehren etc.
- Erfassung und Auswertung mit 3D-Koordinatenmesssystemen (Optisch/Taktil)
- Vermessung von Freiformflächen und Regelgeometrien an Prototypen, Erstmustern und Serienbauteilen
- Einzel- und Serienmessung sowie fertigungsbegleitende Messungen
... | Anzeige ansehen | Elektrotechnik, Elektronik |
|
Meldin Mitglied
Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 01. Feb. 2014 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Ja,ja man könnte sogar 8 berücksichtigen zur Korrektur. aber wie hier schon gesagt wurde. Zitat: Jetzt liegt es an dir die Rückgabe zu verwerten !
------------------ Gruß Wolfgang Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |