help VBA sur Acadstartup

[philwil]

Bonjour à tous...

 

J'utilisais le code vba ci-dessous pour fermer autocad 2002 si les cadeurs

du bureau n'avaient pas charger la bonne version de AutoCAD.dvb.

Je pouvais remarquer directement si l'ensemble des utilisateurs étaient

bien à jour.

Avec autocad 2005 je n'ai pas trouvé la possibilité d'utiliser ce code à

l'ouverture d'autocad.

Ce que je souhaite c'est que ce code "run" automatiquement à l'ouverture

d'autocad , et qu'il ferme autocad si la date est dépassée.

 

Merci. Philwil.

 

 

Sub Acadstartup()

' choisir la date mois/jour/ann�e

If Now() > #11/15/2005# Then

MsgBox "ATTENTION vous utilisez une ancienne version AutoCAD.dvb... Ce

dessin va être fermé"

 

Dim DOC As AcadDocument

 

''If there are no open documents, then exit

''If there then no close documents, then exit

If Documents.Count = 0 Then

MsgBox "There are no open documents!"

Exit Sub

End If

 

''' Close all open documents

 

For Each DOC In Documents

If MsgBox("Do you wish to close the document: " & DOC.WindowTitle,

vbYesNo & vbQuestion) = vbYes Then

If DOC.FullName <> "" Then

DOC.Close

DOC.Exit

Else

MsgBox DOC.Name & " has not been saved yet, so it will not be closed."

End If

End If

Next

End If

End Sub

 

[Pako]

Voici un pti-coup de main.....

 

J'ai simplifié ton code, le IF pour vérifier

le nombre de dessin (Documents.Count) ouvert

me semble inutile. Car par défaut à l'ouverture du

logiciel, un dessin s'ouvre....

donc Documents.Count est toujours > 0

durant l'exécution du Acadstartup()......

 

coder avec 2006 !

Sub Acadstartup()

 

.....' Choisir la date mois/jour/annee

.....Const strDate = #11/15/2005#

 

.....' Si la date n'est pas valide

.....If Now() > strDate Then

..........MsgBox "ATTENTION vous utilisez une ancienne version AutoCAD.dvb... Ce dessin va être fermé"

 

..........' Fermer le ou les dessins ouverts par défaut (drawing1.dwg) ou par sélection

..........Dim DOC As AcadDocument

..........For Each DOC In Documents

...............DOC.Close 'Fermer le dessin

..........Next

 

..........' Fermer le logiciel

..........Application.quit

 

.....End If

End Sub

 

 

 

 

[philwil]

Merci Pako pour ton aide...

 

J'ai un dernier petit problème avec ce code VBA que tu m'as communiqué. J'ai collé ce dernier dans le VB éditeur (dans ThisDrawing et non dans un Module) ...ensuite le tout sauvé dans AutoCAD.dvb. Au démarage d'AutoCAD 2005 la macro n'est pas lancée automatiquement je dois passer par _vbarun manuellement pour activer cette macro alors que je souhaite que Acadstartup() se lance de façon transparente. Dois-je ajouter une ligne dans AutoCAD.mnu pour forcer la lecture de cette macro à l'ouverture d'AutoCAD, ou dois-je faire autre chose ???. Moi pas savoir....

 

Pour info mon fichier AutoCAD.dvb se trouve sur ...AutoCAD 2005\support\acad.dvb.

Le fichier AutoCAD.mnu est d'origine. et le fichier AutoCAD.dwg est également d'origine.

 

Le but final de la manœuvre reste bien entendu la fermeture forcée d'AutoCAD et l'impossibilité de travailler avec ce dernier sans écraser l'acad.dvb par une version plus récente.

 

Merci pour ton aide...

 

Philwil ... (du fond de la Belgique... un CADeur travail en nocturne...)

[Pako]

Premièrement, coller le code dans un module.

 

Deuxièmement, créer un fichier (notepad) nommé : ACAD.RX (dans le même répertoire que ton AutoCAD.dvb)

 

Troixièmement, écrire AcVba.arx à l'intérieur de ce fichier.

 

Quatrièment, redémarrer AutoCAD.

 

Cinquièment, fait une donation à CADxp... ICI pour encourager cette outil d'aide !

 

 

amicalement,

 

:D