fabcad

Pas pour les faineants mais autodesk croit que nous gerons un tout tout tout petit nombre de blocs avec attributs, il s'avere pour nous que nous gérons plus de 2000 bornes d'incendie alors lorsqu'il faut modifier les propriétés des attributs de ces blocs avec leur fonction je ne te fais pas un dessin. C'est pourquoi j'ai créé dans ma boite a outils cette fonction. Pour ma part j'ai créé beaucoup de fonctions traitants les chaines de caractères (textes sur autocad) scinder,reunir, ajout de texte a droite ou a gauche, une fonction dictionnaire pour choisir un mot dans une liste et l'ecrire dans autocad, ecrire sur une polyligne (je fais de la carto et bien sur les routes ne sont pas droites etc... Voila et Bonne Utilisation... Fabrice

Bonjour Ludo, voici les lignes de lon programme d'edition globale d'attributs : ecris dans le bloc notes et enregistre-le sous EDIT-ATT.LSP tu pourras le charger par un glisser-déposer dans autocad et lancer la fonction en tapant sur la ligne de commande edit-att. Fabcad ;;; fonction d'edition globale d'attributs sur plusieurs attributs ;;; issue de la fonction AutoCAD ATTEDIT ;;; Créee le 18-05-1999 ;---------------------------------------------------------------------- (defun sty-att () (setq nom-b (getstring "\n Nom du bloc <*>: ")) (if (= nom-b nil) (setq nom-b "*")) (setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : ")) (setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: ")) (if (= val-at nil) (setq val-at "*")) (setq p1 (getpoint "\n Sélection par Fenêtre - premier point : ")) (setq p2 (getcorner p1 "\n Second point : ")) (setq sty (getstring "\n Nouveau Style des attributs : ")) (if (= sty nil) (setq sty "")) (command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2) (while (/= (getvar "cmdnames") "") (command "Style" sty "") ) (princ) );fin defun htr-att ;---------------------------------------------------------------------- (defun htr-att () (setq nom-b (getstring "\n Nom du bloc <*>: ")) (if (= nom-b nil) (setq nom-b "*")) (setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : ")) (setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: ")) (if (= val-at nil) (setq val-at "*")) (setq p1 (getpoint "\n Sélection par Fenêtre - premier point : ")) (setq p2 (getcorner p1 "\n Second point : ")) (setq htr (getstring "\n Nouvelle hauteur des attributs : ")) (if (= htr nil) (setq htr "")) (command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2) (while (/= (getvar "cmdnames") "") (command "Hauteur" htr "") ) (princ) );fin defun htr-att ;---------------------------------------------------------------------- (defun ang-att () (setq nom-b (getstring "\n Nom du bloc <*>: ")) (if (= nom-b nil) (setq nom-b "*")) (setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : ")) (setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: ")) (if (= val-at nil) (setq val-at "*")) (setq p1 (getpoint "\n Sélection par Fenêtre premier point : ")) (setq p2 (getcorner p1 "\n Second point : ")) (setq ang (getstring "\n Angle pour ces attributs : ")) (if (= ang nil) (setq angle "")) (command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2) (while (/= (getvar "cmdnames") "") (command "Angle" ang "") ) (princ) );fin defun ang-att ;---------------------------------------------------------------------- (defun col-att () (setq nom-b (getstring "\n Nom du bloc <*>: ")) (if (= nom-b nil) (setq nom-b "*")) (setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : ")) (setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: ")) (if (= val-at nil) (setq val-at "*")) (setq p1 (getpoint "\n Sélection par Fenêtre premier point : ")) (setq p2 (getcorner p1 "\n Second point : ")) (setq coul (getstring "\n Couleur pour ces attributs : ")) (if (= coul nil) (setq coul "")) (command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2) (while (/= (getvar "cmdnames") "") (command "CO" coul "") ) (princ) );fin defun ;---------------------------------------------------------------------- (defun cal-att () (setq nom-b (getstring "\n Nom du bloc <*>: ")) (if (= nom-b nil) (setq nom-b "*")) (setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : ")) (setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: ")) (if (= val-at nil) (setq val-at "*")) (setq p1 (getpoint "\n Sélection par Fenêtre premier point : ")) (setq p2 (getcorner p1 "\n Second point : ")) (setq calq (getstring "\n Calque pour ces attributs - [0] : ")) (if (= calq nil) (setq calq "0")) (command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2) (while (/= (getvar "cmdnames") "") (command "CA" calq "") ) (princ) );fin defun ;---------------------------------------------------------------------- (defun Val-att () (setq nom-b (getstring "\n Nom du bloc <*>: ")) (if (= nom-b nil) (setq nom-b "*")) (setq ETIQ (getstring "\n Spécification Etiquette de l'attribut : ")) (setq val-at (getstring "\n Spécification Valeur de l'attribut <*>: ")) (if (= val-at nil) (setq val-at "*")) (setq p1 (getpoint "\n Sélection par Fenêtre - premier point : ")) (setq p2 (getcorner p1 "\n Second point : ")) (setq val (getstring "\n Nouvelle Valeur des attributs : ")) (if (= val nil) (setq val ".")) (command "-ATTEDIT" "OUI" nom-b ETIQ val-at "fe" p1 p2) (while (/= (getvar "cmdnames") "") (command "Valeur" "Remplacer" val "") ) (princ) );fin defun Val-att ;---------------------------------------------------------------------- (defun c:edit-att ( / chx cnt) (setq cnt T) (while cnt (initget "Hauteur Angle Style COuleur CAlque Valeur") (setq chx (getkword "\n Option [Hauteur/Angle/Style/COuleur/CAlque/Valeur] : ")) (cond ((= chx "Angle") (ang-att)) ((= chx "COuleur") (col-att)) ((= chx "CAlque") (cal-att)) ((= chx "Hauteur") (htr-att)) ((= chx "Style") (sty-att)) ((= chx "Valeur") (Val-att)) (T (setq cnt nil)) );fin cond );fin while (prompt "\n---COPYRIGHT 05/99 par Fabrice DEMIEL---") (prin1) );fin defun edit-att

La fonction "editer les blocs ou les xrefs" dans le dessin courant permet de modifier la structure du bloc sauf ses attributs et de mettre a jour tous les blocs de meme nom dans le dessin. en ce qui les attributs il faut utiliser les gestionnaires d'attributs d'autocad 2004 ou ces memes programmes dans les express tools (battman). Fabcad

Lsp_SeBBoSs dbconnect ne pourra pas inserer les blocs connecteurs par contre pour l'ecriture automatique ce système fait l'affaire. dans le fichier excel il faudra donner un nom a la plage de cellules définissant ta base de données. exemple : A B C 1 numero type nom 2 1 pu connecteur-1 menu insertion -> nom -> definir "ton nom de ta base" puis selection de A1:C? Tu configures cette base de données dans l'explorateur dbconnect d'autocad et tu crées un gabarit de lien (passerelle entre la base de données et dbconnect). puis tu ouvres la table ainsi créée. ensuite tu as le choix entre - lier des enregistrements à des objets, - lier des enregistrements à des objets et de créer des etiquettes, - ou de créer des etiquettes autonomes, cette derniere est interréssante. ainsi tu auras des etiquettes (mtextes particuliers contenant des champs qui se mettent à jour lorsque tu demandes de recharger les etiquettes) cette manip remplace les attributs de blocs car la mise a jour peut se faire sur excel mais il faut deconnecter la base de données pour pouvoir modifier sur excel. Fabcad

Bonjour didier, Je resolvais ce probleme mais dans l'autre sens ctb-->stb par l'ouverture d'un nouveau dessin contenant une table stb par defaut puis j'inserais le dessin recalcitrant dans le nouveau et je l'enregistrais sous un nom identique ou different. A mon avis mon astuce fonctionne dans l'autre sens. Fabcad Pour ma part je prefere travailler avec des tables de styles nommés beaucoup plus de choix dans les couleurs associées aux calques que les tables CTB.

Merci eric pour l'astuce, J'ai essayé ton principe et je trouve ca epatant et pour info ceux qui utilisent les tables de styles nommées peuvent créer un style très pratique : nous avons créer un style nommé invisible ou la projection de couleur est égale à zéro et donc masque les objets en-dessous. cela est pratique dans de la cartographie pour créer des textes qui masquent des objets (caractères blancs sur un fond rouge par exemple) et de plus en espace papier nous creons une hachure solid avec ce style invisible et nous pouvons ecrire ou mettre des objets dessus. Fabcad

Bonjour Didier, j'ai été confronté au probleme et j'ai du utiliser la fonction autoLISP getfiled et d'envoyer le résultat dans les variables USERS1-5 d'AutoCAD, ou d'ecrire la fonction Lisp dans VBA avec sendcommand si mes souvenirs sont exact, c'est vraiment bete de fournir un langage de programmation aussi peuh oriente objet et de ne pas pouvoir selectionner des fichiers... A bientot Fabcad

Bonsoir tout le monde, Je cherche des as des topologies sur autocad map. j'ai une topologie de type réseau shématisant le reseau d'eau potable. Par une analyse de trace par propagation à 200m, je souhaiterais savoir les adresses de voies qui sont comprises dans cette analyse exemple : 1 rue de la découverte, 3 rue de la dé... etc... et quels objets pour les représenter car pour l'instant ce ne sont que des textes 2,4,6... et 1,3,5... Fabcad

Bonsoir Fil, Comme tu as Autocad MAP essaie la fonction nettoyage de dessins avec l'option couper aux croix. Fabrice

Bonjour Eric, essayes avec la fonction changer des objets 3d en objets 2d (Flatten) du menu modifier des express tools. Je suis confronté à ce probleme lorsque je récupère des routes crees par le conseil général. splines, polylignes 3d, et des objets sur plusieurs "Etages". Fabrice

Eh Bien c'est comme qui dirait forcer les utilisateurs autocad map à créer des objets paramétrés : par exemple dans la classe batiments, si tu veux créer un objet batiment avec comme propriétés : Objet lwpolyligne, calque batiments, type de ligne continous, couleur rouge et en plus lui affecter des données d'objets (base de données inclus dans le dessin même). c'est un peu le système de la palette d'outils pour les blocs et des dossiers calques que les utilisateurs autocad souhaitent. autre exemple : Classe Routes avec Objet Départementale tu pourras créer une polyligne rouge avec des données d'objet type et vitesse (départementale et 100km/h). Fabrice

AutoDESK est bien "gentil" mais au fur et a mesure de leur mise à jour leur seul souci est la compatibilité ascendante de leur format DWG, mais ils ne pensent pas a leur format DWF. Exemple : Volo View Express savait ouvrir les dwg 2000-2002 mais evidemment pour embeter les utilisateurs, Express Viewer ouvre seulement les DWF. Quand vous voulez créer des systèmes simples de consultation, c'est un peu compliqué de choisir un viewer AutoDESK ??? Le Format PDF peut-être zoomé, deplacé (panoramique), zoom etendu et plus tard la gestion des calques. quelle est la différence avec Express Viewer ? Différence minime. De plus, acrobat reader est facilement installable sur un parc de machines.

Bonjour Eric, Il y aurait peut-être une relation avec les classes d'objets qui sont utilisées dans Autodesk Map? (classe batiments pour tous les objets batiments). Fabrice

youri cela est possible mais il faut que tu utilises le langage autolisp integre à AutoCAD Ce Code exemple est à taper dans un editeur ASCII comme le bloc-notes Windows et enregistre-le sous INSERTDATE.LSP Tu pourras la charger par (load "inserdate") ou par glisser deposer dans l'ecran graphique d'AutoCAD. (defun c:INSERTDATE () (setq pt-ins (getpoint)) (command "-inserer" "nom_fic" pt-ins "" "" 0 date) );fin defun Remarques : - le c: avant le nom de la fonction te permet de la lancer immediatement sur la ligne de commande autocad. - il faudrait une sous-routine pour recuperer en chaine de caractères (string) la date, puisqu'il me semble que c'est la date du jour que tu souhaites. Fabrice

Ctrl-Alt-Suppr, Je crois que tes questions tournent autour d'autodesk map, logiciel sig pour ce genre de requetes de surfaces et d'ecriture automatique. Fabrice

Bonjour FIL, Pour les hachures essaie la fonction overkill des Express Tools. Et pour les blocs, les textes et les points il existe trois fonctions lisp a telecharger prévues par autodesk et elles se nomment : del_blk.lsp pour les blocs del_pt.lsp pour les points del_txt.lsp pour les textes Fabrice

J'oubliais quelque chose qui me tiens à coeur, la possibilité que les caractères masquent les objets en dessous par une option dans une police de caractères de type remplie. Car les masques de texte des express tools sont bien mais ces masques prennent trop de place. Fabrice.

J'ai moi-même crée une fonction autolisp qui crée un bloc sans nom des lettres composant le texte. subtil mélange de diviser et bloc remplacé par une lettre (une à une) et le tout dans un bloc sans nom. Mais il serait souhaitable que cet objet soit crée dans la base autocad. Fabrice

raster design par exemple fabrice

C'est une bonne idée si cela est suivi par AutoDESK Voici mes suggestions : - Pouvoir sélectionner avec ctrl+A toutes les images dans la boite de dialogue du gestionnaire d'Images comme dans le gestionnaire des Xrefs. - Pouvoir utiliser les commandes MESURER et DIVISER sur plusieurs objets en même temps. - L'arborescence de calques est une bonne idée et prendre le principe pour autodesk map. - Pouvoir inserer des fichiers dxf ou dwg d'un même répertoire dans une seule et unique commande. - Pouvoir renommer un calque avec clic droit sur celui-ci. - Définir un rectangle par 3 points origine, angle et opposé de l'origine comme dans raster design. - Pouvoir écrire un texte le long d'une polyligne surtout dans le cas des écritures de rues. - Pouvoir créer des textes de types champs pour faire des calculs (principe de word). Voilà ma liste, pour ma part j'ai commencé un fichier pour AutoDESK MAP pour mon revendeur AutoCAD, qu'il envoie vers AutoDESK France. A bientot Fabrice

Fab, Je pense qu'il faudrait que tu utilises les polylignes 3d d'autocad car celles-ci prennent les z sur chaque sommet. Fabrice

exact zebulon pour ceux qui ne possedent pas autodeskmap pour afficher certains elements d'un calque grace aux requetes d'emplacement. Une autre solution est de les masquer avec une hachure solid qui possede un style de tracé invisible (style utilisant une valeur 0 pour la projection d'encre en table de style nommés evidement) cela rend bien des services quand on ne veut pas utiliser les wipeouts des express tools. Fabrice

Bonjour à tous, On nous a installé AUTODESK MAP 2004 et je voudrais savoir ou est passé le fichier acadmap.ini qui gérait les alias de lecteurs pour rajouter tous mes alias que j'avais conservé de la version précédente. Merci... Fabrice

Krynn? Si tu utilises autocad 2000 il se peut que tu n'es pas mis à jour par le patch plotupdate qui corrige ce probleme et ajoute des traceurs electroniques comme le format binaire dxb. Fabrice

Bonjour, j'utilise Autodesk map series 6 et nous venons de recevoir Autodesk map series 2004. et voila.