Problemi in VBA per Solidworks

[titurbina]

in vba per soidworks reisve un errore nel seguente listato:
Option
dim selmgr als objekt
dim boolstatus als boolean
dim longstatus so lang, langwarnings as long
dim-feature als objekt
dim teil als objekt
dim swapp as sldworks. schalungen

Teil haupt()

set swapp = anwendung. schalungen

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

Wenn swapp.getuserpreferencetoggle(swcolorsgradientpartbackground) dann swapp.setuserpreferencetoggleswcolorsgradientpartbackground fälschlich
andere
swapp.setuserpreferencetoggleswcolorgradientpartbackground, true
Ende

Endteil
komm her da allegato
Grazien

 

[jenuary]

Hi.
Das Problem ist hier:
satzteil = swapp.activatedoc :gemischt:
muss ersetzt werden
set part = swapp.activedoc :finger:

Grüße

 

[titurbina]

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

Option
dim selmgr als objekt
dim boolstatus als boolean
dim longstatus so lang, langwarnings as long
dim-feature als objekt
dim teil als objekt
dim swapp as sldworks. schalungen
Teil haupt()
set swapp = anwendung. schalungen
wenn swapp.getuserpreferencetoggle(swcolorsgradientpartbackground) dann
swapp.setuserpreferencetoggleswcolorgradientpartbackground
andere
swapp.setuserpreferencetoggleswcolorgradientpartbackground, true
Ende
??

cosa psso fare?
grazie:finger::finger:

Hi.
Das Problem ist hier:
satzteil = swapp.activatedoc :gemischt:
muss ersetzt werden
set part = swapp.activedoc :finger:

Grüße

 

[CIARLY]

wenn swapp.getuserpreferencetoggle(swcolorsgradientpartbackground) dann
swapp.setuserpreferencetoggleswcolorgradientpartbackground, falsch
♪
swapp.setuserpreferencetoggleswcolorgradientpartbackground, true
Ende
Was ist das??

was kann ich tun?
Danke:

ich bin kein vba-experte, ich denke, es gibt einen tippfehler, wenn die liste die ist (partb ackground) wenn es nicht ist, dass sie erwarten müssen, dass jenuar, der viel kompetenter ist.

 

[jenuary]

hi, es scheint zu funktionieren.

ich trainiere dein makro.
wenn sie probleme in der zukunft auf makro haben, schlage ich vor, ihnen eine erklärung zu geben, was sie tun müssen, da es von hilfe sein kann, während sie versuchen, das problem zu lösen, oder wenn ich zufällig etwas getan habe, noch fortgeschrittener, kann ich es direkt drehen.
grüße: