InfoDWG v.1.1 beta tester demandés !

CADy · le 3 juin 2010

Bonjour à tous(tes).

Depuis la sortie d'AutoCAD, celui-ci n'a jamais offert la possibilité de savoir ce qu'il y a à l'intérieur du fichier AVANT de l'ouvrir.

Cependant, les temps changent et la tecnologie avance, Mon axpérience s'accroît et me permet la création de nouveaux outils de productivités.

Laissez-moi vous présenter ma nouvelle oeuvre d'art.

InfoDWG v.1.1 beta.

Ce programme à été concu pour réduire le temps de recherches, d'accéder à des informations spécifique d'un fichier et maximiser le rendement des usagers AutoCAD.

Entièrement créé en Language LISP, il combine ObjectDBX avec la technologie ObjectDCL permettant une manipulation plus aisée avec un minimum d'apprentissage.

Pour en savoir plus sur InfoDWG v.1.1 beta, vous pouvez lire son fichier d'Aide (en anglais) Help documented file.

Ci-bas, quelques appercus et Gif animés démontrant le pouvoir de cette application.

Vous n'utiliserez jamais plus la commande “_OPEN” d'AutoCAD après avoir vue InfoDWG. !

La version beta sera disponible bientôt, offrant à quiconque l'opportunité de l'essayer et de le commenter et de soummettre des suggestions.

En espérant que vous aimerez.

Merci à l'avance.

Andrea.

http://www.ductisoft.com/images/idwgDEMO.gif

http://www.ductisoft.com/images/InfoDWGsearch.JPG

http://www.ductisoft.com/images/InfoDWGbrowse.JPG

http://www.ductisoft.com/images/InfoDWGtabs.JPG

thierry.garré · le 3 juin 2010

Et beh,

Je suis curieux d'essayer ta création.......

pierrevigneux · le 3 juin 2010

Bonsoir CADy

Moi aussi je suis bien curieux de voir ton chef-d'oeuvre, ça promet.

Merci!

fauxsuisse · le 4 juin 2010

ça l'air juste parfait, car effectivement c'est toujours pénible de charger le dwg pour savoir ce qu'il contient etc, et le principe de mettre des remarques etc, c'est une très bonne chose quand on travaille à plusieurs.

Bravo j'en suis impatient :P

Bred · le 4 juin 2010

Salut,

J'avoue que je ne sais pas si cela me serais d'une grande utilité.

Mais par contre au vus de la démo je veux te féliciter sur la beauté du truc,c'est déjà plaisant à l'oeil, donc déjà un très bon point (car j'ai vu des boites de dialogues qui sont tellement tordus que même si l'outil qu'elle pilote peut être utile, on ne l'utilise pas car c'est déplaisant....).

Par contre, l'affichage de l'onglet 3D m'impressionne (je pensais que l'on étais obligé d'acheter une licence chez Autodesk pour pouvoir créer une fenêtre graphique de lecture de plan dwg...)

Par contre, sur des plans lourds (en affichage), cette visualisation fonctionne rapidement ?

bseb67 · le 4 juin 2010

Salut,

Intéressante comme idée :)

mais attention à ne pas sombrer les marécages d'autocad

et des demandes diverses des utilisateurs... ton appli risquerait

vite de devenir une usine à CAD :cool: ;)

Mais je suis pas contre pour le tester aussi

Patrick_35 · le 4 juin 2010

Salut

J'ai hâte de tester :D

Avec tes divers lisps dynamiques, tu deviens un véritable pro de la prog :cool:

Je suis vraiment impressionné.

ET tout cela en free ? (à ce niveau, je pense que cela pourrai maintenant devenir payant)

Il ne faudrait pas grand chose pour que ton lisp devienne une GED

@+

Tramber · le 4 juin 2010

Salut Andrea !

Je vois de quoi Patrick veut parler !

Aucune surprise pour moi qui suis utilisateur d'Objectdcl depuis avant la disparition de son créateur. Avouons que l'idée est tout simplement excellente puisqu'assez simple.

PHILPHIL · le 4 juin 2010

salut andrea

un de plus a vouloir tester

felicitations

fait gaffe tu vas te faire racheter par "STAU DESK"

a+

phil

FRAXA · le 4 juin 2010

Bonjour Andrea,

J'aimerais également tester ton programme.

Titifonky · le 4 juin 2010

Bonjour,

1 testeur de plus

CADy · le 5 juin 2010

Super !

Je ne pensais jamais avoir eu autant d'interessés à tester ce produit.

Merci à vous, car c'est grace à vous que j'évolue.

Le version Beta est entièrement gratuite,

mais elle n'est pas encore terminée, Je la mettrai tout de même disponible pour le téléchargement ne serait-ce que pour avoir le plaisir de receuillir les commentaires.

Pour ce qui est de la version finale, j'aimerai bien qu'elle soit free aussi....

mais elle ne sera pas trop dispendieuse.

l'idée de cette prog date depuis la version 9 AutoCAD....

Le fait de mettre des notes spécifiques aux fichiers et aux répertoires m'auraient été d'un grand secours à l'époque.

Enfin....Je pense avoir fais beaucoup plus, surtout avec le module de recherche qui permet de sauver un temps énorme.

Je travail sur cet outils depuis un peu plus d'un an, Améliorant et en y ajoutant des options supplémentaires selon les versions AutoCAD et faire le plus de tests possible avec des plateformes différentes.

Le plus long à été en fait, la création de toutes les icônes. 1 par 1, pour lui donner un plein pouvoir visuel permettant aux usagers de savoir ce qui ce passe d'un simple coup d'oeuil.

Oui un GED fait presque du même...d'ailleurs, c'est dans un wish list !

Ne vous inquietez pas pour AutoDESK,...car ils fouilles sur les sites de forums comme celui-ci pour essayer de trouver de nouvelles idées !!

comme par exemple le HATCH 2011 dont l'idée ressemble étrangement à Dhatch !

;-P

Bref, Merci à l'avance, je vous tiendrai au courant de la date de service.

Salutations ! ;-)

CADy · le 11 avril 2011

Voilà !

Tel que promis.

Désolé du llloonnngg délais. :)

Je vous offre cette première Beta1 qui, je le souhaite vous plaira.

InfoDWG 32bits

InfoDWG 64bits

Il y a beaucoup de travail sur ce projet,...et encore beaucoup a venir. Certains bugs mineures sont connus, mais je pense qu'il aurait été igoîste de continuer à le garder pour moi. :)

n'hésitez surtout pas a me contacter pour des idées d'améliorations ou pour rapporter un mal-fonctionnement quelconque.

Merci à vous tous pour l'aide que vous m'apporterez.

amusez-vous !

[Edité le 11/4/2011 par CADy]

Patrick_35 · le 11 avril 2011

Salut

Déjà pour commencer, bravo, sacré boulot :D

J'ai donc regardé ton prog et j'aurai quelques remarques

1) Tout est en anglais (une option anglais/français serait la bienvenue)

2) Le bouton aide ne fonctionne pas (quelle que soit la fenêtre d'ouverte)

3) Dans les outils, l'option file data reste "bloqué" sur Project Blocks, donc impossible de voir pour les indices de révisions.

4) Dans la boite d'options, quand on choisit le Default file type to scan in browser, cela ne se met pas à jour sur la bd principale dans Show

5) Dans les options, on a accès à une touche d'édition qui ouvre le fichier lst associé au file data, mais sans l'aide, difficile de comprendre à quoi ça sert

6) De temps en temps, on a une sélection multiple, voir une sélection par zone avec la souris, sans rien faire de spécial

7) Une idée serait de pouvoir choisir en options dans project la liste des onglets qui nous intéresse.

8) Dans *dwginfo, ce serait bien si la liste de choix se positionne sur la présentation active et non au hasard

Par exemple, sur un dessin sans présentation, l’info se positionne directement sur présentation 2, et sur d’autres dessins où il y a des présentations, c’est systématiquement sur Model

9) Impossible d’ajouter une info depuis InfoDWG comme le titre dans le sommaire, etc…

10) Dans le printData, on ne voit pas toutes les imprimantes

11) Dans *Layer et *bloc, se serait bien de pouvoir faire un glisser pour insérer un calque/bloc comme avec le DésignCenter

Voilà en gros un premier jet pour quelque chose qui s ‘annonce très, très prometteur

@+

Bred · le 11 avril 2011

Salut,

Désolé, j'ai testé, mais j'ai voulu ouvrir un fichier qui est dans un répertoire de mon serveur et qui contient une centaine de dwg, le temps d'affichage de la liste des fichiers et beaucoup trop long.

Ce n'est pas gérable si c'est beaucoup plus lent que d'aller l'ouvrir avec la commande Ouvrir.

CADy · le 12 avril 2011

Merci Patrick et Bred,.

Je prend bien note de vos commentaires et suggestions.

Bred, Il est vrai que l'affichage des fichiers peut être ralenti, car je dois vérifier les versions de fichiers, s'ils sont en lectures seulement, s'ils ont besoin d'une récupération, Les dates, grosseurs,

nom du dernier éditeur, et s'ils contiennent une signature numérique.

Cependant, Il est vraie que je pourrai afficher les fichier et chercher les infos après, mais dans ce cas, vous verrez les infos apparaître après la liste de fichiers ce qui selon moi serait encore plus lent.

Si vous avez des suggestions..!?..

Patrick,

1) Tout est en anglais (une option anglais/français serait la bienvenue)

pour l'instant il n'est qu'en anglais, désolé, mais ne soyez pas inquiet car j'utiliserai la même méthode que j'utilise pour mes autres produits qui sont en langage universel.

2) Le bouton aide ne fonctionne pas (quelle que soit la fenêtre d'ouverte)

Ok Merci, Je penses que c'Est parce que j'ouvre un fichier Word, je vais transférer en mht.

3) Dans les outils, l'option file data reste "bloqué" sur Project Blocks, donc impossible de voir pour les indices de révisions.

Good Catch ! Merci

4) Dans la boite d'options, quand on choisit le Default file type to scan in browser, cela ne se met pas à jour sur la bd principale dans Show

Super,. j'ajoute ca.

5) Dans les options, on a accès à une touche d'édition qui ouvre le fichier lst associé au file data, mais sans l'aide, difficile de comprendre à quoi ça sert

Tu veux dire que tu n'a pas le fichier ..

C:\Program Files\DuctiSoft\InfoDWG\InfoDWG_HELP.doc

??

6) De temps en temps, on a une sélection multiple, voir une sélection par zone avec la souris, sans rien faire de spécial

ah bon !? driver ? peut-etre ODCL ? hhmm...je vérifie. MErci.

7) Une idée serait de pouvoir choisir en options dans project la liste des onglets qui nous intéresse.

Les idées ne manquent pas..mais celle là, je ne l'avais pas sur ma liste. :)

8) Dans *dwginfo, ce serait bien si la liste de choix se positionne sur la présentation active et non au hasard
Par exemple, sur un dessin sans présentation, l’info se positionne directement sur présentation 2, et sur d’autres dessins où il y a des présentations, c’est systématiquement sur Model

Ça, c'était déjà sur ma liste ! :P

9) Impossible d’ajouter une info depuis InfoDWG comme le titre dans le sommaire, etc…

Eh bien non, désolé. pour l'instant InfoDWG ne permet que d'y voir les infos et non de les modifier ou d'en ajouter. MAis ceci m'avais aussi été demandé par le passé. Reste à voir si c'est faisable sans affecter la valeur réelle du fichier.

10) Dans le printData, on ne voit pas toutes les imprimantes

Le PrintData affiche le résultat des impressions géré par InfoDWG

mise-en-pages et non les imprimante, avec qtée, date etc.

Cependant ce module à été ajouté en dernier et n'est pas tout a fait complété.

11) Dans *Layer et *bloc, se serait bien de pouvoir faire un glisser pour insérer un calque/bloc comme avec le DésignCenter

Wow....Bonne idée. MErci.

Si vous avez d'autres commentaires et/ou suggestions n'hésitez-pas.

Merci encore.

Patrick_35 · le 12 avril 2011

Salut

5) Dans les options, on a accès à une touche d'édition qui ouvre le fichier lst associé au file data, mais sans l'aide, difficile de comprendre à quoi ça sert
Tu veux dire que tu n'a pas le fichier ..
C:\Program Files\DuctiSoft\InfoDWG\InfoDWG_HELP.doc

Maintenant que tu le dis, je viens de regarder et je n'ai pas le fichier d'aide.

C'est peut-être pour cela que le bouton ne fonctionne pas ;)

ps : pour accélérer la vitesse de lecture des fichiers, peut-être avec l'activex "Scripting.FileSystemObject" ?

@+

CADy · le 12 avril 2011

Salut Patrick,..

j'utilise déjà "Scripting.FileSystemObject".

Effectivement, dans le "Package" j'ai oublié le fichier HELP.

:)

"shame on me.." Il n'y a rien a faire,...j'oublie toujours un p'tit quelque chose à chaque fois.

désolé

d'ailleurs, j'aurais besoin d'aide pour traduire cette doc. si qq1 veux me donner un p'tit coup de main, ça serait grandement apprécié.

Maintenant,....je ne sais trop comment ajouter un fichier sur ce magnifique forum..

qq1 peut-il me guider ? je ne vois nulle part où insérer un fichier.

?

Patrick_35 · le 12 avril 2011

Salut

Tu peux par exemple déposer tes fichiers ici

http://dl.free.fr/

http://www.cijoint.fr/

Pour ce qui est de l'écriture dans le fichier, j'ai réfléchit à une chose (si, si, ça arrive ;) )

Pour la lecture, tu pointe sur un fichier et avec ObjectDbx, tu lis les données.

Tu écris ce que tu as besoin et quand tu ferme l'appli ou que tu sélectionnes un autre fichier, tu fais la sauvegarde des données.

ps : Pour la traduction, je ne pense pas être le mieux placé pour t'aider, mais tu peux utiliser les outils linguistique de Google.

@+

CADy · le 12 avril 2011

Merci pour tes conseils Patrick.

Pour info, voici comment je procède.

je cherche les fichiers par filtres demandés.

donc exemple

 
(foreach b '("*.dwg" "*.dwt" "*.bak" "*.dws")
       (setq ifiles (vl-directory-files n b 1))
       (if ifiles
         (setq AllFileList (append AllFileList ifiles))
       )
     )

Ensuite j'y accède via "Scripting.FileSystemObject"

pour y retirer les infos MINIMUM nécéssaire pour l'Affichage dans le navigateur.

telles que la version, l'utilisateur, lecture seulement etc..

Indexer les fichiers peut aussi se faire, mais je n'y sauverai rien car il faudra quand même refaire les vérifications lorsqu'un fichier se met à jour. Donc, comparer une liste d'information à la liste affiché à jours...et pour que cette liste soit à jours, je dois réutiliser "Scripting.FileSystemObject"

et recomparer avec l'ancienne liste....ce qui revient au même...et même je pense que ça pourra être pire.

à moins que je n'ai pas très bien saisie ton idée.

!?

Fichier HELP:

ICI mais disponible que pour 30 jours.

(le temps de l'Ajouter à ma prochaine installation)

Merci.

Patrick_35 · le 12 avril 2011

Salut

Un append est moins rapide qu'un cons

Test avec le benchmark tes fonctions et regarde avec par exemple

(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(setq dir (vlax-invoke fso 'getfolder "c:/test/"))

par exemple pour construire la liste
(vlax-for file (vlax-get dir 'files)
 (and (member (strcase (vl-filename-extension (vlax-get file 'name))) '(".DWG" "*.DWT" "*.BAK" "*.DWS"))
   (setq AllFileList (cons file AllFileList))
 )
)
ou encore
(vlax-for file (vlax-get dir 'files)
 (and (member (strcase (vl-filename-extension (vlax-get file 'name))) '(".DWG" "*.DWT" "*.BAK" "*.DWS"))
   (setq AllFileList (cons (list (vlax-get file 'name)
			  (vlax-get file 'Size)
		    )
		    AllFileList
	      )
   )
 )
mais on n'est plus dynamique avec les fichiers
)

@+

CADy · le 12 avril 2011

Voici le résultat de mes tests:

 
(defun startTimer ()
(setq AMS_TDIDWG (getvar "TDINDWG"))
 (princ)
)

(defun endtimer ()
 (princ (rtos (* 100000.0 (- (getvar "TDINDWG") AMS_TDIDWG)) 2 22))
)


(setq AllFileList nil)
(startTimer)
(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(setq dir (vlax-invoke fso 'getfolder "c:/test/dwgs"))
(vlax-for file (vlax-get dir 'files)
 (and (member (strcase (vl-filename-extension (vlax-get file 'name))) '(".DWG" "*.DWT" "*.BAK" "*.DWS"))
   (setq AllFileList (cons file AllFileList))
 )
)
(endTimer)
;result "0.2175925925926303"


(startTimer)
(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(setq dir (vlax-invoke fso 'getfolder "c:/test/dwgs"))
(vlax-for file (vlax-get dir 'files)
 (and (member (strcase (vl-filename-extension (vlax-get file 'name))) '(".DWG" "*.DWT" "*.BAK" "*.DWS"))
   (setq AllFileList (cons (list (vlax-get file 'name)
			  (vlax-get file 'Size)
		    )
		    AllFileList
	      )
   )
 )
)
(endTimer)
;result "0.07291666666714435"


(startTimer)
(setq n "c:\\test\\dwgs")
(foreach b '("*.dwg" "*.dwt" "*.bak" "*.dws")
       (setq ifiles (vl-directory-files n b 1))
       (if ifiles
         (setq AllFileList (append AllFileList ifiles))
       )
     )
(endTimer)
;result "0.03587962962986468"

Patrick_35 · le 13 avril 2011

Salut

Tu me surprends dans tes tests.

Je regarde au benchmark

(defun f1()
 (setq AllFileList nil)
 (setq fso (vlax-create-object "Scripting.FileSystemObject"))
 (setq dir (vlax-invoke fso 'getfolder "C:/Lisp/Test/"))
 (vlax-for file (vlax-get dir 'files)
 (and (member (strcase (vl-filename-extension (vlax-get file 'name))) '(".DWG" "*.DWT" "*.BAK" "*.DWS"))
     (setq AllFileList (cons file AllFileList))
   )
 )
)

(defun f2()
 (setq AllFileList nil)
 (setq fso (vlax-create-object "Scripting.FileSystemObject"))
 (setq dir (vlax-invoke fso 'getfolder "C:/Lisp/Test/"))
 (vlax-for file (vlax-get dir 'files)
   (and (member (strcase (vl-filename-extension (vlax-get file 'name))) '(".DWG" "*.DWT" "*.BAK" "*.DWS"))
     (setq AllFileList (cons (list (vlax-get file 'name)
			    (vlax-get file 'Size)
		      )
		      AllFileList
	        )
     )
   )
 )
)

(defun f3()
 (setq AllFileList nil)
 (setq n "C:/Lisp/Test/")
 (foreach b '("*.dwg" "*.dwt" "*.bak" "*.dws")
         (setq ifiles (vl-directory-files n b 1))
         (if ifiles
           (setq AllFileList (append AllFileList ifiles))
         )
       )
)

(benchmark (list 'f1 'f2 'f3))

Elapsed milliseconds / relative speed for 131072 iteration(s):

F2.....1232 / 1.03
F3.....1248 / 1.01
F1.....1264 / 1

(defun f4()
 (setq AllFileList nil)
 (setq n "C:/Lisp/Test/")
 (foreach b '("*.dwg" "*.dwt" "*.bak" "*.dws")
         (setq ifiles (vl-directory-files n b 1))
         (if ifiles
           (setq AllFileList (cons AllFileList ifiles))
         )
       )
)

(benchmark (list 'f1 'f2 'f3 'f4))

Elapsed milliseconds / relative speed for 131072 iteration(s):

F4.....1201 / 1.04
F1.....1217 / 1.03
F2.....1233 / 1.01
F3.....1248 / 1

Mouais, tout cela se tient

@+

PHILPHIL · le 19 novembre 2018

hello

je suis tombé sur se sujet qui date, mais ca donne quoi depuis?

ca a aboutit ?

Phil

Connexion

InfoDWG v.1.1 beta tester demandés !

Messages recommandés

CADy

thierry.garré

pierrevigneux

fauxsuisse

Bred

bseb67

Patrick_35

Tramber

PHILPHIL

FRAXA

Titifonky

CADy

CADy

Patrick_35

Bred

CADy

Patrick_35

CADy

Patrick_35

CADy

Patrick_35

CADy

Patrick_35

PHILPHIL

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante