Différentea SelectionSets dans VBA e VB6

[tiziano69]

Bonjour, J'ai un programme vba qui fonctionne régulièrement, j'ai essayé de l'apporter à vb6 mais "adss" ne remplit pas d'objets de dessin, j'ai essayé de toutes les manières, mais j'ai échoué. Pourquoi ?

dim annonces comme autocad.acadselectionset
Dim adtext comme autocad. acadentité

set ads = ce dessin. selectionsets("adss") Parce que ça ne se remplit pas ftype(0) = -4: fdata(0) = "<ou"
ftype(1) = 0: fdata(1) = "texte"
ftype(2) = 0: fdata(2) = "mtexte"
ftype(3) = -4: fdata(3) = "ou>"
'ftype(0) = 0: fdata(0) = "texte"
'ftype(1) = 0: fdata(1) = "mtexte"

ads.select acselectionsetall, , , ftype, fdata

pour chaque adtext dans les annonces
pt = adtext.point d'insertion
........
........