|
Lisp : Layout drehen
CADmium am 08.12.2006 um 12:32 Uhr (0)
Wie meinen ? Ein Layout ist doch bloß ein Datencontainer ähnlich der Blockdefinition .. willst du die Zeichnungsausrichtung auf Hoch oder querformat stellen oder die Ansichtsfenster drehen, oder beides ?------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : (vla-putPaperMargins LAYOUT LowerLeft UpperRight) ?
CADmium am 02.08.2004 um 16:18 Uhr (0)
Ein ACAD-Layout stellt unter ActivX die Methode (vla-GetPaperMargins) bereit, welche die Druckränder ausliest. (Siehe auch Datei- Plot- Reiter Plotter - Knopf Eigenschaften - Benutzerspezifische Eigenschaften - Weitere Optionen - kleinere Ränder ) Gibt es eine Möglichkeit via Lisp (vla-putPaperMargins LAYOUT LowerLeft UpperRight) zu implementieren, um diese Ränder zu setzen? .. oder einen anderen Trick, diese beim Layouteigenschaftenübertragen zu setzten? Ein (vla-RefreshPlotDeviceInfo an geeigneter ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : AutoCAD 2004 Seite einrichten für mehrere Register
CADmium am 08.09.2006 um 11:42 Uhr (0)
arbeitet doch mit benannten Seiteneinrichtungen, die kann man sogar von einer Vorlagezeichnung importierenund dann weist man mit(foreach LAYOUT (layoutlist) (command "._plot" "_n" layout SEITENEINRICHTUNGSNAME "" "" "_y" "_n"))die entsprechende Seiteneinrichtung zu..------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um Autocad wechseln |
|
Lisp : renameblock.lsp
CADmium am 05.06.2008 um 21:27 Uhr (0)
das mit der NR lass mal so.. änder lieber vla-put-name(list (car LAYOUT)(strcat NAME "-"(chr (+ 96 NR))))also:(defun C:LAYOUTRENAME (/ ITEM LAYOUTLISTE) (vl-load-com) (setq NAME (cadr(fnsplitl(getvar"dwgname")))) (vlax-for item(vla-get-layouts (vla-get-activedocument(vlax-get-acad-object)) ) (setq LAYOUTLISTE(cons(list ITEM (vla-get-name ITEM) (vla-get-taborder ITEM) ) LAYOUTLISTE ) ) ) (setq NR 0) (foreach LAYOUT (cdr(vl-sort ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Layout und Modell
CADmium am 11.12.2008 um 16:40 Uhr (0)
Zitat:Original erstellt von runkelruebe:..dabei rutschen die Knöppel für Layout und Model übrigens in die Statuszeile, zur Not kannst Du also damit weiterarbeiten..IMHO .. wenn im Statusleistenmenü "Papier/Modell" angehakt ist ...(kann natürlich Versionsunterschiede geben)------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : layouteinstellungen global übertragen
CADmium am 07.05.2008 um 09:02 Uhr (0)
der Layoutname steht in der Sysvar "CTAB" .. alle Layoutnamen können mit der Lispfunktion (layoutlist) ermittelt werden...Eine Mögleichkeit die Layouts durchzuschalten wäre:(foreach LAYOUT (layoutlist) (setvar "CTAB" layout)) ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : layouteinstellungen global übertragen
CADmium am 07.05.2008 um 09:02 Uhr (0)
der Layoutname steht in der Sysvar "CTAB" .. alle Layoutnamen können mit der Lispfunktion (layoutlist) ermittelt werden...Eine Mögleichkeit die Layouts durchzuschalten wäre:(foreach LAYOUT (layoutlist) (setvar "CTAB" layout)) ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
AutoCAD Mechanical : Seiteneinrichtung automatisch laden
CADmium am 20.11.2008 um 12:53 Uhr (0)
(command "._plot" "_n" layout newpsn "" "" "_y" "_n")aus obigen Link .. Layout und newpsn mußt du anpassen ...oder für alle Layouts (außer Modell)(mapcar (lambda(X) (command "._plot" "_n" X ("NDF A4" "" "" "_y" "_n") ) (layoutlist))------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD Mechanical wechseln |
|
AutoCAD Mechanical : Layout
CADmium am 13.01.2009 um 10:04 Uhr (0)
Im besagten Layout ist bestimmt ein Plotstil Schwarz/weiß eingetragen und ein Häckchen bei "Plotstile anzeigen" drin.- Menü - Datei - Seiteneinrichtungsmanager (oder gleich Befehl: _pagesetup ) - Ändern - Rechts Oben : Haken raus bei "Plotstile anzeigen"------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD Mechanical wechseln |
|
Lisp : Layout löschen
CADmium am 07.09.2005 um 14:56 Uhr (0)
Tja, dann mußt du dich nach einem anderen CODE umgucken, deiner will ne benannte Seiteneinrichtung , die du im Plotdialog findest , löschen.dein Layout findest du mit(vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object) ) ) LAYOUTNAME)------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Layout löschen
CADmium am 07.09.2005 um 14:23 Uhr (0)
Zitat:Original erstellt von CADmium:Layout , oder doch benannte Seiteneinstellung??Wahaaaas willst du löschen ?? Dein Code und deine Threadüberschrift sind verschiedene Schuhe... nicht, dass du nachher barfuß läufst------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Originalfarben erhalten
CADmium am 10.09.2012 um 10:20 Uhr (0)
Zuhause "mit Plotstilen anzeigen" aktiviert ?hatte dafür mal sowas geschrieben:(vl-load-com)(defun WYSIWYG( MODUS / LAYOUT) (vlax-for LAYOUT (vla-get-layouts (vla-get-activedocument(vlax-get-acad-object)) ) (vla-put-showplotstyles LAYOUT (if MODUS :vlax-true :vlax-false) ) ) (setvar "LWDISPLAY" (if MODUS 1 0)) (vla-regen(vla-get-activedocument(vlax-get-acad-object)) acAllViewports ) )(defun C:WYSIWYG-ON ()(WYSIWYG T))(defun C:WYSIWYG-OFF()(WYSIWYG ni ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoCAD VBA : Anzahl von Layout / 2 von 25
CADmium am 07.01.2011 um 13:31 Uhr (0)
Zitat:Original erstellt von runkelruebe:Hi,warum nicht einfach so: Code:Debug.Print ThisDrawing.Layouts(i).Name & " = Layout Nr. " & i & " von " & ThisDrawing.Layouts.Count & " Layouts"weil IMHO das die i die Erstellreihenfolge und nicht die Tabreihenfolge repräsentiert !------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
