fabcad

Bonjour, - pbrion Que signifie le smiley dans la syntaxe : $M=$(if,$(getvar,cmdactive),,_select "ici" -gp;c;\;p;; Merci d'avance.

Hello Pat Le Décapode, entre fabcad moi-même et fabbcad y a une homonymie :-) Essayant les fonctions addvtx (ajouter) delvtx (supprimer) de Gile, il apparait que delvtx efface les données d'objets d' AutoCAD MAP. Pour Information, Fabrice le futur ex-dessinateur des pompiers. A+

Insérer des Images dans les posts car expliquer en plusieurs paragraphes c'est compliqué (un dessin vaut mieux qu'un long discours). Possibilité pour les LISP et fichier DCL d'être en pièce-jointe. Pour le forum Visual-Lisp avoir une partie partage de connaissances et une ou l'on verrait que les codes ou les fichiers joints. Merci, Fabcad

Bonjour mikeosx, Une petite recherche sur ce site pour t'apercevoir que AutoCAD LT ne supporte pas le LISP. Seule la version pleine et les produits verticaux (MAP, Architectural..) ont la possibilité de faire tourner les langages de programmation. A+

Oui Merci Lecrabe, ta sympathie m'honore :-) Ca me touche beaucoup. Bonne journée à tous. Fabcad

Je m'associe, Avec : marre de ne pouvoir coller des images directement sur le site Sur d'autres sites programmation, dao ou sig c'est naturel surtout que nous sommes des infographistes d'où la nécessité d'échanger via des copies d'écrans. Bonne journée Je rajouterai l'inefficacité de la fonction recherche. [Edité le 15/3/2011 par fabcad]

Salut, Le logiciel Arcwiew d' ESRI sait lire les dwgs avec xdatas, il faudrait pouvoir unifier les tables Xdatas et de les exporter en format shape avec Arcview. Ces fichiers shape alors pourront être connectés avec AutoCAD MAP ou importés dans ce dernier en entités AutoCAD avec les valeurs attributaires intégrées comme données d'objets. A+

Pour le même prix qu' AutoCAD il y a AutoCAD MAP qui lui possède les données d'objets, elles sont facilement exploitables pour leur création ainsi que dans des requêtes. 4 types de données pour les champs d'une table de donnée d'objet (Entier, Réel, Caractère et point) ce qui permet de renseigner et donc d'enrichir n'importe quel objet AutoCAD. Exemples : Polyligne de conduite d'eau = table AEP avec champs diamètre, type matériau date entretien etc. Polyligne de parcelle = table parcelle avec champs ID, Numéro Code_INSEE etc. Electricité, plomberie, etc Ces données sont cryptées donc illisible sur un AutoCAD classique, par contre elle peuvent être associées lors d'une publication en DWF avec affichage des données par pointage sur un objet. A+

Et oui il est plus facile de gérer les données d'objets et de les requêter sans forcément passer par un format shape. A l'adresse ci-dessous, tu pourras télécharger un utilitaire qui transforme des xdatas en données d'objets : (copie ton DWG avant l'utilisation de cette fonction). http://georezo.net/forum/viewtopic.php?id=47774 Sinon dans le dossier support d'AutoCAD MAP, tu as une routine qui transforme aussi les xdatas en données d'objets nommée eedcnvrt.lsp (copie ton DWG avant l'utilisation de cette fonction). Le format d'échange SHP d'ESRI n'est intéressant à mon sens que si tu partages tes sources avec d'autres logiciels SIG. A+

Hello tout le monde, Essayant les fonctions addvtx (ajouter) delvtx (supprimer) de Gile, il apparait que delvtx efface les données d'objets de autoCAD MAP. Pour Information, Fabrice

Dans les utilitaires de consultation et de modification des Xdatas j'ai trouvé celui-ci : http://www.theswamp.org/index.php?topic=37331.0 Vraiment cool aussi. A+

Dans les utilitaires de consultation et de modification des Xdatas j'ai trouvé celui-ci : http://www.theswamp.org/index.php?topic=37331.0 Vraiment cool aussi. A+

Et connexions et liaisons avec les objets AutoCAD beaucoup plus souple aux bases de données Excel, Access, et les formats SIG Standarts.

Bonsoir, Il y a un programmeur nommé Lee Mac qui sévit sur The Swamp avec des fonctions intéressantes tellement intéressantes qu'il a créé son site : http://lee-mac.com/programs.html Bonne lecture et bonne soirée

Bonsoir, Il y a un programmeur qui sévit sur The swamp. Son pseudo c'est Lee Mac et voici son programme lisp d'affichage d'information d'objet dynamique : http://lee-mac.com/dinfo.html Bonne soirée [Edité le 27/1/2011 par fabcad]

Hello CityHunter87, Sur AutoCAD MAP qui est basé sur AutoCAD tu peux créer soit des barres d'outils ou des boutons sur le Ruban. Par l'un ou l'autre de ces moyens, tu pourrais enregistrer tes requêtes AutoCAD MAP en fichiers externes d'extension QRY (fichiers en langage AutoLISP spécifique à AutoCAD MAP modifiables et enrichissables) et mettre ces derniers dans un dossier spécifique, tu pourras ainsi créer une barre d'outils avec comme bouton le lancement de telle ou telle requête. Exemple, Nom de la commande (bouton) : salles_moins_20_m2 syntaxe de la commande : ^c^c(commande) "salles_moins_20_m2.qry" (commande) est le nom de la commande qui permet le lancement de fichiers QRY (requêtes externes) Le VBA n'étant plus supporté par AutoCAD au profit du .net. A+

Merci Gile, C'est au délà de mes attentes, Bonne soirée, Fabrice

Bonjour à tous, Excellente fonction qui va ravir les utilisateurs de données attributaires dans le monde du SIG (système d'informations Géographiques )et du SIB (système d'informations bâtimentaires). J'aurai juste une petite requête, 1- Permettre le copier Windows dans la zone de liste peut-être par un menu contextuel sur 1 élément de la liste.. 2- Il serait bien que s'affiche la valeur à modifier au dessus de l'intitulé de modification comme dans l'exemple ci-dessous : Commande: XDEDIT Valeur courante à modifier : NOMDEL=PARIS Sélectionnez une entité: Entrez un texte ou : Afin de voir ou de copier coller pour rentrer la nouvelle valeur. Merci,[Edité le 13/1/2011 par fabcad] [Edité le 13/1/2011 par fabcad]

Oui merci AutoDESK, Joyeux Noël, Fab

Merci Didier, C'est bien ce que je souhaiterais faire, mais s'il y a plusieurs personnes à utiliser ma fonction, il faudrait que je sache ou se trouvent ces fichiers textes d'après le chemin de ma routine.

Bonjour, Je souhaiterais savoir s'il y a un moyen dans Vlisp ou AutoLISP pour récupérer le chemin d'un fichier LISP chargé dans AutoCAD pour trouver dans ce dossier des fichiers de données. Le but étant de remplacer des listes par ces fichiers de données surtout pour les prénoms car la liste se rallonge : ;--------------------------------------------------------------- ;;; sous-fonction permettant de vérifier la catégorie d'un mot suivant les listes de contrôle et de renvoyer cette catégorie dans le programme principal (defun verification_mot (mot_a_verifier / outpout_categorie) (setq LISTE_PRENOMS (list "A." "Adam" ..... "Zenaide")) (setq LISTE_TYPES (list "Autoroute" ..... "Village")) (setq LISTE_ARTICLES (list "de la" "de l'" "d'" "de" "l'" "la" "des" "du" "l'" "le" "au" "aux")) (setq LISTE_TITRES (list "Abbé" ..... "Sous_Lieutenant")) (setq LISTE_PARTICULES (list "D'" ..... "Les")) (setq LISTE_TEXTES (list "Dit" "DIT" "dit" ..... "Car")) (setq LISTE_ARTICLES_PARTICULES (list "AU" ..... "DE L'")) (cond ((vl-position mot_a_verifier LISTE_PRENOMS) (setq outpout_categorie "PRENOM")); Fin member dans LISTE_PRENOMS ((vl-position mot_a_verifier LISTE_TYPES) (setq outpout_categorie "TYPE_VOIE")); Fin member dans LISTE_TYPE ((vl-position mot_a_verifier LISTE_ARTICLES) (setq outpout_categorie "ARTICLE")); Fin member dans LISTE_ARTICLE ((vl-position mot_a_verifier LISTE_TITRES) (setq outpout_categorie "TITRE")); Fin member dans LISTE_TITRE ((vl-position mot_a_verifier LISTE_PARTICULES) (setq outpout_categorie "PARTICULE")); Fin member dans LISTE_PARTICULE ((vl-position mot_a_verifier LISTE_ARTICLES_PARTICULES) (setq outpout_categorie "ARTICLE_PARTICULE")); Fin member dans LISTE_ARTICLES_PARTICULES ((vl-position mot_a_verifier LISTE_TEXTES) (setq outpout_categorie "TEXTE")); Fin member dans LISTE_TEXTE (T (setq outpout_categorie "INCONNU")) ); Fin cond outpout_categorie ); Fin defun verification_mot Merci pour vos informations.

Merci beaucoup Carboleum, Je n'avais jamais utilisé cette fonction ! Arghhhh. Bonne journée, Fabcad

Bonjour, J'ai réalisé une routine qui permet de séparer un nom de voie dans plusieurs champs de données d'objets AutoCAD MAP, mais ce n'est pas là le problème. Avec la valeur retournée sous forme de liste, je ne parviens pas à différencier un texte alpha-numérique d'un texte alpha uniquement. Soit deux listes : 1 - (setq liste_1 ("C125")) --> qui donne une communale car à partir du deuxième caractère, celui commence un identifiant numérique. 2 - (setq liste_1 ("COMLOUP")) --> qui donne un lieu-dit. J'avais réussi avec un numberp mais je n'avais pas à gérer les lieux-dits, un peu d'aide serait la bienvenue. Voici la sous-fonction : (defun traitement_1_mot (input_liste obj_acad/) (setq categorie_mot_un (verification_mot (casse_nom_propre (nth 0 input_liste))) mot_en_cours (nth 0 input_liste) deuxieme_caractere (substr mot_en_cours 2 1) );fin setq (cond ( (and (= categorie_mot_un "INCONNU") (= (atoi (substr deuxieme_caractere 2 1)) 0) );fin and (progn (setq type_voie "Lieu-dit"); fin setq type_voie (setq mot_en_cours (casse_nom_propre (nth 0 input_liste))) (setq nom_comple (strcat type_voie " " mot_en_cours)) (ade_odsetfield obj_acad nom_de_la_table cible-type_voie recnum type_voie) (ade_odsetfield obj_acad nom_de_la_table cible-nom recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-nom_comple recnum nom_comple) (ade_odsetfield obj_acad nom_de_la_table cible-insee recnum (substr (getvar "DWGNAME") 1 5)) (vla-put-color obj_vl acBylayer) );fin progn );fin cond categorie_mot_un est égal à INCONNU et deuxième caractère différent d'1 numérique ((= categorie_mot_un "ARTICLE_PARTICULE") (progn (setq type_voie "Lieu-dit"); fin setq type_voie (setq mot_en_cours (casse_nom_propre (nth 0 input_liste))) (ade_odsetfield obj_acad nom_de_la_table cible-type_voie recnum type_voie) (ade_odsetfield obj_acad nom_de_la_table cible-nom recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-nom_comple recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-insee recnum (substr (getvar "DWGNAME") 1 5)) (vla-put-color obj_vl acBylayer) );fin progn );fin cond categorie_mot_un est égal à ARTICLE_PARTICULE ((= categorie_mot_un "ARTICLE") (progn (setq type_voie "Lieu-dit"); fin setq type_voie (setq mot_en_cours (casse_nom_propre (nth 0 input_liste))) (ade_odsetfield obj_acad nom_de_la_table cible-type_voie recnum type_voie) (ade_odsetfield obj_acad nom_de_la_table cible-nom recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-nom_comple recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-insee recnum (substr (getvar "DWGNAME") 1 5)) (vla-put-color obj_vl acBylayer) );fin progn );fin cond categorie_mot_un est égal à ARTICLE ((= categorie_mot_un "PARTICULE") (progn (setq type_voie "Lieu-dit"); fin setq type_voie (setq mot_en_cours (casse_nom_propre (nth 0 input_liste))) (ade_odsetfield obj_acad nom_de_la_table cible-type_voie recnum type_voie) (ade_odsetfield obj_acad nom_de_la_table cible-nom recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-nom_comple recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-insee recnum (substr (getvar "DWGNAME") 1 5)) (vla-put-color obj_vl acBylayer) );fin progn );fin cond categorie_mot_un est égal à PARTICULE ((= categorie_mot_un "TYPE_VOIE") (progn (setq type_voie (casse_nom_propre (verif_type_voie (nth 0 input_liste)))); fin setq type_voie (ade_odsetfield obj_acad nom_de_la_table cible-type_voie recnum type_voie) (ade_odsetfield obj_acad nom_de_la_table cible-nom recnum type_voie) (ade_odsetfield obj_acad nom_de_la_table cible-nom_comple recnum type_voie) (ade_odsetfield obj_acad nom_de_la_table cible-insee recnum (substr (getvar "DWGNAME") 1 5)) (vla-put-color obj_vl acBylayer) );fin progn );fin cond categorie_mot_un est égal à TYPE_VOIE ( (and (= (substr (strcase (nth 0 input_liste)) 1 1) "D") (= (numberp (atoi (substr (nth 0 input_liste) 2 1))) T));fin and (progn (setq type_voie "Départementale"); fin setq type_voie (setq mot_en_cours (nth 0 input_liste)) (ade_odsetfield obj_acad nom_de_la_table cible-type_voie recnum type_voie) (ade_odsetfield obj_acad nom_de_la_table cible-nom recnum (strcase mot_en_cours)) (ade_odsetfield obj_acad nom_de_la_table cible-nom_comple recnum (strcase mot_en_cours)) ;;; remplissage du champ PUB_NOM (ade_odsetfield obj_acad nom_de_la_table cible-pub_nom recnum (strcase mot_en_cours)) (ade_odsetfield obj_acad nom_de_la_table cible-insee recnum (substr (getvar "DWGNAME") 1 5)) (vla-put-color obj_vl acRed) );fin progn );fin si le mot correspond à D# ( (and (= (substr (strcase (nth 0 input_liste)) 1 2) "RD") (= (numberp (atoi (substr (nth 0 input_liste) 3 1))) T) );fin and (progn (setq type_voie "Départementale"); fin setq type_voie (setq mot_en_cours (nth 0 input_liste)) (ade_odsetfield obj_acad nom_de_la_table cible-type_voie recnum type_voie) (ade_odsetfield obj_acad nom_de_la_table cible-nom recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-nom_comple recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-insee recnum (substr (getvar "DWGNAME") 1 5)) (vla-put-color obj_vl acRed) );fin progn );fin si le mot correspond à RD# ( (and (= (substr (strcase (nth 0 input_liste)) 1 1) "N") (= (numberp (atoi (substr (nth 0 input_liste) 2 1))) T) );fin and (progn (setq type_voie "Nationale"); fin setq type_voie (setq mot_en_cours (nth 0 input_liste)) (ade_odsetfield obj_acad nom_de_la_table cible-type_voie recnum type_voie) (ade_odsetfield obj_acad nom_de_la_table cible-nom recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-nom_comple recnum mot_en_cours) (ade_odsetfield obj_acad nom_de_la_table cible-insee recnum (substr (getvar "DWGNAME") 1 5)) (vla-put-color obj_vl acBylayer) );fin progn );fin si le mot correspond à N# ( (and (= (substr (strcase (nth 0 input_liste)) 1 1) "R") (= (numberp (atoi (substr (nth 0 input_liste) 2 1))) T));fin and (progn (setq type_voie "Rural"); fin setq type_voie (setq mot_en_cours (nth 0 input_liste)) (ade_odsetfield obj_acad nom_de_la_table cible-type_voie recnum type_voie) (setq nom_rural (strcat "n°" (substr (nth 0 input_liste) 2))) (ade_odsetfield obj_acad nom_de_la_table cible-nom recnum nom_rural) ;;; remplissage du champ NOM_COMPLE (setq nom_comple_rural (strcat "Rural n°" (substr (nth 0 input_liste) 2))) (ade_odsetfield obj_acad nom_de_la_table cible-nom_comple recnum nom_comple_rural) ;;; remplissage du champ CODE_INSEE (ade_odsetfield obj_acad nom_de_la_table cible-insee recnum (substr (getvar "DWGNAME") 1 5)) ;;; remplissage du champ PUB_NOM (ade_odsetfield obj_acad nom_de_la_table cible-pub_nom recnum (strcase mot_en_cours)) (vla-put-color obj_vl acBylayer) );fin progn );fin si le mot correspond à R# ( (and (= (substr (strcase (nth 0 input_liste)) 1 1) "C") (/= (atoi (substr deuxieme_caractere 2 1)) 0) );fin and (progn (setq type_voie "Communale"); fin setq type_voie (setq mot_en_cours (nth 0 input_liste)) (ade_odsetfield obj_acad nom_de_la_table cible-type_voie recnum type_voie) (setq nom_rural (strcat "n°" (substr (nth 0 input_liste) 2))) (ade_odsetfield obj_acad nom_de_la_table cible-nom recnum nom_rural) ;;; remplissage du champ NOM_COMPLE (setq nom_comple_rural (strcat "Communale n°" (substr (nth 0 input_liste) 2))) (ade_odsetfield obj_acad nom_de_la_table cible-nom_comple recnum nom_comple_rural) ;;; remplissage du champ CODE_INSEE (ade_odsetfield obj_acad nom_de_la_table cible-insee recnum (substr (getvar "DWGNAME") 1 5)) ;;; remplissage du champ PUB_NOM (ade_odsetfield obj_acad nom_de_la_table cible-pub_nom recnum (strcase mot_en_cours)) (vla-put-color obj_vl acBylayer) );fin progn );fin si le mot correspond à C# ); fin cond ); fin defun traitement_1_mot

Voila une fonction que j'avais fait il y a longtemps : Bonne soirée, (defun c:txt2att ( / obj-txt chn obj-att att-tag att-val obj-blc blc-val) (setq obj-txt (nentsel "\n Choisir le texte de reference : ")) (setq chn (cdr (assoc 1 (entget (car obj-txt))))) (setq obj-att (nentsel "\n Choisir l'attribut à modifier : ")) (setq att-tag (cdr (assoc 2 (entget (car obj-att))))) (setq att-val (cdr (assoc 1 (entget (car obj-att))))) (alert (strcat "\nEtiquette de l'attribut : " att-tag ".\n" "Valeur de " att-tag " : " att-val ".\n" "Nouvelle valeur de " att-tag " : " chn ".")) (command "_attedit" "oui" "" att-tag att-val (car obj-att) "v" "r" chn "") (entdel (car obj-txt)) )

Merci Gile pour tes infos, C'est dans le but d'avoir des batiments remplis et uniques dans un fichier cadastre. Y'a plus qu'à copier coller ton bout de code. Bonne soirée Fabrice