Aller au contenu

Layers("BATI").LineType TypeDeLigne FichierLIN


DenisHen

Messages recommandés

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

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

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

Salut Patrick_35

 

Et encore merci,

 

C'est nikel...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité