Challenge 17

[Patrick_35]

Bonjour

 

Je propose un nouveau challenge auquel j'ai déjà donné la solution. Donc merci de ne pas tricher ;)

 

Le but serait de savoir si un fichier dwg est déjà ouvert et si oui, par qui.

 

@+

[Matt666]

Est-ce que cela nécessite le vlisp ?

[Patrick_35]

Non.

 

@+

[bseb67]

Salut!

 

Il existe la commande quidonc, mais elle n'est pas très pratique. Par contre elle peut servir si on regarde son résultat. :cool:

[Patrick_35]

Salut

 

La commande quidonc est bien, mais le résultat est dans une boite de dialogue et ce serait bien de pouvoir l'exploiter directement en lisp.

 

@+

[bseb67]

Re,

 

Patrick_35=> Mon précédent post

Par contre elle peut servir si on regarde son résultat.

signifiait qu'en regardant les infos que le boite donne, devrai donner des indices pour ceux qui vont chercher.

Par contre, je peux te dire que sur la version 2008, il y a une petite différence :casstet:.

Si tu ne l'utilise pas, je la donnerai à la fin de ce challenge ;)

[Patrick_35]

Apparement, pas si simple

 

Donc une première piste avec l'instruction lisp open

 

@+

[Matt666]

C'est balaise, quand même...

 

En fait le seul parmètre de open qui nous dit qu'un fichier est ouvert, c'est w.

 

Par contre, s'il n'est pas ouvert, il l'écrase !!! :mad:

 

Grmbl

[Bred]

En fait le seul parmètre de open qui nous dit qu'un fichier est ouvert, c'est w.

Ha ? a... ;)

[Patrick_35]

Salut

 

C'est balaise, quand même...

Quand tu auras la solution, tu diras comme Sherlock Holmes, de plus, Bred (alias Docteur Watson) te donne une autre indication ;)

 

@+

[Matt666]

(defun c:lseul (/ a)
   (if (setq a (open (getfiled "Sélectionner un plan" "" "DWG" 2) "a"))
       (progn
           (close a)
           (princ "\nFichier non ouvert.")
       )
       (princ "\nFichier en cours d'utilisation.")
   )
   (princ)
)

 

aaaaah... Ah ah aha ah ! :cool:

 

Ah bah oui.. Connaissait pas ce paramètre !!

 

Merci Wats-bred (ou plutot sherlock-bred...) !

 

PS : Elémentaire mon patrick !!!

 

[Edité le 14/12/2007 par Matt666]

[Patrick_35]

Bravo :)

 

Reste à trouver l'utilisateur

 

Une piste, le dwl

 

@+

[Bred]

Une piste, le dwl

pfff... comme si c'était Ecrit....

... suffit de (te) lire,

et pas dans ta dernière ligne, au contraire !

 

....T'es pas rigolo, tu lui en donnes trop !!! ;)

 

[Edité le 14/12/2007 par Bred]

[Matt666]

Oui, mais sur BricsCAD, Pas de DWL.... Aaaaaa.

 

Donc bon, soit vous me donnez un exemple de ce que contient un dwl, soit je cherche (en vain à mon avis) un autre moyen...

 

T'es pas rigolo, tu lui en donnes trop !!!

:)

 

Merci !

A bientot.

Matt.

[Bred]

Oui, mais sur BricsCAD, Pas de DWL.... Aaaaaa.

Ha zut !

Tu dois bien avoir un fichier tampon quelque-part ?

(dans temp par exemple)

[Matt666]

J'ai bien peur que non... C'est comme une version 2000...

 

grmbl

[Patrick_35]

Et la commande quidonc donne quoi ?

 

Il faut bien récuperer quelque part ces valeurs :casstet:

 

@+

[Matt666]

Bah nan... Non plus... Sniff

 

[bseb67]

Salut à tous!

 

Matt666 => il manque juste un test afin de vérifier que l'utilisateur n'a pas fait "annuler". Car getfiled renvoi nil dans ce cas là. ;)

La fonction quidonc ne fait simplement que lire les données contenue dans le dwl.

Donc si l'on veut connaitre l'utilisateur (bien-sur cela n'est intéressant que pour des fichiers en réseau

:cool: , puisque ceux en local chez toi seront forcément ouvert que par toi *) il suffit d'ouvrir le dwl.

Donc autre astuce, s'il existe un fichier dwl => le fichier est ouvert par quelqu'un.

 

Patrick_35 => Autocad 2008 génère un fichier dwl2 en + du dwl. C'est un peu nul, mais cela me fait marrer :P voici un exemple de contenu et je dirai pourquoi:

<?xml version="1.0" encoding="UTF-8">

sbs

TKD-PC32

mercredi 12 décembre 2007 09:08:10

 

QUOI :o ! Du xml pourri (accents) pour juste remettre la même chose :P!

 

*: malheureusement autocad ne fait pas toujours disparaitre correctement les dwl. Car même sans planter autocad, j'ai des dwl et dwl2 qui trainent.