Lister les Présentations

[PhilBat]

Bonjour

je cherche à lister les noms (onglets) de toutes les présentations (espaces papiers) d'un dessin

dans une zone de liste modifiable par exemple (combobox).

Merci

Philippe

[PhilBat]

Voilà

j'ai trouvé :

 

Sub Example_Layouts()

' This example will access the Layouts collection for the current drawing

' and list basic information about the Layouts in the drawing.

 

Dim Layouts As AcadLayouts, Layout As AcadLayout

Dim msg As String

 

' Get layouts collection from document object

Set Layouts = ThisDrawing.Layouts

 

msg = vbCrLf & vbCrLf ' Start with a space

 

' Get the names of every layout in this drawing

For Each Layout In Layouts

msg = msg & Layout.Name & vbCrLf

Next

 

' Display a list of available layouts

MsgBox "There are " & Layouts.Count & " layouts in " & _

ThisDrawing.WindowTitle & ":" & msg

End Sub

 

a+

Philippe

[bazoul]

Bonjour,

 

En soit si je ne dis pas de bêtise récupérer les présentations sa donne ceci:

 

Dim CurrentLayout As AcadLayout
Dim i As Integer

For i = 0 To ThisDrawing.Layouts.Count - 1
Set CurrentLayout = ThisDrawing.Layouts.Item(i)

If CurrentLayout.Name <> "Model" Then
'Traitement a insérer ici

End If
Next i

Set CurrentLayout = Nothing

 

Maintenant à toi de voir pourquoi une liste modifiable ....

 

Cordialement,

 

PS: Ah entre temps tu as trouvé ... ^^