fabcad

Bonjour, Merci pour les infos mais je sèche complètement. Je voudrais comprendre ou doit-on créer les listes avant ou pendant les action_tile ? Pour un peu d'aide voici, ci-joint mon fichier Lisp et le fichier DCL (merci Patrick_35) gestionnaire_od.lsp gestionnaire_od.dcl

Bonjour, Merci Patrick_35, En regardant les 3 solutions, mat.lsp serait la fonction qui se rapprocherait de l'utilitaire que je veux créer. Le plus difficile c'est de remplacer tes sous-fonctions par les sous-fonctions de traitement des Données d'Objets. Dans ta case de dialogue la 1ere liste c'est la liste des tables crées dans le dessin ou alors la liste des tables associées à un objet. La deuxième liste contient les champs de la table choisie dans la liste des tables. A suivre,

Afin d'écrire des Textuels (mtextes ou textes) en récupérant les chaines de caractères issues des tables de données d'objets d'AutoCAD MAP par une case de dialogue. Cdc de la case de dialogue : Barre de titre Message 1ère liste : Nom de la ou des tables associées. 2ème liste : afficher les champs disponibles en fonction du nom de la table choisi en 1ère liste. Résultat sous forme de liste - 1er élément : nom de la table. - 2ème élément : Nom du champ. Bien sur, si vous voyez d'autres types de listes utilisant le même système liste/sous-liste (filtres de calques et la liste de calques, etc.), je suis preneur pour avancer dans la routine finale. Merci aux pros des fichiers DCL. Fabcad

Bonjour à tous, Dans ces outils, c'est surtout les copies de données entre les données d'objets, les xdatas/ldatas et les attributs de blocs. Bonne journée, Fabcad

Bonjour, Sans AutoCAD MAP pas de récupération du triplet de fichiers (SHP,SHX,DBF) mais avec cet utilitaire téléchargeable à l'adresse : http://www.abcautocad.it/software_autocad_en.html#ImportShapes_SHP_ESRI_AutoCAD l'import est possible. De plus, avec cet outil, les informations attributaires des objets géométriques sont transformées avec dbconnect, informations que tu perds si tu transforme un format SHP esri en dxf via des logiciels de Système d'Informations Géographiques comme Gvsig ou Grass ou Qgis. Une video pour montrer l'import, la colorisation thématique et la visualisation de la table de données est à l'adresse : http://www.abcautocad.it/tutorial_autocad_importazione_mappe_GIS_shape_EN.html Bonne journée, Fabcad

Bonjour à tous, Avec AutoCAD 2007,j'ai créé un bloc parking, puis avec ce dernier j'ai créé un bloc dynamique avec une possibilité de copier cet emplacement de parking par une action de réseau, je souhaiterais que dans les propriétés s'affiche le nombre de parkings calculé par la distance en Y divisé par la largeur d'un parking. Si c'est réalisable, comment dois-je procéder ? Merci, Fabcad.

Je pense que la solution à ton petit problème c'est de télécharger sur la page : http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=14737 l'outil Dialog de Gile et de prendre le module ListBox. Bonne journée

Bonjour Boubagump, Un script est une succession de commandes AutoCAD ou l'utilisateur ne peut en principe pas prendre la main (saisie d'un point, d'une valeur, etc.) Il faut juste essayer les commandes que tu souhaites intégrer à ton programme en prenant soin de prendre les fonctions qui n'utilisent pas les cases de dialogue et de compter les validations. Puis dans un éditeur ASCII (Notepad, Notepad++...) tape ton programme comme dans l'exemple ci-dessous, à enregistrer sous nom_du_programme.scr (veille à associer cette extension avec ton éditeur de texte afin que Windows le reconnait comme Script AutoCAD et non comme Écran de Veille. Puis dans AutoCAD, tapes la fonction script et sélectionnes ton fichier d'extension scr, et si tout va bien le traitement se réalise. Bonne journée, ;Traitement d'un fichier par Renommer-Purger-Enregistrer FILEDIA 0 CMDDIA 0 -renommer CAlque "calque1" "calque2" -purger TOut * Non SAUVERAP FILEDIA 1 CMDDIA 1 ;fin du traitement

Bonjour à tous, Existe-t'il un moyen de copier un outil de palettes dans la liste des commandes personnalisées du cui ou bien de copier une palette vers un menu. Bonne journée pluvieuse !

je connais ces outils très intéressants pour AutoCAD MAP, si quelqu'un arrivait à les créer, ca serait cool!!!!!!

Bonjour à tous, Un souhait parmi tant d'autres, pouvoir associer un calque avec les accrochages objets en cours. Pour pouvoir s'accrocher uniquement sur les objets du calque associé afin d'éviter les erreurs de prises de points. Système analogue à la prise de points par rapport aux hachures. Bonne journée Fabcad [Edité le 28/7/2011 par fabcad]

Merci pour l'information, Ce n'est pas pour créer une fenêtre flottante en espace papier, j'utilise fmult puis zone graphique pour çà. Je souhaiterais dessiner un rectangle autour de cette fenêtre en prenant compte les 4 marges. Exemple pour un A4 : 201.78 : largeur fenêtre flottante 280.60 : hauteur fenêtre flottante 209.973 : largeur réelle papier 296.926 : hauteur réelle papier Prendre ces dernières mesures afin de caler la polyligne rectangulaire. Fabrice

Bonjour à tous, Mon idée est de dessiner avec un rectangle les dimensions réelles du papier associé à une mise en page. Merci, Bonne journée,

oui mais un new derriere un command ne fonctionne pas avec le fichier proposé. Ou alors avec une solution que j'ai trouvé sur le net, il ouvre un nouveau dessin mais il stoppe le lisp car ce dernier est lancé sur le document précédent. A+

bonsoir, pour être plus explicite, voici du coup mon fichier script amélioré qui fonctionne mais çà m’embête, j'aurai voulu le faire en fichier lisp total. (vl-load-com) FILEDIA 0 CMDDIA 0 _open X:\----------\----------\Gabarit.dwt oui FILEDIA 1 CMDDIA 1 (setq dossier_dxf nil fichier_dxf nil nom_fichier_sans_extension nil nom_fichier_dwg nil) (setq dossier_dxf "C:/----------/---------/---------/") (setq fichier_dxf (getfiled "Choix du fichier dxf" dossier_dxf "dxf" 4)) (setq nom_fichier_sans_extension (vl-filename-base fichier_dxf)) FILEDIA 0 CMDDIA 0 (command "_dxfin" fichier_dxf) _zoom et _audit o _convert t t -calque G TA_*,TE_*,TI_*,TO_* _erase to -calque L * _regen _zoom et (setq nom_fichier_dwg (strcat "C:/Temp/" nom_fichier_sans_extension ".dwg")) (command "_saveas" "2007" nom_fichier_dwg) FILEDIA 1 CMDDIA 1 ;fin du traitement

Bonjour à tous, J'ai créé une routine pour insérer un dxf avec des traitements spécifiques. La ou je sèche, c'est comment insérer ce dxf dans un nouveau dessin avec comme gabarit un fichier DWT spécifique se trouvant sur un emplacement réseau. entre open et nouveau avec (command "....), il semble que l'arborescence ne plait plait pas à tonton-cad 2007. Je ne sais pas comment faire. Merci pour vos suggestions. Fabcad [Edité le 27/6/2011 par fabcad]

Bonjour et bienvenue sur cadxp lareosts, Votre outil est fantastique, je vois que la traduction est possible mais avec quel outil doit on le faire ? Je souhaiterais pour tous les logiciels, un applicatif de traduction qui comporterait deux colonnes ou plus, afin que la première colonne affiche les commandes en anglais ou la langue de l'auteur et sur les autres colonnes les traductions, basé sur une licence open source. Merci, Bonne journée, Fabcad [Edité le 4/6/2011 par fabcad]

Merci Gile, Je n'arrive pas à me connecter avec le site acadlabs, je ne comprends pas leur système de connexion. Dommage, Fabcad

Bonjour FormaBois, http://www.cadxp.com/sujetXForum-5918.htm et http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=5918#pid20729 Bonne journée, Fabcad.

Bonjour Vindaro, Effectivement si tu as un champ dans ta source SHP renseigné, tu peux le prendre pour trier tes objets importés, 1- lance la fonction _MAPIMPORT 2- Dans la case de dialogue de sélection de fichier, clique sur ton SHP puis sur OK 3- dans la case de dialogue de gestion d'importation, dans la colonne calque, il y a un petit bouton carré de couleur grise avec 3 petits points, ce bouton carré s'affiche que si tu cliques sur le calque AutoCAD proposé), celui-ci affiche une autre case de dialogue afin de choisir comment tu gères les noms de calques AutoCAD. Dans cette case de dialogue, il faut cocher l'option "Utiliser champ données pour nom de calque", sélectionnez dans la liste le champ souhaité puis sur Ok. Je te conseille aussi de : 1- Rentrer le code du système de coordonnées (pour rendre compatible avec le reste des objets de ta carte) ou de le choisir avec le petit bouton carré. 2- Puis dans la colonne données avec le petit bouton carré renseigner la case de dialogue Données d'Attributs. Avec l'option "Créer des données d'objets" soit accepter le nom de la table par défaut ou de le renommer avec un nom plus explicite. 3- Cochez Importer les polygones comme polylignes fermées (plus simple à gérer) sinon AutoCAD MAP va te créer des mpolygones (polylignes remplies mais la comparaison s’arrête là car ce sont des vrais objets surfaciques SIG). 4- Puis Ok 5- Un zoom étendu et tu verras tes polylignes (si c'etait des polygones SIG dans ton SHP) avec leur calque pour les différencier. Plus explicite cette fois-ci. A+ [Edité le 17/5/2011 par fabcad]

Hello à tous, Bonjour Lecrabe, Super ton CDC, avec cette base de lisp, et avec des champs de table de données d'objet (ou d'Xdatas) de numéros de voies de début et de fin ou alors le premier et le dernier d'une suite de numéros, (l'exemple type c'est les impasses où la numérotation est de type 1 2 3 4 5 6 7 etc.). J'espère un retour sur ce sujet. Fabcad

Hello Mon cher Décapode, Cette routine va me permettre de créer des amorces de filaires de voies en récupérant l'index du textuel et en le mettant dans un champ de donnée d'objet (AutoCAD MAP) ou bien dans une valeur XDATA. A+

Merci Gile pour les informations, c'est génial comme d'habitude. Pour info : PlineEdit.dll fonctionne à merveille et en plus cerise sur le gâteau, elle conserve les données d'objets. Encore merci. A+ [Edité le 22/4/2011 par fabcad]

Bonjour Gile, J'ai téléchargé MergePlines et PolylineEdit_English (PolylineEdit.dll) la fonction netload les charge bien mais pour une j'ai essayé UPL mais la ligne de commande reste à Commande inconnue et pareil pour l'autre j'ai essayé tous les noms possibles mais pas de lancement de MergePlines et de PolylineEdit. Le tout sur AutoCAD MAP 3D 2009. Cordialement, Fabcad

Bonjour à tous, J'ai trouvé la solution grâce à Lee Mac sur le site The Swamp voici le lien pour la copie d'écran du C.D.C. et le code : Lien : http://www.theswamp.org/index.php?topic=38008.0 (defun c:Pline_over_text ( / ss i e l ) (if (setq ss (ssget '((0 . "TEXT,MTEXT")))) (repeat (setq i (sslength ss)) (setq e (ssname ss (setq i (1- i))) l (entget e) ) (entmakex (append (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (assoc 8 l) (cons 90 4) (cons 70 1) (cons 38 (caddr (cdr (assoc 10 l)))) (assoc 210 l) ) (mapcar '(lambda ( x ) (cons 10 x)) (LM:Strikethrough e)) ) ) ) ) (princ) ) (defun LM:Strikethrough ( e / dx a b h l m n o p r tb w y ) ;; © Lee Mac 2011 (defun dx ( x l ) (cdr (assoc x l))) (if (setq l (cond ( (eq "TEXT" (dx 0 (setq e (entget e)))) (setq b (dx 10 e) r (dx 50 e) tb (textbox e) y (/ (+ (cadar tb) (cadadr tb)) 2.) ) (list (list (caar tb) y) (list (caadr tb) y)) ) ( (eq "MTEXT" (dx 0 e)) (setq n (dx 210 e) b (trans (dx 10 e) 0 n) r (angle '(0. 0. 0.) (trans (dx 11 e) 0 n)) w (dx 42 e) h (dx 43 e) a (dx 71 e) ) (setq h (cond ( (member a '(1 2 3)) (/ h -2.) ) ( (member a '(4 5 6)) 0. ) ( (/ h 2.) ) ) ) (setq o (cond ( (member a '(2 5 8)) (/ w -2.) ) ( (member a '(3 6 9)) (- w) ) ( 0. ) ) ) (list (list o h) (list (+ o w) h)) ) ) ) (progn (setq m (list (list (cos r) (sin (- r)) 0.) (list (sin r) (cos r) 0.) (list 0. 0. 1.) ) b (reverse (cdr (reverse b))) ) (mapcar (function (lambda ( p ) (mapcar '+ (mapcar (function (lambda ( x ) (apply '+ (mapcar '* x p))) ) m ) b ) ) ) l ) ) ) ) [Edité le 21/4/2011 par fabcad]