lecrabe

Hello Qq idées : 1) Tenter de réparer l'AutoCAD 2006 : donc le login/password ADMIN + le CDROM AutoCAD 2006 sous la main :o 2) Installer si nécessaire le SP1 pour AutoCAD 2006 ! http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=5837292&linkID=9240618 - Choisir le BON SP1 en fonction de la langue ... 3) Ré-Installer complètement ! :mad: Le Decapode

Hello Mais il y a aussi cette routine : http://www.cadxp.com/sujetXForum-12543.htm 3DPOLYFILLET pour créer des raccords en 3D ... :) Le Decapode (encore merci Gilles)

Hello Ta question n'est pas assez précise ! :o Si tu as une polyligne 2D, désires tu changer son élévation (c'est à dire son Z) ? Si OUI, alors tu changes son élévation dans la case de dialogue des propriétés ! :) Si tu veux convertir une polyligne 2D en polyligne 3D pour mettre n'importe quel Z sur n'importe quel sommet, il faut une routine Lisp qui transforme la polyligne 2D en polyligne 3D ! Et ceci, je n'ai pas en stock ... Sorry ! :( Le Decapode

Hello Joffoon Si tu avais posé ta question dans le BON forum "Autodesk MAP", j'aurais pu te répondre immédiatement !? Car je viens juste de voir ce fil de discussion ... :o Le Decapode "mappant"

Hello Willy Est ce possible de dessiner des clothoïdes avec CIvil 3D 2008 ? Une réponse simple serait la bienvenue !? Merci d'avance, Le Decapode "cloclo"

Hello Gilles Merci mais qq questions: Pourquoi ton bloc comprend 10 attributs et non pas 5 ? Pourquoi son système d'unité en MM et non pas en M ? Est ce important ? Moultes révérences oh Grand Seigneur de la Programmation, Le Decapode

Hello Gilles Si j'ai bien compris cette routine produit une polyligne 2D identique à la manipulation suivante : Accrocher le XY de la Polyligne 3D pour chaque sommet en passant le paramètre .XY et donc en donnant le Z = ZERO !? Le Decapode

Hello Wait and See, certaines personnes profitent peut être du WE ! :exclam: Le Decapode

Hello Gilles Comme d'habitude ça marche super ! je suis ébloui par ta rapidité !! Par contre cela ne focntionne PAS sur les polylignes Splinées ou Lissées ! Sniff !? J'en profite pour suggérer une petite (grosse) amélioration : Plutôt que d'insérer un point, il serait TIP-TOP d'insérer un bloc avec quelques attributs (un peu comme la routine faite pour JALNA) 1er attribut : reporter le code de maintien (handle) de la polyligne (Pour jointure / identification ultérieure) 2eme / 3eme attribut : surface et périmètre de la polyligne 4eme attribut : Z départ de la polyligne 5eme attribut : une valeur numerique entière qui s'incrémente de UN en UN à partir de la dernière valeur utilisée ou d'une valeur demandée préalablement Le Decapode "chiant"

Hello Le Decapode suggère qq améliorations sur ce genre de routine ... Au sujet d'une routine qui efface TEXTE et MTEXTE vides, je pense qu'il faut perfectionner un peu la routine avec les questions suivantes : **** TEXTE & MTEXTE **** - Supprimer Oui/Non Texte & MTexte ne contenant que des espaces ! et Oui ça peut arriver ! Le contenu n'est pas nulle mais ne contient QUE N espaces - Supprimer Oui/Non la partie DROITE des TEXTE et MTEXTE ne contenant que des espaces ! en effet parfois les gens saisissent des zones alpha-numerqiues et N espaces en fin de saisie, pouquoi ? Mystère mais ça pose des problèmes sérieux pour des exports ultérieurs en base en données et surtout pour des comparaisons (jointures) D'ailleurs cette option, j'aimerais bien l'avoir pour traiter aussi les ATTRIBUTS ! **** MTEXTE **** - Supprimer Oui / Non les lignes vides que l'on trouve parfois en FIN de MTEXTE ! Attention: ne pas supprimer des lignes vides AU MILIEU du MTEXTE et oui parfois les gens ont la main LOURDE sur la touche Entrée en fin de saisie de MTEXTE **** Objets Linéaires **** En ce qui est de supprimer les Lignes, Arcs, Polylignes COURTEs, j'utilise bien sur la Sélection Rapide ... mais je dois procéder type d'objet par type d'objet, DONC **** LIGNE , ARC , POLYLIGNE , SPLINE , ELLIPSE , TRACE , CERCLE **** - Poser la question sur la longueur MINIMUM (Défaut = ZERO bien sur) AInsi on pourra supprimer facilement les objets linéaires de longueur ZERO ou TRES FAIBLE Le Decapode vous remercie par avance PS: Petite modif au sujet des Attributs [Edité le 2/6/2007 par lecrabe]

Bon Matin Christian OK Merci je ne savais pas qu'un simple AutoCAD LT 2004 - 2008 pouvait exploiter un calque avec une couleur en mode 16 millions si bien sur le DWG / DWT avait été préparé (en fait) par un vrai AutoCAD 2004 - 2008 ... Donc on pourrait préparer de multiples calques avec les couleurs 16M qui peuvent être intéressantes dont bien sur la plus importante: 255,255,255 Je savais bien sur pour les fenêtres (Fmult) "spéciales" qu'un simple LT pouvait les exploiter. Le Decapode "LT ignare"

Hello Dans un genre un peu différent, j'aurais plutôt besoin d'une routine qui à partir de la sélection de 1 ou N (si possibles) Polylignes 2D (ou Régions) fermées donne le barycentre ou centre de gravité (Cela m'importe peu) MAIS avec donc un point à l'intérieur du polygone IMPERATIVEMENT ! Comment faire avec les contours complexes (concavités) et pas si complexesque ça en forme du L ou de U par exemple ! Application: obtenir un point graphique (en fait un bloc avec N attributs: No, Surface, Périmètre par exemple) TOUJOURS DANS le polygone des parcelles en cadastre ... Le Decapode "chiant" PS: C quoi la différence entre le CDG et le Barycentre "simplement" ?

Hello Petit rappel : la mise en oeuvre de la couleur "spéciale" 255,255,255 utilise le mode 16 millions de couleurs d'AutoCAD. Cette fonctionnalité n'existe que sur les "vrais" AutoCAD / MAP / A D T et ce depuis les versions 2004 ... Donc un AutoCAD LT ne pourra pas utiliser cette magouille ! Le Decapode

Hello Tu peux utiliser cette routine par exemple ... ;; Conversion d'une SPLINE en une POLYLIGNE ;; Lancement de la fonction: S2P ;; ;; CADALYST 12/03 AutoLISP Solutions SPLINE-TO-PLINE.LSP ;; © 2003 Tony Hotchkiss (defun spline-to-pline (/ i) (vl-load-com) (setq *thisdrawing* (vla-get-activedocument (vlax-get-acad-object) ) ;_ end of vla-get-activedocument *modelspace* (vla-get-ModelSpace *thisdrawing*) ) ;_ end of setq (setq spline-list (get-spline)) (setq i (- 1)) (if spline-list (progn (setq msg "\nNumber of segments : ") (initget 6) (setq num (getint msg)) (if (or (= num 100) (= num nil)) (setq num 100) ) ;_ end of if (repeat (length spline-list) (setq splobj (nth (setq i (1+ i)) spline-list)) (convert-spline splobj num) ) ;_ end of repeat ) ;_ end of progn ) ;_ end of if ) ;_ end of spline-to-pline (defun get-spline (/ spl-list obj spline no-ent i) (setq spl-list nil obj nil spline "AcDbSpline" selsets (vla-get-selectionsets *thisdrawing*) ss1 (vlax-make-variant "ss1") ) ;_ end of setq (if (= (vla-get-count selsets) 0) (setq ssobj (vla-add selsets ss1)) ) ;_ end of if (vla-clear ssobj) (setq no-ent 1) (while no-ent (prompt "\nSelect splines: ") (vla-Selectonscreen ssobj) (if (> (vla-get-count ssobj) 0) (progn (setq no-ent nil) (setq i (- 1)) (repeat (vla-get-count ssobj) (setq obj (vla-item ssobj (vlax-make-variant (setq i (1+ i))) ) ;_ end of vla-item ) ;_ end of setq (cond ((= (vlax-get-property obj "ObjectName") spline) (setq spl-list (append spl-list (list obj)) ) ;_ end of setq ) ) ;_ end-of cond ) ;_ end of repeat ) ;_ end of progn (prompt "\nNo entities selected, try again.") ) ;_ end of if (if (and (= nil no-ent) (= nil spl-list)) (progn (setq no-ent 1) (prompt "\nNo splines selected.") (quit) ) ;_ end of progn ) ;_ end of if ) ;_ end of while (vla-delete (vla-item selsets 0)) spl-list ) ;_ end of get-spline (defun convert-spline (splobj n / i) (setq point-list nil 2Dpoint-list nil z-list nil spl-lyr (vlax-get-property splobj 'Layer) startSpline (vlax-curve-getStartParam splobj) endSpline (vlax-curve-getEndParam splobj) i (- 1) ) ;_ end of setq (repeat (+ n 1) (setq i (1+ i)) (setq p (vlax-curve-getPointAtParam splobj (* i (/ (- endspline startspline) n) ) ;_ end of * ) ;_ end of vlax-curve-getPointAtParam ) ;_ end of setq (setq 2Dp (list (car p) (cadr p)) 2Dpoint-list (append 2Dpoint-list 2Dp) point-list (append point-list p) z (caddr p) z-list (append z-list (list z)) ) ;_ end of setq ) ;_ end of repeat (setq summ (apply '+ z-list)) (setq arraySpace (vlax-make-safearray vlax-vbdouble ; element type (cons 0 (- (length point-list) 1) ) ; array dimension ) ;_ end of vlax-make-safearray ) ;_ end of setq (setq vert-array (vlax-safearray-fill arraySpace point-list)) (vlax-make-variant vert-array) (if (and (= :vlax-true (vlax-get-property splobj 'IsPLanar)) (= summ 0.0) ) ;_ end of and (setq plobj (add-polyline 2Dpoint-list vla-AddLightweightPolyline ) ;_ end of add-polyline ) ;_ end of setq (setq plobj (add-polyline point-list vla-Add3DPoly ) ;_ end of add-polyline ) ;_ end of setq ) ;_ end of if (vlax-put-property plobj 'Layer spl-lyr) (vla-delete splobj) (vlax-release-object splobj) ) ;_ end of convert-spline (defun add-polyline (pt-list poly-func) (setq arraySpace (vlax-make-safearray vlax-vbdouble (cons 0 (- (length pt-list) 1) ) ; array dimension ) ;_ end of vlax-make-safearray ) ;_ end of setq (setq vertex-array (vlax-safearray-fill arraySpace pt-list) ) ;_ end of setq (vlax-make-variant vertex-array) (setq plobj (poly-func *modelspace* vertex-array ) ;_ end of poly-func ) ;_ end of setq ) ;_ end of add-polyline (defun c:s2p () (spline-to-pline) (princ) ) ;_ end of c:s2p (prompt "SPLINE-TO-PLINE by Tony Hotchkiss. Enter S2P to start" ) ;_ end of prompt Le Decapode

Hello Je ne connais pas de solution autre que d'utiliser un ancien AutoCAD / MAP / A D T en version 2004 / 2005 / 2006 ! Voire même plus ancien ... Le Decapode PS: Je n'en dis pas plus sinon je serais désagréable avec Autodesk ... :o

Hello Fab Regarde le debut de cette routine Lisp : ;; http://georezo.net/forum/viewtopic.php?id=45805&action=new ;; GBTFW.LSP pour une IMAGE ;; Creation d'un".TFW" GB 10/11/03 ;; mirroir en Y des paramètres AutoCAD (defun c:GBTFW () (command "_imageframe" "_on") (setq index "") (setq ent (entget (CAR(ENTSEL "Montrer l'IMAGE: ")))) (setq ent340 (cdr (assoc 1 (entget (cdr (assoc 340 ent)))))) (setq ef (strcat (substr ent340 1 (- (strlen ent340) 4)) index ".TFW")) (setq ftfw (open ef "w")) ... En effet la récupération du nom de l'image pour écrire le fichier TFW n'est pas simple ! Le Decapode

Hello Ce n'est pas normal du tout ... La version Reseau FlexLM d'AutoCAD / MAP / A D T a commencé avec la version 2002 (si je me souviens bien) et elle doit se comporter normalement ! Si tu fais un PING sur le serveur de licence des différents postes, à des heures différentes, quelle est le temps de réponse en ms svp !? Le Decapode

Hello Tramber SVP peux tu me confirmer que les textures par couleur ACI, objets 3D arbres texturés, personnages, etc, se sont arrêtés avec la version 2006 d'AutoCAD ? Qu'il faut donc garder précieusement (ou version précédente) ... Le Decapode

Hello COVADIS de Geomedia (www.geo-media.com) est (A mon avis) un Super Logiciel qui n'a pas de concurrent sur la plateforme AutoCAD / Autodesk dans SON domaine d'application Le cout de Covadis est d'environ 4 000 Euros HT en version 2D/3D complète (A ajouter à votre AutoCAD / MAP / CIVIL ) AutoCAD CIVIL 3D 2007 / 2008 (Cout = 6 250 Euros HT) a des inconvénients et des avantages, je ne suis pas du tout spécialiste mais il faut bien comprendre que ces 2 logiciels ne se recoupent que FAIBLEMENT contrairement à ce que l'on pourrait penser ... Le recoupement entre les 2 logiciels dépend en fait des métiers et des projets ! Les 2 routines qui sont utiles de temps en temps, c bien sur le maillage 3D à partir de points XYZ et la génération de courbes de niveaux ! ! C'est pourquoi elles sont TRES demandées ! ( avec les profils bien sur ) Car acheter un CIVIL ou un COVADIS pour faire de temps en temps un MNT 3D ou les Courbes de Niveaux, c un peu CHER ! Le Decapode

Bon Matin Magnifique challenge, si quelqu'un arrive à "pondre" un algo PERFORMANT sur des milliers de points en Lisp, ce sera magnifique ! On peut trouver des routines sur le Web, mais elles sont très lentes en général dès que le nombre de points est plus ou moins important ... La routine en Lisp / V-Lisp / VBA doit pouvoir fonctionner sur AutoCAD / MAP / Autodesk Architectural Desktop et produire soit un maillage de 3D Faces (PMesh), soit un ensemble de N 3DFaces Le challenge complèmentaire : A partir de ces triplets de points XYZ produire N polylignes 2D sur des calques différents, à des élévations différentes qui seraient en fait les courbes de niveaux espacées de 5 / 10 / etc m. C'est un paramètre (Elévation) à demander ainsi que le nombre de calques différents : - Courbes secondaires sur le calque CN_1 - Courbes principales de 10 en 10 par exemple sur le calque CN_2 - Super courbes de 50 en 50 par exemple sur le calque CN_3 A mon avis, 3 calques de courbes d eniveaux sont largement suffisants ! Le Decapode

Hello Non il n'y a aucun moyen de developpement sur AutoCAD LT ni Lisp ni V-Lisp ni VBA ni ARX ni DotNet Eventuellement voir avec LT-Extender, qui coute comben ? Le Decapode

Hello Je suis tout à fait d'accord avec Rebcao et Bonuscad ! 1 - Tu crées en premeier un nouveau profil pour voir ... Ca demande 30 secs au maximum ! Modification du raccourci avec par exemple un ajout de: /P TEST 2- Tu installes le SP2 pour AutoCAD 2007 http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=9444984&linkID=9240618 Good Luck, Le Decapode

Hello Je crois me souvenir que la routine qui transforme les Textes en MTextes des Bonus/Express d'un VRAI AutoCAD transforme en fait les N textes simples sélectionnées en UN Texte Multiple ! Ce qui n'est pas tout à fait idéal ... C'est pourquoi j'utilise depuis longtemps cette routine : :) ; T2M - convert individual Texts/Dtexts to individual MTexts ; modified by Xanadu - www.xanadu.cz ; ***** This routine NEEDS the Express Tools ***** (defun C:T2M (/ ss i elist) (prompt "\nSelect Text objects to convert to MTexts: ") (setq ss (ssget (list (cons 0 "TEXT")))) (setq i -1) (if ss (repeat (sslength ss) (setq elist (cdr (assoc -1 (entget (ssname ss (setq i (1+ i))))))) (command "TXT2MTXT" elist ""); Express Tools command ) ) ) Comme tout le monde je ne vois aucune solution avec un AutoCAD LT !! :o Le Decapode

Hello Fabcad Cette routine de Lee Ambrosius ne convient elle pas plus ou moins à tes besoins ? Le Decapode ;; Written by: Lee Ambrosius ;; Created on: 4/7/2004 ;; http://www.hyperpics.com/ ;; This program allows you to add Background Mask to several Mtext objects ;; at one time instead of using the Mtext editor ;; for each object or the Properties Palette. ;; The Properties Palette in 2005 doesn't allow you ;; to set Background Color or Border Offset. (defun c:MTextMASK ( / kWordBackgroundMaskCurrent dOffsetCurrent ssMtext dxf90 dxf63 dxf45 dxf441) (prompt "\nApply Mtext Mask") (if (= kWordBackgroundMask nil) (setq kWordBackgroundMask "Background" kWordBackgroundMaskCurrent "Background") (setq kWordBackgroundMaskCurrent kWordBackgroundMask) ) (initget "None Background Color") (setq kWordBackgroundMask (getkword (strcat "\nSpecify Background Mask: [None/Background/Color] : "))) (if (= kWordBackgroundMask nil) (setq kWordBackgroundMask kWordBackgroundMaskCurrent) ) (cond ((= kWordBackgroundMask "Color") (if (or (= maskClr nil) (/= (type maskClr) 'LIST)) (setq maskClr (acad_truecolorcli 1)) (if (= (assoc 420 maskClr) nil) (setq maskClr (acad_truecolorcli (cdr (assoc 62 maskClr)))) (setq maskClr (acad_truecolorcli (assoc 420 maskClr))) ) ) ) ((= kWordBackgroundMask "Background")(setq maskClr 256)) ((= kWordBackgroundMask "None")(setq maskClr 0 dOffset 1.0)) ) (if (/= maskClr nil) (progn (if (/= kWordBackgroundMask "None") (progn (setq dOffsetCurrent dOffset) (if (= dOffsetCurrent nil) (setq dOffset 1.0 dOffsetCurrent 1.0) (setq dOffsetCurrent dOffset) ) (setq dOffset (getreal (strcat "\nSpecify border offset factor: : "))) (if (= dOffset nil) (setq dOffset dOffsetCurrent) ) (if (> dOffset 5)(setq dOffset nil)) (if ( (while (= dOffset nil) (setq dOffset (getreal (strcat "\nSpecify border offset factor: : "))) (if (> dOffset 5)(setq dOffset nil)) (if ( ) ) (if (= dOffset nil) (setq dOffset 1.0) ) ) (if (setq ssMtext (ssget (list (cons 0 "MTEXT")))) (progn (cond ((= kWordBackgroundMask "None") (setq mask_list (list (cons 90 2)(cons 63 0)(cons 45 dOffset)(cons 441 0)) dxf90 2 dxf63 nil dxf45 nil dxf441 nil ) ) ((and (= kWordBackgroundMask "Color")(/= (assoc 420 maskClr) nil)) (setq mask_list (list (cons 90 1)(cons 63 1)(cons 421 (cdr (assoc 420 maskClr)))(cons 45 dOffset)(cons 441 (cdr (assoc 420 maskClr)))) dxf90 1 dxf63 2 dxf45 dOffset dxf441 (cdr (assoc 420 maskClr)) ) ) ((and (= kWordBackgroundMask "Color")(= (assoc 420 maskClr) nil)) (setq mask_list (list (cons 90 1)(cons 63 (cdr (assoc 62 maskClr)))(cons 45 dOffset)(cons 441 2146608)) dxf90 1 dxf63 (cdr (assoc 62 maskClr)) dxf45 dOffset dxf441 nil ) ) ((= kWordBackgroundMask "Background") (setq mask_list (list (cons 90 3)(cons 63 3)(cons 45 dOffset)(cons 441 0)) dxf90 3 dxf63 256 dxf45 dOffset dxf441 0 ) ) ) (setq emax (sslength ssMtext) sscount 0 ) (while ( (setq EN (entget (ssname ssMtext sscount)) tempEN nil) (if (/= dxf90 nil) (progn (if (/= (assoc 90 EN) nil) (setq EN (subst (cons 90 dxf90) (assoc 90 EN) EN)) (setq EN (append EN (list (cons 90 dxf90)))) ) ) (progn (setq CNT 0 nMembers (member (assoc 90 EN) EN)) (if (= nMembers nil) (setq nMembers 0) (setq nMembers (length nMembers)) ) (repeat (- (length EN) nMembers) (setq tempEN (append tempEN (list (nth cnt EN)))) (setq CNT (1+ CNT)) ) (if (> nMembers 0) (progn (setq CNT 1) (repeat (- nMembers 1) (setq tempEN (append tempEN (list (nth cnt (member (assoc 90 EN) EN))))) (setq CNT (1+ CNT)) ) ) ) (setq EN tempEN tempEN nil) ) ) (if (/= dxf63 nil) (progn (if (/= (assoc 63 EN) nil) (setq EN (subst (cons 63 dxf63) (assoc 63 EN) EN)) (setq EN (append EN (list (cons 63 dxf63)))) ) ) (progn (setq CNT 0 nMembers (member (assoc 63 EN) EN)) (if (= nMembers nil) (setq nMembers 0) (setq nMembers (length nMembers)) ) (repeat (- (length EN) nMembers) (setq tempEN (append tempEN (list (nth cnt EN)))) (setq CNT (1+ CNT)) ) (if (> nMembers 0) (progn (setq CNT 1) (repeat (- nMembers 1) (setq tempEN (append tempEN (list (nth cnt (member (assoc 63 EN) EN))))) (setq CNT (1+ CNT)) ) ) ) (setq EN tempEN tempEN nil) ) ) (if (/= dxf45 nil) (progn (if (/= (assoc 45 EN) nil) (setq EN (subst (cons 45 dxf45) (assoc 45 EN) EN)) (setq EN (append EN (list (cons 45 dxf45)))) ) ) (progn (setq CNT 0 nMembers (member (assoc 45 EN) EN)) (if (= nMembers nil) (setq nMembers 0) (setq nMembers (length nMembers)) ) (repeat (- (length EN) nMembers) (setq tempEN (append tempEN (list (nth cnt EN)))) (setq CNT (1+ CNT)) ) (if (> nMembers 0) (progn (setq CNT 1) (repeat (- nMembers 1) (setq tempEN (append tempEN (list (nth cnt (member (assoc 45 EN) EN))))) (setq CNT (1+ CNT)) ) ) ) (setq EN tempEN tempEN nil) ) ) (if (/= dxf441 nil) (progn (if (/= (assoc 441 EN) nil) (setq EN (subst (cons 441 dxf441) (assoc 441 EN) EN)) (setq EN (append EN (list (cons 441 dxf441)))) ) ) (progn (setq CNT 0 nMembers (member (assoc 441 EN) EN)) (if (= nMembers nil) (setq nMembers 0) (setq nMembers (length nMembers)) ) (repeat (- (length EN) nMembers) (setq tempEN (append tempEN (list (nth cnt EN)))) (setq CNT (1+ CNT)) ) (if (> nMembers 0) (progn (setq CNT 1) (repeat (- nMembers 1) (setq tempEN (append tempEN (list (nth cnt (member (assoc 441 EN) EN))))) (setq CNT (1+ CNT)) ) ) ) (setq EN tempEN) ) ) (entmod EN) (setq sscount (1+ sscount)) ) ) ) ) ) (princ) ) (prompt "\nType MTEXTMASK to run the command") (princ)

Hello Attention: tu ne pourras utiliser la version Reseau FlexLM d'AutoCAD / MAP / Autodesk Architectural Desktop que si et seulement si tu as acheté une version Réseau FlexLM qui est environ 15% plus cher par poste que la version Monoposte classique ! Quand je dis UTILISER, il faut comprendre obtenir un code / fichier d'autorisation FlexLM de la part d'Autodesk !!! Si tu as en fait une version "normale / monoposte", tu peux parfaitement préparer unhe Image de Répartition Réseau pour installation "normale / monoposte" depuis le serveur contenant l'Image vers N postes avec une installation automatique et silencieuse ! Qu'il y ait déjà ou pas une autre version d'AutoCAD ou MAP, on s'en fout ... Est ce que tu veux ? Me suis je bien fait comprendre ? Le Decapode