lecrabe

Bonsoir Eh oui, peu de gens connaissent le fameux CTRL R :o qui d'ailleurs dans le temps était un CTRL V V pour Viewport (récupéré pour le copier/coller depuis la version R13, me semble t-il) Le Decapode

Bonsoir J'ai un "gros" doute et malheureusement je n'ai pas de MAP 3D 2005 ou 2006 sous la main ! Mais je suis relativement persuadé (A tort peut être) que les fonctionnalités CIVIL de MAP 3D sont capables de générer des courbes de niveau depuis un fichier de point XYZ. A vérifier ? Le Decapode "interloqué"

Bonsoir A mon avis il faut utiliser des bons vieux XDATA !!! Cela permet de stocker jusqu'à 16 Ko d'Infos (Entiers, Réels, Textes, etc) sur n'importe quel objet graphique AutoCAD. Confère les routines XDATA.lsp & XDLIST.lsp du sous-catalogue . Donc un soupçon de Lisp sera le bienvenu ... :) (et bien sur un AutoCAD version "pleine") Le Decapode

Bonjour Le Decapode salue bien Le Ribbit - Soit par les fonctions CIVIL de MAP 3D 2005/2006 - Soit par un fichier Script qui insère des points ou blocs en X/Y/Z (Donc possible même sur un AutoCAD LT) Le Decapode [Edité le 9/2/2006 par lecrabe]

Bonjour Oui Oui, une routine en Lisp qui inverserait le sens d'une PLINE ou LWPLINE ou 3DPOLY ça serait super !!! :) :D :cool: Pas si simple, car il peut y avoir qq problèmes de SCU/SCG ... :exclam: Le Decapode "inversant"

Bonsoir (gile) & Bonuscad On est toujours le meilleur à un instant T :) :D :cool: Mais combien va durer cet instant T , c'est toute la question ! ;) Je vous admire (avec bien d'autres Lispeurs / V-Lispeurs / VBAistes / C++ARXistes de ce forum) car je ne suis pas du tout (ou du moins je ne suis PLUS) développeur / programmeur :casstet: Le Decapode (humble testeur)

Bonjour Il me semble que cette variable OFFSETGAPTYPE = 0 / 1 / 2 existe depuis AutoCAD 2002. Autre problème que l'on peut voir de temps en temps, si la commande de DECALAGE ne fonctionne pas alors qu'elle devrait ! :o Essayer de déplacer la/les polylignes près du ZERO,ZERO pour faire le décalage ;) Ce problème arrive souvent en cartographie avec les coordonnées Lambert ! :mad: Le Decapode "décalant"

Bonjour (gile) Y a pas à dire, le GIlou c le meilleur !!! :) :D :cool: Le Decapode "admiratif"

ReBonjour OK Merci (gile), j'ai testé mais j'ai un petit problème: J'ai dessiné une suite d'éléments jointifs qui sont (dans l'ordre): lignes 2D, polyligne 3D (qui finit à Z=-50), polyligne 2D (qui commence à Z=-50) Ta routine fonctionne en sélectionnant la 1ere ligne, puis tous les éléments suivants ... Mais elle ne joint pas la dernière Polyligne 2D à TA 3DPOLY générée par ta routine ! :o BIen entendu la Polyligne 2D est accroché à la fin de la polyligne 3D. Porque ??? Le Decapode

Bonjour Tu ouvres ton DWG original de cadastre et tu fais un WBLOC (Commande W ou WBLOC au clavier) A la question "Choix des objets:", tu tapes au clavier CP Entree/Return (Capture Polygone) Et ainsi tu fais une sélection par un polygone capturant "complexe" ... Tu laisses l'origine en ZERO,ZERO et tu donnes un "joli" nom à ton nouveau DWG. Et c'est celui là que tu utiliseras plus tard pour travailler et ce éventuellement en XREF ! Le Decapode "au millième" :) :D :cool: [Edité le 3/2/2006 par lecrabe]

ReBonjour (gile) SVP peux tu m'envoyer le BON Lisp sur mon adresse courriel ? cadxp@hotmail.fr Merci d'avance, Le Decapode

hello (gile) Apres avoir copié/collé puis chargé ton Lisp, j'ai l'erreur suivante: ; erreur: cdrs supplémentaire dans la paire pointée en entrée Aurais je loupé le Copier/Coller ??? Merci d'avance, Le Decapode STOP STOP, il faut que je corrige les ESPACEs et Sorry, sorry :P [Edité le 3/2/2006 par lecrabe]

Bonjour En Lisp je ferais un truc du genre: (RTOS VAR1 2 2) ---> 2 décimales (RTOS VAR1 2 0 ) --> 0 décimale Si VAR1 est la variable réelle avec N décimales. mais en VLA, je ne sais pas ... Le Decapode "dépité"

Bonjour Eh oui pour éditer les MTEXTs, il faut zoomer d'abord sur le MTEXT et seulement après éditer le MTEXT ... :o Comme le dit si bien notre Choucroute Man, si la variable DTEXTED = 1 pouvait AUSSI influer sur les MTEXTs, ce serait sympa ! :P Le Decapode

Bonjour Excellent Oh Grand Maître Patrick ! :) J'utilise "souvent" les champs dynamiques pour extraire les propriétés du fichier/dessin, longueur/surface de polylignes, index (contenu) de TEXT/MTEXT, coordonnées X/Y d'insertion d'un bloc/point (Cartographie), etc Mais je suis une truffe car je n'avais pas pensé à les utiliser dans des attributs de bloc/symbole d'un cartouche !!! :o Le Decapode "dynamiquement amélioré"

Bonsoir J'ai déja vu l'insertion d'un bloc "standard" (210x297 Unités graphiques = 210x297 mm) de cartouche en 0,0 sur les présentations A0/A1. Ce bloc contient des TEXT/MTEXT "plus ou moins" standards à différents endroits. Puis avec un REFEDIT tu modifies les champs communs (TEXT/MTEXT) qui seront donc à jour dans toutes les présentations ... Je ne suis pas trop fanatique des attributs pour ce genre de manip, mais BON ... Tu complètes "dans les cases vides" avec des TEXT/MTEXT simples les infos spécifiques à chaque présentation. Mais je ne suis pas sur d'avoir tout compris ! :casstet: Le Decapode

Bonsoir Eh oui il est plus difficile de trouver un Crack pour Covadis que pour AutoCAD !!! C'est ausii signe que cet applicatif COVADIS de GEOMEDIA rencontre un succès certain ! Le Decapode

Bonsoir Tu peux faire un PEDIT sur une polyligne 3D mais les options sont limitées: - Ouvrir/Clore - Modif-sommet - Spline - Retrouver De plus SEUL le type de ligne CONTINUOUS est autorisé en 3D. Le Decapode "peditant"

Bonsoir Désolé mais à mon avis il n'y a d'autre info dispo ... A part peut être des infos obsolètes dans des bouquins ! Les meilleurs exemples c en générant de multiples DXFs depuis de multiples versions d'AutoCAD et ce à partir de différentes entités et donc de dessins plus ou moins compliqués ... :o Le Decapode

Bonsoir Pour expliciter la réponse de Patrick_35: (Exemple de fichier Batch qui envoie le fichier PLT vers une imprimante du réseau) rem *** Envoi de "EAGLE.RTL" vers LPT3: sur \\serv-12\hp750c *** net use lpt3: \\serv-12\hp750c copy eagle.rtl lpt3: /b pause exit (L'instruction PAUSE est facultative) Le Decapode

Bonsoir Autre solution avec ZERO programmation mais qui nécessite qq sous: Autodesk MAP qui est capable d'étiqueter (lier) un texte entouré par une polyligne close en recopiant le texte en données d'objets MAP sur la polyligne. idem avec un bloc contenant un ou plusieurs attributs. Après on peut générer un fichier texte (C moins "rapide" que ce qui a été proposé) par une requête de type "Rapport" contenant par exemple: le/les textes liés à la polyligne, sa surface, son périmètre, son calque d'appartenance, etc Il est facile de remonter le fichier texte dans Excel (Données, Importer). Le Decapode "mappant"

ReBonsoir Attention la question sur la largeur de la tranche ne modifie pas le résultat sur le total des périmètres ! :casstet: Le Decapode

Bonsoir Voici une routine que j'avais proposé (il y a longtemps): Elle donne la surface et le périmètre et traite les éléments suivants: Cercle, Polyligne, Rectangle, Anneau, Polygone, Ellipse, Spline. :D Il suffit de modifier le debut de la routine suivant tes besoins. La question sur la "largeur de la tranche" peut etre utilisée pour passer un facteur du type: 0.0001 (pour par exemple convertir des cm2 en m2 !) :) ;;; AIRE_OBJ.LSP for AUTOCAD R13, R14, R15 (OUPS ! 2000) - 04/2000 ;;; ;;; THE AUTHOR PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. ;;; THE AUTHOR SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF ;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. ;;; THE AUTHOR DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM ;;; WILL BE UNINTERRUPTED OR ERROR FREE. ;;;___________________________________________________________________ ;;; ;;; Modification par Lecrabe en ZVOL avec la question de la TRANCHE ;;; Et ajout des entites suivantes: +SPLINE, +ELLIPSE (defun c:zvol () (setvar "cmdecho" 0) (setq ctent 0 ob_peri 0 ob_area 0 ob_area2 0 vol_area 0 h_tranche 1 ) (setq h_tranche (getreal "Largeur de la tranche: " )) (setq ent (ssget '((-4 . " (0 . "SPLINE") (0 . "ELLIPSE") (0 . "CIRCLE") (0 . "LWPOLYLINE") (0 . "POLYLINE") (-4 . "OR>" ) ) ) ) (if ent (progn (while ( (setq selent (ssname ent ctent)) (command "_.area" "_ob" selent ) (setq ob_peri (+ ob_peri (getvar "perimeter"))) (setq ob_area (+ ob_area (getvar "area"))) (setq ob_area2 (getvar "area")) (setq ob_area2 (* h_tranche ob_area2)) (setq vol_area (+ vol_area ob_area2)) (setq ctent (1+ ctent)) ) ) (prompt "\n*** Rien de Valable ") ) (setvar "cmdecho" 1) (princ "\nCercle, Polyligne, Rectangle, Anneau, Polygone, Ellipse, Spline") (princ "\nTOTAL Surface: ") (princ ob_area) (princ " - TOTAL Volume : ") (princ vol_area) (princ "\nTOTAL Perimetre: ") (princ ob_peri) (princ " - TOTAL Objet: ") (princ ctent) (princ "\n") ;; **** Eventuellement commentez les lignes suivantes *** ;; (alert "Traitement: Cercle, Polyligne, Rectangle, Anneau, Polygone, Ellipse, Spline") (princ) ) (princ) (princ "\n==> ZVOL ") (princ) Le Decapode "surfant"

Bonsoir C fou le nombre de gens qui connaissent pas l'option PArametres de l'icone du Pinceau !!! :o Alors qu'elle existe (Si je me souviens bien) depuis AutoCAD R13/R14 ! :exclam: Le Decapode "pinçant"

Bonsoir Si c acceptable de le redescendre en R12 DXF, le probleme sera réglé INSTANTANEMENT !!! Perte de la 3D volumique, des présentations, styles de cotation/tableau, liens SGBD, etc ... Sinon il faudrait un logiciel du genre SuperPurge www.manusoft.com Le Decapode