Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Profile

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Profile (925 mal gelesen)
cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


Sehen Sie sich das Profil von cadwomen an!   Senden Sie eine Private Message an cadwomen  Schreiben Sie einen Gästebucheintrag für cadwomen

Beiträge: 2995
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 19. Sep. 2002 14:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

Gibt es eine Möglichkeit Profil aktuell zu setzen ohne
die Dialogbox ??

mit _optienen gehts nicht, auch Fille- und CMD- Dia
schalten die Box nicht ab!!

Ich möchte über einen Werkzeugkasten verschiedene Profile
aktivieren- verschiedene User / Teams

der Schalter /p hat auch keinen Wert, da ja sonst jedesmall
das Programm neu gestartet werden muß

MFG cadwomen

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

mapcar
Mitglied
CADmin



Sehen Sie sich das Profil von mapcar an!   Senden Sie eine Private Message an mapcar  Schreiben Sie einen Gästebucheintrag für mapcar

Beiträge: 1250
Registriert: 20.05.2002

Time flies like an arrow, fruit flies like a banana (Groucho Marx)

erstellt am: 19. Sep. 2002 15:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadwomen 10 Unities + Antwort hilfreich

Hallo Cadfrauen (gleich mehrere?)!

Diese Lisp-Funktion hier macht das.

(defun set-profile(profileName / profiles strNames)
  (vl-load-com)
  (setq profiles
    (vla-get-profiles
      (vla-get-preferences
        (vlax-get-acad-object)
      )
    )
  )
  (vlax-invoke-method profiles 'getAllProfileNames 'strNames)
  (setq strNames(vlax-safearray->list strNames))
  (if(member(strcase profileName)(mapcar'strcase strNames))
    (vla-put-activeProfile profiles profileName)
  )
)

Gruss, Axel

------------------
http://www.tutorial.autolisp.info

http://www.advanced.autolisp.info


http://www.activex.autolisp.info

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

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


Sehen Sie sich das Profil von cadwomen an!   Senden Sie eine Private Message an cadwomen  Schreiben Sie einen Gästebucheintrag für cadwomen

Beiträge: 2995
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 20. Sep. 2002 12:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Axel,

Könntest du das Programm mir erklären ??
Habs als *.lsp gespeicher , wird auch angeblich
richtig geladen aber ich kann es nicht starten.

Mfg cadwomen

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

CADchup
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von CADchup an!   Senden Sie eine Private Message an CADchup  Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3331
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 20. Sep. 2002 13:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadwomen 10 Unities + Antwort hilfreich

Hi,

Du startest Axels Programm mit:

(set-profile "DeinProfilname")

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

GWS
Ehrenmitglied V.I.P. h.c.
Konstrukteur Sondermaschinenbau



Sehen Sie sich das Profil von GWS an!   Senden Sie eine Private Message an GWS  Schreiben Sie einen Gästebucheintrag für GWS

Beiträge: 2374
Registriert: 23.07.2001

erstellt am: 20. Sep. 2002 13:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadwomen 10 Unities + Antwort hilfreich

Hallo cadwomwen,

mapcar hat Dir eine lisp-Funktion geschrieben, kein Programm.

Aufgerufen wird die Funktion aus der Komandozeile so : (set-profile "Dein Profilname")

Du kannst jetzt ein oder mehrere Programme daraus machen :

(defun c:cadwomen ( / ) (set-profile "Profil 1")(princ)) ; der Befehl cadwomen ruft Profil 1 auf
(defun c:cadmen  ( / ) (set-profile "Profil 2")(princ)) ; der Befehl cadmen ruft Profil 2 auf und so weiter...

Viele Grüße Günter

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

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


Sehen Sie sich das Profil von cadwomen an!   Senden Sie eine Private Message an cadwomen  Schreiben Sie einen Gästebucheintrag für cadwomen

Beiträge: 2995
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 23. Sep. 2002 10:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke für die Erkärung - hab´s dann über nen Werkzeugkasten geregelt und spar mir Die n Dateien für die lisp aufrufe.

(Load "H:/CAD/Vorlagen/Menues/Profile-umschalten/Profilwahl.lsp")(set-profile "acad2000-profiltest")

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

Holzwurm Wien
Mitglied



Sehen Sie sich das Profil von Holzwurm Wien an!   Senden Sie eine Private Message an Holzwurm Wien  Schreiben Sie einen Gästebucheintrag für Holzwurm Wien

Beiträge: 56
Registriert: 15.09.2002

System:
AutoCad 2005
AMD Athlon 2600 XP
1 Gb Arbeitsspeicher
128 mb Grafikkarte

erstellt am: 24. Sep. 2002 11:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadwomen 10 Unities + Antwort hilfreich

Habe diese Lisp Funktion verwendet funktioniert ganz toll jetzt habe ich eine Frage kann diese Lisp so erweitern das sie automatisch die geöffnet Zeichnung schließt und anschließend eine bestimmte Vorlagendatei öffnet

------------------
Schöne Grüße
        Holzwurm Wien

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

GWS
Ehrenmitglied V.I.P. h.c.
Konstrukteur Sondermaschinenbau



Sehen Sie sich das Profil von GWS an!   Senden Sie eine Private Message an GWS  Schreiben Sie einen Gästebucheintrag für GWS

Beiträge: 2374
Registriert: 23.07.2001

erstellt am: 24. Sep. 2002 12:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadwomen 10 Unities + Antwort hilfreich

Hallo Holzwurm !


Also, evtl. bin ich zu doof, aber ich glaube, Lisp Programme sind immer nur innerhalb einer Zeichnung aktiv. Ein Programm zu schreiben, das eine Zeichnung zu macht und eine andere neu auf, geht nur, wenn Acad im "Kompatibilitätsmodus für einzelne Zeichnungen" betrieben wird. D.h. nur eine Zeichnung kann gleichzeitig geladen und bearbeitet werden. Und dann kanst Du gleich den Standard Befehl Neu verwenden.
Ansonsten hast Du mehr Chancen mit einen Script.
Mir erschließt sich auch noch nicht ganz der Sinn des Anliegens. Ein solcher Befehl müßte die Frage umgehen, ob Änderungen gespeichert werden, oder nicht und das ist immer saugefährlich !

Viele Grüße Günter

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

Holzwurm Wien
Mitglied



Sehen Sie sich das Profil von Holzwurm Wien an!   Senden Sie eine Private Message an Holzwurm Wien  Schreiben Sie einen Gästebucheintrag für Holzwurm Wien

Beiträge: 56
Registriert: 15.09.2002

System:
AutoCad 2005
AMD Athlon 2600 XP
1 Gb Arbeitsspeicher
128 mb Grafikkarte

erstellt am: 24. Sep. 2002 13:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadwomen 10 Unities + Antwort hilfreich

Das ist schon korrekt aber ich mache es wie es von Cadwomen beschrieben wird und möchte halt das dann auch meine Vorlagenzeichnung geladen wird und das mit den Änderungen ist mir eigentlich nicht so wichtig. Der Grund warum ich das möchte ist folgender wir haben ein kleines Zusatzprogramm für Autocad es nennt sich omega und dient der Umwandlung von DWG zeichnungen in CNC Dateien für die Holzbearbeitung damit dieses Tool funktioniert wird Autocad über eine eigene Verknüpfung gestartet leider funktioniert bei dieser Verknüpfung der Schalter p nicht und somit wäre es ganz nett wenn ich das Problem über ein Symbol lösen könnte mit dem ich sowohl das Profil umschalten kann als auch die Vorlagenzeichnung

------------------
Schöne Grüße
        Holzwurm Wien

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

StephanJP
Mitglied
CAD-Admin


Sehen Sie sich das Profil von StephanJP an!   Senden Sie eine Private Message an StephanJP  Schreiben Sie einen Gästebucheintrag für StephanJP

Beiträge: 830
Registriert: 09.11.2000

erstellt am: 24. Sep. 2002 14:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadwomen 10 Unities + Antwort hilfreich

Hallo Holzwurm,

es geht schon über ein Script. Erst stellst du im Lisp das Benutzerprofil um, öffnest eine Dummy-scr-Datei (z.B.(setq script-dat "c:\windows\omega.scr")), da schreibste dann die Befehle rein:

filedia 0
_new
omega.dwt
filedia 1

oder so ähnlich (musst Du für Dich ausprobieren).
Dann die Datei schliessen und das Script aus der Routine aufrufen:
(command "_script" script-dat)

Viel Erfolg

------------------

gruß
stephan

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

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


Sehen Sie sich das Profil von cadwomen an!   Senden Sie eine Private Message an cadwomen  Schreiben Sie einen Gästebucheintrag für cadwomen

Beiträge: 2995
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 24. Sep. 2002 16:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Also Ihr macht Sachen, da wirde mir schwindelig !!
Woher wist ihr das?

Weiter so
cadwomen

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



Sehen Sie sich das Profil von Bernd P an!   Senden Sie eine Private Message an Bernd P  Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3373
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 24. Sep. 2002 16:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadwomen 10 Unities + Antwort hilfreich

Hi


Hab das im Button
^C^C_Filedia;0;_script;c:/Pfad der *.SCR;^C^C_Filedia;1;
und das in der Datei
_Filedia 0 open D:/Pfad der *.DWG od DWT _Filedia 1

PS.: Alles was im Button steht wird nur in der Zeichnung wo es gedrückt wurde aktiviert. Blöderweise nur wenn sie Aktiv ist. Das Heist Das die Zeichnung (wenn man den CLOSE Befehl noch zum Button hinzufügt) erst geschlossen wird wenn man sie Aktiv setzt.

Die Ander möglichkeit über denn "Kompatibilitätsmodus für einzelne Zeichnungen" über script zu deaktivieren.

Funkt so
das im Button
^C^C_sdi;1;^C^C_Filedia;0;_script;c:/Pfad der *.SCR;Y;^C^C_Filedia;1;
und das in der Datei
_Filedia 0 open D:/Pfad der *.DWG od DWT _Filedia 1 SDI 0

Das Einzige die Änderungen werden verworfen.
Ausser man Baut sich ein "qsave" Befehl ein 

------------------
mfG Bernd P. 

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

Holzwurm Wien
Mitglied



Sehen Sie sich das Profil von Holzwurm Wien an!   Senden Sie eine Private Message an Holzwurm Wien  Schreiben Sie einen Gästebucheintrag für Holzwurm Wien

Beiträge: 56
Registriert: 15.09.2002

System:
AutoCad 2005
AMD Athlon 2600 XP
1 Gb Arbeitsspeicher
128 mb Grafikkarte

erstellt am: 24. Sep. 2002 22:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadwomen 10 Unities + Antwort hilfreich

Hat mir ein bißchen geholfen gebe dir aber trotzdem 10 Unities umfassende Erklärung folgt

------------------
Schöne Grüße
        Holzwurm Wien

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

Holzwurm Wien
Mitglied



Sehen Sie sich das Profil von Holzwurm Wien an!   Senden Sie eine Private Message an Holzwurm Wien  Schreiben Sie einen Gästebucheintrag für Holzwurm Wien

Beiträge: 56
Registriert: 15.09.2002

System:
AutoCad 2005
AMD Athlon 2600 XP
1 Gb Arbeitsspeicher
128 mb Grafikkarte

erstellt am: 24. Sep. 2002 22:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadwomen 10 Unities + Antwort hilfreich

Soweit bin ich nun nach längeren probieren gekommen:

Meine lisp Datei:

(defun set-profile(profileName / profiles strNames)
  (vl-load-com)
  (setq profiles
    (vla-get-profiles
      (vla-get-preferences
        (vlax-get-acad-object)
      )
    )
  )
  (vlax-invoke-method profiles 'getAllProfileNames 'strNames)
  (setq strNames(vlax-safearray->list strNames))
  (if(member(strcase profileName)(mapcar'strcase strNames))
    (vla-put-activeProfile profiles profileName)
  )
)

Meine scr Datei:

_filedia 0 sdi 1 _new ja "c:/acad-menü/acad.dwt" filedia 1 sdi 0

Meine Button:

(Load "c:/Acad-Menü/Profilwahl.lsp")(set-profile "omega")_filedia;0;_script;c:/acad-menü/omega.scr;_filedia;1;

Funktioniert einwandfrei aber leider erscheinen die Buttons der Werkzeugkästen nach dem ausführen des Button erst wieder wenn man mit der Maus darüberfährt weiß wer Rat

------------------
Schöne Grüße
        Holzwurm Wien

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz