Aller au contenu

InfoDWG v.1.1 beta tester demandés !


CADy

Messages recommandés

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

 

Lien vers le commentaire
Partager sur d’autres sites

ç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

Lien vers le commentaire
Partager sur d’autres sites

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 ?

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Lien vers le commentaire
Partager sur d’autres sites

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

Tous pour lisp, Lisp pour tous!

Avec Revit, cela ne vas trop vite...

Lien vers le commentaire
Partager sur d’autres sites

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

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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.

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

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 ! ;-)

Lien vers le commentaire
Partager sur d’autres sites

  • 10 mois après...

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]

Lien vers le commentaire
Partager sur d’autres sites

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

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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.

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Lien vers le commentaire
Partager sur d’autres sites

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.

 

Lien vers le commentaire
Partager sur d’autres sites

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" ?

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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.

 

?

Lien vers le commentaire
Partager sur d’autres sites

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.

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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.

 

Lien vers le commentaire
Partager sur d’autres sites

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
)

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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"

Lien vers le commentaire
Partager sur d’autres sites

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

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

  • 7 ans après...

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité