metacilla

Merci l'ami, c'est vrai que je n'avais pas pensé à cela... je voyais trop loin... :D merci bien!

Bon j'ai shunté le problème... sur mon Bloc 2 j'ai supprimé les attribut j'ai sortie les textes du bloc et inséré un champs sur les textes qui vont chercher les données dans les attributs du bloc 1. seul souci quand on déplace le bloc 2 faut pas oublié de prendre les textes! :D après si quelques à une solution pour lier les textes au bloc2 sans cassée les liens vers les attributs du bloc 1 je suis preneur. ;-)

C'est le geste qui compte! merci d'avance je vais y jeter un œil même si passer par excel ne m'enchante pas. :-( j'aurais préféré resté sous Autocad!

UP, UP, UP. personne?

Bonjour à tous, Je viens de remodeler le cartouche de ma société totalement avec des champs automatique que vont récupérer des données dans des listing créer via déplacement linaiére et jeu de consultation. mais sur la fin je suis tombé sur un NOEUD.... j'ai des 3 données Echelle Matériel utilisé sur le terrain pour le relevé et le système de planimétrie utilisé qui se retrouve dans 2 bloc différents . j'aimerais pour éviter les erreur ou oublie. que le l'attribut de l'autre bloc puisse varie automatique avec le jeu de consultation du précédent bloc(même lien). Je m'explique Cartouche 1(bloc1) et cartouche 2(bloc2), échelle 1 du cartouche 1, échelle 2 du cartouche 2. je voudrais que quand je modifie (via jeu consultation) l’échelle 1 du cartouche 1 cela modifie aussi l’échelle 2 du cartouche 2 tout cela étant dans le même fichier, et la même présentation. d'avance merci, et n'hésites pas à me poser des question si vous ne comprenez pas.

Merci beaucoup, T'es un Chef! Mais si je peux faire mon Monsieur RELOU, serait il possible que les lignes de repères respect le SCU courant et non le général? d'avance merci!!! :D

Bonjour à tous, j'ai un lisp qui fonctionne correctement mais sur lequel il faudrait faire une petite modification pour laquel je suis totalement bloqué. pour le moment le LISP me sort les coordonnées de l'élément selectionné en 2 textes (X et Y) serait-il possible, qu'il me les sorte sous une ligne de repère (sur 2 étages x y )? lisp ;; ;; Commande au clavier: ptdef-xyz_field ;; ;; Routine: pddef-xyz_field par Bruno ;; ;; Creation de 3 calques: ID-POINT, ID-XY, ID-Z ;; ;; Dessin d'un point graphique sur ID-POINT (Changer le style de Point eventuellement) ;; Ce point est dessine sur chaque sommet des objets (polyligne par exemple) ;; Champ dynamique (texte) Z relatif au point sur ID-Z ;; Champ dynamique (texte) X & Y relatif au point sur ID-XY ;; ;; Cette routine traite: polyligne, ligne, arc, cercle, bloc, ellipse, spline, ;; (defun l-coor2l-pt (lst flag / ) (if lst (cons (list (car lst) (cadr lst) (if flag (caddr lst) 0.0)) (l-coor2l-pt (if flag (cdddr lst) (cddr lst)) flag) ) ) ) (defun make_field (pt / obj) (vlax-put (vla-AddPoint Space (vlax-3d-point pt)) 'layer "Id-Point") (setq obj (entlast)) (mapcar '(lambda (lx) (apply '(lambda (ins_point value_field att_point txt_height dwg_dir name_style name_layer txt_rot / nw_obj) (setq nw_obj (vla-addMtext Space (vlax-3d-point ins_point) 0.0 (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId " (itoa (vla-get-ObjectID (vlax-ename->vla-object obj))) value_field ) ) ) (mapcar '(lambda (pr val) (vlax-put nw_obj pr val) ) (list 'AttachmentPoint 'Height 'DrawingDirection 'InsertionPoint 'StyleName 'Layer 'Rotation) (list att_point txt_height dwg_dir ins_point name_style name_layer txt_rot) ) ) lx ) ) (list (list (mapcar '+ pt (list (- (* (getvar "TEXTSIZE") (cos rtx0)) (* (* (getvar "TEXTSIZE") 0.5) (sin rtx0))) (+ (* (getvar "TEXTSIZE") (sin rtx0)) (* (* (getvar "TEXTSIZE") 0.5) (cos rtx0))) 0.0 ) ) ">%).Coordinates \\f \"%lu2%pt1%pr3%ps[X=,]\">%" 7 (getvar "TEXTSIZE") 5 "Romand-Field" "Id-XY" rtx ) (list (mapcar '+ pt (list (- (* (getvar "TEXTSIZE") (cos rtx0)) (* (- (* (getvar "TEXTSIZE") 0.5)) (sin rtx0))) (+ (* (getvar "TEXTSIZE") (sin rtx0)) (* (- (* (getvar "TEXTSIZE") 0.5)) (cos rtx0))) 0.0 ) ) ">%).Coordinates \\f \"%lu2%pt2%pr3%ps[Y=,]\">%" 1 (getvar "TEXTSIZE") 5 "Romand-Field" "Id-XY" rtx ) ) ) ) (defun c:ptdef-xyz_field ( / js htx rtx rtx0 AcDoc Space ncol nw_style dxf_cod n lremov ent ename l_pt l_pr) (princ "\nChoix d'un objet modèle pour le filtrage: ") (while (null (setq js (ssget "_+.:E:S" (list '(0 . "*LINE,POINT,ARC,CIRCLE,SPLINE,ELLIPSE,INSERT") (cons 67 (if (eq (getvar "CVPORT") 1) 1 0)) (cons 410 (if (eq (getvar "CVPORT") 1) (getvar "CTAB") "Model")) ) ) ) ) (princ "\nCe n'est pas un objet valable pour cette fonction!") ) (initget 6) (setq htx (getdist (getvar "VIEWCTR") (strcat "\nSpécifiez la hauteur du champ <" (rtos (getvar "TEXTSIZE")) ">: "))) (if htx (setvar "TEXTSIZE" htx)) (if (not (setq rtx (getorient (getvar "VIEWCTR") "\nSpécifiez l'orientation du champ <0.0>: "))) (setq rtx 0.0)) (setq rtx0 (+ (angle '(0 0 0) (getvar "UCSXDIR")) rtx)) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ncol '(96 174 2) ) (foreach n '("Id-XY" "Id-Point") (cond ((null (tblsearch "LAYER" n)) (vlax-put (vla-add (vla-get-layers AcDoc) n) 'color (car ncol)) ) ) (setq ncol (cdr ncol)) ) (cond ((null (tblsearch "STYLE" "Romand-Field")) (setq nw_style (vla-add (vla-get-textstyles AcDoc) "Romand-Field")) (mapcar '(lambda (pr val) (vlax-put nw_style pr val) ) (list 'FontFile 'Height 'ObliqueAngle 'Width 'TextGenerationFlag) (list "romand.shx" 0.0 (/ (* 15.0 pi) 180) 1.0 0.0) ) ) ) (setq dxf_cod (entget (ssname js 0))) (initget "Unique Multiple _Single Multiple") (if (eq (getkword "\nSélection filtrée [unique/Multiple]<M>: ") "Single") (setq n -1) (setq dxf_cod (entget (ssname js 0)) js (ssget "_X" (foreach m (foreach n dxf_cod (if (not (member (car n) '(0 67 410 8 6 62 48 420 70))) (setq lremov (cons (car n) lremov)))) (setq dxf_cod (vl-remove (assoc m dxf_cod) dxf_cod)) ) ) n -1 ) ) (repeat (sslength js) (setq ename (vlax-ename->vla-object (ssname js (setq n (1+ n)))) l_pt nil) (setq l_pr (list 'StartPoint 'EndPoint 'Center 'InsertionPoint 'Coordinates 'FitPoints)) (foreach n l_pr (if (vlax-property-available-p ename n) (setq l_pt (if (eq n 'Coordinates) (progn (append (if (eq (vla-get-ObjectName ename) "AcDbPolyline") (l-coor2l-pt (vlax-get ename n) nil) (l-coor2l-pt (vlax-get ename n) T) ) l_pt ) ) (cons (vlax-get ename n) l_pt) ) ) ) ) (mapcar 'make_field l_pt) ) (prin1) ) d'avance un grand merci!

Merci beaucoup, Je regarde ca dès la première heure lundi et vous tiens au courant. Encore MERCI

Bonjour à tous, Je viens vers vous aujourd'hui pour un souci que je ne comprend pas... j’espère que je vais réussir à vous l'expliquer.... on a reçu un fichier d'une société l'espace objet parait vide, je dis parait car quand nous allons en espace papier il y a 4 ou 5 fenêtre que j'ai été obligé de réactiver grâce au lisp suivant: ((lambda () (vl-catch-all-apply '(lambda () (setq vp (vla-get-ActivePViewport (vla-get-ActiveDocument (vlax-get-acad-object)) ) ) ) ) (and vp (vla-put-Visible vp :vlax-true)) ) ) une fois les fenêtres réactivées on peut sélectionner le ou les bloc à l'intérieur, qui sont donc en espace Objet ... mais invisible dans l'onglet Objet.... alors oui tous les calques sont rapprochées, activés, dégelés, pas en blanc ou noir..... si je lui demande d'éditer le bloc il ne se passe rien, il porte un nom bizzare *I6 qui n'existe pas dans les blocs du dessin par contre d'autres bloc y sont nommé mais je ne les trouvent pas dans le dessin et ils ne sont pas purgeable. le bloc n'est pas modifiable échelle position ou autres, il est comme gravé dans le marbre....... c'est à ne rien y comprendre.... Le fichier pèse 30Mo alors qu'il est quasiment vide... oui je l'ai purgé et controlé... pour ceux qui aurez le temps, ci-dessous le lien de téléchargement du fichier problématique. https://we.tl/MiVFYqXf2r j'espère que vous m'aurez compris.... D'avance merci.

Bonjour et merci pour votre aide, j'ai testé ACCORECONSOLE.EXE malheureusement j'ai pas réussi à m'en servir... bon mais dans les bonne nouvelle c'est bon ca marche!! :D j'ai donc fini par utilisé SuperAutoScript, ((lambda ( / js n lay l_coor tmp drawing f_open) (setq js (ssget "_X" '((0 . "LWPOLYLINE") (8 . "_JCD_Rsx_ERDF") (410 . "Model")))) (cond (js (repeat (setq n (sslength js)) (setq lay (vlax-get (setq obj (vlax-ename->vla-object (ssname js (setq n (1- n))))) 'Layer) l_coor (vlax-get obj 'Coordinates) tmp "C:/Users/XXX/Documents/XXX/tmp.csv" drawing (getvar "DWGNAME") f_open (open tmp "a") ) (write-line (strcat drawing ";" lay ";" (apply 'strcat (mapcar '(lambda (x) (strcat (rtos x 2 3) ";")) l_coor))) f_open) (close f_open) ) ) ) )) pour mes 1200 Fichiers ca à pris environ 30 minutes, sur des fichiers qui sont léger.... 1Mo de moyenne tous purgé contrôlé... Encore merci à tous. Thomas

Malheureusement ca ne change rien :-(

Donc je revient par dessusmon précédent mail, j'ai reussi sur 1 fichier via SAS il me manque la"commande" nom du fichier ouvert. ((lambda ( / js n lay l_coor tmp drawing f_open) (setq js (ssget "_X" '((0 . "LWPOLYLINE") (8 . "_JCD_Rsx_ERDF") (410 . "Model")))) (cond (js (repeat (setq n (sslength js)) (setq lay (vlax-get (setq obj (vlax-ename->vla-object (ssname js (setq n (1- n))))) 'Layer) l_coor (vlax-get obj 'Coordinates) tmp "C:/Users/XXX/Documents/XXX/tmp.csv" drawing "NOM DU FICHIER OUVERT" f_open (open tmp "a") ) (write-line (strcat drawing ";" lay ";" (apply 'strcat (mapcar '(lambda (x) (strcat (rtos x 2 3) ";")) l_coor))) f_open) (close f_open) ) ) ) ))

dans les lignes de commande j'ai ca. Commande: Commande: Commande: SCRIPT Commande: _.open Commande: rien d'autre pourtant le fichier se ferme bien.. serait-il possible d'avoir un "Générique" à insérer dans super auto script? ((lambda ( / js n lay l_coor tmp drawing f_open) (setq js (ssget "_X" '((0 . "LWPOLYLINE") (8 . "_JCD_Rsx_ERDF") (410 . "Model")))) (cond (js (repeat (setq n (sslength js)) (setq lay (vlax-get (setq obj (vlax-ename->vla-object (ssname js (setq n (1- n))))) 'Layer) l_coor (vlax-get obj 'Coordinates) tmp "C:/Users/XXXX/Documents/XXX/tmp.csv" drawing "NOM DU FICHIER OUVERT" f_open (open tmp "a") ) (write-line (strcat drawing ";" lay ";" (apply 'strcat (mapcar '(lambda (x) (strcat (rtos x 2 3) ";")) l_coor))) f_open) (close f_open) ) ) ) )) _.close _no Il est surement truffé d'erreur... mais c'est une idée, est ce possible?

Merci Bonus!!:D tu me vends du rèves. Malheureusement ca aurait été trop beau que ca marche du premier coup.... alors dans l'ordre la création du script à l'air de bien se passer , je lance le script il ouvre le premier fichier, il me créé le fichier excel les coordonnées sont bonne sur une ligne tout va bien, il referme le fichier autocad, lance la commande _.open et là rien ne se passe.... il ne suit pas, n'ouvre pas le fichier suivant... pour tant le script à l'air bon... ci-dessous un extrait du script généré: _.open "C:\Users\XXX\Documents\XXX\XXX.XX.00001.dwg" ((lambda ( / js n lay l_coor tmp drawing f_open) (setq js (ssget "_X" '((0 . "LWPOLYLINE") (8 . "_JCD_Rsx_ERDF") (410 . "Model")))) (cond (js (repeat (setq n (sslength js)) (setq lay (vlax-get (setq obj (vlax-ename->vla-object (ssname js (setq n (1- n))))) 'Layer) l_coor (vlax-get obj 'Coordinates) tmp "C:/Users/XXXX/Documents/XXX/tmp.csv" drawing "XXX.XX.00001.dwg" f_open (open tmp "a") ) (write-line (strcat drawing ";" lay ";" (apply 'strcat (mapcar '(lambda (x) (strcat (rtos x 2 3) ";")) l_coor))) f_open) (close f_open) ) ) ) )) _.close _yes _.open "C:\Users\XXX\Documents\XXX\XXX.XX.00002.dwg" ((lambda ( / js n lay l_coor tmp drawing f_open) (setq js (ssget "_X" '((0 . "LWPOLYLINE") (8 . "_JCD_Rsx_ERDF") (410 . "Model")))) (cond (js (repeat (setq n (sslength js)) (setq lay (vlax-get (setq obj (vlax-ename->vla-object (ssname js (setq n (1- n))))) 'Layer) l_coor (vlax-get obj 'Coordinates) tmp "C:/Users/XXX/Documents/XXX/tmp.csv" drawing "XXX.XX.00002.dwg" f_open (open tmp "a") ) (write-line (strcat drawing ";" lay ";" (apply 'strcat (mapcar '(lambda (x) (strcat (rtos x 2 3) ";")) l_coor))) f_open) (close f_open) ) ) ) )) _.close _yes. Thomas

Effectivement c'est ca!! super Auto Script! merci Du coup dans le meilleur des mondes, 1 ligne par fichier, 1er colonne nom du fichier, 2eime X premier point, 3eime Y 1 er point, 4eime X 2eime point etc etc... y a surement plein de polyligne, mais normalement sauf erreur de ma part, 1 seul dans le fameux calque _JCD_Rsx_ERDF

Alors si on a le choix, le top se serait que tout se trouve dans un seul et même fichier!!:D avec une ligne par fichier bien sure. pour le reste j'ai pas bien compris le déposer un fichier tu veux (je me permet de te tutoyer....) que je te fournisse un de me fichier type? sinon le calque s'appel: _JCD_Rsx_ERDF Sinon dans mes souvenirs, il existait un programme qui fonctionnait avec ou "sous" Autocad dans lequel on pouvait "insérer" des lisp et lui dire de le faire fonctionner sur tel ou tel fichier Autocad sans avoir besoin des les ouvrir!? ca dit qqch à qqun? mille merci d'avance Thomas

j'en ai bien trouvé quelques un, mais pas qui correspondent à mon besoin... j'ai plusieurs centaines de fichier à scanner via scrit + lisp le script m'ouvrira les fichiers que je lui demanderais, le lisp lui devra m'extraire les coordonnées de début , noeuds et fin de LA polyligne qui est dans tel claque (le même pour chaque dessin) de chacun des fichiers. sachant bien sure que les fichier sont tous sur une présentation, et que la fameuse polyligne elle se trouve en Objet!! :D Sinon ca serait trop simple!! :D Thomas

Bonjour à tous, j'ai pas mal cherché sur la toile , mais malheureusement je n'ai pas trouvé mon bonheur.... qqun aurait-il sous la main un lisp avec lequel on pourrait extraire les coordonnées de départ, fin et noeud d'une polyligne tout en précisant son calque? D'avance merci Thomas

Bonjour, Merci Christian pour ta rapidité, j'ai trouvé pas mal de de Lisp pouvant plus ou moins correspondre à ma recherche.. le problème est le plus ou moins.... pour les bloc s je vais me débrouiller avec _Dataext car j'ai plusieurs bloc dans plusieurs calques différents et avec plusieurs dénominations... donc ca va être complexe avec un lisp. Par contre qqun aurait-il sous la main un lisp avec lequel on pourrait extraire les coordonnées de départ, fin et noeud d'une polyligne dans un calque précis? D'avance merci Thomas

Bonjour à tous, j'ai quelques centaines de fichiers a traiter, pour lesquels je doit extraire les coordonnées d'un bloc et d'une polyligne. _Dataex.. ne me convient pas, car il ne me fournit pas les coordonnées des polylignes. Un lisp sauf erreur de ma part ne convient pas non plus car il faudrait ouvrir tous les fichiers. Du coup quelqu’un aurez une idée pour me faire gagner du temps? D'avance merci Thomas

Bonjour Rebcao, Merci pour les conseil, j'en prend note. Par contre pour se qui est de la commande _Save elle me demande si je veux ou non remplacer le fichier existant... Mais j'ai du coup réussi tout seul comme un grand... :D j'avais oublié au début le Filedia 0 et effectivement il fallait aussi supprimer le O de _Save qui en fildia 0 ne demande pas de complément d'information. Merci beaucoup pour ton temps Rebcao. Thomas

Salut à tous, J'ai une question sur un script que j'ai créer il y a quelques temps, et qui soudainement ne marche plus... c'est un script que je lance automatiquement à la fin de chaque utilisation de fichier via AutoHotkey Script. malheureusement depuis quelques temps il bloque au moment de l'enregistrement... et je ne trouve pas l'erreur sachant qu'il marchait avant et que du jour au lendemain il ne marche plus... -PURGER to ;Entrez le(s) nom(s) à purger <*>: ;Vérifier chaque nom à purger ? [Oui/Non] <O>: n -PURGER r ;Entrez le(s) nom(s) à purger <*>: ;Vérifier chaque nom à purger ? [Oui/Non] <O>: n controle n _save o filedia 1 _close Commande: _save Enregistrer le dessin sous <H:\Chantier_Nantes_MU\4_Plans\Plans ville\Plans diagnostics\NAN.AB.00053.dwg>: Commande: o Commande inconnue "O". Appuyez sur F1 pour obtenir de l'aide. Il ne prend pas en compte mon O pour oui enregistrer par dessus... Bien Amicalement Thomas

Merci beaucoup Gile, et les autres aussi, ca fonctionne parfaitement!! :D du coup je commence à y voir plus claire! :D Step by step I level Up thanks Thomas

Bonjour et merci Olivier, Malheureusement ca ne marche pas meme si je sens bien qu'on y est presque. :D vu que c'est ma première utilisation de SAS j’espère ne pas avoir fait d'erreur. Je vais tenter d'expliquer se que j'ai fais et compris, pour etre sure. (if (findfile (setq sFileName (strcat "C:/mes données à fusionner/" (getvar "DWGNAME")))) (command "_-insert" (strcat "*" sFileName) "0,0" "1" "1" "") ) si il trouve dans "C:/mes données à fusionner/" le nom du fichier ajouté dans SAS, il insert le fichier situé dans "C:/mes données à fusionner/". Malheureusement chez moi ca ne marche pas... et vue que je ne suis pas un pro de tout ca, je n'arrive même pas à voir si il y a une erreur à la base.... DWGNAME il récupère automatiquement le nom du DWG ? ci-dessous le résultat sous autocad. Commande: (if (findfile (setq sFileName (strcat "H:\Chantier**\4_Plans\Plans globaux\GAZ et Nom\" (getvar "DWGNAME")))) (((("_> (command "_-insert" (strcat "H:\Chantier**\4_Plans\Plans globaux\GAZ et Nom\" sFileName) "0,0" "1" "1" "") (((("_> ) (((("_> (((("_> _qsave (((("_> _close (((("_> _open (((("_> "H:/Chantier**/4_Plans/Plans globaux/Plan Topographique/41-50-04-B.dwg" (((("_> (if (findfile (setq sFileName (strcat "H:\Chantier**\4_Plans\Plans globaux\GAZ et Nom\" (getvar "DWGNAME")))) (((("_> (command "_-insert" (strcat "H:\Chantier**\4_Plans\Plans globaux\GAZ et Nom\" sFileName) "0,0" "1" "1" "") (((("_> ) (((("_> (((("_> _qsave (((("_> _close Du coup il m'ouvre le premier et après m'ajoute tout en texte.... quelqun aurait-il une idée? d'avance un grand merci. Thomas

Si j'ai bien compris l'utilisation de SAS, malheureusement il ne pourra pas me convenir... Et pour le coup je ne m'y connais pas assez pour créer un lisp ou macro moi même... :-(