vannes

Bonjour, Dans le service où je travaille, nous enrichissons une BdD topo et réseaux. Pour estimer la valeur d'un plan topo par rapport à la date où il a été réalisé, nous dessinons une polyligne associée à une donnée d'objet. Cette données d'objet renseigne de la date de validité du plan topo et du numéro de dossier concernant ce plan topo. De plus les points topo sont enregistrés dans des calques tels que TOPOJIS12, 12 étant l'année 2012. Enfin, le point topo comporte un radical correspondant au numéro de dossier (ex 12002.230: point 230 du dossier 12002 12 étant l'année d'ouverture du dossier). Voilà une façon de gérer ses données, ils en existent d'autres. A plus.

Bonjour, Un truc comme çà: _-layer;A;R;"nom de l'état de calque à restaurer";;;

Bonjour Pour répondre à Arno973 en complément de l'article 89: Décret n°2000-1276 du 26 décembre 2000 modifiée par Décret n°2006-272 du 3 mars 2006 - art. 2 JORF 10 mars 2006. Bon WE

Merci Gile pour ce rappel concernant la fonction initdia. Merci vincentp010, c'est la solution à mon problème. Conclusion: Il faut jouer avec les fonction "initdia" et "filedia" et le "-" devant la commande.

Et non! Merci quand même :)

Bonjour, Je souhaite créer un lisp qui me charge une orthophoto géoréférencée. J'utilise donc la commande "_mapiinsert" de la version MAP d'AUTOCAD. Le problème est que cette commande utilisée par un lisp m'ouvre la boite de dialogue. J'ai essayé d'utiliser la fonction initdia mais sans résultat. Quelqu'un pourrait-il m'apporter une solution? Merci d'avance.

Bonjour, Je profite de cette discussion pour remercier tous les membres qui participent à ce forum et qui permettent à ceux qui reste comme moi, juste de simple lecteur, de progresser. Je tiens à remercier Fauxsuisse pour ce tutoriel qui à première vu ne m'était pas utile dans l'immédiat mais qui à trouvé un intérêt lors de ma lecture: au lieu de supprimer les wipeout, j'ai peut-être une autre solution maintenant.

Même problème avec ie.

Pour répondre, Désolé, pour ma part, vu mon niveau sur autocad, je ne peux te répondre. Existe t-il une commande plus directe? Je ne sais pas.

Patrick, Bien Tardivement, je souhaite utiliser l'info d'Alala, cependant le lien est mort. Comme ce lien est dirigé vers ton blog CAO, peux-tu me dire si j'ai une chance encore d'accéder à cette page puisque tu as eu des soucis d'hébergement du site. Merci

Patrick, Voici mon code: (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (setq LISTEBLOC nil) (setq SELECTION (ssget "X" (list (cons 0 "INSERT") (cons 8 "T-*,R-*")))) (if (/= SELECTION nil) (progn (setq NUMBERENTITE (sslength SELECTION)) (setq I 0) (setq J 1) (repeat NUMBERENTITE (setq ENTITE (ssname SELECTION I)) (setq ENTITELISTE (entget ENTITE)) (setq BLOCNAME (cdr (assoc 2 ENTITELISTE))) (setq CALQUE (cdr (assoc 8 ENTITELISTE))) (setq CALQUECARACTERISTIQUE (tblsearch "LAYER" CALQUE)) (setq COULEUR (cdr (assoc 62 CALQUECARACTERISTIQUE))) (if (not (member BLOCNAME LISTEBLOC)) (progn (setq BLOCCARACTERISTIQUE (vla-item (vla-get-blocks doc) BLOCNAME)) (vlax-for OBJET BLOCCARACTERISTIQUE (vla-put-Color OBJET COULEUR) ) (princ (strcat "\n" BLOCNAME " redéfini; Nombre: " (rtos J 2 0))) (setq J (+ 1 J)) (setq LISTEBLOC (cons BLOCNAME LISTEBLOC)) ) ) (setq I (+ 1 I)) ) ) ) (command "regen") (princ) ) Je te remercie, gràce à ton aide j'ai tout de même fini par y arriver. Par contre une dernière question, est il possible de réaliser ce lisp uniquement en autolisp sans passer par du VisualLisp et si oui comment?

Bonjour Voici mon programme: (defun C:VANNESHATCHANSI31 (/ *error* PT1 PT2 ANG1 ANG2) (defun *error* (msg) (if (/= msg "Fonction annulée") (princ (strcat "\nErreur: " msg)) ) (princ (strcat "\Recommencez")) (princ) (c:VANNESHATCHANSI31) ) (setq CALQUE (getvar "CLAYER")) (setq C 100.0) (command "-couleur" "1") (command "-calque" "ch" "T-BATI-HACH" "") (setq PT1 (getpoint "\nCliquer le 1er point :")) (setq PT2 (getpoint PT1 "\nCliquer le 2ème point :")) (setq ANG1 (angle PT1 PT2)) (setq ANG2 (- C (* ANG1 (/ 200 pi)))) (setvar "CMDECHO" 0) (command "_hatch" "ansi31" "0.25" ANG2 "" "N" PT1 PT2) (setvar "CMDECHO" 1) (while (> (getvar "CMDACTIVE") 0) (command pause) ) (réinitialisation) ) (defun réinitialisation () (setvar "CMDECHO" 0) (command "-couleur" "DuCalque") (command "-calque" "CH" CALQUE "") (setvar "CMDECHO" 1) ) Ma question: Lorsque j'utilise la touche ECHAP la commande est bien relancée à travers la fonction *error*. Pourquoi au deuxième "essai" si je m'entête à utiliser la touche Echap alors la fonction *error* n'est pas prise en compte et je sors du programme sans l'achever. Merci

Merci de vos réponses. La variable SDI permet de passer d'un autocad multidocument à un autocad avec un unique dessin ouvert. Ceci ne me convient pas. Je préfère pouvoir ouvrir plusieurs fichier dans une même session. Merci quand même. Effectivement, la variable SARTUP sous 2011 accepte uniquement 0 et 1. Cette fonctionnalité je la découvrirai lors d'un passage à une version plus récente. Moi aussi, j'ai toujours entendu dire qu'il ne fallait pas ouvrir un fichier de windows avant d'ouvrir autocad. Mais pourquoi? Merci quand même.

Si c'est comme çà tant pis. On fera avec. Je sais que sur la version 2004 ce n'était pas le cas. Merci de ta réponse.

Bonjour Ericsud, Effectivement, travaillant il y a longtemps sur Microstation, au moment ou je suis venu à travailler davantage sur Autocad je me suis posé la même question.

Mea culpa! Merci de l'info. J'ai le sentiment que justice est rendue.

Bonjour, N'est-ce-pas un problème ou même dangereux de charger un profil d'une version d'autocad à l'autre?

Bonjour, Un plan de récolement d'un ouvrage réalisé par un cabinet de géomètre-expert n'est en aucun cas un gage de qualité par rapport à un récolement réalisé par l'entreprise elle-même ou par un bureau d'étude. Par contre, à l'avenir les investigations et les plans de récolement devront être réalisé par des entreprises certifiées (les cabinets de géomètre-expert donc inscrit à l'ordre des ...) le seront automatiquement) (normes et décrets sur les DT/DICT).

Bonjour, Lorsque je veux exécuter un fichier dwg d'un explorateur windows,Autocad se lance et veux commencer la session avec un dessin vierge et ensuite ouvre le fichier exécuté. Que dois-je faire pour qu'Autocad s'ouvre directement sur le fichier exécuté. Merci d'avance.

Merci Patrick Dès que je peux m'y remettre j'applique tes consignes. Par contre, je me posais la question justement comment par un lisp on pouvait ajouter des répertoire de recherche: - Chemin de recherche de fichiers support Par exemple Et définir: - Fichier de personnalisation d'entreprise - Emplacement des icones personnalisées - Emplacement du fichier d'enregistrement automatique - Emplacement du fichier gabarit - Emplacement des fichiers de palettes d'outils - Emplacement du fichier de dessin temporaire Par exemple Tout cela pour éviter au changement de version ou à un changement de PC de devoir le faire par la commande OPTION. Sachant que lorsque l'on travaille dans une structure avec plusieurs postes ce peut être très laborieux!

Je n'y arrive vraiment pas! Je ne comprend pas la fonction "vlax-for" Et mon code bloque ici: (vlax-for BLOCCARACTERISTIQUE (vla-item (vla-get-blocks doc) BLOCNAME) (vlax-for OBJET BLOCCARACTERISTIQUE (vla-put-Color OBJET COULEUR) ) ) Je suis désolé mais j'ai vraiment du mal avec le VLISP.

Un petit peu d'aide Patrick! 1) Créer un jeu de sélection de tous les blocs présent dans le dessin. 2) Parcourir le jeu de sélection 3) Récupérer le nom du calque d'insertion du bloc 4) Récupérer la couleur du calque dans la table des calques 5) Récupérer le bloc dans la table des blocs :angry: 6) Parcourir le bloc pour changer la couleur des objets que le compose Je sèche sur le point 5. Je ne maîrise pas suffisament le Visual Lisp pour y arriver. J'ai pourtant cherché! Pourrais-tu me donner la structure à utiliser pour récupérer le bloc dans la table des blocs. (j'y arrive en lisp mais pas en visuallisp Voici mon code: efun C:VannesBlocCouleurDuCalque (/ BLOCNAME) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (setq SELECTION (ssget "X" (list (cons 0 "INSERT")))) (if (/= SELECTION nil) (progn (setq NUMBERENTITE (sslength SELECTION)) (setq I 0) (repeat NUMBERENTITE (setq ENTITE (ssname SELECTION I)) (setq ENTITELISTE (entget ENTITE)) (setq BLOCNAME (cdr (assoc 2 ENTITELISTE))) (setq CALQUE (cdr (assoc 8 ENTITELISTE))) (setq CALQUECARACTERISTIQUE (tblsearch "LAYER" CALQUE)) (setq COULEUR (cdr (assoc 62 CALQUECARACTERISTIQUE))) ;;; (setq BLOCCARACTERISTIQUE (tblsearch "BLOCK" BLOCNAME)) ;;; (setq BLOCCARACTERISTIQUE (vlax-ename->vla-object BLOCCARACTERISTIQUE)) ;;; (setq BLOCCARACTERISTIQUE (vla-item (vla-get-Blocks doc) BLOCNAME))) (vlax-for OBJET BLOCCARACTERISTIQUE (vla-put-Color OBJET COULEUR) ) (princ (strcat "\n" BLOCNAME " redéfini; Nombre: " (rtos I 2 0))) (command "regen") ) (setq I (+ 1 I)) )) )

Merci pour cette réponse si rapide. J'ai testé, cela fonctionne. Cependant, je me suis mal expliqué. Ce que je souhaite c'est changer la "définition" du bloc. Donc, avoir le bloc défini avec la couleur dans lequel il est inséré. (Le bloc est inséré une seule fois et donc dans un seul calque). Pour que l'image de l'outils dans une palette ai une couleur, il faut que le bloc soit défini avec cette couleur.

Bonjour J'aurai besoin d'une aide, je ne m'en sors pas avec mon code. Je ne suis pas vraiment à l'aise avec les commandes visualLISP. Je souhaite définir la couleur d'un bloc par rapport à la couleur du calque dans lequel il est inséré. Pourquoi: pour créer une palette d'outils d'insertion de bloc où l'icône représentative sera en couleur correspondant au calque d'insertion. J'ai commencé mon code comme ceci: (vl-load-com) (setq I 1) (vlax-for BLOC (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) (or (= (vla-get-IsLayout BLOC) :vlax-true) (= (vla-get-IsXref BLOC) :vlax-true) (setq BLOCNAME (vla-get-name BLOC)) ) (vlax-for OBJET BLOC (vla-put-Color OBJET "5") ) (if (/= BLOCNAME nil) (princ (strcat "\n" BLOCNAME " redéfini; Nombre: " (rtos I 2 0)))) (setq I (+ 1 I)) ) (command "regen") Déjà,dans un premier temps je veux forcé à la couleur (par exemple avec la couleur 5) tout en récupérant le nom du bloc. Cependant, je n'y arrive pas. Ensuite, si j'arrive à faire cela je n'ai plus qu'à récupérer le calque dans lequel le bloc est inséré et ensuite de récupérer la couleur du calque en question. Cela je compte le faire en Lisp, là où je suis plus à l'aise. Je suis preneur de tout autre solution! Merci d'avance

Mon service info. après de multiple sollicitations a accepté d'écouter mes doléances par rapport à des lenteurs sur Autocad. Ils ont tous simplement créé un nouveau profil utilisateur Windows. Miracle ca a fonctionné et plus de lenteur. J'avais moi-même préalablement pourtant réparé mon autocad sans succès. Si ca peu aider!