La Lozère

Pour suivre l'idée de Demixav, si tu n'as pas trop de type de pose, tu peux faire plusieurs valeurs de décalage.

Hello, Pour moi, tu n'as que 2 solutions. Soit comme tu dis, tu redessines, soit tu appliques la vielle méthode de tout mettre à Z=0. Une petite recherche sur le forum et tu trouveras des lisp et autres méthodes. Car en Fait, tes polylignes ont été construites en 3D dans des SCU particulier. Je te conseille la 2ième méthode, car du coup tu n'as pas que les polylignes qui sont dans SCU particulier.

Hello, Je ne vais pas répondre, mais juste une info. Tu as posté dans le groupe Autocad 2015 LT. Or les version LT ne peuvent pas faire fonctionner un lisp. Alors erreur de post ou pas.... A plus.

C'est ça.

Pour moi, tu créais un nouveaux type de plateforme "Voirie légère" que tu définis bien comme il faut au niveau structure, etc., et ensuite pour chaque plateforme, tu ré-affectes le nouveau type de structure, et relance ton calcul. Si j'ai bien compris la question.

Salut Didier, C'est un retour vacances, ou un retour boulot? En tout cas, comme on dis en Afrique, Bonne arrivée.

Du coup, je ne vois pas. C'est bizarre comme truc.

Ce que je propose, n'est pas une solution au problème, mais peut-être une alternative. Perso, je ne suis pas fan des wipeout, ça m'a toujours causé plus de problèmes qu'autre chose. Désormais, je préfère passer par une hachure en 255, 254, ou même en couleur vrai 255,255,255. Et donc, pour ton souci, il existe un lisp qui permet de transformer tout les wipeout d'un fichier en hachure (merci Patrick_35), voir ce sujet http://cadxp.com/topic/38953-wipeout/page__view__findpost__p__230975. Mais bon, tu connais déjà le sujet ;)

Super, merci. Et en plus je suis trop bête car j'ai utilisé "entget" pour faire autre chose, et je n'ai pas fais le rapprochement.....

Bon, avec la commande DEFDUCALQUE je dois m'en sortir. Merci quand même.

Bonjour (gile), Dans le même genre d'idée, je cherche à changer la couleur du texte d'un attribut pour la passer en noir? Et là, je ne vois pas...

Bonjour, Je cherche à sélectionner tout les objets OLE en espace papier. J'utilise la syntaxe, que j'utilise avec les polyligne: (setq SEL (ssget "_x" '((0 . "LWPOLYLINE")))) Là ça marche. Mais quand je le transpose aux objets OLE, avec: (setq SEL (ssget "_x" '((0 . "OLE")))) Là, ça ne marche pas..... Une idée

Cool, merci Olivier. Premier test rapide, ça marche. Pour le reste on verra mardi, maintenant WE.... Encore merci.

Bonjour, Je me bas avec la commande contour. Elle fait tout et n'importe quoi. Et surtout pas ce que j'ai besoin. C'est pourtant simple comme commande. Mais là, j'ai plusieurs types de zones accolées sur 80km de long, et je souhaite avoir le contour extérieur global de ces zones. Et là.... Soit ça ne marche pas, soit ça ne détecte pas tout, soit ça met la polyligne où il faut pas, ou les 3 à la fois.... Alors, oui, bien sur j'ai des superposition de polyligne lorsque 2 zones différentes se touchent, mais ça ne devrait pas être un problème. Toutes mes polylignes sont fermées. Voici une petite vidéo montrant le truc: https://knowledge.autodesk.com/fr/community/screencast/f42004a7-950b-41e6-a981-cd99e4c1a13a Alors si quelqu'un a une idée, je suis preneur. Merci.

Super, merci cafougnette. Ca marche nickel. Faute de mieux, dans mon script, je mettais la variable PLOTTRANSPARENCYOVERRIDE à 2 avant le tracé, et la rétablissait à 1 après le tracé. Mais ta routine va me permettre de traiter une fois pour toute mes 101 planches. Merci encore.

Bon, en fait je suis plus bête que bête.... Dans mon script, il suffit de mettre PLOTTRANSPARENCYOVERRIDE à 2 avant le tracé, et de la remettre à 1 après....

Bonjour, Suite à ce post (Mon liehttp://cadxp.com/topic/44492-modifier-valeur-transparence-du-trace/page__p__256223__fromsearch__1?do=findComment&comment=256223n) qui n'a pas rencontré un grand succès, je me tourne vers le lisp. Existe-t-il un moyen de changer la case à cocher de la transparence de tracé de la mise en page d'une présentation donnée. En effet, j'ai 101 planches contenant chacune 1 seule présentation, mais avec une mauvaise configuration de cette case. Pour cela, le top serait de modifier la mise en page, mais pour l'instant je fais choux blanc.... La commande -traceur n'y donne pas accès, et la variable PLOTTRANSPARENCYOVERRIDE gère la chose de manière global :( Une idée? Merci.

Bonjour, Bon avce l'aide de (gile) et dece ce post Mon lienhttp://cadxp.com/topic/24073-multiple-etransmit-via-ce-lisp/ je suis arrivé à mes fins avec un script sous la forme: tilemode 0 filedia 0 (command qsave) (command "-etransmit" "c" (strcat (getvar "dwgprefix") "--- Livré ---\\" (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 3)) Merci.... "ZIP") ) filedia 1 Le "--- Livré ---" me permet de mettre directement le zip dans le bon répertoire Dans la foulée, j'ai résolue également mon problème quasiment similaire d'impression automatisée avec ce script: tilemode 0 filedia 0 (command "-traceur" "non" "" "" "" (strcat (getvar "dwgprefix") "--- Livré ---\\" (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 3)) "PDF") "non" "oui" ) filedia 1

Bon, j'ai trouvé un début de réponse à ma question, mais elle ne me satisfait pas. J'ai trouvé la variable PLOTTRANSPARENCYOVERRIDE, mais du coup, cela gère la transparence d'une manière global et non en fonction de la présentation. Existe-t-il pas une variable permettant de changer la valeur de la boite de dialogue "Traceur" Car dans l'aide:

Je ne sais pas d'où ça peu venir.... Mais j'ai changer le mode de sélection: (setq SEL (ssget "_A" '((0 . "INSERT")))) Par un grosse bidouille: (setq sel (ssget)) 2189059,6588135 752202,6258236 Et là, ça marche.... Mais je ne vois pas le rapport.

Je suis comme un dingue.... Mon lisp marche très bien quand je l'utilise tout seul. Mais dès que je le rend normalement scriptable, il plante aumoment de la saisie des coordonnées de délimitation :angry: :angry: :angry: Le code: (setq SEL (ssget "_A" '((0 . "INSERT")))) (setq CARO (ssget "_x" '((0 . "covacarroyage")))) (if (and caro (>= 1 (sslength caro))) (setq liste (entget (ssname caro 0))) ) (setq COOR0 (cdr (nth 13 LISTE))) (setq LONG (cdr (nth 15 LISTE))) (setq HAUT (cdr (nth 16 LISTE))) (setq X0 (car (cdr (nth 13 LISTE)))) (setq Y0 (cadr (cdr (nth 13 LISTE)))) (setq ANGLE (cdr (nth 14 LISTE))) (setq X1 (+ X0 (* (cos ANGLE) LONG))) (setq Y1 (+ Y0 (* (sin ANGLE) LONG))) (setq COOR1 (list X1 Y1 0)) (setq X2 (- X1 (* (sin ANGLE) HAUT))) (setq Y2 (+ Y1 (* (cos ANGLE) HAUT))) (setq COOR2 (list X2 Y2 0)) (setq X3 (- X0 (* (sin ANGLE) HAUT))) (setq Y3 (+ Y0 (* (cos ANGLE) HAUT))) (setq COOR3 (list X3 Y3 0)) (command "xdelim" SEL "" "N" "P" COOR0 COOR1 COOR2 COOR3 "")

Merci Olivier, Voici donc ce à quoi j'arrive. C'est perfectible, mais pour l'instant ça me suffit, et surtout ça marche. ;;;;;; Délimiter des Xref suivant le contour d'un carroyage Covadis (defun c:del_caro (/ SEL CARO LISTE COOR0 COOR1 COOR2 COOR3 X0 X1 X2 X3 Y0 Y1 Y2 Y3 ANGLE LONG HAUT) (alert "Un seul carroyage par fichier IMPERATIF") ;;;; Sélection des xref (setq SEL (ssget)) ;;; Sélectionner le carroyage (setq CARO (ssget "_x" '((0 . "covacarroyage")))) ;;;; Intéroger le carroyage (if (and caro (>= 1 (sslength caro))) (setq liste (entget (ssname caro 0))) ) ;;;; Extraction coordonnées de départ (setq COOR0 (cdr (nth 13 LISTE))) ;;;; Extraction longueur et hauteur (setq LONG (cdr (nth 15 LISTE))) (setq HAUT (cdr (nth 16 LISTE))) (setq X0 (car (cdr (nth 13 LISTE)))) (setq Y0 (cadr (cdr (nth 13 LISTE)))) (setq ANGLE (cdr (nth 14 LISTE))) (setq X1 (+ X0 (* (cos ANGLE) LONG))) (setq Y1 (+ Y0 (* (sin ANGLE) LONG))) (setq COOR1 (list X1 Y1 0)) ;;;;CONSTRUCTION DU POINT 2 (setq X2 (- X1 (* (sin ANGLE) HAUT))) (setq Y2 (+ Y1 (* (cos ANGLE) HAUT))) (setq COOR2 (list X2 Y2 0)) ;;;;CONSTRUCTION DU POINT 3 (setq X3 (- X0 (* (sin ANGLE) HAUT))) (setq Y3 (+ Y0 (* (cos ANGLE) HAUT))) (setq COOR3 (list X3 Y3 0)) (command "xdelim" SEL "" "N" "P" COOR0 COOR1 COOR2 COOR3 "") ) Merci à vous

Bon pour extraire, j'ai trouvé comment faire avec "nth" Le reste n'est qu'histoire de construction géométrique, de listes, etc... Non pour l'instant mon gros soucis, c'est le passage de: (setq caro (ssget "_x" '((0 . "covacarroyage")))) Pour ensuite lancer un "entget" Si je fais ça, ça bug: (setq liste (entget caro))

Bon, j'avance à très petit pas... Déjà, j'ai trouver comment sélectionner uniquement mon carroyage: (setq caro (ssget "_x" '((0 . "covacarroyage")))) Ensuite, je cherche à interroger cet objet avec "entget", mais cela me retourne ça: Alors que je devrais avoir ça: Donc là dedans, j'ai bien les infos que j'ai besoin: - Les coordonnées du point d'insertion: (10 818928.0 6.30069e+006 0.0) Mais sous forme entière :angry: Encore une histoire de LUPREC.... - Le gisement: (40 . 0.698382): Mais en radians :angry: - La longueur: (40 . 794) - La hauteur: (40 . 482) Il me reste à extraire tout ça!!!!!

Hello, Je poste le message ici car je pense que mon but passe par du lisp (ou autre) bien que cela concerne un objet Covadis, alors il est un peu transverse avec d'autre groupe (Covadis, Autocad....) Voilà, Sous Covadis on peut créer un carroyage et pour cela j'utilise l'objet Carroyage. Mon fichier comporte de nombreuses Xref qui vont bien au-delà du carroyage. Du coup, pour avoir un meilleur fonctionnement de ma machine, j'ai pris l'habitude de délimiter les Xref au contour du carroyage. En tant normal, je n'ai pas de souci pour le faire. Sauf que là, j'ai 101 fichier à traiter. Et je voudrais automatiser ça pour que ce soit scriptable. Je pense qu'il y a un moyen de récupérer le contour de cet objet carroyage car quand je dresse la "liste" de cet objet, voici ce que j'obtiens: Je précise que je n'ai qu'un seul corroyage par fichier. Donc si j'arrivais à recréer un contour dans un calque particulier, le tour est joué car après en mélangeant du script et du lisp, je doit pouvoir m'en sortir pour délimiter ces xref. Si quelqu'un à une idée, je suis preneur.... Merci d'avance.