vba sur autocad avec caractere de substitutionRésolu

Question

bonjour a tous 
voila je debut en vba sur autocad 
je voudrais faire une boucle if pour geler ou laisser actif des calque mais le probleme que j'ai c'est que j'ai des calque qui on le meme nom au depart je m'explique peut etre mal alors voila
nom de mes calque 
calquedessus 
calquerouge
coupe-HID
coupeAA-HID
donc je voudrai geler les calque se terminant par HID
et le *HID ne marche pas pour faire 
if nomcalque = *HID then
nomcalque.Freeze = True
Else
nomcalque.Freeze = False

merci 
ps dit moi si je pose la question au bonne endroit 

merci

PCPT · Accepted Answer

catégorie déplacée !
merci de faire attention ;)

bigfish_le vrai · Answer

Salut,

il faut dabord travailer sur la chaine de charactere

' on passe tout en lettre minuscule avec Lcase() pour ne pas etre embeté 
' par la casse et on recupere les 3 premiere lettre a partir de la droite
' si le resultat est = hid alors on gele le calque
If Right(lcase(nomcalque),3) = "hid" then 
    nomcalque.Freeze = True
Else
    nomcalque.Freeze = False
End if

A+

bigfish_le vrai · Answer

...

effectivement tu n'es pas dans le bon theme. Le bon theme pour le VBA c'est par la :

[infomsg.aspx Thèmes] / [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_LANGAGES-DERIVES_287.aspx Langages dérivés] / [infomsgt_VBA_244.aspx VBA] /

lolostan · Answer

desoler pour la mauvaise categorie

lolostan · Answer

merci bigfish_le vrai CA MARCHE
mereci pour tout

Vba sur autocad avec caractere de substitution

5 réponses

Votre réponse

Discussions similaires