---

Hier mal nachgehakt, wie die Profies mit command / command-s zwischen der jeweiligen Acadversion umgehen.
Einmal warum hat man die command-Anweisung umgekrämpelt zum anderen, wenn meine Applikation ab der 2013-version laufen soll müsste ich quasi eine Abfrage nach der angew. Acadversion machen, um dann entweder command oder command-s zu verwenden. Ist das lösbar, ohne das ich jede command-zeile zweimal schreiben muss.
Als Gedanke
(defun commands()
  (wenn Acad2013-2014
  (dann command
  (wenn Acad2015->
    (dann command-s
  )
Das lässt sich so leiter nich umsetzen, wieso?

Code:

---

((< (cadr (cd:SYS_AcadInfo)) 20.0) ; bis Acad 2014 version
      (defun commands ()
(command)
)
      )
      ;_$ ; error: no function definition: nil

---

Als zweites Problem habe ich, das die *error*-Methode nicht richtig anspringt, wenn ich versuche eine command-s Anweisung abzubrechen, deshalb war mein erster Gedanke einen while-loop mit grread abzufragen

Code:

---

(while loop
    (setq code (grread T 8))
    (cond
      ((equal code '(2 102))
      (princ "\n Finished!")
      (break)
      )
      (T (doLayout))
      )
    )

---

Wiederum eine Sackgasse, liege ich falsch, dass man command-s mit Esc abbrechen kann. Dann könnte ich mir das Gedöns sparen ?

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

Teil1
Wenn du im echten Code "richtigen Code" und keine Schreib/Syntaxfehler machst, dann geht das.
Wenn niedriger Version XY, dann Funktion command-s definieren..
So sollte es gehen und das machen auch andere.

Teil2
Das steht eigentlich in der Doku zur Funktion beschrieben, auch wenn es Ausnahmen gibt(meine Meinung).

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Das hat funktioniert
Meine Umsetzung so...

Code:

---

(defun commands(name arg1 arg2 arg3 arg4 arg5)
    (cond
      ((>= (cadr (cd:SYS_AcadInfo)) 20.0) ; Acad 2015 version
      (command-s name arg1 arg2 arg3 arg4 arg5)
      )
      ((< (cadr (cd:SYS_AcadInfo)) 20.0) ; bis Acad 2014 version
      (command name arg1 arg2 arg3 arg4 arg5)
)
      )
      )

---

Vielleicht gibt es eine bessere Lösung.
Da ich hiermit eine Beschränkung in der Anzahl der Argumente an command-Aufruf habe.
Gibt es eine Möglichkeit diese Beschränkung aufzuheben?

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

Command-S.lsp

Mal zum Testen, der vollständige Code mit dem Linien-Befehl
Die nicht genutzten Argumente habe ich mit "0" belegt.
Dumm, wie ich finde

=> Der Linienbefehl verlangt nach einem zweiten Punkt

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

Zitat:

---

Original erstellt von cadplayer:
... wenn meine Applikation ab der 2013-version laufen soll müsste ich quasi eine Abfrage nach der angew. Acadversion machen...

---

AutoCAD versteht ab 2012 command wie command-s.
Dein Vorgehen ist folglich überhaupt nicht erforderlich.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Führe ich selbigen Code, der in 2014er version einwandfrei läuft in 2015er version kommt es jedoch zu Problemen im command-Aufruf.
Ersetze ich folglich alle Command-Aufrufe durch command-s, geht es wieder

Problematik mit Argumenten ist so gelöst

Code:

---

(defun commands(lst)
    (cond
      ((>= (cadr (cd:SYS_AcadInfo)) 20.0) ; Acad 2015 version
      (foreach n lst
(command-s n)
)
      )
      ((< (cadr (cd:SYS_AcadInfo)) 20.0) ; bis Acad 2014 version
      (foreach n lst
(command n)
)
      )
      )
    )

---

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

nimm Code, der in der 2015er einwandfrei läuft und lass den in 2014 laufen. Sollte ohne Probleme funktionieren.

Grüße!
Holger

Zu dem Warum Autodesk dies überhaupt gemacht hat nur soviel: Durch die Umstellung des Commandhandlings ist nun eine asynchrone Befehlsausführung möglich. Das bedeutet, dass ein Befehl angestartet werden kann, und noch bevor dieser fertig ist, kann in der Zeichnung weiter gearbeitet werden.

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Gut zu wissen Holger!
Aber aus irgendeinen Grund gibt es damit ebenfalls Probleme, die vielleicht irgendwo anders herrühren.
Habs aber im Hinterkopf - Danke!

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

Holger, kurze Rückmeldung - hab meine Fehler beseitigt und funktioniert einwandfrei nach deiner Formulierung.

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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