ACAD666

Silence assourdissant.

Bon sang mais c'est bien sûr! ça fait 2 jours que je galère! ça faisait un bail que je n'avais pas utilisé Mensura (en fait la dernière fois c'était avant Genius) et je n'avais jamais remarqué cette subtilité. Merci beaucoup!

OUIN! On ne peut pas dessiner de pline 3D dans Mensura? La commande est cachée où?

Waouh, c'est le profil de Super-Projeteur (TADAAM!)

J'ai un truc super mais un peu bourrin qui donne un listing csv par calque des quantités, surfaces cumulées, longueurs cumulées des objets d'un dessin. Je l'ai posté je ne sais où, je ne sais quand sur cadxp, et je m'étais fait enguirlander (gentiment)parce que j'avais balancé le code brut (sans le papier derrière) et que le code n'était pas rédigé dans les règles de l'art (sur la forme, parce que sinon ça marche super bien). Tant pis, je rebalance le truc tel que: ; DEFINITION FONCTIONS (defun mtrlines () (setq lbeg (cdr (assoc '10 ent))) (setq lend (cdr (assoc '11 ent))) (setq llen (distance lbeg lend)) (setq long (+ long llen)) (ssdel sn ss1) ) (defun mtrlarcs () (setq cen (cdr (assoc '10 ent))) (setq rad (cdr (assoc '40 ent))) (setq dia (* rad 2.0)) (setq circ (* (* rad pi) 2.0)) (setq sang (cdr (assoc '50 ent))) (setq eang (cdr (assoc '51 ent))) (if (< eang sang) (setq eang (+ eang (* pi 2.0))) ) (setq tang (- eang sang)) (setq tang2 (* (/ tang pi) 180.0)) (setq circ2 (/ tang2 360.0)) (setq alen (* circ2 circ)) (setq long (+ long alen)) (princ) (ssdel sn ss1) ) (defun mtrplines () (command "_area" "e" sn) (setq long (+ long (getvar "perimeter"))) (setq surf (+ surf (getvar "area"))) (ssdel sn ss1) ) (defun mtrsplines () (command "_area" "e" sn) (setq long (+ long (getvar "perimeter"))) (setq surf (+ surf (getvar "area"))) (ssdel sn ss1) ) (defun mtrcircles () (command "_area" "e" sn) (setq long (+ long (getvar "perimeter"))) (setq surf (+ surf (getvar "area"))) (ssdel sn ss1) ) (defun mtrellipses () (command "_area" "e" sn) (setq long (+ long (getvar "perimeter"))) (setq surf (+ surf (getvar "area"))) (ssdel sn ss1) ) COMMANDE (DEFUN C:metre (/ long ss1 sn sn2 et) (setq cmdecho (getvar "cmdecho")) (setq file "D:\\metre.csv") (print file) (setvar "cmdecho" 0) (setq ow (open file "w")) (write-line (strcat "CALQUE"";""SURFACE"";""LONGUEUR"";""NOMBRE") ow) (setq layinfo (tblnext "layer" T)) (while(setq layinfo (tblnext "layer")) (setq layname (cdr (assoc '2 layinfo))) (if (setq ss1 (ssget "X" (list (cons 8 layname)))) (progn (setq nobj (sslength ss1)) (setq long 0) (setq surf 0) (while (> (sslength ss1) 0) (setq sn (ssname ss1 0)) (setq ent (entget sn)) (setq et (cdr (assoc '0 ent))) (cond ((= et "LINE") (mtrlines)) ((= et "ARC") (mtrlarcs)) ((= et "LWPOLYLINE") (mtrplines)) ((= et "POLYLINE") (mtrplines)) ((= et "SPLINE") (mtrsplines)) ((= et "CIRCLE") (mtrcircles)) ((= et "ELLIPSE") (mtrellipses)) ((or (/= et "LINE") (/= et "ARC") (/= et "LWPOLYLINE") (/= et "POLYLINE") (/= et "SPLINE") (/= et "CIRCLE") (/= et "ELLIPSE") ) (ssdel sn ss1) ) ) ) (write-line (strcat layname";"(rtos surf 2 2)";"(rtos long 2 2)";"(rtos nobj 2 2)) ow) ) ) ) (close ow) (setvar "cmdecho" cmdecho) (princ) ) YO!

Sympa la commande _oops. On entendra moins souvents les hurlements de désespoir des damnés de la DAO grâce à celle là.

J'utilise plutôt l'export XML, parce que ça m'a l'air d'être le plus adapté à Mensura. Ou du moins, je comprends le contenu des boîtes de dialogue qui suivent. Mais quand j'ai ce type de message d'erreur, je fais un TRF. Mais j'aime moins, vu que je n'ai jamais pratiqué Piste. Ceci dit, je n'ai utilisé l'export que dans des cas très simples, dans lesquels le projet était juste ébauché, pour repartir sur un fichier "propre". [Edité le 15/11/2010 par ACAD666]

Salut. ça fait pas mal de temps que je me contente de dessiner une polyligne verte décalée (0.025m) par rapport au trait de "sol" avec une épaisseur (0.050m) sur mes coupes pour figurer les espaces engazonnés. C'est facile à dessiner et le rendu est acceptable (surtout en couleur). Mais ce n'est pas très "réaliste".

Bonjour! Vous avez souvent le sympathique message "la commande n'a pas pu s'effectuer, elle va être annulée" lors de l'import-export d'axes du projet linéaire? Parce que chez moi c'est souvent. Trop souvent. Je suis à la 6.0.14.10, je me suis mis à jour la semaine dernière. Quelqu'un aurait une idée de quoi ça vient? (hou c'est pas joli comme phrase) PS: et entre nous, c'est franchement débile d'annuler une action qui n'a pas été effectuée. [Edité le 15/11/2010 par ACAD666]

Bonjour, je suis l'intégriste du bon français écrit. Toute faute d'orthographe dans ce post est bien sûr une faute de frappe, puisque, bien entendu, j'écris exclusivement à la plume d'oie sauvage, sur du parchemin biologique, avec le sang des serviteurs de l'antifrance, et je n'ai donc pas l'habitude de la dactylographie. 1/ Bon sang! L'étiquette s'est détachée. Je la recolle. Ce n'est pas un "recollement", c'est un recollage. Ou alors il y a le recollement des oreilles, pour gagner en aérodynamisme. 2/ Sinon: RÉCOLEMENT, subst. masc.RÉCOLEMENT, subst. masc. DR., ADMIN. A. − Opération consistant à dénombrer un ensemble d'objets répertoriés dans un inventaire, ou à vérifier la conformité d'une opération, d'un objet à un ensemble de règlements ou de prescriptions contractuelles; p. méton., procès-verbal de cette opération. Récolement d'inventaire; récolement des meubles saisis, d'une coupe de bois; procès-verbal de récolement. Une commission est chargée de l'examen de la comptabilité des fonds administratifs (...). Elle fait un récolement général du mobilier appartenant à l'assemblée (Règlement Ass. nat., 1849, p. 36). La principale originalité de cette organisation consiste dans le classement des livres par ordre d'entrée (...) dans un registre qui sert à la fois de registre d'entrée, d'inventaire, de classement, et de récolement (Civilis. écr., 1939, p. 48-5). B. − Opération consistant à récoler (v. ce mot B) des témoins. (Dict. xixe et xxe s.). Prononc. et Orth.: [ʀekɔlmɑ̃]. Ac. 1694, 1718: re-; dep. 1740: ré-. Étymol. et Hist. 1. 1389 « dénombrement fait par un fonctionnaire » (Ord. ds Hist. de Nim., III, 97 ds Gdf. Compl.), attest. isolée; 2. 1481 « action par laquelle on récole des témoins » la lecture et recollement de la deposition (Extrait du 7. compte de Guillaume de la Croix Conseiller... ds Mém. pour servir de preuves à l'hist. eccles. et civile de Bretagne, par Dom P. Hyacinthe Morice, Paris, 1746, t. III, p. 420); terme d'anc. jurispr. dep. St-Edme 1828; 3. 1690 « comparaison de l'état réel des meubles inventoriés avec les déclarations portées sur l'inventaire » (Fur.); 4. 1690 eaux et forêts (ibid.); 5. 1869 constr. (Littré); 6. 1913 « vérification qu'on fait dans une bibliothèque pour s'assurer que tous les ouvrages sont bien en place » (Péguy, Ève, p. 870); 7. 1936 « détermination de la quantité d'alcool que renferment les spiritueux représentés par un bouilleur » (Cap.). Dér. de récoler*; suff. -ment1*. [Edité le 8/11/2010 par ACAD666]

"Les températures sont chaudes" Il paraît que ça se dit. ARGH. Une carte n'est pas le territoire, mais ce n'est pas une raison pour la défigurer. Merci à tous ceux qui cherchent à s'exprimer correctement. Beaucoup de discussions houleuses pourraient être résolues par la question "De quoi parle-t-on?" Et pour casser les pieds à tout le monde le "mètre linéaire" c'est comme le "litre volumique": un pléonasme.

Sinon, il y a ce lisp qui crée un tableau dans autocad: ; ; TabXref : dessine un tableau contenant les xrefs utilisés dans le dessin ; (defun rang (el lst / sl) ; ; retourne le rang d'un élément dans une liste ; (ou nil s'il n'en fait pas partie) ; (setq sl (member el lst)) (if sl (- (length lst) (length sl)) nil ) ) (defun ansi2dos (s / s2 i l c avant apres r) ; ; retourne la chaine s traduite d'ANSI en ASCII ; (setq avant '("à" "â" "ç" "è" "é" "ê" "ë" "î" "ï" "ô" "ö" "ù" "û" "ü")) (setq apres '("…" "ƒ" "‡" "Š" "‚" "ˆ" "‰" "Œ" "‹" "“" "”" "—" "–" "")) (setq i 1 l (strlen s) s2 "") (while (<= i l) (setq c (substr s i 1)) (setq s2 (strcat s2 (if (setq r (rang c avant)) (nth r apres) c ) )) (setq i (1+ i)) ) s2 ) (defun right (s n) ; ; retourne les n caractères à droite de s ; (if (>= n (strlen s)) s (substr s (+ (- (strlen s) n) 1)) ) ) (defun shell_sync (comdos message / nombat nomtmp fic) ; ; exécution synchronisée de la commande dos comdos ; (Autocad attend qu'elle soit terminée pour poursuivre) ; (setq nombat (strcat reptmp "shell.bat")) (setq nomtmp (strcat reptmp "shell.tmp")) (setq fic (open nomtmp "w")) (princ "*" fic) (close fic) (setq fic (open nombat "w")) (if (/= message "") (write-line (strcat "@echo " message) fic) ) (write-line (strcat "@call " comdos) fic) (write-line (strcat "@del \"" nomtmp "\"") fic) (close fic) (command "sh" nombat) (while (findfile nomtmp) T) ; le temps que le batch s'exécute... ) (defun remove_file(fic) ; ; effacement du fichier fic ; Nota: il serait interessant d'écrire cette fonction en ADS pour éviter ; l'apparition furtive d'une fenêtre DOS (voir cplotlib.c). ; (if (findfile fic) (if (= (substr (getvar "acadver") 1 2) "14")(progn (command "sh" (strcat "del \"" fic "\"")) ; comme c'est une commande DOS, on attend que la destruction ; aie effectivement eu lieu: (while (findfile fic) T) ) ; v12 et 13: (command "_files" "3" fic "" "") ) ) ) (defun oter_chemin (n / i) ; ; ote l'éventuel chemin au nom de fichier n ; (setq i (strlen n)) (while (and (> i 0) (/= (substr n i 1) "\\") (/= (substr n i 1) ":") )(setq i (1- i))) (if (> i 0) (substr n (1+ i)) n ) ) (defun strlsp(ch sep / ls l seps f) ; ; transforme ch en liste en considérant comme séparateur l'espace, la tabulation ou le caractère sep ; (setq ls nil) (setq l ch) (setq seps (strcat " ,\t," sep)) ; on saute les premiers blancs... (while (wcmatch (substr l 1 1) seps) (setq l (substr l 2)) ) (while (/= l "") (setq f 1) (while (not (wcmatch (substr l f 1) (strcat "," seps))) (setq f (1+ f)) ) (setq ls (cons (substr l 1 (1- f)) ls)) (while (wcmatch (substr l f 1) seps) (setq f (1+ f)) ) (setq l (substr l f)) ) (reverse ls) ) (defun oter (ele lst / lstnew) ; ; ote l'élément ele de la liste lst ; (setq lstnew nil) (while lst (if (/= (car lst) ele) (setq lstnew (cons (car lst) lstnew)) ) (setq lst (cdr lst)) ) (reverse lstnew) ) (defun rtos2 (n d / s) ; ; transformation de n en texte avec exactement d décimales ; (setq s (rtos (+ (atof (rtos n 2 d))(expt 10. (- (+ d 1)))) 2 (+ d 1))) (substr s 1 (- (strlen s) 1)) ) (defun C:TabXref (/ ech l mm ud xref lx nx xref x y h fic nom date heure taille) ;(defun C:TabXref () (setvar "CMDECHO" 0) ; recherche des xref (setq lx nil) (setq xref (tblnext "BLOCK" T)) (while xref (if (= (logand (cdr (assoc 70 xref)) 4) 4) (progn ; il s'agit bien d'un xref et non d'un bloc (setq fic (cdr (assoc 1 xref))) (if (/= (strcase (right fic 4)) ".DWG") (setq fic (strcat fic ".dwg"))) (setq lx (cons fic lx)) )) (setq xref (tblnext "BLOCK")) ) (if (not lx) (prompt "\nLe dessin ne comporte pas de références externes...") (progn (setq lx (reverse lx)) (setq ech nil) (while (not ech) (initget 1) (setq ech (getstring "\nEchelle de sortie (mm tracé=unités dessin) : ")) (setq l (strlsp ech "=")) (if (= (length l) 2)(progn (setq mm (atof (car l))) (setq ud (atof (cadr l))) (if (and (> mm 0)(> ud 0)) (setq ech (/ ud mm)) (setq ech nil) ) ) (setq ech nil) ) (if (not ech) (prompt "\néchelle incorrecte...") ) ) ; lecture du répertoire temporaire (setq reptmp (getenv "TEMP")) (if (not reptmp)(setq reptmp (getenv "TMP"))) (if reptmp (if (not (wcmatch (substr reptmp (strlen reptmp)) ":,\\"))(setq reptmp (strcat reptmp "\\"))) ; sinon (setq reptmp "C:\\") ) ; création du calque "SE-T-DZ" en vert s'il nexiste pas (if (not (tblsearch "LAYER" "SE-T-XREFS")) (command "_LAYER" "_N" "SE-T-XREFS" "_C" "_GREEN" "SE-T-XREFS" "") ) ; création du style "SWIS721LTEXBT" s'il nexiste pas (if (not (tblsearch "STYLE" "SWIS721LTEXBT")) (command "_STYLE" "SWIS721LTEXBT" "Swissel.ttf" 0 1 0 "_n" "_n") ) (entmake '((0 . "BLOCK")(2 . "$TabXref$")(70 . 0)(10 0 0 0))) (setq x (* 85 ech)) (entmake (list '(0 . "LINE") '(8 . "SE-T-XREFS") '(62 . 7) '(10 0 0 0) (list 11 x 0 0))) (setq y (* -7 ech)) (entmake (list '(0 . "LINE") '(8 . "SE-T-XREFS") '(62 . 7) (list 10 0 y 0) (list 11 x y 0))) (setq y (* (- -10 (* (length lx) 5)) ech)) (entmake (list '(0 . "LINE") '(8 . "SE-T-XREFS") '(62 . 7) (list 10 0 y 0) (list 11 x y 0))) (entmake (list '(0 . "LINE") '(8 . "SE-T-XREFS") '(62 . 7) '(10 0 0 0) (list 11 0 y 0))) (entmake (list '(0 . "LINE") '(8 . "SE-T-XREFS") '(62 . 7) (list 10 x 0 0) (list 11 x y 0))) (setq x (* 19 ech) y (* -5 ech)) (entmake (list '(0 . "TEXT") '(8 . "SE-T-XREFS") (list 10 x y 0) (cons 40 (* 3 ech)) '(1 . "* FICHIERS UTILISES :") '(7 . "SWIS721LTEXBT") )) (setq h (* 2 ech)) (setq y (* -12 ech)) (setq tmp (strcat reptmp "TabXref.tmp")) (while (setq xref (car lx)) (setq nom (oter_chemin xref)) (if (not (setq fic (findfile xref))) (setq fic (findfile nom)) ) (if fic (progn (shell_sync (strcat "dir \"" (ansi2dos fic) "\" /-C>\"" tmp "\"") "") (setq fic (open tmp "r")) (while (wcmatch (substr (setq l (read-line fic)) 1 1) " ,R,") T) (close fic) (setq l (strlsp l " ")) (setq date (car l)) (if (= (strlen date) 10)(setq date (strcat (substr date 1 6)(substr date 9 2)))) (setq heure (cadr l)) (setq taille (strcat (rtos (/ (atof (caddr l)) 1024) 2 0) "Ko")) ) (setq date "??/??/??" heure "??:??" taille "?Ko") ) (setq x (* 3.3 ech)) (entmake (list '(0 . "TEXT") '(8 . "SE-T-XREFS") (list 10 x y 0) (cons 40 h) (cons 1 nom) '(7 . "SWIS721LTEXBT") )) (setq x (* 37 ech)) (entmake (list '(0 . "TEXT") '(8 . "SE-T-XREFS") (list 10 x y 0) (cons 40 h) (cons 1 date) '(7 . "SWIS721LTEXBT") )) (setq x (* 55 ech)) (entmake (list '(0 . "TEXT") '(8 . "SE-T-XREFS") (list 10 x y 0) (cons 40 h) (cons 1 heure) '(7 . "SWIS721LTEXBT") )) (setq x (* (- 81 (* 1.8 (strlen taille))) ech)) (entmake (list '(0 . "TEXT") '(8 . "SE-T-XREFS") (list 10 x y 0) (cons 40 h) (cons 1 taille) '(7 . "SWIS721LTEXBT") )) (setq lx (cdr lx)) (setq y (- y (* 5 ech))) ) (entmake '((0 . "ENDBLK"))) (prompt "\nPoint d'insertion : ") (command "_insert" "$TabXref$" pause "1" "1" "0") (terpri) (command "_explode" "_l") (command "_purge" "_bl" "$TabXref$" "_n") (setvar "CMDECHO" 1) )) (princ) )

Heu ... C'est surtout la première ligne (EXE) qui est intéressante. Le reste c'est du remplissage. Bon. C'est ce qu'on appelle un bide, alors...

Bon avant d'aller boire un café pour de vrai, un lien vers un pdf humoristique (la blague a certainement déjà été faite mais bon) dessiné avec AutoCAD et mes petites mains (c'est bô!) http://dl.free.fr/fb8vCTnHV

Pour le monde meilleur, n'oublions le petit ilot paradisiaque CADXP, ou chacun donne suivant ses moyens, et reçoit suivant ces besoins. Pourvu que ça dure!

En plus d'où je suis et à au moment où je rédige ce post, ton compteur de messages est à -1 (moins un). Ceci + ton problème, ça me fait penser aux histoires de créatures qui appellent depuis l'autre côté du miroir (ou de l'écran d'ordi, en l'occurence). [Edité le 2/6/2010 par ACAD666]

Merci beaucoup. Ce document est formidable.

Salut. Tu dois mettre la variable psltscale à 0, puis lancer la commande regntout dans ta présentation. Sinon fais un tour dans l'aide, tu auras la liste des variables qui permettent de gérer les types de ligne. C'est instructif (en général, lancer l'aide, même un peu au hasard, permet d'apprendre tout un tas de choses). Bon courage!

Un rapport avec ça ? --> http://www.caderix.com/journal/spip.php?article329

Salut. Je savais bien qu'il y avait des trucs surnaturels dans ce logiciel. :) Alors pour info, je suis sur AutoCAD Civil 3D 2008. Cependant je n'utilise pas le module Civil 3D. En fait notre boîte a acheté des licences Civil 3D plutôt qu'AutoCAD tout simple parce qu'Autodesk les proposait pour le même prix. Cela ne m'a pas réconcilié avec les commerciaux en général! Le CleanupRegapp marche pas mal, mais dès que je mets des xref, c'est reparti. Du coup je fais la manip périodiquement, mais ça va super vite, c'est un moindre mal.

Re, La remarque sur le passage par Covadis, et celle ci-dessous m'intriguent. Je vais faire un petit historique du fichier: Il a été créé hier matin à partir de mon gabarit habituel, et gavé de références externes, pour un contrôle général d'un projet d'éclairage. Je l'ai enregistré sous Dessin2.dwg dans le répertoire par défaut d'AutoCAD à ce moment, par inadvertance (en général, je suis un peu plus rigoureux que ça!). J'ai créé les objets qui s'y trouvent. J'ai enregistré une copie pour l'exemple demandé dans ce sujet, détaché les XREF, purgé, réinitialisé les échelles d'annotation. Puis _qsave _close C'est tout. Je n'ai jamais utilisé la commande "Contrôler"? Pas même "Récupérer". :casstet:

Sur 2008 ça me fait la même chose. Je me suis donc entraîné à dessiner les yeux fermés, tel le samouraï. Bon, ça suffit les conneries. Ouais, quelqu'un à une solution?

Ha! Je n'avais pas compris ça comme ça. Et bien le fichier en lui même n'est pas passé par Covadis. Garanti sur facture. Par contre, il a eu en xref des fichiers faits sous Covadis.

Sympa l'utilitaire AutoDESK. Dommage que ce ne soit pas intégrable directement à AutoCAD (comme superpurge par exemple) mais bon, n'oublions pas que le mieux est l'ennemi du bien - surtout chez Autodesk, pan dans les dents, héhéhé :cool: . Je vais tester ça en conditions réelles, et si ça fait sauter les bureaux, je me mettrai au script... Un grand merci à tous!

Salut, salut! Après bien des déboires voici le lien! http://dl.free.fr/vzGnRFKNV Un petit zip, avec la version "crado", le nettoyage de Patrick_35, et le wbloc. Pas de version nettoyée par superpurge pour cause de plantage... Merci de votre intérêt car ça me pourrit vraiment la vie, et les autres intervenants du projet ne s'en soucient pas le moins du monde. D'ailleurs, diffuser les fichiers de 5Mo avec 4 blocs 3 plines ne les choque même pas... :mad: Désolé je m'étale un peu mais j'ai pas mal souffert aujourd'hui, et je porte bien mon pseudo puisqu'AutoCAD c'est l'ENFER!! WA HA HA HA!