CoolM@n

Bonjour, Dans Autocad avec les blocs dynamiques on peut choisir divers valeurs pour un texte avec une liste déroulante. Dans microsation connect édition, il parle de 'listes de valeurs' . comment est-il possible d'associer une liste à une entité de type 'Texte' ?

Effectivement, j'ai vu que les dernières version utilisaientt Python. Mais ma boite utilise une version de 2022.

Bonjour, avez-vous connaissance d'un bon livre pour la programmation VBA sous Microstation? Sur Amazon j'ai vu celui-ci: "Introduction to Microstation VBA".

(DEFUN c:MaHach (/ aa qs ww wx) (SETQ ww (TBLSEARCH "STYLE" "arial_025")) (SETQ wx (GETVAR "TextStyle")) (IF (= ww nil) (ENTMAKE (LIST (CONS 0 "STYLE") (CONS 100 "AcDbSymbolTableRecord") (CONS 100 "AcDbTextStyleTableRecord") (CONS 2 "arial_025") (CONS 70 0) (CONS 40 0.2) (CONS 41 1.0) (CONS 50 0.0) (CONS 71 0) (CONS 42 0.2) (CONS 3 "Arial.ttf") (CONS 4 "") ) ;_ Fin de List ) ;_ Fin de ENTMAKE ) ;_ Fin de if (SETQ aa (ENTSEL "Selectionner une Hachure: ")) (SETQ qs (GETPOINT "\nPoint d'insertion du texte: ")) (WHILE (/= aa nil) (PROGN (SETVAR "TextStyle" "arial_025") (COMMAND "_Text" "_j" "_left" qs 0 (CDR (ASSOC 2 (ENTGET (CAR aa)))) ) ;_ Fin de COMMAND (SETQ aa (ENTSEL "Selectionner une hachure: ")) (IF (/= aa nil) (SETQ qs (GETPOINT "\nPoint d'insertion du texte: ")) ) ;_ Fin de if ) ;_ Fin de PROGN ) ;_ Fin de WHILE (PRINC) ) ;_ Fin de DEFUN CatHachure.lsp

Oui. Il n'y a pas de compatibilité "Descendante" avec Revit. Tous les intervenants dans le flux de travail doivent avoir la même version pour récupérer les fichiers de Revit.

Salut, Regarde ici: Modification Nord du Projet !

Celui-ci: Guide du constructeur en bâtiment ?

Tout chaud, tout frais... ici: http://usa.autodesk.com/adsk/servlet/item?siteID=123112&id=12828862 Comme le précédent, il est 'multilangue". Il comprend les modifications du service pack 1.

Merci d'avoir corrigé. Il s'applique à toutes les versions de Revit 2010. J'utilise Revit 2010 FR, et il n'y a pas eu de soucis ni à l'installation, ni à l'exécution de Revit. C'est juste les pages web qui ne sont pas encore traduites.

Tout chaud , tout frais. http://usa.autodesk.com/adsk/servlet...12&id=12828862 "The Update can be applied to all languages of Revit Architecture. Currently, only the English download page has the update, but the other language download pages will be available in the next few days." Traduction par Google: "La mise à jour peut être appliquée à toutes les langues de Revit Architecture. Actuellement, seul le English a la page de téléchargement de la mise à jour, mais le téléchargement des pages d'autres langues seront disponibles dans les prochains jours."

Salut , Regarde avec le gestionnaire des taches. Vista x64 affiche les applications 32 bits avec le symbole '*32' http://xs140.xs.to/xs140/09272/acadx64247.jpg

Il existe la possibilité d'un transfert de licence. C'est comme ça que j'acquis Autocad 2005. Un client de mon revendeur cessait ces activités, j'ai repris sa license LT 2000i, acheté la mise à jour AutoCAD 2005, tout à fait légalement chez Autodesk, il y a plus de 4 ans. Mais faut être reglo d'un bout à l'autre D'ailleurs qu'elle ne fut pas ma surprise de recevoir un coup de tél d'Autodesk . Je leur ai donné les coordonnées de mon revendeur et il n'y a pas eu le moindre problème. Depuis je suis passé en 'abonnement' pour Autocad Revit Architecture Suite. Ceci étant, Acad2005 n'est pas une bonne idée. Il est retiré de la vente depuis quelques années. Cela signifie plus de support technique d'AutoDesk, plus de mises à jours préférentielles.

Et hop.... http://xs139.xs.to/xs139/09205/acadscreen893.jpg.xs.jpg http://images3.hiboox.com/images/2009/ab3a291d42bae7536341fcba72aab693.jpg [Edité le 15/5/2009 par CoolMan] [Edité le 20/5/2009 par CoolMan]

Salut, Les versions des fichiers Revit sont incompatibles "en descendant" vers une version antérieure. Essaye d'exporter le fichier Revit 2010 au format IFC, puis ouvre le avec Revit 2009. Sinon, reste alors la solution de la mise à jour vers Revit Structure 2010.

Tu as essayé les 'Compatibles autocad' comme A9CAD. Parfois ils ouvrent des fichiers qu'autocad refuse d'ouvrir. http://www.a9tech.com/

Salut, Tu as regardé du coté de cette variable? MEASUREMENT Type : Entier Enregistré dans : Dessin Valeur initiale : 0 Détermine si le dessin courant utilise des fichiers de type de ligne et des motifs de hachure métrique ou anglo-saxons. 0 Système anglo-saxon ; utilise les fichiers de motifs de hachures et de type de ligne désignés par les paramètres de registre ANSIHatch et ANSILinetype. 1 Système métrique ; utilise les fichiers de motifs de hachures et de type de ligne désignés par les paramètres de registre ISOHatch et ISOLinetype.

+1. Recu hier

Cela devrait être dans ta BAL

Coche d'autres options. Comme centre, milieu, extrémité. Elles fonctionnent aussi sans problème.

Salut, Lance la commande _DDOSNAP (Version us) ou ACCROBJ (Version FR). Si tu coches NODAL , tu pourras d'accrocher aux points de définitions des cotes.

Salut. La variable est _Clayer .

Salut, Ta hachure provient de quel fichier? Si il n'est pas confidentiel, poste le sur le forum, qu'on puisse jeter un oeil et faire les tests. Ou pour modifier les définitions de cette hachure. Voici mon mail, si tu es d'accord d'essayer: jeanpaul.remacle @ gmail.com [Edité le 24/10/2007 par CoolMan]

Salut. Oui avec revit. Je ne connais pas Autodesk Architectural Desktop. Lorsque tu cliques sur une fenêtre, tu as la possibilité d'éditer la famille. Revit ouvre une nouvelle fenêtre pour éditer ton objet. A partir de là tu peux assigner des matériaux aux différents composants. Prends quand même soin de sauvegarder l'original avant de sauvegarder ta fenêtre modifiée. Ensuite tu recharges ta fenetre dans ton dessin.

Un grand merci pour l'info. voici ma routine. Elle tourne sous Autocad2008 US. Elle me permet de cliquer sur une entité et d'afficher la surface. L'avantage c'est que la routine insère un champ. Si la surface change, le champ s'adapte. Elle est telle-quelle. Les variables importantes: MonUnite : m² je travaille en cm, mais les surfaces sont en m² MaReduction : 0.0001 pour passer du cm² au m² Prefixe : Sf: Selon votre bon plaisir. Le champ est justifié 'Centre" Il utilise le style de texte actif. ;;;-----------------------------------------------------------------;;; ;;; Convertion Hexadecimal ---> Decimal ;;; ;;;---------------------------------------------------------- ------- (DEFUN hexdec (nb / r i s) (IF (= (TYPE nb) 'INT) (SETQ nb (ITOA nb)) ) ;_ Fin de if (SETQ r 0 i 0 ) ;_ Fin de setq (WHILE (AND (= (TYPE nb) 'STR) (< i (STRLEN nb))) (SETQ i (1+ i)) (SETQ s (STRCASE (SUBSTR nb i 1))) (SETQ r (+ (LSH r 4) (- (ASCII s) (IF (<= s "9") 48 55 ) ;_ Fin de if ) ;_ Fin de - ) ;_ Fin de + ) ;_ Fin de setq ) ;_ Fin de while ) ;_ Fin de defun (DEFUN c:S2F (/ Part1 Part2 Part3 IdObject pp aa zz mm MonUnite MaReduction Prefixe ) ;;; (vl-load-com) (SETVAR "cmdecho" 0) ;desactive l'affichage des opérations (SETQ MonUnite "m²") (SETQ MaReduction "0.0001") (SETQ Prefixe "Sf: ") (SETQ Part1 "%<\\AcObjProp.16.2 Object(%<\\_ObjId ") (SETQ Part3 (STRCAT ">%).Area \\f \"%lu2%ps[," MonUnite "]%ct8[" MaReduction "]\">%" ) ;_ Fin de STRCAT ;_ Fin de strcat ) ;_ Fin de SETQ (SETQ aa (ENTSEL "\nSelectionner votre entité (Polyligne - Cercle - Hachures ...) " ) ;_ Fin de entsel ) ;_ Fin de setq (SETQ pp (GETPOINT "\nPosition du champ: ")) ;;; (princ aa) ;;; (setq aa (car aa)) (SETQ zz (VL-PRINC-TO-STRING aa)) (SETQ mm (SUBSTR zz 16 8)) (PRINC mm) (PRINC) (SETQ Part2 (RTOS (hexdec mm) 2 0)) (PRINC "\n") (SETQ IdObject (STRCAT Prefixe part1 part2 part3)) (PRINC IdObject) (PRINC "\n") (PRINC) (COMMAND "_text" "_j" "_c" pp "0" IdObject) (SETVAR "cmdecho" 1) ;reactive l'affichage des opérations (PRINC) ) ;_ Fin de defun ;|«Visual LISP© Format Options» (72 2 3 2 T "Fin de " 75 9 2 0 0 T T nil T) ;*** DO NOT add text below the comment! ***|; [Edité le 19/10/2007 par CoolMan]

Bonjour, je cherche une routine/biblio pour convertir une chaine Hexadecimale en entier base 10 pour utiliser cette valeur dans un champ. Pour integrer le tout dans une de mes macros Command: (setq aa (entsel)) Select object: ( (1082.61 197.801 0.0)) Command: (car aa) %<\AcObjProp.16.2 Object(%<\_ObjId 2112553368>%).Area \f "%lu2%ps[,m²]%ct8[0.0001]">% Dans le champ la valeur 2112553368 est la conversion de l'hex 7deb0198. D'avance merci.