Hello,
I am trying to change the transparency percentage of a layer using VBA.
tHIS IS my code:
Code:
Sub Access_Autocad() 'nom de ma procédure
Dim AutoCAD As Object 'Autocad est la variable ici
Set AutoCAD = CreateObject("Autocad.Application") 'ouvre AutoCad
AutoCAD.Visible = True
Set AutoCAD = AutoCAD.Documents.Open("P:\Plannif_VBA_AutoCAD\PLA_TEN_C18_406_RONDES.dwg") 'ouvre fichier ronde
Dim layer_ronde As AcadLayer
Set layer_ronde = AutoCAD.Layers.Add("99103") 'attribuer à la ronde le nom du calque correspondant
layer_ronde.Color = acRed 'cahanger la couleur du calque
Dim layer_ronde1 As AcadLayer
Set layer_ronde1 = AutoCAD.Layers.Add("99103")
layer_ronde1.Color = 12
Dim layer_ronde2 As AcadLayer
Set layer_ronde2 = AutoCAD.Layers.Add("99105")
layer_ronde2.Color = 16
Dim layer_ronde3 As AcadLayer
Set layer_ronde3 = AutoCAD.Layers.Add("99106")
layer_ronde3.Color = 5
I thought abput using layer_ronde3.Transparency and then equal that to the percentage of transparency needed.
However....Transparency only works for Image. At least, that what i understood.
I think there is a method to convert it but i been looking and can't find it.
cOULD SOMEONE HELP ME?
I began Learning vba 2 days ago so i have a lot to learn.