help programme !!

[doua]

salut,

 

je me permet de redemander de l'aide conçernant mon problème "impression automatique des ducuments sur autocad" ! ;)

j'ai creer un bloc qui s'appel "fiche de lance" dans une présentatiion qui s'appel "layout1"

on fait dans ce layout j'ai copier mon bloc une dizaines de fois et je veux imprimer tous ces blocs à la fois automatiquement .

 

bon voilà j'ai fait un programme vba mais je pense que j'ai du oublier quelque instructions ...

enfin je crois..!!!

 

 

bon voila une copie de mon programme :

 

'Impression automatique

public sub bloc()

dim objbloc as acadblock

dim plotconfig as acadplotconfiguration

dim objonglets as acadlayouts

dim objonglet as acadlayout

dim strnomdubloc as string

dim orige (0 to 2) as ddouble

dim x0 as double

dim y0 as double

dim x1 as double

dim y1 as double

dim a as double

dim b as double

dim point0(0 to 1)as double

dim point1(0 to 1)as double

a=198

b=285

 

'-----------------------

 

set objonglets = thisdrawing.layouts

set objonglet = objonglets.item ("layout1")

strnomdubloc = "fiche de lance"

for each objbloc in thisdrawing.blocks

if 0 = strcomp(oobjbloc.name, strnomdubloc,1)

x0=objbloc.origin(0)

y0=objbloc.origin(1)

point0(0) = x0 : point0(1) = y0

x1 = x0 + a

y1 = y0 + b

point1(0) = x1 : point0(1) = y1

 

set plotconfig = thisdrawing.plotconfigurations.add("impr")

thisdrawing.plotconfigurations ("layout1").configname = "impr"

plotconfig.setwindowtoplot point0, point1

thisdrawing.plot.plottodevice

 

end if

next objbloc

end sub

 

---------------------------------------------------------

svp j'attend votre aide avec impatience !!

 

merci

 

 

[Patrick_35]

Salut

Il me semble que tu es désespéré de ne pas recevoir de réponse en ce qui concerne ta demande d'impression automatique

D’après ce que j'ai pu constater, tu as beaucoup plus de personne qui pourrait te répondre en lisp, voir en visual lisp plutôt qu'en vba

Si le coeur t’en dit de changer de langage

 

@+

[sacer85]

salut,

j'ai un truc fait pour AutoCAD 2000 qui ouvre tous les fichiers dwg ou dxf d'un répertoire ( un par un) fait un zoom étendu, imprime l'espace objet et le referme avant de passer au suivant.

c'est pratique avec des profils en travers par exemple, si ça t'interesse fais signe.

[doua]

salut,

merci Patrick_35, mais je suis debutante en vba et plus en lisp

mais s'il ya qlq qui peut me répondre en me donnant laprocedure qui marche ça me géne pas si elle est fait en lisp ou *autre longuage ! merci encors de votre interêt !

 

merci à toi aussi sacer85,

oui ça m'interesse ton truc sous autocad2000 !

etje te remerci infinement pour ton interêt

 

merci pour vous tous ;)

 

 

 

[winfield]

Bonsoir, j'ai peur de ne pas tout saisir.

Les blocs sont-ils les uns à coté des autres ?

Tu dois imprimer tous les blocs d'un coup ? ou bloc par bloc ?

Merci de m'éclairer

 

[winfield]

bug ?

 

[Edité le 31/1/2006 par winfield]

[sacer85]

salut,

donne moi une adresse mail et je t'envoie ça.

si le code peut t éclairer.

[doua]

salut winfield,

 

oui les blocs sont posés les un a coté des autres

et je doit imprimer tous mes blocs à la fois ! :casstet:

 

merci pour ton intérêt winfield :)

 

salut sacer85,

je te remerci aussi ;)

voilà mon adresse e_mail : hajarejaki@hotmail.com

 

merci à vous !! :D

 

 

[winfield]

Je n'ai pas encore travaillé le côté traceur en vba, ça va faire l'occasion. Mais désolé, pas ces prochains jours car.............j'ai fais une boulette, je suis tombé sur un OS, j'en ai plus sur un pc :( et pas moyen d'en remettre :mad: GRRRRRRRRRRR