| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Profil ohne Dialogfeld umstellen (1212 mal gelesen)
|
Karsten.G
Mitglied
   Beiträge: 190
Registriert: 21.06.2002 Verwendetes System:
PIII 700 MHz; 512 MB-RAM;
Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2
|
erstellt am: 07. Mrz. 2003 10:04  <-- editieren / zitieren -->   Unities abgeben:          
Moin, gibt es eine Möglichkeit das ACAD-Profil ohne Dialogfeld umzustellen ?? Und wie funktioniert das ?? Ich würde das gerne über einen Button machen oder ins Abrollmenü einbinden. Leider bin ich mit der "LISPelei" nicht ganz so vertraut. Wäre über Hilfe sehr dankbar. ------------------
Gruß Karsten
------------------
Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets Griffbereit !
Fragen Sie uns: http://www.buchbinderei-gibietz.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Caladia
Ehrenmitglied V.I.P. h.c.
Beiträge: 2546
Registriert: 04.03.2002 ACAD2009
ACAD2010 SP2
ACAD2011 SP1
ABDS-S 2012 SP2
ABDS-S 2013 SP2
ABDS-S 2014 SP1
ABDS-S 2015 SP2
ABDS-S 2016
Expresstools
A3-Makroboard
16-Tasten Lupe
Impression 3
Win7 64bit
IE11
Firefox
Office2003 SP3
|
erstellt am: 07. Mrz. 2003 10:09 <-- editieren / zitieren --> Unities abgeben: Nur für Karsten.G 
|
mapcar
Mitglied
CADmin
Beiträge: 1250
Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 07. Mrz. 2003 14:22 <-- editieren / zitieren --> Unities abgeben: Nur für Karsten.G
|
Karsten.G
Mitglied
Beiträge: 190
Registriert: 21.06.2002 Verwendetes System:
PIII 700 MHz; 512 MB-RAM;
Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2
|
erstellt am: 07. Mrz. 2003 16:57 <-- editieren / zitieren --> Unities abgeben:
@mapcar Was soll ich denn mit diesem Code machen ??? Ich werde daraus leider nicht schlau. Muss ich eine LISP ertsellen ??? Mit welchem Befehl rufe ich diese auf ??? Sorry, ich blicks gerade nicht. ------------------
Gruß Karsten
------------------
Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns: http://www.buchbinderei-gibietz.de
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
Beiträge: 2966
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: 07. Mrz. 2003 18:00 <-- editieren / zitieren --> Unities abgeben: Nur für Karsten.G
ja ist so, du mußt das in eine datei packen und in Anwendung unter laden einbinden --- määh im erklären bin ich noch schlechter als im rest ;-( na ja mit netmeeting wärs einfacher, aber haben steht im kochbuch so long cw Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Leiter Instandhaltung (m/w/d) | Die Tata Steel Distribution Mainland Europe (DMLE) ist ein Geschäftsbereich der Tata Steel Europe Group. Diese Gruppe hat sich auf die Weiterverarbeitung von oberflächenveredeltem Feinblech spezialisiert und ist in Deutschland mit dem Standort Gelsenkirchen vertreten. Auf modernen Anlagen werden in diesem Service Center über 250.000 Tonnen an hochwertigen Stahlsorten zu Spaltbändern und Tafelblechen verarbeitet.... | | Anzeige ansehen | Leitung, Teamleitung |
|
mapcar
Mitglied
CADmin
Beiträge: 1250
Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 10. Mrz. 2003 08:29 <-- editieren / zitieren --> Unities abgeben: Nur für Karsten.G
Also ganz ausführlich: Folgenden Code in eine Datei packen:
------------- Anfang Code ---------------
(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)
)
)
-------------- Ende Code ----------------
Die Datei nennst du <irgendwie>.lsp, z.B. "set-profile.lsp" und legst sie irgendwo in den AutoCAD-Supportpfad. Dann kannst du z.B. zwei Menüeinträge so machen: [Hinz]^C^C(if(not set-profile)(load"set-profile"));(set-profile"Hinz")
[Kunz]^C^C(if(not set-profile)(load"set-profile"));(set-profile"Kunz") Das Beispiel setzt natürlich voraus, dass es die Profile 'Hinz' und 'Kunz' auch gibt. Gruss, Axel ------------------
Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
