DenisHen

Bonjour à tous, J'ai un soucis avec des fichiers DWG qu'un sous-traitant topo me livre. Il est sous CIVIL et je suis sous MAP 2014... Je lui ai fourni les blocs à utiliser pour ses levés. Mon problème est que tous les blocs qu'il me livre sont renomé "*U..." et inclus mon vrai bloc qui n'a pas la même taille. Et parfois, les blocs ne sont même pas insérés, ils manquent. Un décompos résoudrait mon problème, mais tous les blocs ne sont pas concernés, et j'aurais toujours une disparitée entre la tailles des blocs d'origines et les décomposés... Y-a-t'il une commande ou une méthode particulière à utiliser pour passer de CIVIL à MAP ? Denis...

Salut, x_all : je n'avais pas envie de créer un bloc juste pour celà, mais en y réfléchissant un peu, c'est peut-être plus pratique, notament pour la gestion du point d'insertion, si je le décale avec une petite flèche de raccordement, et la gestion de la taille... (gile) : merci, ça fonctionne parfaitement... Merci à tous Denis...

Salut, J'ai essayé de faire un script tel qu'expliqué dans le forum, mais je me but sur un problème : le retour chariot... J'ai dans mon script : _mtext 605022.67,130707.18 605022.67,130707.18 X=605022.67/nY=130707.18/nZ=352.15Mais les retour ne fonctionnent pas... Et je n'ai pas d'idée... Denis...

Merci Olivier, je teste çà dès demain... Denis...

Salut, Quand je fais mes eTransmit, je lie toujours mes XRefs (Config de transfert, Actions, Lier les références externes/Insérer)... Ca évite ce problème, ça fait un gros fichier, mais il n'y a qu'un DWG dans le ZIP... Denis...

Re-Salut à tous, Merci encore, le LiSP de Patrick_35 fonctionne merveilleusement bien (AutoCAD MAP 3D 64 bits, Windows 7 64 bits aussi, forcément). Denis...

Merci à tous, Je teste et je reviens... Denis...

Salut, Pour le chemin d'accès, je rentre en mode console DOS (Démarrer\Exécuter : "cmd") puis, à l'aide des commandes DOS "cd.." et cd répertoire je navigue jusqu'à mon fichier. Ensuite, je récupère le chemin complet dans DOS puis je copie/colle là ou j'en ai besoin... C'est barbare mais ça fonctionnait plutôt bien... Denis

Salut, Merci à vous deux, le lien de Jalna est parfait... Pour le LiSP, je cherche encore, car j'ai des centaines de points à faire et je me vois mal les traiter un par un... Denis...

Salut, J'ai eu les mêmes problèmes dans VB6 avec des espaces dans les chemins d'accès. Dans ce cas, je récupère le chemin depuis la console MSDOS qui me répond : "C:\PROGRA~1\MICROS~1~\...." et je double les "\" ensuite... En espérant d'avoir aidé... Denis...

Bonjour à tous, et merci de cet intérêt pour mon problème, Je suis pressé par le temps, car il faut finir plein de dossier avant les vacances... Les clients ne vont pas me faire croire qu'ils vont bosser entre le 25 et le 31 ! ! Pour (gile) Pour trouver d'où vient l'erreur : - dans l'éditeur Visual LISP (tu codes dans l'éditeur, j'espère) menu Débogage > cocher "Arrêt sur l'erreur" - relancer le code pour provoquer à nouveau l'erreur - faire Ctrl + F9 pour mettre en surbrillance l'expression qui a provoqué l'erreur - interroger les variables pour déterminer là où ça cloche Visual LISP me répond dans une fenêtre : ":CALLBACK-ENTRY", je pense qu'il y a une perte de donnée entre XYZ3D et getWcsPolylineVertices Encore merci à vous tous, Denis...

Bonjours à tous, Je n'ai rien trouvé sur le sujet, alors je le pose ici. J'ai un client qui veux que je lui cote en XYZ des points en 3D (j'en ai des centaines). Le plus simple serait un texte multiligne, mais je ne sais absolument pas par quoi commencer... Si quelqu'un a une idée ou a déjà développé un truc, je suis preneur... Cordialement, Denis...

Salut, Merci à vous pour vous pencher sur mon problème. J'ai donc écris celà : (vl-load-com) (defun c:XYZ3D (/) (setvar "CMDECHO" 0) (setq ent (car (entsel "\nSelectionnez la polyligne 3D : "))) (getWcsPolylineVertices ent) (while (not (equal (car lst) nil)) (setq texte (strcat "X=" (rtos (caar lst) 2 2) "\nY=" (rtos (cadar lst) 2 2) "\nZ=" (rtos (caddr lst) 2 2) ) ;_ Fin:strcat ) ;_ Fin:setq (princ texte) (command "_-mtext" "_none" (car lst) "j" "bg" "_r" rot "_w" "0.00" texte "" ) ;_ Fin:command (setq lst (cdr lst)) ) ;_ Fin:while ) ;_ Fin:defun (defun getWcsPolylineVertices (ent / elst lst) ;;; de (gile) (setq elst (entget ent)) (if (or (= (cdr (assoc 0 elst)) "LWPOLYLINE") (and (= (cdr (assoc 0 elst)) "POLYLINE") (zerop (logand (+ 16 32 64) (cdr (assoc 70 elst)))) ) ;_ Fin de and ) ;_ Fin de or (progn (setq n (if (= (logand 1 (cdr (assoc 70 elst))) 1) (fix (vlax-curve-getEndParam ent)) (1+ (fix (vlax-curve-getEndParam ent))) ) ;_ Fin de if ) ;_ Fin de setq (while (< 0 n) (setq lst (cons (vlax-curve-getpointAtParam ent (setq n (1- n))) lst ) ;_ Fin de cons ) ;_ Fin de setq ) ;_ Fin de while ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de defun Mais AutoCAD me répond : Ca fait des années que je n'ai pas touché à du LiSP, et ne suis pas assez callé pour voir où sont mes erreurs...

Merci Olivier pour tes réponses, mais je ne vois pas, en LiSP, comment faire la différence entre une LWPOLYLIGNE (en 2D) et une POLYLIGNE (qui elle peut être en 3D)... Si quelqu'un d'autre a une réponse, je suis preneur... Denis.

Bonjour Olivier, J'ai bien modifier mon LiSP : (defun c:XYZpoly(/ ename) (and (setq ename (car (entsel "\nSelectionnez la polyligne: "))) (mapcar '(lambda(x) (entmake (list (cons 0 "MTEXT") (cons 7 (getvar "textstyle")) (cons 100 "AcDbEntity") (cons 100 "AcDbMText") (cons 10 (cdr x)) (cons 1 (strcat "X=" (rtos (cadr x) 2 2) "\n" "Y=" (rtos (caddr x) 2 2) "\n" "Z=" (rtos (cdddr x) 2 2) ) ) (cons 71 7) (cons 72 5) ) ) ) (vl-remove-if-not '(lambda(x)(eq (car x) 10)) (entget ename)) ) ) ) Mais AutoCAD me répond : J'ai pourtant bien une "POLYLIGNE" en 3D... Merci, Denis...

Salutations, J'ai besoin de la même chose mais avec le Z en plus car j'ai des Polylignes 3D... Je n'y arrive pas avec le CADDR pour indiquer le Z (defun c:XYZpoly(/ ename) (and (setq ename (car (entsel "\nSelectionnez la polyligne 3D: "))) (mapcar '(lambda(x) (entmake (list (cons 0 "MTEXT") (cons 7 (getvar "textstyle")) (cons 100 "AcDbEntity") (cons 100 "AcDbMText") (cons 10 (cdr x)) (cons 1 (strcat "X=" (rtos (cadr x) 2 2) "\n" "Y=" (rtos (caddr x) 2 2) "\n" "Z=" (rtos (cadddr x) 2 2) ) ) (cons 71 7) (cons 72 5) ) ) ) (vl-remove-if-not '(lambda(x)(eq (car x) 10)) (entget ename)) ) ) ) D'avance merci, Denis...

Salut, Je pense que (gile) y a déjà pensé ici...http://pagesperso-orange.fr/gile/LISP/Dialog.lsp Mais c'est dans un LiSP, pas un DCL. Denis...

Salut, Dans les Options d'AutoCAD (je ne sais pas si ce sont les mêmes dans Civil), dans l'onglet "Ouvrir et enregistrer" tu peux lui dire d'enregistrer sous une version antérieur TOUS tes fichier ouvert avec AutoCAD... A voir si sur Civil c'est la même chose... Denis...

Bravo...

Salut, Les "^C^C" devant "_explode" arrêtent toutes actions et déselectionnent toutes entités, il me semble... Enlève-les et je pense que ça fonctionnera... Denis...

Salutations... Bienvenu au club, j'ai la même chose... J'ai dis à mon rhumatologue que j'avais mal à l'épaule et deux semaine après un scanner, il m'a sorti ça... "C'est le click de la souris, ça passe par le poigner, ça longe le coude et ça arrive à l'épaule comme-ça..." Denis...

Salut, Et merci, Denis...

Salut, Rien à voir avec les blocs non nommés (*non du bloc...) ? Car j'ai un fichier avec des milliers de bloc dont le nom commence par *...

J'ai, à l'époque, fouillé aussi mais en vain...

Re-Salut, Je t'ai répondu sur l'autre post. Denis...