CADsite forum

Hallo
Ik wil een block 1 die zich bevind in een andere block  vervagen door een andere block 2 ‘
Wie kan mij daarmee helpen , liever met een lisp routine


alvast bedankt

Dat zit tussen de express tools.
blockreplace

bedankt

maar de block die wil ik vervangen zit in een andere blok 

Dan zal je eerst refedit moeten aanroepen en hierna die blockreplace.

eerst bedankt voor je reactie .

Dat kan maar ik heb 15 tekeningen en elke tekening bestaat uit 200 pagina’s 

En ik heb het over de kader van die tekeningen  want de klant wil een andere logo op de kader
Daroom wil ik het via een script doen dat is wat sneller ‘.

Met BaBe kun je meerdere tekeningen als BAtch BEwerken.

Hier
http://www.cadsite.be/tips/BaBe.zip
te downloaden.

Met de volgende code kun dan je alle lay-outs plotten.
Deze moet je aanpassen voor het vervangen van blocks.


(defun c:DoIt ()
  (if (= (getvar "pstylemode") 0)
    (command "convertpstyles")
  ) ;_ end of if
  (setq volgnr 0)
  (setq all_layouts (layoutlist))
  (setq l (vl-list-length all_layouts))
  (while (< volgnr l)
    (setq a_layout (nth volgnr all_layouts))
    (setq str (strcat "Now plotting layout: " a_layout))

    (print str)
    (setq volgnr (1+ volgnr))
    (command "-plot" ;Plot-command ;
     "y" ;Detailed plot configuration? ;
     a_layout ;Enter a layout name ;
     "NLP12280" ;Enter an output device name ;
     "A3" ;Enter paper size ;
     "m" ;Enter paper units ;
     "l" ;Enter drawing orientation ;
     "n" ;Plot upside down? ;
     "e" ;Enter plotarea ;
     "f" ;Enter plot scale ;
     "0,0" ;Enter plot offset ;
     "y" ;Plot with plot styles ;
     "_zwart.ctb" ;Enter plot style table name ;
     "y" ;plot with lineweights ;
     "n" ;Scale lineweights with plot scale? ;
     "n" ;Plot paper space first? ;
     "n" ;Remove hiddenlines? ;
     "n" ;Write the plot to a file ;
     "n" ;Save changes to layout? ;
     "y" ;Proceed with plot? ;
    )
  )

)


Succes.

bedankt joop.

Wil jij mij daarmee helpen want ik ben niet zo handig met lisp routines 

En bedankt

Ik doe mijn best, maar dan moet je me wel een kader sturen en het nieuwe logo.
Door omstandigheden kan ik echter niet een tijd opgeven dat het klaar is.