BIM G CO

et quand tu voudra faire un automatisme tu utilisera la commande :_attsync

Teste la commande suivante : _AttSync Elle est dans le TOOLBAR nommé "Modification II" dans le AutoCAD.MNU d'après l'aide : en plus c'est sur la ligne de commande

si tu es sur une version pleine : ^C^C(setq E (entget (car (entsel "Objet:"))))(setvar "CLAYER" (cdr (assoc 8 e)))\(princ);CECOLOR bylayer;;(cdr (assoc 62 e));CELTSCALE;(cdr (assoc 48 e));CELTYPE;bylayer;;(cdr (assoc 6 e));CELWEIGHT;-1;;(cdr (assoc 370 e)); je ne sais pas si ce diesel n'est pas trop long d'ailleurs en tapant dans la ligne de commande (setq E (entget (car (entsel "Objet:")))) tu as les propriétés de l'objet que tu sélectionne. Personnellement c'est cette dernière petite commande que j'ai mis dans un bouton. Le reste c'est de la gestion du [surligneur] code DXF[/surligneur] de l'entité. Les variables que j'ai utilisé : (certaine ne fonctionne qu'avec un setvar mais d'autre sur la ligne de commande: Indique le calque courant du dessin, stocké par la variable système CLAYER. Indique la couleur courante, stockée dans la variable système CECOLOR. Affiche le type de ligne courant, stocké dans la variable système CELTYPE. Affiche l'épaisseur de ligne courante, stockée par la variable système CELWEIGHT. Indique l'élévation courante du dessin, stockée dans la variable système ELEVATION.

Je crois qu'il va rester mort! :mad: malgré le nombre de visite personne n'as de solution à apporter. pour l'instant j'exporte mes blocs de première nécéssité en DXF que je met dans un fichier bibliothèque j'ai la syntaxe à mofifier quelque peu (dotted List "(" en "[", "." en ":" et ")" en "]"). mais bon ca fait lourd au delà de la dizaine de bloc. Pourl'instatn pas encore trouvé de solution aussi simple que celle que tu cite.

pour Didier et Patrick_35 pour avoir la liste des présentations on fait : [surligneur] (layoutlist)[/surligneur] et pour les style de textes : [surligneur] ????[/surligneur] et pour les style de cotes : [surligneur] ????[/surligneur] et pour les calques : [surligneur] ????[/surligneur] si vous comprenez pas faites sur votre ligne de commande et tapez (layoutlist) et réfléchissez à faire la MÊME chose pour les styles de texte etc..... pour tblsearch il faut connaitre le nom! Or c'est ce que je veux le NOM des symboles La fonction de _zebulon répond exactement à ce que je cherche : La liste...... bon allez je me calme et je sors... ;)

pour faire un tblsearch il faut connaitre ce que l'on cherche comme style de texte par exemple : (tblsearch "STYLE" [surligneur] "Standard"[/surligneur]).... mais après les autres noms je les récupère où?

en plus avec la palette d'outils il faut te taper à chaque bloc un bouton ou du genre pas glop quand il faut se farcir tous les bloc à savoir encore si c'est exportable sur d'autre poste..... pour Cadmatic il faut simplement faire de l'explorateur un glisser-deposer d'un dossier contenant des fichiers DWG et HOP voila tos les fichiers DWG avec l'apercu qui est la! pour faire des filtres on créé dans ce dossier un fichier CADMATIC.GRP et on liste de différentes façons (comme les filtres du gestionnaires de calque d'autoCAD)

oui mais quand c'est intégré à un pack logiciel et qu'il n'y a pas a refaire la palette à chaque nouvelle installation d'autoCAD (nouvelles version)

Comme dit Patrick_35 chambres d'hotes ou chez l'habitant? 2 personnes logeables chez moi (ce sont 2 lits 90x190cm à 120cm du sol) + 1 autre chez ma copine à 60 km en suisse! si ca bouge pas jusque là! pour m'écrire

Existerait-il une fonction cachée qui retournerait sous forme de liste (ou autrement) les listes d'éléments, comme (layoutlist) Je m'explique, lorsque vous faites _rename : pour les blocs vous avez la liste des blocs pour les calques la liste des calques pour les Style de textes ...... ca serait interressant de rectrouver çà pour l'instant je fait un recherche du style : (setq Sel (ssget "x" (list (cons 0 MTEXT)))) (setq ListeSel (ssnamex Sel)) et une boucle pour enlever les doublons des listes (7 pour le texte, 2 pour les blocks etc.. mais je trouverait plus intéressant d'avoir la liste des éléments présents sans forcément utilisés (purgeable)

Olé Serge Je suis à 60 km de la Suisse et Besançon est proche de l'axe Lyon-Moselle ;)

Pour notre part nous utilisons un logiciel externe qui se cache sur le coté droit d'autoCAD on insère les blocs par un glisser-déposer on a la possiblité de préparer les variables d''échelles, rotation etc.... les fichiers (de la bibliothèque sont en AutoCAD. et ce petit logiciel donne un aperçu de chacun des blocs. Possibilité de grouper des blocs (exemple bloc sanitaire, WC,Baignoire, vue en plan etc.....) je crois qu'on peut l'avoir en version demo sur www.fisa.fr sinon il faut les contacter.

Après une recherche dans le moteur de recherche du CSTB : essaies de voir ce que tu peux en faire

ben quand tu fait "_u" cela fait (Expression lisp) perso je n'aime pas je te propose d'aller voir ce lien

Le MNU contient les commentaire que tu peux ajouter Le MNS est la meme chose que le MNU sans aucun commentaire "\\\ ......." Le MNC et MNR sont des versions compilés du MNS si tu veux que les poste de tes voisins soit bon tu doit viré le MNC et MNR pour remplacer le MNS car AutoCAD charge d'abord le MNC et MNR s'il existe avant de daigner voir le MNS le cas échéant! Le MNU t'obligesà devoir recompiler "_menuload" pour créer un MNS

Cette bonne vieille chauve-souris est sortie de Metropolis! (nannn pas toi Didier)

Nous on l'a enfin balancé. Notre voisin (un autre BE en co-location du bâtiment) à fait l'acquisition d'une machine à reproduction Laser (plus d'odeur d'amoniaque....)

Pour les Wc et blocs sanitaires divers - Jacob Delafon te donnent leur fichiers en DWG 2D de leur produit coupe, plan et profil - PORCHER idem - ALLIA uniquement en plan en SPLINE 3D explosée Pour le chauffage : -De Dietrich donne avec leur catalogue (celui qui fait 10 kilos) 7 CD de leur bibliothèque en PDF, DWG de quelques uns de leur produit Pour un bloc cherche d'abord un fournisseur (le + connu de préférence) et demande-lui s'il a une représentation graphique vectorielle à échelle proportionnelle ;)

Attention aussi aux risque accidentogène es giratoire le CERTU n'en prend guère en compte il faut faire en sorte que pour rentrer dans un giratoire n'avoir qu'une seule voie moins de risque de tôle froissée et sortir en voie double 'fluidité dans le giratoire donc moins d'attente à l'entrée!

Ensuite à l'aide d'excel (par exemple) tu remplace les "\" par les "/" dans le fichier créé par : dir *.dwg /s /b>ListeDWG.txt et tu peux directement travailler avec et tu n'as pas :

dir *.dwg /s [surligneur] /b[/surligneur] le fait aussi! peut-être meme mieux je dirais! ;)

dans Forum 4272 : Autocad et Excel : donc sur Office10 (Office Xp) le fichier Excel10.olb n'existe pas c'est le fichier Excel.exe qu'il faut chercher!

(getfiled "Bibliotheque Liste" (vl-filename-directory (findfile "./autocad/be.mnu/bib.autocad/Standard.csv" ) ) "CSV" 8) ;Attention il faut que Standard.csv existe et ;que le dossier parent "./autocad/be.mnu/bib.autocad/" soit ;présent dans le (getenv "ACAD") zut alors et moi qui commençait par chercher un moyen de le faire avec un DCL Patrick_35 tu viens de me sortir une épine du pied. merci Patrick_35

Pour la gestion AutoCAD nous avons parfois besoin d'utiliser des listes. Or afin déviter d'encombrer la pile de multitude de liste je propose cette petie routine qui lit les fichiers de type CSV. Cette routine retroune une [surligneur] liste[/surligneur]. Celle -ci se décompose ainsi: -à chaque ligne il y a une [surligneur] liste[/surligneur] chaque [surligneur] atome[/surligneur] de cette est séparé par des ";" SI cet atome commence par "[" et fini par "]" séparé par ":" cet atome sera une [surligneur] paire pointée[/surligneur] Cette routine ne fonctionne pas pour un atome = "" ni = nil (sauf s'il sont en dernière position) Attention aussi les atomes de type (cons 10 (list 0.0 0.0 0.0)) ne sont pas reconnu non plus! (defun Lit_BIBLIOTHEQUE (ARG_CHEMIN ARG_FILENAME / PRIVE_LIGNE PRIVE_LISTE1 PRIVE_LISTE2 PRIVE_FILE PRIVE_BOUCLE PRIVE_ELEMENT PRIVE_P1 PRIVE_P2 ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Fonction qui lit le fichier bibliothèque Nommé ;;; ;;; ;;; ;;; Argument : Chemin où trouver la bibliothèque ;;; ;;; Nom du fichier de la bibliothèque (sans extension) ;;; ;;; ;;; ;;; Retourne : une liste de constantes pour l'utilisation de fonctions ;;; ;;; du type liste des Style de texte avec toutes les ;;; ;;; variables ;;; ;;; ;;; ;;; Sémantique : Création à partir d'un fichier Excel type "CSV" ;;; ;;; les commentaire commence par "\\\" (la fonction ne lit pas la ;;; ;;; suite de la ligne) ;;; ;;; Chaque ligne est considérée comme une sous-liste. à l'intérieur ;;; ;;; de celle-ci chaque élément est séparé par ";" ;;; ;;; Si un élément se présente sous forme : ;;; ;;; [....:....] il sera pris en compte comme paire pointée ;;; ;;; ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Verification de la validité des arguments ;;; (if (= ARG_CHEMIN nil) (setq ARG_CHEMIN ".\\AUTOCAD\\BE.MNU\\BIB.AUTOCAD\\") ) (if (= ARG_FILENAME nil) (setq ARG_FILENAME "RADIATEURS.CSV") ) (setq ARG_CHEMIN (strcase ARG_CHEMIN)) (setq ARG_FILENAME (strcase ARG_FILENAME)) (if (vl-filename-extension ARG_FILENAME) (setq ARG_FILENAME (vl-string-subst "" (vl-filename-extension ARG_FILENAME) ARG_FILENAME)) ) (if (= (findfile (strcat ARG_CHEMIN ARG_FILENAME ".CSV")) nil) (progn (alert "Fichier Bibliothèque non trouvé") (exit) ) ) ;;; ;;; Exécution de la fonction ;;; ;; Ouverture de la bibliothèque (setq PRIVE_FILE (open (findfile (strcat ARG_CHEMIN ARG_FILENAME ".CSV" ) ) "r" ) ) (setq PRIVE_LISTE1 nil) ;; Lecture de la première ligne du fichier (setq PRIVE_LIGNE (read-line PRIVE_FILE)) ;; Parcours du fichier (while PRIVE_LIGNE (progn ;; Enlève les point-virgules finaux (setq PRIVE_LIGNE (vl-string-right-trim ";" PRIVE_LIGNE)) (setq PRIVE_LISTE2 nil) ;; Traite la ligne si elle n'est pas un "commentaire" (if (/= (vl-string-elt PRIVE_LIGNE 0) (ascii "\\")) (while (or (/= PRIVE_LIGNE "") (> (strlen PRIVE_LIGNE) 0)) (progn (setq PRIVE_BOUCLE 0) ;; détermine l'élément (setq PRIVE_BOUCLE (vl-string-position (ascii ";") PRIVE_LIGNE) ) (if (= PRIVE_BOUCLE nil) (setq PRIVE_BOUCLE (strlen PRIVE_LIGNE)) ) ;; si l'élément est entier, réel ou chaine de caratères (if (distof (substr PRIVE_LIGNE 1 PRIVE_BOUCLE) 2) (if (= (distof (substr PRIVE_LIGNE 1 PRIVE_BOUCLE) 2) (atoi (substr PRIVE_LIGNE 1 PRIVE_BOUCLE)) ) (setq PRIVE_ELEMENT (atoi (substr PRIVE_LIGNE 1 PRIVE_BOUCLE) ) ) (setq PRIVE_ELEMENT (distof (substr PRIVE_LIGNE 1 PRIVE_BOUCLE) 2) ) ) (setq PRIVE_ELEMENT (substr PRIVE_LIGNE 1 PRIVE_BOUCLE)) ) ;; Pour le cas des paire pointée [...:...] (if (and (= (type PRIVE_ELEMENT) 'STR) (= (vl-string-elt PRIVE_ELEMENT 0) (ascii "[")) (= (vl-string-elt PRIVE_ELEMENT (1- (strlen PRIVE_ELEMENT))) (ascii "]") ) ) (progn (setq PRIVE_P1 (substr PRIVE_ELEMENT 2 (1- (vl-string-position (ascii ":") PRIVE_ELEMENT ) ) ) ) (setq PRIVE_P2 (substr (vl-string-subst "" (strcat "[" PRIVE_P1 ":") PRIVE_ELEMENT) 1 (1- (strlen (vl-string-subst "" (strcat "[" PRIVE_P1 ":") PRIVE_ELEMENT))))) ;; Paire pointée entier, réel ou chaine de caractères ;; Pour le pointeur (if (= (distof PRIVE_P1 2) (atoi PRIVE_P1)) (setq PRIVE_P1 (atoi PRIVE_P1)) (if (distof PRIVE_P1 2) (setq PRIVE_P1 (distof PRIVE_P1 2)) ) ) ;; Pour la valeur (if (= (distof PRIVE_P2 2) (atoi PRIVE_P2)) (setq PRIVE_P2 (atoi PRIVE_P2)) (if (distof PRIVE_P2 2) (setq PRIVE_P2 (distof PRIVE_P2 2)) ) ) ;;Assigne la paire pointée (setq PRIVE_ELEMENT (cons PRIVE_P1 PRIVE_P2)) ) ) ;; Ajoute l'élément à la sous-liste (if PRIVE_LISTE2 (setq PRIVE_LISTE2 (append PRIVE_LISTE2 (list PRIVE_ELEMENT) ) ) (setq PRIVE_LISTE2 (list PRIVE_ELEMENT) ) ) ;; Retire de la ligne lue, l'élément (setq PRIVE_LIGNE (substr PRIVE_LIGNE (+ PRIVE_BOUCLE 2) (strlen PRIVE_LIGNE) ) ) ) ) ) ;; suivant la taille de la sous-liste ajoute celle-ci à la liste prinicipale (if (= (length PRIVE_LISTE2) 1) (setq PRIVE_LISTE2 (nth 0 PRIVE_LISTE2)) ) (if PRIVE_LISTE2 (if PRIVE_LISTE1 (setq PRIVE_LISTE1 (append PRIVE_LISTE1 (list PRIVE_LISTE2 ) ) ) (setq PRIVE_LISTE1 (list PRIVE_LISTE2) ) ) ) ;; ligne suivante (setq PRIVE_LIGNE (read-line PRIVE_FILE)) ) ) ;; retourne à la fonction la liste ainsi créée PRIVE_LISTE1 ) ;;; ------------------------------------------------------------------------------ Exemple d'un fichier en cours de création Radiateurs.CSV \\\;;;; \\\RADIATEURS;;;; \\\;;;; \\\(0:Modèle);(1:Command_ACAD);(Po_Lg(ou Nbéléments):Longueur);(Po_Ep:Epaisseur);(Po_Ht:Hauteur) (0:Reggane_3000);(1:#_RECTANGLE);(9:0.5);(10S:0.072);(600:0.6) (0:Chappee);;;; (0:Lamella);;;; (0:Acova);;;; (0:Zendher);;;; (0:Jaga);;;; (0:Lydis);;;; (0:CHORUS);;;;

j'ai seulement répété ce que [surligneur] Serge[/surligneur] t'avait dit pour Office XP! mais je trouve génial(je n'y avais pas pensé) de retourner une liste plutôt que le chemin concaténé au fichier pas besoin de vl-string-subst-base..... ;)