Wie weet of er gratis programma zijn om, meerdere tekeningen
plotinstelling te veranderen.
Vb: Tekening is ingesteld op
-Extend
-Niet fit to paper
-Papier is A0 841x3000mm
-Plotter is ingesteld op een netwerkprinter OceTds9800(AO)
Nu wil ik bijvoorbeeld
-Extend
-Niet fit to paper ->fit to paper
-Papier is A0 841x3000mm -> A3
-Plotter is ingesteld op een netwerkprinter OceTds9800(AO) -> Ocetds90 (A3)
Want tijdens controleren van tekening is het niet nodig om het op volle formaat uit tedraaien.
Veel makkelijker controle op kleine formaat zoals A3 of A2.
ik w8 af
Heb je ACAD dan zit die functie al ingebakken "Publish"
Hiermee kun je een vooraf ingestelde tekening selecteren waarin de instellingen al goed staan en deze importeren.
Jah, die functie ken, maar is niet wat ik wil zie mijn voorbeeld :wink:
Dit zal denk ik wel te doen zijn met babe, maar dan moet je natuurlijk eerst nog even een goede lisp kunnen schrijven.
Ik heb ooit een kleine lisproutine gemaakt om voor mijn administratie een tekening op A3 af te drukken. Ik heb dit ADMIN genoemd. Bij dit commando wordt de layout passend op een liggend A3 afgedrukt op een specifieke printer. Misschien kun je hier wat mee. Je kunt deze ook met BaBe gebruiken.
(defun C:admin ()
(command "-plot" "y" "" "PRT200.pc3" "A3" "millimeters" "landscape" "no" "extents" "fit" "center" "yes" "" "no" "no" "no" "no" "no" "n" "y")
(prompt " de tekening wordt nu op A3-formaat afgedrukt")
(princ)
)
Citaat van: Reimer op za 06 12 2008, 15:07:40
Ik heb ooit een kleine lisproutine gemaakt om voor mijn administratie een tekening op A3 af te drukken. Ik heb dit ADMIN genoemd. Bij dit commando wordt de layout passend op een liggend A3 afgedrukt op een specifieke printer. Misschien kun je hier wat mee. Je kunt deze ook met BaBe gebruiken.
(defun C:admin ()
(command "-plot" "y" "" "PRT200.pc3" "A3" "millimeters" "landscape" "no" "extents" "fit" "center" "yes" "" "no" "no" "no" "no" "no" "n" "y")
(prompt " de tekening wordt nu op A3-formaat afgedrukt")
(princ)
)
Deze optie gaat voor mij niet werken:
-Omdat ik geen plotter van tds9800 naar ocetds90 kan veranderen
-En omdat ik elke tek moet open
Graag zou ik iets willen net zoals de voorbeeld die ik als eerste bericht hebt gepost.
Het hoeft niet perse een lisp programma
Vb: Tekening is ingesteld op
-Extend
-Niet fit to paper
-Papier is A0 841x3000mm
-Plotter is ingesteld op een netwerkprinter OceTds9800(AO)
Nu wil ik bijvoorbeeld
-Extend
-Niet fit to paper ->fit to paper
-Papier is A0 841x3000mm -> A3
-Plotter is ingesteld op een netwerkprinter OceTds9800(AO) -> Ocetds90 (A3)
Want tijdens controleren van tekening is het niet nodig om het op volle formaat uit tedraaien.
Veel makkelijker controle op kleine formaat zoals A3 of A2.
Juist mijn lieve BaBe is hiervoor zeer geschikt.
Met onderstaande "hulp BaBe" bijvoorbeeld worden alle tekeningen die je hebt geselecteerd afgedrukt op A4
met extends fit to paper en in zwart/wit.
Verander BP08202_A4.pc3 in jouw eigen printer, het papierformaat in A3 en _zwart.ctb in jouw eigen pen tabel.
Run BaBe en er wordt een script gemaakt dat alle tekeningen die je hebt geselecteerd stuk voor stuk opent en op A3 uitprint.
(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?
"model" ; Enter a layout name
"BP08202_A4.pc3" ; Enter an output device name
"A4 210 x 297 mm" ; 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?
"_zwart.ctb" ; Enter plot style table name
"yes" ; Plot with lineweights?
"n" ; Remove hidden lines?
"n" ; Write the plot to a file
"n" ; Save changes to model tab
"y" ; Proceed with plot
) ;_ end of command
(princ)
) ;_ end of defun
Jouw script met mijn aanpassingen, maar ik krijg
Press F1 for help.
(defun c:DOIT2 ()
(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?
"model" ; Enter a layout name
"Default Windows System Printer.pc3" ; Enter an output device name
"A3" ; 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?
"WT-OCE3133-40 A3.ctb." ; Enter plot style table name
"yes" ; Plot with lineweights?
"n" ; Remove hidden lines?
"n" ; Write the plot to a file
"n" ; Save changes to model tab
"y" ; Proceed with plot
) ;_ end of command
(princ)
) ;_ end of defun
Command: doit2
Unknown command "YES". Press F1 for help.
Unknown command "N". Press F1 for help.
Unknown command "N". Press F1 for help.
Unknown command "N". Press F1 for help.
Unknown command "Y". Press F1 for help.
Verder moet ik de commando doit2 invoeren , is er een mogelijkheid, zonder doit2 in tevoeren? Meerdere tekeningen selecteren dan die script te draaien.
Babe je bedoelt de script toch?
Citaat van: Joop op ma 08 12 2008, 09:29:14
Juist mijn lieve BaBe is hiervoor zeer geschikt.
Met onderstaande "hulp BaBe" bijvoorbeeld worden alle tekeningen die je hebt geselecteerd afgedrukt op A4
met extends fit to paper en in zwart/wit.
Verander BP08202_A4.pc3 in jouw eigen printer, het papierformaat in A3 en _zwart.ctb in jouw eigen pen tabel.
Run BaBe en er wordt een script gemaakt dat alle tekeningen die je hebt geselecteerd stuk voor stuk opent en op A3 uitprint.
(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?
"model" ; Enter a layout name
"BP08202_A4.pc3" ; Enter an output device name
"A4 210 x 297 mm" ; 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?
"_zwart.ctb" ; Enter plot style table name
"yes" ; Plot with lineweights?
"n" ; Remove hidden lines?
"n" ; Write the plot to a file
"n" ; Save changes to model tab
"y" ; Proceed with plot
) ;_ end of command
(princ)
) ;_ end of defun
BaBe is een lisp programma dat je in staat stelt een of meerdere tekeninigen te selecteren.
Hierna krijg je mogelijkheid een lisproutine met jouw (plot) opdracht te kiezen.
BaBe maakt van deze keuzes een script en voert het script uit.
De foutmelding bij de vraag naar lineweights is mogelijk het gevolg van de eindpunt in de plotstyle table name "WT-OCE3133-40 A3.ctb."
PS
Je kunt BaBe op deze site downloaden.
http://www.cadsite.be/tips/BaBe.zip
(http://www.cadsite.be/tips/BaBe.zip)
Prog babe heb ik uitgepakt.
-Heb eerst autocad opgestart.
-En de babe.lsp geladen.
-Nu in commando regel :babe
Command: babe
*Cancel*
Error: no function definition: DOS_SEARCH; error: An error has occurred inside
the *error* functionno function definition: DOS_OPENP
Wat ben ik vergeten te doen?
Citaat van: Joop op di 09 12 2008, 07:17:26
BaBe is een lisp programma dat je in staat stelt een of meerdere tekeninigen te selecteren.
Hierna krijg je mogelijkheid een lisproutine met jouw (plot) opdracht te kiezen.
BaBe maakt van deze keuzes een script en voert het script uit.
De foutmelding bij de vraag naar lineweights is mogelijk het gevolg van de eindpunt in de plotstyle table name "WT-OCE3133-40 A3.ctb."
PS
Je kunt BaBe op deze site downloaden.
http://www.cadsite.be/tips/BaBe.zip
(http://www.cadsite.be/tips/BaBe.zip)
Beste balletje23,
kijk even naar de volgende uitleg:
http://www.cadsite.be/smf/index.php/topic,2811.msg14397.html#msg14397 (http://www.cadsite.be/smf/index.php/topic,2811.msg14397.html#msg14397)
Reimer
Alle bestanden die in de zip zat gecopieert naar
C:\Program Files\AutoCAD 2006
Daarna babe.lsp geladen
Command: babe
DOSLib error: path argument expected.
*Cancel*
Error: bad argument type: stringp nil
Error Resetting Enviroment
Wat heb ik verkeerd gedaan?
Citaat van: Reimer op di 09 12 2008, 14:37:45
Beste balletje23,
kijk even naar de volgende uitleg:
http://www.cadsite.be/smf/index.php/topic,2811.msg14397.html#msg14397 (http://www.cadsite.be/smf/index.php/topic,2811.msg14397.html#msg14397)
Reimer
Je moet de doslib nog inladen.
Citaat van: julien op di 09 12 2008, 16:10:32
Je moet de doslib nog inladen.
Gaat dat net als het inladen van lsp?
het is namelijk een arx bestand :D
Ja, gewoon in acad slepen of via AP (application load).
Reimer
Citaat van: Reimer op di 09 12 2008, 19:45:46
Ja, gewoon in acad slepen of via AP (application load).
Reimer
doslib15.arx: DOSLib 6.1 for AutoCAD 2000, 2000i, and 2002.
doslib16.arx: DOSLib 6.1 for AutoCAD 2004 and 2005.
doslib17.arx: DOSLib for AutoCAD 2007 and AutoCAD 2008 (x86).
doslib17x64.arx: DOSLib for AutoCAD 2008 (x64).
Ik heb acad 2006!!!! heb de volgende bestanden geprobeert.
doslib16, doslib17 & doslib17x64 heb ik algeprobeert.
Command: babe
DOSLib Version 6.1.5 (Jun 21 2004)
Copyright © 1992-2004, Robert McNeel & Associates
DOSLib error: path argument expected.
*Cancel*
Error: bad argument type: stringp nil
Error Resetting Enviroment
Inhoudelijk ben ik niet bekend met DOSLib. Probeer op de volgende site even de juiste de downloaden.
http://download.rhino3d.com/download.asp?id=doslib (http://download.rhino3d.com/download.asp?id=doslib)
Groeten,
Reimer.
Citaat van: Reimer op di 09 12 2008, 19:45:46
Ja, gewoon in acad slepen of via AP (application load).
Reimer
Ik krijg het zelfde werkt niet:(Error: bad argument type: stringp nil
Error Resetting Enviroment)
Kan je me uitleggen als ik de babe.zip bestand hebt uitgepakt wat
er verder moet gebeuren ,specifiek wat moet ik doen met de bestanden ?
Als je BaBe de eerste keer opstart wordt je gevraagd via verschillende vensters waar de lisp routines staan die je in elke tekening wilt uitvoeren, waar de gemaakte script geplaatst moet worden en welke de start directory is voor het selecteren van de te wijzigen tekeningen.
De bovenstaande gegevens worden opgeslagen in een bestand genaamd BaBe.ini en staat in dezelfde directory als BaBe.lsp.
Als je de instellingen wilt wijzigen dan kun je het beste de ini file weggooien en BaBe opnieuw starten.
PS
Er zit een korte handleiding bij BaBe.
Citaat van: Joop op do 11 12 2008, 07:05:13
Als je BaBe de eerste keer opstart wordt je gevraagd via verschillende vensters waar de lisp routines staan die je in elke tekening wilt uitvoeren, waar de gemaakte script geplaatst moet worden en welke de start directory is voor het selecteren van de te wijzigen tekeningen.
De bovenstaande gegevens worden opgeslagen in een bestand genaamd BaBe.ini en staat in dezelfde directory als BaBe.lsp.
Als je de instellingen wilt wijzigen dan kun je het beste de ini file weggooien en BaBe opnieuw starten.
PS
Er zit een korte handleiding bij BaBe.
Alle bestanden die in de zip (BABE.ZIP) zat gecopieert naar
C:\Program Files\AutoCAD 2006
Daarna babe.lsp geladen
Command: babe
DOSLib error: path argument expected.
*Cancel*
Error: bad argument type: stringp nil
Error Resetting Enviroment
Daarna
Command: ap
APPLOAD
DOSLib Version 6.1.5 (Jun 21 2004)
Copyright © 1992-2004, Robert McNeel & Associates
doslib16.arx successfully loaded.
Command: BABE
DOSLib error: path argument expected.
*Cancel*
Error: bad argument type: stringp nil
Error Resetting Enviroment
Wat klopt er niet? Ik kom gewoon niet in de menu.
De handleiding van babe had ik al doorgenomen.
Fout opsporing op afstand is lastig, maar we proberen het.
Type a.u.b. op de command line in (getvar "acadprefix") en post hier het resultaat.
Ik heb ook even wat getest. Ik krijg de volgende melding wanneer ik niet de juiste locatie van BaBe heb toegevoegd aan de "Support File Search Path" (bij OPtions).
Staat deze bij jou wel goed ingesteld?
Error: bad argument type: stringp nil
Error Resetting Enviroment
Reimer
Citaat van: Joop op vr 12 12 2008, 07:41:07
Fout opsporing op afstand is lastig, maar we proberen het.
Type a.u.b. op de command line in (getvar "acadprefix") en post hier het resultaat.
Command: (getvar "acadprefix")
"\\\\s31000902\\Appl$\\Cad5\\StabiCAD\\sup2006;\\\\s31000902\\Appl$\\Cad5\\Stabi
CAD\\sup2004;\\\\s31000902\\Appl$\\Cad5\\StabiCAD\\support;C:\\Documents and
Settings\\gebruiker2008\\Application Data\\Autodesk\\AutoCAD
2006\\R16.2\\enu\\Support;\\\\S31000902\\Appl$\\Acad2006\\Menus\\tttAppl\\algeme
en_lisp;\\\\S31000902\\Appl$\\Acad2006\\Menus\\tttAppl\\bibliotheek;H:\\My
Documents\\AutoCAD\\Support;\\\\S31000902\\Appl$\\Acad2006\\Support;C:\\Program
Files\\AutoCAD 2006\\Support;C:\\Program Files\\AutoCAD
2006\\Fonts;\\\\S31000902\\Appl$\\Acad2006\\Fonts;\\\\S31000902\\Appl$\\Acad2006
\\Help;C:\\Program Files\\AutoCAD 2006\\Help;C:\\Program Files\\AutoCAD
2006\\Express;H:\\My
Documents\\AutoCAD\\Menu;\\\\S31000902\\Appl$\\Acad2006\\Menus\\VerdAppl;\\\\S31
000402\\Appl$\\Acad2006\\Menus\\SprinkAppl\\ttt-sprinkler-Data;\\\\S31000902\\Ap
pl$\\Acad2006\\Menus\\SprinkAppl\\ttt-sprinkler-DWG;\\\\S31000902\\Appl$\\Acad20
06\\Drv;C:\\Program Files\\AutoCAD 2006\\drv;"
Zou je nu kunnen intypen !babelocation en !inilocation en het resultaat hier posten?
Vergeet het uitroepteken niet.
Citaat van: Joop op vr 12 12 2008, 11:24:18
Zou je nu kunnen intypen !babelocation en !inilocation en het resultaat hier posten?
Vergeet het uitroepteken niet.
Command: ap
APPLOAD BaBe.lsp successfully loaded.
Command: ap
APPLOAD
DOSLib Version 6.1.5 (Jun 21 2004)
Copyright © 1992-2004, Robert McNeel & Associates
doslib16.arx successfully loaded.
Command: !babelocation
nil
Command: !inilocation
nil
CiteerAlle bestanden die in de zip (BABE.ZIP) zat gecopieert naar
C:\Program Files\AutoCAD 2006
Dit pad staa niet in
Citaat van: balletje23 op vr 12 12 2008, 09:18:14
Command: (getvar "acadprefix")
"\\\\s31000902\\Appl$\\Cad5\\StabiCAD\\sup2006;\\\\s31000902\\Appl$\\Cad5\\Stabi
CAD\\sup2004;\\\\s31000902\\Appl$\\Cad5\\StabiCAD\\support;C:\\Documents and
Settings\\gebruiker2008\\Application Data\\Autodesk\\AutoCAD
2006\\R16.2\\enu\\Support;\\\\S31000902\\Appl$\\Acad2006\\Menus\\tttAppl\\algeme
en_lisp;\\\\S31000902\\Appl$\\Acad2006\\Menus\\tttAppl\\bibliotheek;H:\\My
Documents\\AutoCAD\\Support;\\\\S31000902\\Appl$\\Acad2006\\Support;C:\\Program
Files\\AutoCAD 2006\\Support;C:\\Program Files\\AutoCAD
2006\\Fonts;\\\\S31000902\\Appl$\\Acad2006\\Fonts;\\\\S31000902\\Appl$\\Acad2006
\\Help;C:\\Program Files\\AutoCAD 2006\\Help;C:\\Program Files\\AutoCAD
2006\\Express;H:\\My
Documents\\AutoCAD\\Menu;\\\\S31000902\\Appl$\\Acad2006\\Menus\\VerdAppl;\\\\S31
000402\\Appl$\\Acad2006\\Menus\\SprinkAppl\\ttt-sprinkler-Data;\\\\S31000902\\Ap
pl$\\Acad2006\\Menus\\SprinkAppl\\ttt-sprinkler-DWG;\\\\S31000902\\Appl$\\Acad20
06\\Drv;C:\\Program Files\\AutoCAD 2006\\drv;"
Voeg dit toe aan jouw zoekpad.
En probeer het opnieuw.
:mrgreen: http://www.cadsite.be/smf/index.php/topic,3010.msg15468.html#msg15468 (http://www.cadsite.be/smf/index.php/topic,3010.msg15468.html#msg15468) :wink:
Citaat van: Reimer op vr 12 12 2008, 14:30:49
:mrgreen: http://www.cadsite.be/smf/index.php/topic,3010.msg15468.html#msg15468 (http://www.cadsite.be/smf/index.php/topic,3010.msg15468.html#msg15468) :wink:
klopt
Het werkt !! :vreegoe: :lol: ik heb via opties de babe toegevoegd thx. Dit prog is echt handig!
Nu heb ik nog wat vragen .
Nadat ik lisproutine hebt geselecteer vraag het eerst of ik de tekening wil saven
Wat moet je toevoegen in de listroutine om aan te geven of ik wel of niet wil saven?
(do you want to save the drawing).
En wat moet je in de lisproutine toevoegen zodat alle layouts in een tekeningen
Fit to paper krijgt,want in sommige tekeningen zitten meerder layouts in?
(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
Als het goed is heeft BaBe reeds deze functie en zet zij de keuze in het script.
Citaat van: Joop op di 06 01 2009, 10:02:00
Als het goed is heeft BaBe reeds deze functie en zet zij de keuze in het script.
oke hier ben ik al uit
Nadat ik lisproutine hebt geselecteer vraag het eerst of ik de tekening wil saven
Wat moet je toevoegen in de listroutine om aan te geven of ik wel of niet wil saven?
(do you want to save the drawing).
maar hoe zit het met dit
:
En wat moet je in de lisproutine toevoegen zodat alle layouts in een tekeningen
Fit to paper krijgt,want in sommige tekeningen zitten meerder layouts in?
"y" ; Detailed plot configuration?
"layout" ; Enter a layout name
"P31500 Oce TDS500.pc3" ; Enter an output device name
"A0" ; Enter paper size
is opgelost in een nieuw onderwerp
http://www.cadsite.be/smf/index.php/topic,3096.0.html
Iedereen bedankt en voornamelijk joop met je babe programma :vreegoe: