---

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

---

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

---

Vielen Dank schonmal für die schnelle Antwort.
Ich werde es demnächst angehen und Rückmeldung geben.

Danke!

Gruss Silcono

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

---

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

---

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

---

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

---

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

---

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

---

Alternativ!

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

Vielen Dank für die Hilfe!
cadffm, werde deine Vorschläge mal anwenden.

Danke cadplayer für die Alternative

Wünsche euch allen eine frohes Fest!!!

Gruß Silcono

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