Patrick_35

Ce serait bien si Autodesk pouvait intégrer des textes intelligents qui fonctionneraient un peu à la manière d’Excel avec des formules comme des additions, date, lien vers d’autres fichiers, etc... ce qui donnerait de sacrés possibilitées. @+

Pour les fainéants, c'est juste pour une image, plus on fait d'automatisme, moins de temps est passé sur les dessins. Il est plaisant de voir que d'autres personnes donnent leurs sources et en plus c’est en français. Pour ma part, je fais aussi pas mal de développement surtout pour de l'elec en bâtiment et aussi des fonctions pratique comme une recopie des attributs, remplacer une sélection de blocs par un autre, une incrémentation de texte avec un tri dans l’espace, etc... Il reste encore des choses à faire pour mon métier, comme par exemple récupérer sur le dessin l'implantation de détecteurs incendie et générer ensuite le synoptique et la même chose pour des prises informatique ou encore les schémas d'armoire, mais c'est le temps qui manque. @+

De mémoire, il suffit de prendre le CD d'autocad et de lancer l'install (même si Autocad est déjà installé), on y trouve ces fameux express tools. @+

Cette commande des express tools n'existe pas sur une version 2000, dommage. @+

Voilà un lisp intéressant qui permet de faire un -attedit groupé. Bonne idée pour des fainéants (enfin pas trop) comme moi. @+

Après le Japon, maintenant le Portugal, Cadxp s’internationalise ;) @+

A mon avis, si tu laisses un mail que leur logiciel t'intéresse, ils feront le nécessaire @+

Tu a bien ce logiciel http://www2.traceparts.com/fr/bib/index.asp qui peut fonctionner sous une Lt ou encore le lisp bibles qui est à télécharger dans la section membres additionné d'un applicatif http://www.drcauto.com pour faire fonctionner les lisp sous une LT @+

Je ne sais pas ce que bonuscad à voulu expliquer à par la fonction en lisp getkword mais voici un exemple pris dans l'aide d'autocad Guide de personnalisation (version 2000) ---> chapitre 4, Menus personnalisés --> Menus boutons et auxiliaires --> Commutation de menus boutons et auxiliaires @+ Par exemple, si vous souhaitez modifier l'action standard du clic droit pour qu'AutoCAD affiche un menu contextuel différent, utilisez la syntaxe de menu suivante. ***AUX2 // Maj + bouton $P0=SNAP $p0=* ***AUX4 // Ctrl + Maj + bouton – Bascule sur menu personnalisé A2 $A2=CUSTOM_A2 $A4=CUSTOM_A4 ^P(princ ">> Menu personnalisé A2 <<")(princ) ^P ***AUX12 **CUSTOM_A2 // Maj + bouton – Affiche le menu MONPOP $P0=MONPOP $p0=* ***AUX14 **CUSTOM_A2 // Ctrl + Maj + bouton – Revient au menu A2 par défaut $A2=AUX2 $A4=AUX4 ^P(princ ">> Menu par défaut A2 <<")(princ) ^P

Pour les améliorations, une idée qui vient de me passer en tête, ce serait pour des textes intelligents qui fonctionneraient un peu à la manière d'Excel pour y faire des formules comme des additions, des dates ou encore rechercher des valeurs dans d'autres dessins. On pourrait choisir les textes par leurs identificateurs par exemple @+

Je serais surpris qu'on ne puisse avoir gratuitement le logiciel SISpro Bâtiment ou encore Ecodial qui possèdent une grande base de données (mais uniquement en schneider) Il y a aussi la possibilité de travailler avec les bases Quick devis ou Batiprix @+ et Bonnes fêtes

Bonjour et bonnes fêtes Je n'ai pas tout compris mais voici un exemple qui permet de récuperer les propriétés d'un objet (setq sel (ssget)) ; sélection d'objets (setq obj (entget (ssname sel 0))) ; récupération des valeurs de l'objet dans la variable obj sur la première entrée de la sélection Voila, avec par exemple un (cdr (assoc 8 obj)), tu récupere le calque de l'objet @+

Réponse à Didier Je suis bien d'accord, mais dans la vie, il faut rester optimiste et essayer de prendre les choses du bon coté. Ce n'est jamais agréable de se faire copier, surtout quand la source n'est pas citée. Râler dans son coin ne fera pas avancer les choses à part porter plainte et ce n'est pas gagné pour ce qui concerne la propriété intellectuelle Bonnes fêtes à tous

Remarque Patrick, dans un sens, quand on se fait plagier, ça prouve que c'est bien conçu, créatif et que techniquement, ça tient la route. Ce n'est pas grand chose, mais ça peut consoler. @+

Ou encore faire un développement spécifique au métier avec les automatismes qui vont biens. Le problème avec les logiciels elec pour le secteur du bâtiment,c'est qu'ils sont beaucoup trop compliqués par rapport à nos besoins.Faire des schémas unifilaires au lieu du multifilaire par exemple.Il existe bien sur le marché des logiciels qui permettent de faire l'unifilaire, mais cette fois ci, pas assez complets, avec les ref croisés par exemple ou la génération de borniers. Il y a aussi la méthode de travail à prendre en compte et les mentalités qui ont parfois un peu de mal à s'adapter aux méthodes que l'on peut proposer. En général, pour obtenir un logiciel de fabriquant, une bonne pression commercial suffit @+

C'est faire une liaison entre Autocad et Excel Oui, c'est possible et à mon avis le vb me semble le plus indiqué pour faire ce genre de prog pour aller rechercher les valeurs dans les cellules et les affecter à des attributs J'ai un peu testé autolisp avec les fonctionnalités en vb qui sont inclus (vla-...,vlr-...), mais c'est assez rébarbatif et je n'ai pas eu réellement l'occasion de m'y mettre @+

Dans le choix de sélection du traceur, tu as à coté un bouton pour les propriétés du traceur, tu clique dessus et tu doit trouver les formats de papier personnalisés qui te permet de définir tes dimensions (c'est sur A2000 avec un traceur HP) @+

Ah, je viens de le refaire et ca marche sur la ligne de commande, il m'a retourné () avec les grips activés de ma sélection Je suis sur une version 2000, même pas i :( @+

Je ne connaissait pas cette fonction, mais bonuscad m'a orienté, donc après avoir essayé (setq sel (ssget)) (sssetfirst sel) et les grips s'affiche selon la selection @+

Voila Youri, le lisp est fait, il suffit de de lancer et de taper la commande exc (EXtraire Calque).Un fichier texte est crée et il ne reste plus qu'à lancer excel et l'ouvrir en fichier texte (remarque, un copier/coller depuis notepad vers excel fonctionne aussi) @+ (defun c:exc(/ calque nom etat acti gele verr xref styl chaine table fichier) (setq calque (tblnext "layer" T)) ; Pointer sur la 1er entrée (while calque (setq nom (cdr (assoc 2 calque)) etat (cdr (assoc 70 calque)) acti (cdr (assoc 62 calque)) styl (cdr (assoc 6 calque)) gele (logand etat 1) verr (logand etat 4) xref (logand etat 16)) (if (/= xref 16) ; Calque ne dépendant pas des xref (progn (setq chaine (strcat nom (chr 9))) (if (< acti 0) (setq chaine (strcat chaine "Inactif" (chr 9))) (setq chaine (strcat chaine "Actif" (chr 9)))) (if (= gele 1) (setq chaine (strcat chaine "Gelé" (chr 9))) (setq chaine (strcat chaine "Apparent" (chr 9)))) (if (= verr 4) (setq chaine (strcat chaine "Verrouillé" (chr 9))) (setq chaine (strcat chaine "Déverrouillé" (chr 9)))) (setq chaine (strcat chaine (itoa (abs acti)) (chr 9) styl)) (setq table (append table (list chaine))) ) ) (setq calque (tblnext "layer")) ) (if table (progn (setq table (acad_strlsort table)) (setq fichier (strcat (getvar "dwgprefix") (getvar "dwgname"))) (setq fichier (strcat (substr fichier 1 (- (strlen fichier) 3)) "txt")) (setq n 0) (setq nom (open fichier "w")) (while (nth n table) (write-line (nth n table) nom) (setq n (1+ n)) ) (close nom) (alert (strcat "Fichier " fichier (chr 13) "crée pour " (itoa (1+ n)) " calques")) ) (alert "Pas de calques") ) (princ) )

Je vais te le faire en format texte dans la forme suivante et tu pourras l'importer dans excel Nom_du_calque actif gelé verrouillé couleur type_de_ligne texte 1 1 1 numéro texte Cette liste doit inclure les calques dépendant des xref ? Veux tu ajouter d'autres éléments à cette liste ? Donne-moi ta réponse et je mis met @+

Je vais te le faire en format texte dans la forme suivante et tu pourras l'importer dans excel Nom_du_calque actif gelé verrouillé couleur type_de_ligne texte 1 1 1 numéro texte Cette liste doit inclure les calques dépendant des xref ? Veux tu ajouter d'autres éléments à cette liste ? Donne-moi ta réponse et je mis met @+

Que veux tu faire exactement ? Le lisp ne sert que d'exemple et est là uniquement pour expliquer comment faire et c'est à toi de l'adapter à tes besoins, mais j'ai cru comprendre récemment en lisant plusieurs post que tu avais un peu de mal avec le lisp, alors donne-moi un peu plus de détail de ce que tu souhaite faire exactement, et je te l'écris à condition que ce ne soit pas une usine à gaz, en clair, je veux bien passer 1/4h pour faire un dévelopement, pas 3 mois @+

Youri, je t'avais laissé un message correspondant à ta recherche va voir http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=1318 @+

Ca dépend, parfois à l'utilisation de certaines fonctionnalitées, on se rend compte que c'est très pratique.C'est le point 8 que je trouve intérressant @+