Macro voor verificatie van opgeslagen bestanden

Hallo

Ik werk aan een macro waarmee we een tekenblad kunnen maken voor het maken van DXF volgens onze interne behoeften, en als het grootste deel van de code werkt, bugs als de tekening niet eerder is opgeslagen.
Mijn vraag is dus de volgende: hoe kunnen we controleren of het bestand al is opgeslagen?

Bedankt voor je hulp

Hallo
Ik neem aan dat je de bestandsnaam als uitgangspunt gebruikt;
Het is daarom noodzakelijk om het registratiepad van het bestand te controleren, dat leeg is als het niet wordt opgeslagen met de onderstaande regel (aan te passen aan de variabele declaraties):

If Part.GetPathName = "" Then
 xxxx 'Taper le traitement souhaité à ce niveau (msgbox ou autre)
End if
3 likes

Hallo @Cyril_f en bedankt voor je feedback
Dus ik weet te definiëren dat mijn tekening niet is opgeslagen, dat is een eerste punt. :slight_smile:
nu: hoe kan ik het pad van het 3D-deel dat voor deze tekening is gebruikt terugvinden (om informatie op te halen, en om de opname van de MeP te maken)
Hartelijk dank

Re
Zoiets:

Dim swModelDocExt   As ModelDocExtension
Dim swCustProp      As CustomPropertyManager

Set swView = swDraw.GetFirstView
Set swView = swView.GetNextView
Set swModel = swView.ReferencedDocument 'Récupère le fichier 3D lié à la vue
Set swModelDocExt = swModel.Extension
Set swCustProp = swModelDocExt.CustomPropertyManager("") 'Accède aux propriétés personnalisées  du fichier

4 likes

Oh geweldig
Dat is wat we nodig hadden :slight_smile:
Hartelijk dank!!!

1 like