| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: LISP - Align bzw Ausrichten mit XY-Eingabe (1993 mal gelesen)
|
silcono Mitglied Planer
Beiträge: 88 Registriert: 19.12.2014 AutoCAD 2010 LT AutoCAD 2014 AutoCAD 2018 AutoCAD MAP 3D 2017 Intel(R) Core(TM) i5-4570 CPU @ 3.20GhZ 3.20Ghz 16,00GB Ram Windows 7- Prof. 64-Bit ASUS EAH6450 Series
|
erstellt am: 19. Dez. 2014 21:04 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, bin neu hier, also verzeiht wenn ich am Anfang nicht alles richtig mache Also: Ich arbeite mit AutoCAD 2014, und habe mit grösstenteils alles selbst beigebracht. Natürlich eine Grundschulung absolviert. Dann habe ich angefangen mit Skripten. Nun bin ich bei LISP angekommen. Ich habe durch SuFu und anderen Seiten und Hilfen eine LISP zusammen gestellt. Es soll die Funktion ALIGN bzw AUSRICHTEN ausführen. Beim eingeben der Zielpunkte, geht leider nur die Länge und Richtung, nicht die X- und Y-Werte. Dies würde ich gern ändern und habe mal ein bisschen ausprobiert. - Objekt wählen das ausgerichtet werden. - Ersten Ausgangspunkt über 'getpoint'. - Ersten Zielpunkt ??? (würde ich gern über X und Y eingeben). - Zweiter Ausgangspunkt und Zielpunkt, wie beim Ersten. - und skalieren. Bisher die LISP: ------ (DEFUN C:xgeo (/ geo_set 1q 1z 2q 2z) (PROMPT "\nObjekt auswählen: ") (SETQ geo_set (SSGET)) (SETQ 1q (GETPOINT "\nErsten Quellpunkt angeben: ")) (SETQ 1z (command "_circle" PAUSE "3")) (SETQ 2q (GETPOINT "\nZweiten Quellpunkt angeben: ")) (SETQ 2z (command "_circle" PAUSE "3")) (align geo_set 1q 1z 2q 2z "" "YES") )end defun ------ Hier die Befehlszeile bei der Ausführung: Befehl: XGEO Select object(s) to align & scale: Objekte wählen: Entgegengesetzte Ecke angeben: 1 gefunden Objekte wählen: Specify 1st source point: _circle Zentrum für Kreis angeben oder [3P/2P/Ttr (Tangente Tangente Radius)]: 25,25 Radius für Kreis angeben oder [Durchmesser] <3.0000>: 3 Befehl: Specify 2nd source point: _circle Zentrum für Kreis angeben oder [3P/2P/Ttr (Tangente Tangente Radius)]: 50,50 Radius für Kreis angeben oder [Durchmesser] <3.0000>: 3 Befehl: Fehler: Nullargument nicht zulässig. ------ Für die Zielpunkte habe ich gedacht ich nehme einen Kreis als Bezug. Leider komme ich nun nicht weiter. Wo könnte mein Denkfehler sein??? Über Anregungen und Hilfen würde ich mich sehr freuen. Im Voraus schonmal besten Dank!!! Grüße Silcono Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 19. Dez. 2014 21:25 <-- editieren / zitieren --> Unities abgeben: Nur für silcono
Dein großer Fehler ist nicht alles Stück für Stück zu erarbeiten, den dann wäre dir gleich aufgefallen das (command irgendwas) als Rückgabe ein "NIL" liefert. Zielpunkt eins und zwei gibt es also gar nicht. Wenn du den Spaß mit den Kreisen belassen möchtest, dann so: (command "_circle" (setq z1 (getpoint "\nZielpunkt1 angeben")) "3") Getpoint liefert die Koordinate(Mausklick oder Eingabe) und setq bindet es an das Symbol z1. Später würde das Programm noch etwas weniger Fehleranfällig gestaltet werden sollen: Erst sicherstellen das du Auswahlsatz und alle Punkte hast (if (and <hier die Objekt und Punktabfragen rein) (command "_align" ....) (alert "Fehler!") ) Aber versuche erst mal deine unsichere Variante. ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
silcono Mitglied Planer
Beiträge: 88 Registriert: 19.12.2014 AutoCAD 2010 LT AutoCAD 2014 AutoCAD 2018 AutoCAD MAP 3D 2017 Intel(R) Core(TM) i5-4570 CPU @ 3.20GhZ 3.20Ghz 16,00GB Ram Windows 7- Prof. 64-Bit ASUS EAH6450 Series
|
erstellt am: 19. Dez. 2014 21:45 <-- editieren / zitieren --> Unities abgeben:
|
silcono Mitglied Planer
Beiträge: 88 Registriert: 19.12.2014 AutoCAD 2010 LT AutoCAD 2014 AutoCAD 2018 AutoCAD MAP 3D 2017 Intel(R) Core(TM) i5-4570 CPU @ 3.20GhZ 3.20Ghz 16,00GB Ram Windows 7- Prof. 64-Bit ASUS EAH6450 Series
|
erstellt am: 21. Dez. 2014 19:24 <-- editieren / zitieren --> Unities abgeben:
SUPER!!! Vielen Dank! Es funktioniert einwandfrei. Hier der geänderte Ablauf: (DEFUN C:xgeo (/ geo_set 1q 1z 2q 2z) (PROMPT "\nObjekt auswählen: ") (SETQ geo_set (SSGET)) (SETQ 1q (GETPOINT "\nErsten Quellpunkt angeben: ")) (command "_circle" (SETQ 1z (GETPOINT "\nErsten Zielpunkt angeben")) "3") (SETQ 2q (GETPOINT "\nZweiten Quellpunkt angeben: ")) (command "_circle" (SETQ 2z (GETPOINT "\nZweiten Zielpunkt angeben")) "3") (align geo_set 1q 1z 2q 2z "" "YES") )end defun Ok ich weis, es ist nicht die beste Lösung, aber es tut was es soll Vielen Dank cadffm! Grüße und ein frohes Fest!!! Silcono Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
silcono Mitglied Planer
Beiträge: 88 Registriert: 19.12.2014 AutoCAD 2010 LT AutoCAD 2014 AutoCAD 2018 AutoCAD MAP 3D 2017 Intel(R) Core(TM) i5-4570 CPU @ 3.20GhZ 3.20Ghz 16,00GB Ram Windows 7- Prof. 64-Bit ASUS EAH6450 Series
|
erstellt am: 22. Dez. 2014 08:06 <-- editieren / zitieren --> Unities abgeben:
Folgendes Problem habe ich noch. Und zwar funktioniert es ab und an. Aber dann kommt folgendes: Befehl: XGEO Objekt auswählen: Objekte wählen: Entgegengesetzte Ecke angeben: 1 gefunden Objekte wählen: Ersten Quellpunkt angeben: _circle Zentrum für Kreis angeben oder [3P/2P/Ttr (Tangente Tangente Radius)]: Ersten Zielpunkt angeben Radius für Kreis angeben oder [Durchmesser]: 3 Befehl: Zweiten Quellpunkt angeben: _circle Zentrum für Kreis angeben oder [3P/2P/Ttr (Tangente Tangente Radius)]: Zweiten Zielpunkt angeben Radius für Kreis angeben oder [Durchmesser] <3.0000>: 3 Befehl: ; Fehler: no function definition: ALIGN Was müsste ich da noch beachten um die Funktion sicherer zu machen? Im Voraus besten Dank! Grüße Silcono Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 22. Dez. 2014 09:24 <-- editieren / zitieren --> Unities abgeben: Nur für silcono
Es dürfte NIE funktionieren. Das es doch ab und an funktioniert lässt vermuten dass da mehrere Dateien vorhanden sind oder mehrer Varianten des Codes in einer Datei. Die Fehlermeldung besagt dass nach einer öffnenden Klammer ein Ausdruck steht der keine Lispfunktion ist. Der Ausdruck lautet ALIGN und ein Blick in deine Codezeilen zeigt folgende Stelle. (align ......) Align ist aber ein Autocadbefehl, keine Lispfunktion. Autocadbefehle steuert man mit Command, wie du es auch schon mit Circle gemacht hast. (command "_align" s1 z1 s2 z2 "" "_yes") ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
silcono Mitglied Planer
Beiträge: 88 Registriert: 19.12.2014 AutoCAD 2010 LT AutoCAD 2014 AutoCAD 2018 AutoCAD MAP 3D 2017 Intel(R) Core(TM) i5-4570 CPU @ 3.20GhZ 3.20Ghz 16,00GB Ram Windows 7- Prof. 64-Bit ASUS EAH6450 Series
|
erstellt am: 22. Dez. 2014 12:06 <-- editieren / zitieren --> Unities abgeben:
Hallo cadffm, nach mehrmaligem durchlesen, habe ich es(denke ich zumindest) geschnallt. Es funktioniert jetzt auch einwandfrei ohne Probleme. Hier mal der Ablauf: (defun C:ngeo (/ geo_set 1q 1z 2q 2z) (if (progn (PROMPT "\nObjekt auswählen: ") (SETQ geo_set (SSGET)) (SETQ 1q (GETPOINT "\nErster Quellpunkt angeben: ")) (SETQ 1z (GETPOINT "\nErster Zielpunkt angeben: ")) (SETQ 2q (GETPOINT "\nZweiten Quellpunkt angeben: ")) (SETQ 2z (GETPOINT "\nZweiten Zielpunkt angeben: ")) ) (command "._align" geo_set "" 1q 1z 2q 2z "" "j") ) )end defun Habe das mit den Kreisen nun weg gelassen. Siehst du dennoch verbesserungswürdige Zeilen? Aber so schonmal besten Dank! Gruß Silcono Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 22. Dez. 2014 16:58 <-- editieren / zitieren --> Unities abgeben: Nur für silcono
Das PROMPT ist überflüssig, das PROGN würde ich durch ein AND ersetzen und du kannst überlegen ob für die Anwendung nicht besser wäre die Punkte wie folgt abzufragen: s1 s2 z1 z2 Im Acadbefehl kann man es nicht ändern, aber in deiner Abfragefolge bist du ja frei und "mein" AlignX habe ich so gebaucht(so erspart man sich einige Wege mit der Maus oder gar Zoomvorgänge, aber man kann es natürlich nicht als allgemein-besser nennen. Das ist individuell verschieden, soll nur zum überlegen/testen anregen. If, and ,align, <im Fehlerfall> Du könntest nach der Command-Align Anweisung noch eine Meldung für den negativen Fall integrieren, Wenn also die Objekt oder Punktwahl ins Leere lief. Nach der Commandzeile zB: (alert"Die Eingabe war nicht verwertbar") einbauen.
------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 22. Dez. 2014 17:01 <-- editieren / zitieren --> Unities abgeben: Nur für silcono
|
silcono Mitglied Planer
Beiträge: 88 Registriert: 19.12.2014 AutoCAD 2010 LT AutoCAD 2014 AutoCAD 2018 AutoCAD MAP 3D 2017 Intel(R) Core(TM) i5-4570 CPU @ 3.20GhZ 3.20Ghz 16,00GB Ram Windows 7- Prof. 64-Bit ASUS EAH6450 Series
|
erstellt am: 23. Dez. 2014 10:36 <-- editieren / zitieren --> Unities abgeben:
|