lecrabe

Hello Didier & Mesylva N'hésitez pas à me faire savoir le résultat de vos essais !!! J'ai modifié la routine AutoLisp d'un copain (Fanatique d'AutoCAD et d'IntelliCAD)... ATTENTION, elle travaille sur TOUS les objets AutoCADs de type: PLINE / LWPLINE (closes ou NON), Rectangles, Splines, Ellipses, Cercles, Anneaux. Que j'utilise très souvent pour cumuler les surfaces et périmètres de tous les objets clos (en principe) de ma sélection. Je l'ai testée et validée sur AutoCAD 2002 mais je suis persuadé qu'elle fonctionne sur tous les AutoCADs: R14, 2000, 2000i, 2002, 2004, 2005 & IntelliCAD. Je vous conseille d'aller visiter le site d'IntelliCAD version FRANCAISE http://www.cad-europe.com/ qui est particulièrement performant en version FRANCAISE et non pas US/English. La routine ci-dessous provient de l'un des développeurs d'IntelliCAD FRANCAIS. ;;; 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) - Voilà, à la question de la Largeur de la Tranche, si vous répondez "1" (UN) alors les 2 totaux de Surface & Volume seront égaux. - Si vous répondez "15" , on suppose que toutes les tranches font 15 de large ! N'hésitez à me faire plein de reproche (Je ne suis pas un AutoLispien) et donc je suis sur qu'on aurait pu faire beaucoup mieux ... D'autre part je n'avais pas le dessin exemple de Mesylva, donc j'ai un peu travaillé dans le vide ... Que ne ferait on pas pour nos amis Canadiens ou Canadiennes ... Crabuleusement

ReBonjour Didier - C'était de l'humour bien sur ... Je me disais que tu allais écrire une routine en AutoLisp pour résoudre le problème ... Et peut être vérifier que le résultat était identique avec COVADIS ... Voir même recalculer "à la main", on n'est jamais trop prudent ... Surtout pas les temps qui courent .... J'avais entendu parler de certains problemes avec COVADIS (par exemple en voirie urbaine) où les pentes / angles sont très faibles en général ... Mais tu as sans doute trouvé un autre problème ? Heureusement que des Pros comme toi, remontent les problèmes aux Brestois !!! Crabuleusement

Hello Tiens, tiens, Didier travaille dans l'amitié franco-canadienne ... SVP tu ne triches pas, il est interdit d'utiliser ton COVADIS !!! Un peu cher bien sur, pour résoudre ce petit problème !!! Crabuleusement

Bonjour Allez voir le site http://www.cee-gee.net et téléchargez "THE HUNT" et aussi la vidéo sur l'univers de Starwars ... Voici de magnifiques exemples de réalisations avec 3D Studio DOS 386, 3DS MAX, Animator Studio, etc Crabuleusement

Bonjour Voici une solution que l'on peut améliorer ... Ce programme va écrire en TEXTE AutoCAD la surface d'un cercle, polyligne, lwpolyligne, rectangle avec une hauteur et un angle fournis par l'opérateur. Sur le site de Dominique, il exista la MEME routine qui traite le PERIMETRE. La routine originale provient de Dominique VAQUAND Téléchargement gratuit avec d'autres routines et je vous conseille absolument d'aller visiter son site ... http://dominique.vaquand.free.fr ; SURF.LSP ; -------------------------------- ; ECRITURE DE L'AIRE D'UNE SURFACE ; Dominique Vaquand ; http://dominique.vaquand.free.fr ; -------------------------------- (defun c:surf () (setvar "cmdecho" 0) (princ "\nSélectionnez un Cercle, Polyligne ou Polygone: ") (setq objet (car (entsel))) (if (or (= (cdr (assoc 0 (entget objet))) "CIRCLE") (= (cdr (assoc 0 (entget objet))) "POLYLINE") (= (cdr (assoc 0 (entget objet))) "LWPOLYLINE") ) (progn (setq htxt (cdr (assoc 40 (tblsearch "STYLE" (getvar "textstyle"))))) (if (= htxt nil) (setq htxt 0.0) ) (command "aire" "e" objet) (setq pt1 (getpoint "Position du texte: ")) (if (= htxt 0.0) (setq h_txt (getdist "Hauteur du texte: " pt1)) ) (setq ang (angtos (getangle "Angle du texte: " pt1) (getvar "aunits"))) (if (/= htxt 0.0) (command "texte" pt1 ang (strcat (rtos (getvar "area") 2 (getvar "luprec")) " M2")) (command "texte" pt1 h_txt ang (strcat (rtos (getvar "area") 2 (getvar "luprec"))" M2")) ) ) ; progn (princ "\nCe n'est pas un objet Cercle, Polyligne ou Polygone") ) ; if (princ) ) ; defun (princ "\n==> SURF") (princ) J'en profite pour saluer Dominique ... Crabuleusement

ReBonjour J'avais donc plus ou moins trouvé : vide à remblayer ... Et donc il te faut un programme qui te donne la surface de chacune des N polylignes closes sélectionnées et la multiplie par la largeur de la tranche (15 mètres par exemple). Crabuleusement

Bonsoir Didier On commence à aborder un sujet très sensible !!! Je n'ai pas encore "assez" joué avec la 2005 et son Safecast/Macrovision pour "assurer" ma réponse sur la 2005 ... Par contre pour les versions précédentes ... Si tu ne touches pas une "certaine zone" du disque dur et que tu conserves certains fichiers, alors tu peux (en principe) Dé-Installer et Ré-Installer, voire même "reformater" puis Ré-Installer ton Win 2000/Win XP puis ton AutoCAD et normalement la licence revient automatiquement ... Ce qui semble bien montrer que la base de registres n'est pas si importante que cela, cependant je n'ai jamais nettoyé ma base de registres (Restons PRUDENTS) malgré mes 5 versions de Autodesk Architectural Desktop (3.3 & 2004) / MAP (R6/2004/2005) différentes qui sont TOUTES opérationnels et autorisées. J'ai aussi 2 LT (2000i & 2004) mais ils ne sont pas concernés par le système de protection de même que l'excellent et très rapide MAP R3 (basé sur AutoCAD R14). Je ne te conseille pas de faire un RegClean ... On ne sait jamais ... Crabuleusement

Hello Je suis d'accord avec Didier cela semble simple à programmer ... et ton 1er post était un MUST en matière de NON Clarté !!! Mais petite question: c'est quoi ces polylignes ? 1) Le vide sanitaire sous un batiment 2) un vide à remblayer 3) Une grotte souterraine / Une poche de pétrole (Trop rectangulaire à mon avis) ??? Crabuleusement

Hello - Pour Pako Il me semble que les gars du Quebec sont FIERS de parler, écrire, lire, etc, en Français... Cependant ils utilisent des logiciels en Anglais !!! Cherchez la contradiction ??? Crabuleusement

Hello Le problème au sujet des dongles sur la période 2000-2001, c'est qu'il y a eu une série "très fragile" qui a été fournie à Autodesk par le fabricant ... Donc tous les utilisateurs qui ont acheté une version 2000, ont eu "pas mal" de problème ce qui n'était (en général) pas le cas pour ceux qui utilisaient de bons vieux dongles venant de la R13/R14 !!! Autodesk abandonnant le dongle avec la version 2000i ... Crabuleusement

Hello A ma connaissance: NON car les AutoCADs de niveau 2000 devaient avoir été mis à jour avant la mi-Janvier 2004 ... De même cette année, ceux sont les AutoCADs de niveau 2000i qui devront être mis à jour AVANT la mi-Janvier 2005 (Date à vérifier). Cependant le mieux est d'appeler le distribueur en France de AutoCAD LT: http://www.softeurope.com Il pourra te répondre avec précision et t'indiquer si il est possible d'avoir quand même un petit prix (Principe du Legacy Program d'AutoCAD qui existe peut être pour la version LT) Crabuleusement

Bonjour Mme / Mlle Krynn C'est sympa d'avoir une réponse ... Les femmes se sont jetées à l'eau ... Vous êtes assez nombreux à avoir lu ce msg sans pour autant répondre ... J'en déduis DONC (Ai je tort ?) que pour vous, tout va bien avec vos AutoCAD 2004/2005, Autodesk Architectural Desktop 2004/2005, MAP 2004/2005, etc. Pas de problème de perte intempestive de licence SafeCast Macrovision ??? Bye

Bonsoir Il semblerait que le dispositif de protection inclus dans AutoCAD 2004 ou AutoCAD 2005 perde assez souvent la licence ou du moins plus souvent que nos bons vieux AutoCAD 2000i ou 2002 (si bien sur ces derniers avaient été mis à jour avec le CDILLA dernier cri "RTS32700.exe") ! Qu'en pensez vous ? Avez vous remarqué le même phénomène ? Cette fragilité de la protection est elle pour vous plus flagrante en 2004 ou en 2005 (moins de retour pour le moment car moins diffusée) ? Vos avis m'intéressent beaucoup ... Crabuleusement

Bonsoir Mr Nobless Non je n'ai pas la prétention de connaître toutes les commandes d'AutoCAD et toutes leurs options mais d'un autre coté j'ai commencé à tripoter AutoCAD en 1984/1985 avec la version 1.4/2.0 donc j'ai quelques expériences sur la bestiole ... Je sais qu'il y a d'autres vieux dinosaures du monde AutoCAD sur ce forum ... Le problème c'est qu'aujourd'hui, il y a AutoCAD et AutoCAD LT, Mechanical Desktop, Inventor, Autodesk Architectural Desktop, REVIT, MAP, MapGuide, EnVision, Raster Design (Ex Cad Overlay), AutoSketch, 3DS VIZ, 3DS Studio, Volo View, DWF Composer, etc Je sens que j'ai oublié qq machins ... Et je ne parle pas des logiciels non traduits et/ou non importés en France. Jusqu'à 1993 environ, il n'y avait "en simplifiant" que AutoCAD R12 (41 100 Frs avec son module 3D AME), 3DS Studio 386 (24 900 Frs), AutoSketch (2 000 Frs), etc. Donc à l'époque on pouvait tout connaître ... A partir de 1995, les logiciels "métiers" en mécanique sont apparus: AutoSurf & Designer (Environ 12 000 Frs par module, les ancêtres de Mechanical Desktop) puis les autres produits par exemple AutoCAD LT2 (5 000 Frs), le module ADE (L'ancêtre de MAP) ... Mais aujourd'hui, cela me parait IMPOSSIBLE !!! Heureusement que chacun a ses spécialités ... Crabuleusement

Bonsoir La commande MESURER est à utiliser quand tu connais la distance, par exemple un arbre / poteau tous les 15 unités graphiques (15 mètres). La commande DIVISER est à utiliser quand tu connais seulement le nombre d'éléments voulus, par exemple j'ai un budget pour 10 poteaux / arbres le long de cette polyligne. Attention: si la polyligne est fermée le nombre de blocs insérés est égal au nombre voulu par l'opérateur. Par contre si la polyligne est ouverte, le nombre de blocs insérés est égal au nombre - 1 voulu par l'opérateur ... Ah ces foutus problèmes d'intervalles !!! Ces fabuleuses commandes DIVISER / MESURER sont apparues avec AutoCAD R2.5 en 1986 dans leur 1ère forme !!! C'est incroyable de voir que parfois les gens ne connaissent pas ces commandes !!! Ce n 'est pas un reproche mais une simple constatation. Crabuleusement

Hello Je croyais que DIAGONAL 4, c'était un jeu !!! On apprend tous les jours ... Crabuleusement

Hello Si toutes les entités textes à modifier sont identiques exactement et que l'on ne risque pas de trouver d'autres entités textes avec la même partie de texte à l'intérieur ... On peut envisager de sauvegarder tous les DWG en DXF (Format Texte Ascii, 16 chiffres). Puis on fait passer un "utilitaire de recherche et remplacement automatique" en mode ligne de commande (Fenêtre MSDOS) qui va traiter tous les DXFs du directory. Et c'est tout, on peut envisager de recharger tous les DXFs pour les réecrire en DWG. Crabuleusement

Hello Je suis TOUT A FAIT d'accord avec Ribbit ... Refaire ton PC3, c'est pas la mer à boire (en principe) !!! Crabuleusement & Lapineusement

Hello En effet, un "bon" petit programme de gestion des fichiers DWGs peut s'avérer FORT utile ... voire même indispensable !!! Cependant une excellente organisation sur une unité partagée d'un serveur, de catalogues / sous-catalogues et noms de fichiers hyper-structurés peut déjà apporter beaucoup ... Crabuleusement

Hello Désolé OLI553, mais je ne suis pas tout à fait d'accord avec toi ... A ma connaissance, les Outils Migration Tools ne gèrent pas les DWGs de niveau 2004/2005 !!! Je me trompe peut être ? Il faut utiliser le Autodesk Batch Drawing Converter (BDC) qui malheureusemnt ne peut fonctionner que SI ET SEULEMENT SI, un AutoCAD de niveau 2004 (ou peut être 2005) est installé sur le PC !!! Débile NON !!! Pour info, un AutoCAD 2004 ou LT 2004 ou MAP 2004 ou Autodesk Architectural Desktop 2004 est SUFFISANT même si il n'est PLUS autorisé (Après les 30 jours légaux) !!! Wharf wharf, je rigole ... Le gros intérêt du BDC, c'est qu'il permet le traitement de N DWGs en mode Batch. Crabuleusement

Hello C'était bien un DWG de niveau 2004/2005 ! et donc le problème a été réglé par la solution que nous avions évoqués ... Lancer un AutoCAD 2004 ou 2005, et faire un Enregistrer Sous (En version 2000) Crabuleusement

Hello En supposant que ton bloc se nomme "POUBELLE" et qu'il a été DEJA défini dans ton DWG courant ... Menu DESSIN / POINT / MESURER / selectionner la polyligne / option B (comme Bloc) / POUBELLE / 15 (par exemple, tous les 15 mètres) OK Boy ? Crabuleusement

Hello BOF j'ai pas trop d'idées géniales, car les fichiers PC3 sont codés en binaire par Autodesk ! Essaye de nommer ta nouvelle imprimante sur ton nouveau PC, EXACTEMENT comme elle était nommée sur l'ancien PC ? Tu as une "petite" chance que cela fonctionne ... Sinon tu le refais ... Crabuleusement

Hello S A P est le leader mondial des logiciels de type ERP. Son logiceil de ERP se nomme: S A P (Original NON) www.sap.com Mais peut être que ton ERP sera un concurrent de SAP ? Crabuleusement

Hello Ayant du "subir" l'implantation d'un ERP dans une vie précédente, je peux te donner un bon conseil : L'entreprise DOIT adapter sa façon de travailler à la logique de l'ERP ! Et non l'inverse malheureusement ... Il s'agissait bien entendu de S A P !!! Crabuleusement