Meerdere dwg plot instelling veranderen??(Opgelost)

[balletje23]

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

[EddyBeerke]

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.

[balletje23]

Jah, die functie ken, maar is niet wat ik wil zie mijn voorbeeld 

[julien]

Dit zal denk ik wel te doen zijn met babe, maar dan moet je natuurlijk eerst nog even een goede lisp kunnen schrijven.

[Reimer]

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.

Code Selecteer Uitklappen

(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)
)

[balletje23]

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.

Code Selecteer Uitklappen

(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.

[Joop]

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.

Code Selecteer Uitklappen

(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

[balletje23]

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?

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.

Code Selecteer Uitklappen

(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

[Joop]

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

[balletje23]

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?

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

[Reimer]

Beste balletje23,

kijk even naar de volgende uitleg:
http://www.cadsite.be/smf/index.php/topic,2811.msg14397.html#msg14397

Reimer

[balletje23]

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?

Beste balletje23,

kijk even naar de volgende uitleg:
http://www.cadsite.be/smf/index.php/topic,2811.msg14397.html#msg14397

Reimer

[julien]

Je moet de doslib nog inladen.

[balletje23]

Je moet de doslib nog inladen.

Gaat dat net als het inladen van lsp?
het is namelijk een arx bestand

[Reimer]

Ja, gewoon in acad slepen of via AP (application load).

Reimer