yoin

julien

Voor het eerst zal ik een BaBe nodig hebben en het wil niet lukken...
De bestanden staan onder een support search path en de appload is gelukt. Als ik dan het commando BaBe ingeef krijg ik voldgende foutmelding:
Error: no function definition: DOS_SEARCH; error: An error has occurred inside
the *error* functionno function definition: DOS_OPENP

Weet iemand wat ik fout doe en hoe het op te lossen?

WebRacer

oftewel geen doslib geladen
oftewel zit er een bepaald commando in babe die niet meer in de nieuwere doslib zit....

weet eens te zeggen welke acadversie je gebruikt, en welke doslib...
acad 2004 --> doslib16
acad2005 en verder --> doslib17
?

julien

Ik gebruik acad 2008 en heb doslib 17 in de map gezet.

WebRacer

ok ik kijk dit even na voor u, waar vindt ik babe?
?

julien


WebRacer

Julien,

ik denk dat dat het probleem was.
uw map waar 'babe' in staat moet als een support search path staan bij uw options - files...
ik heng hierbij de herwerkte babe.lsp.... voor acad tot en met 2008
(hierin is de automatiche lading van de juiste doslib voorzien)
Met alle respect voor diegene dit dit schreef.... sorry dat ik dit aangepast heb.
?

Joop

Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".

julien

Schitterend!!!
Bedankt beiden!

De printer is momenteel zot aan het draaien en ik zit te typen.  :mrgreen:

Nu nog leren een goede plot-lisp te schrijven want zowel links als rechts wil de laatste lijn niet mee afgedrukt worden.  :cry:

Joop

;;;                                      ;
((defun c:DoIt ()
  (if (> (cadr (getvar "EXTMAX")) ; if y-coord greater than     
(car (getvar "EXTMAX")) ; x-coord                     
      ) ;_ end of >
    (setq Orientatie "p") ; set portrait               
    (setq Orientatie "l") ; if not set landcape         
  ) ;_ end of if
  (if (= (getvar "pstylemode") 0) ; if pstyle=R14               
    (command "convertpstyles") ; change to 2000/2002         
  ) ;_ end of if
  (command "-plot" ; command to plot without GUI 
   "y" ; Detailed plot configuration?
   "model" ; Enter a layout name         
   "NLP12280.pc3" ; Enter an output device name 
   "A4" ; 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) ; close silently               
) ;_ end of defun
;|«Visual LISP© Format Options»
(100 2 40 2 T "end of " 80 9 0 0 nil T T nil T)
;*** DO NOT add text below the comment! ***|;

Met bovenstaande als voorbeeld zou het moeten lukken.
Deze BaBe print alles op A4 en in landscape.
Lukt het niet, verander dan de plotscale.

Succes,

Joop
Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".

julien

Bedankt, maar het lukt me niet een goede PC3 file aan te maken voor onze printer...
Dit gebruik ik nu:
(defun c:DoIt ()
  (command "zoom" "extents")
  (command "-plot" ; command to plot without GUI 
   "y" ; Detailed plot configuration?
   "model" ; Enter a layout name         
   "KM2530" ; Enter an output device name 
   "ISO A4 (297.00 x 210.00 MM)" ; Enter paper size             
   "m" ; Enter paper units           
   "d" ; Enter drawing orientation   
   "n" ; Plot upside down?           
   "e" ; Enter plot area             
   "1=1" ; Enter plot scale             
   "c" ; Enter plot offset           
   "y" ; Plot with plot styles?       
   "00.ctb" ; Enter plot style table name 
   "yes" ; Plot with lineweights?
   "As displayed" ; Shade plot setting           
   "n" ; Write the plot to a file     
   "n" ; Save changes to model tab   
   "y" ; Proceed with plot           
  ) ;_ end of command
  (princ)
) ;

Joop

Citeer"1=1"            ; Enter plot scale             

Kun je dit veranderen in "1=0.9"?
Als dit werkt vergroot dan naar 1=0.99 en daarna naar 1=0.999.
Praktisch gezien maakt dit voor de schaal van de afdruk niet uit, want het verschil kun je niet meten.
Voor de plotscale kan dit betekenen dat de gemiste lijnen net binnen het afdrukgebied vallen.
Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".

Joop

Citaat van: Joop op wo 28 11 2007, 09:57:32
Citeer"1=1"            ; Enter plot scale             

Kun je dit veranderen in "1=0.9"?
Als dit werkt vergroot dan naar 1=0.99 en daarna naar 1=0.999.
Praktisch gezien maakt dit voor de schaal van de afdruk niet uit, want het verschil kun je niet meten.
Voor de plotscale kan dit betekenen dat de gemiste lijnen net binnen het afdrukgebied vallen.

Correctie: :oops: ik bedoel natuurlijk 1=1.1 en dan naar 1=1.01 enz.
Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".

julien

Ik heb de pc3 file eens opnieuw aangemaakt, daar zat iets fout in.
Hier werkt het nu perfect!
Bedankt voor het mooie hulpje!  8)

julien

Citaat van: julien op di 27 11 2007, 16:56:47
Dank je. ;)

http://www.cadsite.be/tips/BaBe.zip
Ondertussen heeft Joop een nieuwe versie door gegeven.
De oude is vervangen.  :vreegoe:

Joop

Citaat van: julien op ma 25 02 2008, 16:18:31
Ondertussen heeft Joop een nieuwe versie door gegeven.
De oude is vervangen.  :vreegoe:
Hierbij de volgende opmerkingen:
Onze vriendelijke BaBe is nu aangepast van versie 2000 tot en met de versie 2008.
Ik heb niet getest met 2007 en 2008, maar alles zou moeten werken. Eventuele fouten s.v.p. melden.
Heeft er iemand wensen m.b.t. dit hulpje? Gewoon vragen.

Veel plezier ermee.

Joop
Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".