Insérer plusieurs blocs dans un dessin

[ale]

je voulais proposer une routine pour insérer plus de blocs dans un dessin.
à titre d'exemple, dans un fichier .dwg, j'insère deux blocs qui prendront le nom de 01 et 02.
pour les insérer:
public sous blocco()
dim objblock comme acadblock
dim insblock comme référence acadblock
dim strname comme chaîne
dim p(0 à 2) double
p(0) = 0: p(1) = 0: p(2) = 0
pour chaque objblock dans ce dessin. blocs
strname = objblock.name
ce dessin. sendcommand "._-insert" & vbcr & objblock. nom & vbcr & "0,0,0" & vbcr _
& 1 & vbcr & 1 & vbcr & 1 & vbcr & 0 & vbcr

debug.print objblock. nom
suivant
fin sousla fenêtre immédiate affiche :
*l'espace_modèle
*espace papier
*jour_espace0
0
annexependant que dans l'espace modèle une série de fenêtres ralentissent l'opération d'insertion.

à ce stade, je voudrais souligner la nécessité d'une plus grande coopération entre les états membres.
si gauche(strname, 1) = "1" alorstout semble être étonnant.

tu crois qu'il y a un autre moyen de faciliter cette procédure ?

 

[Shape]

je ne comprends pas le sens de cette macro. insère tous les blocs présents dans le dwg...

cmq pour passer l'espace modèle et l'espace papier qui sont manipulés comme des blocs

sous-bloc public()
dim objblock comme acadblock
dim insblock comme référence acadblock
dim strname comme chaîne
dim p(0 à 2) double
p(0) = 0: p(1) = 0: p(2) = 0
pour chaque objblock dans ce dessin. blocs
strname = objblock.name(Nom, 1)cedrawing.sendcommand "._-insert" & vbcr & objblock. nom & vbcr & "0,0,0" & vbcr _
& 1 & vbcr & 1 & vbcr & 1 & vbcr & 0 & vbcr
debug.print objblock.nameSisuivant
fin


puis pour insérer le bloc au lieu du sendcommand... ce qui est un peu dur puti

set blockrefobj = thisdrawing.modelspace. insertblock(p, strname, 1#, 1#, 1#, 0)

j'ai une voiture puissante mais je n'ai pas remarqué de ralentissements. . . .

 

[ale]

merci de m'avoir répondu.
cette routine fait partie d'un travail un peu plus articulé que je développe.
ce serait ma première en vba.
ça fait longtemps que mon armée avec vba espère devenir avec un quelques exercices un débutant Date:
Moi <> "*" ; de nos jours, j'essaie de m'entraîner.
bonjour.

 

[Shape]

<> "*" signifie "différent de *" puisque le nom de l'espace modèle et de l'espace papier commencent la moutarde pour * j'ai fait un filtre pour ne pas sélectionner ceux... tous... est une méthode un peu rugueuse mais ça marche....

 

[ale]

très bien !
ciao