fabcad

Bonjour Gilles, J'utilise tous les jours votre fonction de transformation et elle rend un très grand service dans le monde du SIG ou les cercles sont à éviter. Ma requête aujourd'hui serait la possibilité d'ajouter à l'objet polyligne les Données d'Objets issus de l'arc ou cercle d'origine. Merci d'avance, Fabcad

Je souhaiterais qu'AutoCAD puisse à la manière du gestionnaire d'affichage d'AutoCAD MAP, gérer l'ordre d'affichage des objets par calque AutoCAD. Ce principe figerait une fois pour toute l'ordre d'affichage et d'impression. [Edité le 25/2/2009 par fabcad]

Bonjour à tous, La fonction de sélection rapide n'est pas encore compatible sur AutoCAD MAP 2009 avec les tables de données d'objets. Il faudrait un listing des commandes AutoCAD qui devraient être compatibles avec le travail SIG d'AutoCAD MAP. Fabcad

Bonjour à tous, Les propriétés rapides sur AutoCAD 2009 sont vraiment très ergonomiques mais comment peut on ajouter les données d'objets associées sur cette palette. Merci pour vos infos, Fabcad

Et en essayant soit de : - couper les objets textes puis de les re-coller sur le dessin aux coordonnées d'origine. - utiliser la fonction pour mettre les objets textes et blocs en avant plan (pas la fonction ordretrace). A+

Salut à tous, Étant dans une administration, nous fonctionnons avec des budgets investissement décidés en début d'année et votés en milieu ou fin d'année, suite à çà les commandes, et donc avec le système normal des mises à jour, la version demandée ainsi que le cout changent l'année suivante. Pour moi cette souscription est intéressante dans la mesure où nos élus voient le même montant chaque année et ne voient pas un prix exorbitant lors de l'achat des mises à jour par poste. A+

Bonjour Aurélie, Malheureusement AutoCAD MAP ne sait pas importer de l'Edigeo mais il importe très bien du shape d'Arcview, renseigne toi si la commune en question peut te l'envoyer sous ce format. Fabcad

Quotidiennement appelé à créer des vues avec le nom des commune, j'ai créé ce bout de lisp pour créer une liste de vues uniquement sur Autocad MAP avec le nom de chaque commune contenu dans une table de données d'objets, il faudra juste remplir les termes entre guillemets avec vos propres valeurs mais en conservant les guillemets. Bonne utilisation, Fabcad ;;;------------------------------------------------------------------------ ;;; Fonction VUES-COMMUNES Version 1.0 ;;; par Fabrice DEMIEL ;;; le 02-03-2006 ;;;------------------------------------------------------------------------ (defun traite-js (js / nbr obj-commune) (setvar "cmdecho" 0) (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq obj-commune (ssname js i)) (command "zoom" "objet" obj-commune "") ;(redraw obj-commune 3) ;Recupération du nom de la commune de l'objet ; tbl Nom de la table de données d'objets contenant le champ de nom de commune ici "COMMUNE" ; ch1 Nom du champ du nom de commune ici "NOM_COMM" (setq recnum 0 tbl "COMMUNE" ch1 "NOM_COMM") (setq NOM-COMMUNE (ade_odgetfield obj-commune tbl ch1 recnum)) (setq acadObject (vlax-get-acad-object)) (setq vlaobject-en-cours (vlax-ename->vla-object obj-commune)) (vla-getboundingbox vlaobject-en-cours 'minpoint 'maxpoint) (command "-VUE" "Fenêtre" NOM-COMMUNE (vlax-safearray->list minpoint) (vlax-safearray->list maxpoint)) (setq i (+ i 1)) ); fin while nil ); fin defun ;;;------------------------------------------------------------------------ ;;;------------------------------------------------------------------------ ; FONCTION MAITRE (defun c:VUES-COMMUNES () ;recuperation des variables (setq var-accrobj (getvar "osmode")) (setq var-cmddia (getvar "cmddia")) (setq var-cmdecho (getvar "cmdecho")) (setvar "osmode" 0) (setvar "cmddia" 0) (setvar "cmdecho" 0) (vl-load-com) (setq js (ssget)) (traite-js js) (setq js nil) ;retour a la normale des variables utilisées (setvar "cmddia" var-cmddia) (setvar "osmode" var-accrobj) (setvar "cmdecho" var-cmdecho) (prompt "\n---COPYRIGHT 13/01/2009 Par Fabrice DEMIEL---") nil );fin c:centroides ;;;------------------------------------------------------------------------ (prompt "\npour lancer Tapez : VUES-COMMUNES ") [Edité le 13/1/2009 par fabcad]

Quel talent phil_vsd, Superbe livre, je vais récupérer quelques cheveux perdus à cause de ces stupides parenthèses. Merci encore, Fabcad

bonjour fredo3669, Et en tapant la fonction Groupe cela fonctionne t'il ? A+

Pour ce genre de manipulation il faudrait que AutoCAD MAP soit inclus dans AutoCAD. Car l'écriture ou l'hachurage automatique suivant des propriétés sont inclus dan MAP... Et ce pour le même prix qu'une version AutoCAD. A+

Bonsoir Gilles1, La commande Adersheet n'existe que sous AutoCAD MAP ou sur Civil 3D qui possède le noyau AutoCAD MAP. Avec l'AutoCAD seul il faut utiliser la commande Align mais je ne sais pas si sur une version LT cette commande fonctionne. Bonne soirée, Fabcad

Plusieurs sujets sur cadxp traitent de la variable Textfill. A rechercher. fabcad

Tout à fait d'accord avec vous et je souhaiterais insérer une image sans passer par un site d'hébergement de fichiers. Comme sur Géorézo pouvoir associer une image. Bonne journée, Fabcad

Bien sur et c'est pour ça que je l'ai testée, Bonsoir

Hello Gile, J'ai re-testé ta fonction et elle fonctionne ! Voilà, Salutations, Fabcad

Hello Gile, J'ai re-testé ta fonction mais voici le message retourné sur MAP 2008 : [surligneur] svp ; erreur: no function definition: STR2LST [/surligneur] Je pense encore qu'une sous-fonction manque à l'appel. Voilà, Salutations, Fabcad

Hello Lecrabe et Gile, Il y aura vraiment Un logiciel SIG nommé LecrabeSIG sur AutoCAD. J'ai testé votre fonction mais voici le message retourné sur MAP 2008 : [surligneur] svp ; erreur: no function definition: TABORDER [/surligneur] Je pense qu'une sous-fonction manque à l'appel. Voilà, Salutations à vous deux, Fabcad [Edité le 12/12/2008 par fabcad]

Bonjour x_al, Dans les Express Tools, tu peux utiliser la fonction extrim (ajuster à l'emporte pièce). Elle se situe dans le dossier Program Files --> AutoCAD --> Express (express tools). Si çà peut t'aider... Fabcad [Edité le 8/12/2008 par fabcad]

Même si les deux dessins sont en mètres sur AutoCAD MAP 2008, par exemple un fichier cadastral et dessus en XREF la partie textes, ce dernier est légèrement décalé !

Vérifie avec ddunits si tes deux dessins sont sans unités car il y a un bug avec ceci sur la 2008, et aussi BASE dans les 2 dessins à 0,0,0 Fabcad

Merci Patrick_35, C'est Vendredi et j'ai pas eu mon apéro, Quel nul mais nous voyons bien qu'une lecture par une autre personne est plus que bénéfique. (defun c:VL-AJOUT-ZEROS (/ att tag bloc nom-bloc a b index lg-index) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))));fin or ;Récupérer un attribut : (setq att (nentsel "\nSélectionnez un numero d'ordre : ")) (setq att (vlax-ename->vla-object (car att))) ;L'étiquette de l'attribut (setq tag (vla-get-TagString att)) ;Le bloc contenant l'attribut : (setq bloc (vla-ObjectIDToObject *acdoc* (vla-get-OwnerID att))) ;Le nom du bloc : ;(vla-get-Name bloc) (setq nom-bloc (vla-get-EffectiveName bloc)) avec filtre et sélection de l'ensemble des blocs : (if (ssget "_X" (list '(0 . "INSERT") (cons 2 nom-bloc))) ;mais je préfère afin de vérifier la sélection en cours (if (ssget (list '(0 . "INSERT") (cons 2 nom-bloc))) (progn ;; traitement du jeu de sélection actif (vlax-for b (setq ss (vla-get-ActiveSelectionSet *acdoc*)) ;; traitement des attributs de chaque bloc (foreach att (vlax-invoke b 'getAttributes) (if (= (vla-get-TagString att) tag) (progn (setq index (vla-get-TextString att)) (if (< 4 (setq lg-index (strlen index))) (setq index (substr index (- lg-index 3))) (repeat (- 4 lg-index) (setq index (strcat "0" index))) );fin if (vla-put-TextString att index) (vla-put-Stylename att "ATT") (vla-put-Height att 6) );fin progn );fin if );fin foreach );fin vlax-for b ;; suppression du jeu de sélection (vla-delete ss) );fin progn );fin if );fin defun AJOUT-ZEROS ;--------------------------------- [Edité le 28/11/2008 par fabcad]

Eh bien de rien merci à vous, Ouh la la, J'ai compris le vlax-invoke et en état il fait sur 1 bloc, je vois l'itération mais je ne vois pas où placer le foreach que tu me demandes. Peux-tu m'aider ? Merci Fabcad

Après une modification de mon programme, voici l'erreur retournée : Qu'est-ce que : Membre introuvable ? (defun c:VL-AJOUT-ZEROS (/ att) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))));fin or ;Récupérer un attribut : (setq att (nentsel "\nSélectionnez un numero d'ordre : ")) (setq att (vlax-ename->vla-object (car att))) ;L'étiquette de l'attribut (setq tag (vla-get-TagString att)) ;Le bloc contenant l'attribut : (setq bloc (vla-ObjectIDToObject *acdoc* (vla-get-OwnerID att))) ;Le nom du bloc : ;(vla-get-Name bloc) (setq nom-bloc (vla-get-EffectiveName bloc)) (if (ssget "_X" (list '(0 . "INSERT") (cons 2 nom-bloc))) (progn ;; traitement du jeu de sélection actif (vlax-for b (setq ss (vla-get-ActiveSelectionSet *acdoc*)) ;; traitement des attributs de chaque bloc (foreach a (vlax-get b 'getAttributes) (if (= (vla-get-TagString a) tag) (progn (setq index (vla-get-TextString a)) (if (< 4 (setq lg-index (strlen index))) (setq index (substr index (- lg-index 3))) (repeat (- 4 lg-index) (setq index (strcat "0" index))) );fin if (vla-put-TextString att index) (vla-put-Stylename att "ATT") (vla-put-Height att 6) );fin progn );fin if );fin foreach );fin vlax-for b ;; suppression du jeu de sélection (vla-delete ss) );fin progn );fin if );fin defun AJOUT-ZEROS [Edité le 28/11/2008 par fabcad]

Bonjour à tous, Afin de finir sur ma fonction Ajout de Zéros sur attributs de blocs dont voici le code ci-dessous, mais je souhaiterais boucler sur tous les blocs qui ont comme étiquette celle que je choisirai en pointant comme sur le programme. Le but étant d'apprendre aujourd'hui en visual lisp comment boucler sur des attributs de blocs (collection, travail sur les attributs etc.) Merci pour vos réponses, Fabcad ;; AJOUT-ZEROS Fabrice 27/11/08 ;; Ajout de Zéros sur le numéro d'ordre d'attribut de bloc (defun c:AJOUT-ZEROS (/ space att lst1 lst2 ss1 ss2 txt al p1 p2) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) );fin or (setq att (nentsel "\nSélectionnez un numero d'ordre : ")) (setq att (vlax-ename->vla-object (car att))) (setq index (vla-get-TextString att)) (if (< 4 (setq lg-index (strlen index))) (setq index (substr index (- lg-index 3))) (repeat (- 4 lg-index) (setq index (strcat "0" index))) );fin if (setq height 6) (setq style-att "ATT") (vla-put-TextString att index) (vla-put-Stylename att style-att) (vla-put-Height att height) );fin defun AJOUT-ZEROS