nom de bloc autocad

[argh]

Bonjour,

qqu'un connait il une possibilité pour extraire le nom d'un bloc sur autocad en le selectionnant?pour par exemple le renommer + rapidement.

merci d'avance

 

[Edité le 5/10/2004 par argh]

[phco]

Voici un exemple en visual basic qui pourait vous aider: :)

 

Private Sub CommandButton10_Click()

'Change la couleur des attributs du bloc PT_NIVEAU en BYLAYER

 

'Balayage des éléments du plan

For Each elem In ThisDrawing.ModelSpace

'Teste s'il s'agit d'un bloc

If StrComp(elem.EntityName, "AcDbBlockReference", 1) = 0 Then

'Il s'agit d'un bloc, teste s'il a des attributs:

If elem.Name = "PT_NIVEAU" Then

If elem.HasAttributes Then

'Ecriture des attributs du bloc dans array1:

array1 = elem.GetAttributes

'Balayage des attributs dans array1:

For I = LBound(array1) To UBound(array1)

'Couleur des attributs

array1(I).color = acByLayer

Next I

End If 'Fin du test s'il a des attributs

 

End If 'Fin du test s'il s'agit de PT_NIVEAU

 

elem.Update

End If 'Fin du test s'il s'agit d'un bloc

Next elem 'Fin du balayage des éléments du plan

End Sub

 

[argh]

Merci, je vais essayer....