Deze code werkt via programma babe van Joop,
Ik heb ondertussen geen reactie meer gehad, dus vandaar dat ik het nu opnieuw formuleer.
Het gaat mij om de LAYOUTS.
Meestal zit in een dwg meerdere Layouts met elke een andere naam, nu
werkt dat niet met onderstaande code, wie kan mij daarbij helpen?
(defun c:DoIt ()
(if (> (cadr (getvar "EXTMAX"))
(car (getvar "EXTMAX"))
) ;_ end of >
(setq Orientatie "p")
(setq Orientatie "l")
) ;_ end of if
(if (= (getvar "pstylemode") 0)
(command "convertpstyles")
) ;_ end of if
(command "-plot" ; command to plot without GUI
"y" ; Detailed plot configuration?
"layout" ; Enter a layout name
"P31500 Oce TDS500.pc3" ; Enter an output device name
"A0" ; Enter paper size
"m" ; Enter paper units
Orientatie ; Enter drawing orientation
"n" ; Plot upside down?
"e" ; Enter plot area
"f" ; Enter plot scale
"0,0" ; Enter plot offset
"y" ; Plot with plot styles?
"TDS500.ctb" ; Enter plot style table name
"yes" ; Plot with lineweights?
"n" ; Remove hidden lines?
"n" ; Write the plot to a file
"y" ; Save changes to model tab
"n" ; Proceed with plot
) ;_ end of command
(princ)
) ;_ end of defun
De bijlage gebruik ik.
Joop jouw lisp werkt perfect alle layout worden aangepast. :vreegoe: :mrgreen:
Nu nog een vraag, tekeningen die die ik selecteer en dan de lisp draai ,krijg ik een melding van autocad dat het niet bekend is in stabibase en ik dus bij elke tekening oke moet aanklikken is dat mogelijk om zoiets uit te zetten.
Citaat van: balletje23 op do 15 01 2009, 10:53:53
Joop jouw lisp werkt perfect alle layout worden aangepast. :vreegoe: :mrgreen:
Nu nog een vraag, tekeningen die die ik selecteer en dan de lisp draai ,krijg ik een melding van autocad dat het niet bekend is in stabibase en ik dus bij elke tekening oke moet aanklikken is dat mogelijk om zoiets uit te zetten.
Balletje23,
Ik ken het probleem ook. Ik heb het opgelost door een nieuw profiel in acad aan te maken genaamd BaBe.
Dit is een heel kaal profiel wat ook geen gebruik maakt van stabicad (of Technocad in mijn geval) met een extra verwijzing naar de BaBe directorie.
Op mijn bureaublad de snelkoppeling van autocad gekopieerd en daar bij doel: de volgende regel in gezet
"C:\Program Files\AutoCAD 2008\acad.exe" /p babe Als ik nu wil gaan BaBe'en klik op de hierboven omschreven snel koppeling en het werkt goed.
Dan kan ik ook door blijven werken terwijl een extra acad aan het BaBe'en is.
Michel
Michel dit is een goede oplossing, werkt voor mij perfect thx!!!
Dijkhuis,
Prima oplossing.
kijken of ik dit in BaBe kan inbouwen.
Joop
ik wil iedereen bedanken voor de hulp op dit onderwerp!!! :vreegoe: