Layers("BATI").LineType TypeDeLigne FichierLIN

[DenisHen]

Bonjour à tous,

 

Beaucoup est dit dant le sujet... J'ai :

        DocAutoCad.Layers.Add (Calque)
       DocAutoCad.Layers(Calque).Color = Coul
       TypLign="RES_ARR"
       FichierLIN = "B:\50-USERS\atelier_Acad\Modèle\Config_Vincennes.lin"
       If TypLign <> "Continuous" Then
           DocAutoCad.Linetypes.Load TypLign, FichierLIN
           DocAutoCad.Layers(Calque).LineType = TypeLign
       End If

Le fichier existe et le type de ligne est bien dans ce fichier... Mais AutoCAD me répond que : "Nom de type de ligne incorrect"...

 

Quelqu'un a une idée ?

 

Denis...

[Patrick_35]

Salut

 

VBA Example

Sub Example_ActiveLinetype()

' This example finds the current linetype. It then sets

' the new linetype to be the first entry in the linetype

' collection that is not equal to the current linetype.

' Finally, it resets the active linetype to the original

' setting.

 

Dim currLineType As AcadLineType

Dim newLineType As AcadLineType

 

' Find the current LineType of the active document

Set currLineType = ThisDrawing.ActiveLinetype

MsgBox "The current linetype is " & currLineType.name, vbInformation, "ActiveLinetype Example"

 

' Set the current Linetype to anything else in the collection

Dim entry

Dim found As Boolean

For Each entry In ThisDrawing.Linetypes

If StrComp(entry.name, currLineType.name, 1) <> 0 Then

Set newLineType = entry

found = True

Exit For

End If

Next

If found Then

ThisDrawing.ActiveLinetype = newLineType

MsgBox "The new linetype is " & newLineType.name, vbInformation, "ActiveLinetype Example"

' Reset the linetype to the previous setting

ThisDrawing.ActiveLinetype = currLineType

MsgBox "The active linetype is reset to " & currLineType.name, vbInformation, "ActiveLinetype Example"

End If

End Sub

 

@+

[DenisHen]

Salut Patrick_35

 

Et encore merci,

 

C'est nikel...

 

Denis...