problems and vba per solidworks

[titurbina]

in vba per soidworks riceve un errore nel seguente listato:
option explicit
dim selmgr as object
dim boolstatus as boolean
dim longstatus as long, longwarnings as long
dim feature as object
dim part as object
dim swapp as sldworks.sldworks

sub main()

set swapp = application.sldworks

set part = swapp.activatedoc
set feature = part.addmate2(5, 0, true, 0.001, 0.001, 0.001, 1, 1, 0, 0, 0, longstatus)
part.clearselection2 true

if swapp.getuserpreferencetoggle(swcolorsgradientpartbackground) then swapp.setuserpreferencetoggleswcolorsgradientpartbackground , false
else
swapp.setuserpreferencetoggleswcolorsgradientpartbackground , true
end if

end sub
come da allegato
grazie

 

[jenuary]

ciao,
il problema sta qui:
set part = swapp.activatedoc :mixed:
deve essere sostituito con
set part = swapp.activedoc :finger:

saluti

 

[titurbina]

o.k. per quanto riguarda la prima parte della richiesta, mentre per la restante:

option explicit
dim selmgr as object
dim boolstatus as boolean
dim longstatus as long, longwarnings as long
dim feature as object
dim part as object
dim swapp as sldworks.sldworks
sub main()
set swapp = application.sldworks
if swapp.getuserpreferencetoggle(swcolorsgradientpartbackground) then
swapp.setuserpreferencetoggleswcolorsgradientpartbackground , false
else
swapp.setuserpreferencetoggleswcolorsgradientpartbackground , true
end if
errore di compilazione else senza if ???

cosa psso fare ?
grazie:finger::finger:

ciao,
il problema sta qui:
set part = swapp.activatedoc :mixed:
deve essere sostituito con
set part = swapp.activedoc :finger:

saluti

 

[CIARLY]

if swapp.getuserpreferencetoggle(swcolorsgradientpartbackground) then
swapp.setuserpreferencetoggleswcolorsgradientpartbackground, false
♪
swapp.setuserpreferencetoggleswcolorsgradientpartbackground, true
end if
else compilation error without if??? ?

What can I do?
thanks:finger::finger:

I'm not a vba expert, I think there's a typing error if the list is the one (partb ackground) if it's not that you have to expect jenuary who's much more competent.

 

[jenuary]

Hi, so it seems to work.

I'll train your macro.
If you happen to have problems in the future on macro, I suggest you give an explanation of what you need to do, as it can be of help while trying to solve the problem, or if by chance I already have something done, even more advanced, I can turn it directly.
Greetings: