Modification de bloc objet

[Anonymous]

Salut, je cherche a deplacer par l'intermediaire de VB un bloc objet.Je crois avoir trouver la commande:Blocks.Origin...Le probleme est que cette origine a pour coordonées (0,0,0)...?Et impossible de la modifier.Qu'est ce qui m'échappe?Quelqu'un a t'il une idée.Merci d'avance.Florian

[Anonymous]

J'ai fait de cette facon et je reussi a deplacer
mon block qui est au depart 0,0,0

Dim CodeGroup(0 To 13) As Integer
Dim ValGroup(0
To 13) As Variant

Set Mon_Block_Selection = Nothing
Set
Mon_Block_Selection =
ThisDrawing.SelectionSets.ADD("Mon_Block")
         

    CodeGroup(0) = -4
    ValGroup(0) =
"<OR"
        

    CodeGroup(1) = 0
    ValGroup(1) =
"BLOCK"
    CodeGroup(2) = 2
    ValGroup(2)
= "Nom_DU_BLOCK"  '
    
   
CodeGroup(3) = -4
    ValGroup(3) =
"OR>"
         

Mon_Block_Selection.Select acSelectionSetAll, , , CodeGroup,
ValGroup

Dim New_Pt(0 To 2) As Double
Dim Old_Pt As
Variant
New_Pt(0) = 1000: New_Pt(1) = 1000

If Mon_Block_Selection.Count = 1
Then
    For Each Block_Select In
Mon_Block_Selection
        Old_Pt =
Block_Select.insertionPoint
       
Block_Select.insertionPoint = New_Pt
    Next
End
If

Marc Sylvain

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"florian" <
href="mailto:fluff22001@yahoo.fr">fluff22001@yahoo.fr> a écrit dans le
message de news:
href="mailto:f10fe58.-1@WebX.maYIadrTaRb">f10fe58.-1@WebX.maYIadrTaRb...

Salut,
je cherche a deplacer par l'intermediaire de VB un bloc objet.Je crois avoir
trouver la commande:Blocks.Origin...Le probleme est que cette origine a pour
coordonées (0,0,0)...?Et impossible de la modifier.Qu'est ce qui
m'échappe?Quelqu'un a t'il une idée.Merci
d'avance.Florian

[Anonymous]

'J'ai fait de cette facon et ca
fonctionne

'Marc Sylvain

Dim CodeGroup(0 To 13) As Integer
Dim ValGroup(0
To 13) As Variant

Set Mon_Block_Selection = Nothing
Set
Mon_Block_Selection =
ThisDrawing.SelectionSets.ADD("Mon_Block")
         

    CodeGroup(0) = -4
    ValGroup(0) =
"<OR"
        

    CodeGroup(1) = 0
    ValGroup(1) =
"BLOCK"
    CodeGroup(2) = 2
    ValGroup(2)
= "Nom_DU_BLOCK"  '
    
   
CodeGroup(3) = -4
    ValGroup(3) =
"OR>"
         

Mon_Block_Selection.Select acSelectionSetAll, , , CodeGroup,
ValGroup

Dim New_Pt(0 To 2) As Double
Dim Old_Pt As
Variant
New_Pt(0) = 1000: New_Pt(1) = 1000

If Mon_Block_Selection.Count = 1
Then
    For Each Block_Select In
Mon_Block_Selection
        Old_Pt =
Block_Select.insertionPoint
       
Block_Select.insertionPoint = New_Pt
    Next
End
If

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"florian" <
href="mailto:fluff22001@yahoo.fr">fluff22001@yahoo.fr> a écrit dans le
message de news:
href="mailto:f10fe58.-1@WebX.maYIadrTaRb">f10fe58.-1@WebX.maYIadrTaRb...

Salut,
je cherche a deplacer par l'intermediaire de VB un bloc objet.Je crois avoir
trouver la commande:Blocks.Origin...Le probleme est que cette origine a pour
coordonées (0,0,0)...?Et impossible de la modifier.Qu'est ce qui
m'échappe?Quelqu'un a t'il une idée.Merci
d'avance.Florian

[Anonymous]

Oops!!!! une petite erreur dans mon
programme

replace ces 2 lignes

Dim CodeGroup(0 To 3) As Integer

Dim ValGroup(0 To 3) As Variant

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"florian" <
href="mailto:fluff22001@yahoo.fr">fluff22001@yahoo.fr> a écrit dans le
message de news:
href="mailto:f10fe58.-1@WebX.maYIadrTaRb">f10fe58.-1@WebX.maYIadrTaRb...

Salut,
je cherche a deplacer par l'intermediaire de VB un bloc objet.Je crois avoir
trouver la commande:Blocks.Origin...Le probleme est que cette origine a pour
coordonées (0,0,0)...?Et impossible de la modifier.Qu'est ce qui
m'échappe?Quelqu'un a t'il une idée.Merci
d'avance.Florian