pros2i

Bonjour, Je recherche un outil gratuit permettant d'effectuer de mesurer longueur, surface et de trouver le volume des pièces en 3D car j'ai besoin que de ces infos pour effectuer des devis. Merci Patrice

Bonsoir, En lisp, j'écris des textes avec la commande -mtext et à chaque que j'utilise la commande -mtext, il affiche dans la fenêtre de commande "Style de texte courant: "Standard" Hauteur de texte: 2.5 Annotatif: Non" Je voudrai que le message n'apparaisse pas. J'ai essayé "cmdecho 0", ce n'est pas cela. Y-a-t-il une autre variable système ? Merci Pat

Bonsoir, En lisp, j'écris des textes avec la commande -mtext et à chaque que j'utilise la commande -mtext, il affiche dans la fenêtre de commande "Style de texte courant: "Standard" Hauteur de texte: 2.5 Annotatif: Non" Je voudrai que le message n'apparaisse pas. J'ai essayé "cmdecho 0", ce n'est pas cela. Y-a-t-il une autre variable système ? Merci Pat

Merci Giles pour l'astuce. Pat

Bonjour Tatia, Quels styles de traits t'intéresserait ? Je peux t'en créer (ou modifier les styles que j'ai) A+ Pat

Bonjour Gillesb, Dans les styles de textes : tu peux sélectionner la police Windows A+ Pat

Bonjour, As-tu installé les dernières versions de Microstation compatible Windows7 : MicroStation V8i 08.11.07.171 Je n'ai pas testé en Windows 7 A+ Pat

Bonjour Gile Ce qui m'intéressait de connaître, c'est le texte dans MTEXT et éventuellement de modifier le texte. J'y suis arrivé grâce à ton 2ème code avec des modifications. ((lambda (blk / nent) (while (setq nent (entnext (cond (nent) (blk) ) ) ) (print (cdr (assoc 0 (entget nent)))) (if (= (cdr (assoc 0 (entget nent))) "MTEXT") (progn (print (cdr (assoc 1 (entget nent)))) (setq entite (entget nent)) (setq entite (subst (cons 1 "tot") (assoc 1 entite) entite)) (entmod entite) ) ) ) (textscr) (princ) ) (tblobjname "block" "NomDuBloc") ) Merci Pat

Bonjour, J'ai un dessin créé par Méchanical 2010. Lorsque je l'ouvre en Autocad 2010, les rugosités créées par Méchanical sont transformées en blocs. Je cherche un lisp qui me permettrai d'afficher la liste des rugosités avec les valeurs des rugosités, pour cela je dois lire le contenu du bloc mais je ne sais pas faire. Merci Pat

Merci Giles, C'est ce que je voulais. Pat

Bonjour, Normalement les barres d'outils et les fenêtres reviennent à la même place après fermeture de Microstation. Si ce n'est pas le cas, le fichier de paramètres ou sont enregistré ces variables doit être en lecture seule. A+ Pat

Bonjour, Je voudrai faire apparaitre la version 2000, 2003, 2007, 2010 dans laquelle était enregistrée le fichier Autocad ? Merci Pat[Edité le 31/3/2010 par pros2i] [Edité le 31/3/2010 par pros2i]

Bonjour, Sélectionne ton élément que tu veux devant/derrière puis clic-droit -> Ordre de tracé -> choisir ton option A+ Pat

Bonjour, Aucune piste pour m'aider ! Peut-être sur un autre site ? Merci Pat

Bonjour, Aucune piste pour m'aider ! Peut-être sur un autre site ? Merci Pat

Bonjour, Tu peux changer les cercles par des points mais avec une macro. A+ Pat

Bonjour Gilles, Dans les anciennes versions : Menus -> Utilitaires -> Entrées au clavier A+

Bonjour à tous, J'ai un programme fonctionnant avec 'access 97' qui permet d'ouvrir des fichier Autocad. Avec Autocad2010 je n'ai pas de problème, j'arrive à ouvrir des fichiers dwg en mode 'SDI=1' c'est à dire un fichier autocad à la fois. Avec AutodeskDesignReview2010 : je n'y arrive pas, je suis obligé d'arrêter brutalement le processus AutodeskDesignReview2010 et de relancer 'AutodeskDesignReview2010 avec un fichier dwg' Voici mon code Case "ADR2010" NomFichier = Path_Fichier & Nom & ".Dwg" Path_ADR2010 = DLookup("PATH", "[bd Path]", "DESIGNATION = ""ADR2010""") 'Tuer le processus précédent "Autodesk Design Review" TermProcess ("DesignReview.exe") 'Lance en direct "DWG TrueView" + le fichier Shell """" & Path_ADR2010 & """ """ & NomFichier + """", vbMaximizedFocus AppActivate "Autodesk Design Review 2010" Exit Function Merci Pat

Bonjour à tous, J'ai un programme fonctionnant avec 'access 97' qui permet d'ouvrir des fichier Autocad. Avec Autocad2010 je n'ai pas de problème, j'arrive à ouvrir des fichiers dwg en mode 'SDI=1' c'est à dire un fichier autocad à la fois. Avec TrueView2010 : je n'y arrive pas, je suis obligé de quitter TrueView2010 et de relancer 'TrueView2010 avec un fichier dwg' Voici mon code Case "VIEWR2010" NomFichier = Path_Fichier & Nom & ".Dwg" Path_VIEWR2010 = DLookup("PATH", "[bd Path]", "DESIGNATION = ""VIEWR2010""") 'Ferme le précédent "DWG TrueView" Canal = DDEInitiate(DDEInit, "System") DDEExecute Canal, "_quit " DDETerminate Canal DDETerminateAll 'Lance en direct "DWG TrueView" + le fichier Shell """" & Path_VIEWR2010 & """ " & NomFichier, vbMaximizedFocus AppActivate "DWG TrueView 2010" Exit Function Merci Pat

Bonjour Vincent, Merci pour la variable et l'astuce pour comparer les cotations. Amicalement Pat

Cool, c'est ce que je voulais. Merci bseb67 Pat

Bonjour, J'ai dessiné une cote pivoté à partir d'un style de cote mais j'ai modifié manuellement dans les propriétés de la cote l'aspect tolérance -> affichage de la tolérance -> Référence : j'obtiens une boite autour de ma cote. Ensuite j'ai un programme lisp qui permet d'effectuer un changement d'échelle des cotes, pour cela je lis les cotes, je restaure mon style de cote, j'effectue mon changement d'echelle et à partir de là ma boite disparait. Je recherche la variable à tester afin de restaurer la bonne valeur ? Merci Pat [Edité le 11/9/2009 par pros2i]

Bonjour, Je recherche la variable permettant de connaitre le dossier d'installation d'Autocad ? Merci Pat [Edité le 11/9/2009 par pros2i]

J'ai trouvé, dans mon cas c'est le SCU qui était inversé. ;)

J'ai le même souci. Y-a-t-il une solution ? Merci Pat