| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Profile über Icon aufrufen (1132 mal gelesen)
|
REl Mitglied Maschienenbautechniker
Beiträge: 348 Registriert: 25.07.2012 WIN 7 Prof. 64bit SP1 Intel Xeon W3530 24GB Ram NVIDEA Quadro 2000
|
erstellt am: 11. Feb. 2014 15:46 <-- editieren / zitieren --> Unities abgeben:
Hi, wir haben 3 verschiedene Profile für ACAd. Was muss ich machen damit ich mithilfe von 3 Icons auf dem Destop jeweils ein Profil aufruffen?? DANKE im Vorraus!!! ------------------ wer nichst weis der mus nichts tuhn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Guenther P Mitglied Techniker
Beiträge: 1133 Registriert: 14.05.2010 AutoCAD 11 --> --> AutoCAD Civil 3D 2019.1 Update 64bit --> Autodesk InfraWorks 360 Autodesk Infrastructure Design Suite Premium 2019 64bit OoC, HMap Windows 7 x64 Enterprise SP1 Lenovo ThinkCentre M800 MT Intel Core i7-4770 @3.40GHz 3.40 GHz 32,0 GB RAM NVIDIA Quadro K2000D 2*24" HP EliteBook Revolve 810
|
erstellt am: 11. Feb. 2014 15:53 <-- editieren / zitieren --> Unities abgeben: Nur für REl
/p"profilname" schau mal bei deinem Icon nach, kopiere es und ersetzte jeweils die Profilnamen ------------------ - gü - ...then it comes to be that the soothing light at the end of your tunnel was just a freight train coming your way... (James Hetfield) [Diese Nachricht wurde von Guenther P am 12. Feb. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
..... Mitglied
Beiträge: 433 Registriert: 01.07.2011
|
erstellt am: 11. Feb. 2014 15:53 <-- editieren / zitieren --> Unities abgeben: Nur für REl
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 11. Feb. 2014 16:13 <-- editieren / zitieren --> Unities abgeben: Nur für REl
Wenn es mal innerhalb ACADs sein soll: Code:
;; Profil setzen (defun setProfile (PNAME / aProfiles) (vl-load-com) (setq aProfiles (vla-get-Profiles(vla-get-Preferences (vlax-get-acad-object)))) (cond ((= (strcase(getvar "cProfile")) (strcase PNAME)) (princ (strcat "\n'" PNAME "' ist bereits das aktuelle Profil"))) ((not(vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list aProfiles PNAME)))) (princ (strcat "\nProfil '" PNAME "' ist nicht vorhanden"))) (T (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-ActiveProfile (list aProfiles PNAME))) (princ (strcat "\n'" PNAME "' wurde nicht aktuell gesetzt, es ist ein Fehler aufgetreten")) (princ (strcat "\n'" PNAME "' wurde aktuell gesetzt")))) );_cond ) ;_defunBeispiel AutoCADbefehle: (defun c:spTEST1 nil ; setzen eines festgelegten Profile (setProfile "test1") ) (defun c:spTEST2 nil ; setzen eines festgelegten Profile (setProfile "test2") ) (defun c:spTEST3 nil ; wechsel zwischen 2 festgelegten Profilen (setProfile (if (= "TEST1" (strcase(getvar "cProfile")))"TEST2" "TEST1")) )
------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
REl Mitglied Maschienenbautechniker
Beiträge: 348 Registriert: 25.07.2012 WIN 7 Prof. 64bit SP1 Intel Xeon W3530 24GB Ram NVIDEA Quadro 2000
|
erstellt am: 11. Feb. 2014 17:44 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 12. Feb. 2014 07:44 <-- editieren / zitieren --> Unities abgeben: Nur für REl
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 12. Feb. 2014 08:13 <-- editieren / zitieren --> Unities abgeben: Nur für REl
Zitat: Original erstellt von CADmium: @cadffm .. hättest du mal die Suche bemüht .
Brauche ich nicht, ich weiss was das es alles im Netz gibt und die Sache auf CAD.de sind mir erst recht bekannt Ich kann euch nicht genug danken für hunderte Codebeispiele, danke danke danke. Das Finden ging also ebenso schnell offline wie online, nur die Beispiele sind imo für den User noch zusärtlich interessant ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 12. Feb. 2014 08:48 <-- editieren / zitieren --> Unities abgeben: Nur für REl
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 12. Feb. 2014 08:54 <-- editieren / zitieren --> Unities abgeben: Nur für REl
|