| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: wenn nicht dann exit (656 / mal gelesen)
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 22. Feb. 2016 13:14 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Feb. 2016 13:21 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
(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 |
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 22. Feb. 2016 13:25 <-- editieren / zitieren --> Unities abgeben:
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 22. Feb. 2016 13:26 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 22. Feb. 2016 13:28 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Feb. 2016 13:32 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 22. Feb. 2016 13:35 <-- editieren / zitieren --> Unities abgeben:
|