| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Seiteneinrichtung anpassen (1972 mal gelesen)
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 02. Jun. 2004 10:50 <-- editieren / zitieren --> Unities abgeben:
In einem ACAD-Dokument gibt es ja die Möglichkeit, mehrere Seiteneinrichtungen abzuspeichern, von denen dann eine fürs Layout als Vorgabe angewählt werden kann (Menü Datei-> Seiteeinrichten ..) Gibt es die Möglichkeit (per Lisp oder sonstwie ) in diesen vordefinierten Seiteneinrichtungen den Plotter auszutauschen ? Wo speichert ACAD dies überhaupt ? (ich meine aber nicht die Einstellungen für das Layout.., wie ich da den Plotter tausche ist klar!) ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 02. Jun. 2004 11:05 <-- editieren / zitieren --> Unities abgeben: Nur für CADmium
(COMMAND "seinrichtimp" Dateiname Einrichtungsname) Für diesen Befehl ist es erforderlich eine Musterzeichnung Dateiname.dwg anzulegen und dort die Seiteneinrichtung Einrichtungsname zu benennen.
------------------ Gruß aus Wien Bernhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 02. Jun. 2004 11:10 <-- editieren / zitieren --> Unities abgeben: Nur für CADmium
Oder als komplettes Programm (DEFUN C:S-IMP() (COMMAND "seinrichtimp" "C:\\Cad\\Template\\def01.dwg" "Color") (Command "-.plot" "Nein" "" "Color" "" "" "Ja" "Nein") (PRINC) ) Die Namen sind natürlich anzupassen. ------------------ Gruß aus Wien Bernhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 02. Jun. 2004 11:11 <-- editieren / zitieren --> Unities abgeben:
@Bernhard ... und eben das Einrichten einer Muster.dwg wollte ich umgehen. Ich hab ne Vorlage, die ist ok. und daraus will ich halt eine neue ableiten und dabei die Plotter der Seiteneinrichtungen wechseln ... wollte mir die Arbeit per Hand ersparen. Leider steht der Plotter auch physisch drin, und nicht als pc3. ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Wolli Mitglied Konstrukteur
Beiträge: 704 Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware I7 12GB ACAD Mech 2010 Inventor Pro 2010 + 2012 Ansys 13 NLS
|
erstellt am: 02. Jun. 2004 11:22 <-- editieren / zitieren --> Unities abgeben: Nur für CADmium
Servus CADmium, ich verwende ein lisp von Rüdiger Küsch welches die Seiteneinrichtung löscht und von einer bestimmten Vorlagedatei neu importiert. Wenn Du dir verschiedene Lisps machst mit jeweils den Seiteneinrichtungen bzw. Plottern dann kannst Du mit einem Klick die kompletten Seiteneinrichtungen oder Drucker umstellen. http://ww3.cad.de/foren/ubb/Forum54/HTML/002777.shtml ;Programm von Ruedeger Kuesch (defun DelPgSetups ( / appAcad colPgSetups docCurrent objPgSetup) ;Subroutine added to delete existing page setups before adding new ones (vl-load-com) (setq appAcad (vlax-get-acad-object) ;get the ACAD application object docCurrent (vla-get-ActiveDocument appAcad) ;get the current drawing ;get the ACAD_PLOTSETTINGS dictionary colPgSetups (vla-get-PlotConfigurations docCurrent)) ;setq ;get each page setup in the ACAD_PLOTSETTINGS dictionary (vlax-for objPgSetup colPgSetups (prompt "\nDeleting existing Page Setups...") (princ (strcat "\nDeleting " (vla-get-name objPgSetup) "...")) (vla-delete objPgSetup) ;delete the page setup from the dictionary (vlax-release-object objPgSetup) ;release the page setup );vlax-for (princ "\n\nDone.") ;release objects from memory (vlax-release-object colPgSetups) (vlax-release-object docCurrent) (vlax-release-object appAcad) ;(command "_redefine" "_plot") ) ;End of code for DelPgSetups Subroutine (DelpgSetups) ;Calls subroutine then carries on remainder of the program (SETQ CMDST (GETVAR "CMDECHO")) ;Save SMDECHO STATUS (setvar "cmdecho" 0) (setq done T) ;(command "_PSETUPIN" "PLOTVORLAGE.dwg" "*") ;alter Eintrag von P (command "_PSETUPIN" "P:\\autodesk\\Lisp-VBA\\plot-Seiteneinrichtungen_aktualisieren\\Plotvorlage\\Plotvorlage.dwg" "*") (command "_PSETUPIN" "C:\\Programme\\Acadm 6\\acadm\\Plotvorlage.dwg" "*") ;Import all the Pagesetups (while (= (getvar "CMDNAMES") "_PSETUPIN") (command "y" ) (setq done nil)) ;end while (setvar "cmdecho" CMDST) ;RESET CMDECHO Status (prompt "\n New PageSetups have been imported") (princ) ;End routine
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 02. Jun. 2004 11:28 <-- editieren / zitieren --> Unities abgeben:
@Wolli Schöner Ansatz .. hat ne Menge Suchzeit gespart ,kann ich was draus basteln ... Danke @Bernhard .. für das Updaten bestehender Zeichnungen ( per Script oder manuell ) ist natürlich "seinrichtimp" nicht zu verachten .. ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 09. Jun. 2004 09:28 <-- editieren / zitieren --> Unities abgeben:
Für alle Interessierten.. (vl-load-com) (defun DT:PLOTSETTING-PLOTTERSWITCH ( ALTER-PLOTTER NEUER-PLOTTER CHECK? / PLOTSETTING OK) (if (and(=(type ALTER-PLOTTER)'STR)(=(type NEUER-PLOTTER)'STR) ) (if (or (and CHECK? (member(strcase NEUER-Plotter) (mapcar '(lambda(X)(strcase X))(DT:PLOTTER-GET)) ) ) (not CHECK?) ) (progn (setq OK 'T) (vlax-for ITEM (vla-get-PlotConfigurations (vla-get-ActiveDocument (vlax-get-acad-object) ) ) (if (and(vla-get-CONFIGNAME ITEM) (=(strcase(vla-get-CONFIGNAME ITEM))(strcase ALTER-PLOTTER)) ) (if(vl-catch-all-error-p (vl-catch-all-apply 'vla-put-configname (list ITEM NEUER-PLOTTER) ) ) (setq OK nil) ) ) ) ) ) ) OK ) (defun DT:PLOTTER-GET () (vla-RefreshPlotDeviceInfo (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object) ) ) ) (vlax-safearray->list (vlax-variant-value (vla-getplotdevicenames (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object) ) ) "Model" ) ) ) ) ) ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Wolli Mitglied Konstrukteur
Beiträge: 704 Registriert: 28.02.2001 Win7 64Bit+32Bit VM-Ware I7 12GB ACAD Mech 2010 Inventor Pro 2010 + 2012 Ansys 13 NLS
|
erstellt am: 09. Jun. 2004 12:00 <-- editieren / zitieren --> Unities abgeben: Nur für CADmium
|