---

Hallo, ich versuche eine Zeile am Beginn eines Lisp einzufügen.

Diese lautet:
Wenn userdomain nicht "XYZ" dann "exit" sonst Lisp weiterlaufen lassen.

Diese Version funktionier so nicht

(if (/= (strcase (getenv "userdomain")) "XYZ") (command (exit)))

Bitte um Hilfe!

lg. Martin

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

---

(defun C:MEINBEFEHL(/ MEINEFUNKTION)
   (defun MEINEFUNKTION()
      .... machwas ...
   )
   (if (=(strcase (getenv "userdomain")) "XYZ")
      (MEINEFUNKTION)
   )
)

oder  sowas vielleicht :

(defun C:MEINBEFEHL( / DT:SENDKEYS)
  (defun DT:SENDKEYS (KEYS / WSCRIPT)
    (if(setq WSCRIPT (vlax-create-object "WScript.Shell"))
      (progn
         (vlax-invoke-method WSCRIPT 'sendkeys KEYS)
         (vlax-release-object WSCRIPT)
      )
    ) 
    (princ)
  )
  ...machwas mit commands..
  (if (/=(strcase (getenv "userdomain")) "XYZ") (DT:SENDKEYS "{ESC}"))
  ....
)

Vielleicht ist das auch interessant
(vl-load-com)
(defun NETWORK-GETVARS ( / wscript RETURN )
    (cond
      ((setq wscript (vlax-create-object "WScript.Network"))    
         (setq RETURN (list (vlax-get-property wscript "ComputerName")
                            (vlax-get-property wscript "UserDomain")
                            (vlax-get-property wscript "UserName")
                      )  
         )
         (vlax-release-object wscript)
      )
    )
    RETURN
  )

ach ja:  ... eine Funktion (Exit) gibt es auch

Ansonsten ... ein paar mehr Infos  

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas!

Danke für die schnell Hilfe.
Das erst versteh ich ja noch. Aber was kann die zweiter Variante alles?

lg. Martin

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

---

Hi,

abgesehen davon, dass (exit) kein command ist, solltest du die Funktion wie CADmium schon gezeigt hat, andersherum aufbauen um sauber beenden zu können anstatt abzubrechen.

Gruß
CADchup

------------------
CADmaro.de

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

---

Hallo CADchup

Danke für die Info

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

---

ein Beispiel für SENDKEYS ...

(if(not commandreactor)
  (setq commandreactor
    (vlr-command-reactor
      nil
      '((:vlr-commandwillstart . NOPLT))
    )
  )
)
(defun NOPLT (var1 var2)
  (if (wcmatch (vl-princ-to-string (strcase (car var2))) "*PLOT")
    (progn
      (DT:SENDKEYS "{ESC}")
      (princ "\nÄtsch!")
    )
  )
)

wenn geladen, ckeckt der Reaktor alle aufgerufenen commands ... falls der Plotbefehl abgesetzt wurde, wird gleich ein ESC hinterhergeschickt und damit das Plotten abgebrochen ....

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Super erklärt!
Danke Thomas

lg. Martin

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