Bred

Salut, manque les points. (setq ss (ssget '((0 . "LINE")(8 . "003-TRUSS-WIRE-DUN"))))

Salut et bienvenue ! Sous 2004 ?

Salut, - Ton SCU est t'il parrallèlle au SCG ? - Sans utiliser ta macro et en insérant pas à pas, as-tu le même problème ? -Je ne suis pas un spécialiste en macro bouton, mais je trouve bizarre de ne pas voir de coordonné y...

Salut, j'avoues ne pas trop te comprendre, mais je vais essayer de t'expliquer une méthode : pour calculer la résistance d'un profil, il te faut : - la contrainte maxi du materiaux (daN/mm2 par exemple) - le module d'Inertie (calculer grâce au Moment d'inertie) (I/v) en cm3 - le Moment fléchissant maximum de ton profil mis en position de travail (Poutre sur 2 appuis avec effort ponstuel central par exemple) Si tu as tout ça, tu peux donc comparer la contrainte maxi au rapport entre le moment maxi et le module d'inertie ( Mmax /( I/v) > Contrainte ) et donc vérifier la résistance du profil.... Mais attention, dans la resistance rentre en jeu la vérification de l'effort tranchant et de la flèche .... ... c'est assez contraignant de l'expliquer comme ça en fait .... bon courage.... [Edité le 5/9/2007 par Bred]

Salut, désolé mais ton message est trés difficile à comprendre (clareté/fautes/langage sms ....) mais, si je comprends bien, c'est la fonction ssadd que tu cherches (setq e1 (entsel)) (setq e2 (entsel e1)) (setq ss (ssadd)) ; créer selection vide ss (ssadd e1 ss) ; mettre e1 dans ss (ssadd e2 ss) ; mettre e2 dans ss [Edité le 5/9/2007 par Bred]

Salut, c'est ce que l'on appel le "SCU Dynamique" Barre d'état : SCUD [Edité le 5/9/2007 par Bred]

J'ai un doute sur ce que tu dits : la fonction wbloc crées un fichier qui me semble n'être constituer que du minimum utile pour le bloc créé. par exemple, si tu ouvres directement le fichier d'un bloc créés dans un répertoire avec XXX calque, seul se trouveront dans le "fichier wbloc" les calques utiles.... ... mais rien ne coute d'être plus precautionneux que le logiciel ne le laisse à penser.... merci, mais chacun ses centre d'intêret : je ne fais que quasiment de la 3D, donc je suis un ignorant en bloc dyn par exemple....

mmmm... en fait je ne suis pas un utilisateur du design-center... donc je ne vois pas ce que tu appelles un "fichier bibliothèque".... Je sais que le peut de fois ou j'ai tester le design-center, je me suis crées des repertoires nommés ou je rangeais mes wblocs un par un : quand je selectionne le répertoire, j'ai accés à tous mes wblocs....

Le plus ancien que j'ai sous la main : 2006. commande : _cui (ou outils / options / personnaliser / menu) après avoir crées tes commandes perso (liste des commandes, nouvelle, ....) tu vas dans le groupe de menu, clic droit, nouveau, et tu fait des glisser/déposer sur ton nouveau menu .... (tu peux de la même manière créér des sous-menu...) etc... http://xs318.xs.to/xs318/07355/2007-08-31_172116.jpg

Re, Ceci me semble inutile.... Dans ton dessin ouvert, si tu as besoin de créer un bloc que tu veux pouvoir exploiter en bibliothèque (tous les blocs ranger dans des répertoire facilement retrouvable), tu dessines la pièce qui te servira de bloc, puis tu fais "wbloc", et tu suis ce que l'on te dit.... je ne vois pas pourquoi passer par le gabarit ISO, enregistrer sous....

Salut, j'avoues ne pas bien comprendre ce que tu fais... Tu veux dire que tu modifies un bloc en ouvrant le fichiers crées par "wbloc" ? . Si tu as fait "enregistrer sous", tu as dû choisir son chemin....

Salut, je n'ai pas 2005 sous la main, mais, pour rajouter un menu cela doit être dans les propriétés de l'espace de travail (outils - Personnaliser -.....) Si tu veux lancer des fonctions lisp, il faut donc que tu lies l'une des commande de ton menu avec le nom de la fonction lisp (^C^Cmacommande) Désolé, ce n'est pas trés clair mais il faudrait faire des captures d'écran, mais si je te fait des captures avec une version ultérieur, ce sera différent (ça a changer en 2006 si je me souviens bien....)

merci pour l'info !

Salut, je n'ai pas testé, mais peut-être ceci : Sub DM() Dim Largeur As String Largeur = ThisDrawing.Utility.GetString(True, "Veuillez entrer la largeur de la réservation :") MsgBox "La largeur de la réservation est de : " & Largeur & " cm." [b]& vbCr[/b] End Sub

Exactement. ssget selectionne le groupe, alors que entsel me permet de récupérer l'entité selectionné, qu'elle fasse partis d'un groupe ou pas.....

Pour être plus précis, pourrais-tu me dire sous quelle version tu es ?

Salut, Tu as plusieurs routine, permettant de ne pas passer par la boite de dialogue, et permettant d'aller plus vite je pense. Test les.

Salut, si j'ai bien compris je te propose deux solutions : 1 - Tu dessine ton 1/2 profil avec 1/2 cercle et lignes, tu le "pedit" ou tu en fais un "contour", et tu l'extrudes... 2 - Tu créés ton solide tubulaires, et tu dessine un solide boite que tu places afin de réaliser une soustraction.

Salut, A tester (j'ai mis une gestion d'erreur dans les routines précédentes, je les répetes ici.) ;;; [b]ajouter selection à un groupe[/b] (defun c:[b]ajoutagr[/b] (/ GROUPES I NOM-GROUPE SEL G) (setq nom-groupe nil ex-error *error* *error* err-groupe) (while (not nom-groupe) (setq nom-groupe (Get-Nom-Groupe (car (entsel "\n Choix du Groupe :")))) ) (princ (strcat "\n Groupe " nom-groupe " sélectionné.")) (setq groupes (vla-get-groups (vla-get-activedocument (vlax-get-acad-object)))) (vlax-for n groupes (if (equal (vla-get-name n) nom-groupe) (progn (setq g n)(vla-Highlight g :vlax-false)))) (princ (strcat "\nChoix des Objets à rajouter au Groupe " nom-groupe)) (setq sel (ssget)) (vla-Highlight g :vlax-True) (repeat (setq i (sslength sel)) (vlax-invoke g 'AppendItems (list (vlax-ename->vla-object (ssname sel (setq i (1- i)))))) ) (setq *error* ex-error ex-error nil) (princ (strcat "\n"(rtos (sslength sel)) " objet(s) ajouté au groupe " nom-groupe)) (princ) ) ;;; [b]Choix des objets à dégrouper[/b] (defun c:[b]enlevagr[/b] (/ GROUPES I NOM-GROUPE SEL G) (setq nom-groupe nil lst-sel nil sel 1 ex-error *error* *error* err-groupe) (while (not nom-groupe) (setq nom-groupe (Get-Nom-Groupe (car (entsel "\n Choix du Groupe :")))) ) (princ (strcat "\n Groupe " nom-groupe " sélectionné.")) (setq groupes (vla-get-groups (vla-get-activedocument (vlax-get-acad-object)))) (vlax-for n groupes (if (equal (vla-get-name n) nom-groupe) (progn (setq g n)(vla-Highlight g :vlax-false)))) (princ (strcat "\nChoix des Objets à Enlever au Groupe " nom-groupe)) (while sel (setq sel (car (entsel "\n Choix de l'objet :"))) (if sel (progn (redraw sel 4) (setq lst-sel (append (list (vlax-ename->vla-object sel)) lst-sel)) ) ) ) (vlax-invoke g 'RemoveItems lst-sel) (vla-Highlight g :vlax-True) (setq *error* ex-error ex-error nil) (princ (strcat "\n"(rtos (length lst-sel)) " objet(s) Enlevé au groupe " nom-groupe)) (princ) ) ;;; [b]nom du groupe de l'objet selectionné.[/b] (defun c:[b]grob[/b] (/ GROUPES LST LSTF NG VLA-SEL X) ;;; listes (Groupes (objet1 objet2 ...)) (setq groupes (vla-get-groups (vla-get-activedocument (vlax-get-acad-object))) lstF nil) (vlax-for n groupes (setq ng (vla-get-name n) lst nil) (vlax-for i (vla-item groupes ng) (setq lst (cons i lst)) ) (setq lstF (append (list (cons ng lst)) lstF)) ) (setq vla-sel (vlax-ename->vla-object (car (entsel "\n Choix de l'objet :")))) (repeat (setq x (length lstF)) (if (member vla-sel (nth (setq x (1- x)) lstF)) (princ (strcat "\n Groupe : " (car (nth x lstF)))) ) ) (princ) ) ; routine retournant le nom du groupe de l'objet sélectionné (defun Get-Nom-Groupe (sel / GR GROUPES LST LSTF NG VLA-SEL X) (if sel (progn (setq groupes (vla-get-groups (vla-get-activedocument (vlax-get-acad-object))) lstF nil) (vlax-for n groupes (setq ng (vla-get-name n) lst nil) (vlax-for i (vla-item groupes ng) (setq lst (cons i lst)) ) (setq lstF (append (list (cons ng lst)) lstF)) ) (setq vla-sel (vlax-ename->vla-object sel)) (repeat (setq x (length lstF)) (if (member vla-sel (nth (setq x (1- x)) lstF)) (setq gr (car (nth x lstF))) ) ) ) ) gr ) ; Gestion d'erreur (defun err-groupe (msg) (if (or (= msg "Fonction annulée")(= msg "Function cancelled") (= msg "quitter / sortir abandon")(= msg "quit / exit abort")) (princ) (princ (strcat "\nErreur: " msg))) (vla-Highlight g :vlax-True) (setq *error* ex-error ex-error nil) (princ) )

Salut zags, et bien tout cela est particulièrement prometteur ! J'espère que ce genre de technologie pourra être compatible avec les logiciels de CAO/DAO actuel ! J'avoues quand même ne vraiment pas comprendre comment ça peut fonctionner. Quand on imagine au nombre de calcul pour (simplement) réaliser la projection d'une ombre d'un objet sur une surface, le faire en temps réel, et qui plus est en texturé .... Il doit y avoir certaiment une superbe astuce ! Quelqu'un pourait nous l'expliquer simplement ?

Que je saches de mes maigres connaissance en ce domaine, mais en jeux vidéo la technologie employé est du "mapping" : en fait il y a trés peu de "volume" dans un environement de jeux : ce sont des surfaces ou sont collé des images. Avec certains procédés, on triche pour faire croire à du volume. Et donc ceci est trés peu gourmant en mémoire, et donc peut-être pré-calculé et enregistré (d'où, avant, le petit laps de temps de chargement entre scènes...) J'ai rapidement fait une recherche, et j'ai trouvé ceci : http://www.futurn.net/sections.php?op=viewarticle&artid=36 où, je cite :

Salut j.bvgnt , et bienvenue ! J'avoues ne pas trés bien comprendre : mon lisp récupères un texte et un nodal pour en créer un point topo (créer un bloc) et faire de même avec tous les points équivalent.. et tu me dis que tu as déjà le point topo en bloc ?... ce lisp n'as aucune utilité alors... :casstet:

Salut bseb67, merci de tes réponses. Je n'ai pas 2008 sous la main, et je ne l'aurais pas avant quelques semaines... ( ;) ), donc je regarderais ça quand je pourrais !

Salut (gile), Ma réponse n°9 ne réponds pas à ça ?

Re, Pour ce qui est de 3D studio, les seul choses que l'on m'ais fait sont des animations 3D, calculé à partir de solide en fil de fer, texturé, etc (le temps de calcul restant trés élevé) : j'avoues ne l'avoir jamais vue faire de la 3D en temps réel convaicant (au niveau d'Autocad en fait...) mais je suis loin d'en parler en connaissance de cause.... :P Es-tu sûr que ce n'était pas un "rendu déjà calculé", est qui est ensuite manipulé en 3D (à la manière de VIZ render) ? Ceci n'est pas du tout la même chose que le temps réel !.... :casstet: Si ce n'est pas le cas, je serais curieux de voir ça!