RhymOne

D'abord extraire la face interressé puis après on est libre de lancé la commande qu'on veut....

Bonjour je n'est pas cette version sous la main mais: Pouvez vous essayer au lieu de lancer la commande extrusion, lancé la commande balayage... Plus juste géométriquement elle marche souvent mieux que l'extrusion suivant un chemin.... A plus...

Bonjour, Tu fais les courbe de niveau classique puis tu prend le pas 0.01 Et tu fais un filtre planimetrique sur 25.31(ne pas oublier cette étapes) dans les CN...

Bonjour Steven, moi j'utilise ce lisp pour geler dans les presentations le calque courant puis je l'active ou je veut.... Lisp: ; Programme qui permet d'éteindre le calque courant dans toutes les fenêtres flottantes ; de toutes les présentations, sauf éventuellement dans la fenêtre active. ; Gestion des erreurs et restauration de l'environnement ; Cette procédure est stéreotypée dans mes programmes LISP (defun *error* (msg) (command) ; Annulation des commandes en cours (restaureEnv) ; Appel à la procédure de restauration (princ "\nerreur: ") (princ msg) (princ) ) ; Restauration de l'environnement ; Cette procédure est stéreotypée dans mes programmes LISP (defun RestaureEnv () (if (/= *old1* nil) (setvar "cmdecho" *old1*)) ; restaure la variable CMDECHO (if (/= *old2* nil) (setvar "LAYOUTREGENCTL" *old2*)) ; restaure la variable LAYOUTREGENCTL ) ; Boucle qui permet d'éteindre le calque courant dans la fenêtre en cours. ; Ceci se fait par le biais des données étendues (xDtata) de la fenêtre en cours, ; dans lesquelles il faut incorporer la liste pointée ; (1003 . Nom_du_Calque) entre les codes (1002 . {) et (1002 . }) (Defun Boucle3 ( / xData xType NewData NewType k) (vla-getxdata CurrentPViewport0 "" 'xType 'xData) ; Récupération des données xData de la fenêtre (setq k (vlax-safearray-get-u-bound xType 1)) ; Nb d'éléments dans xData (setq NewType (vlax-make-safearray vlax-vbInteger (cons 0 (+ k 1)))) ; Création d'un nouveau tableau Type (setq NewData (vlax-make-safearray vlax-vbVariant (cons 0 (+ k 1)))) ; Création d'un nouveau tableau Data (setq n 0) (repeat (+ k 1) ; boucle pour recopier les éléments des tableaux (vlax-safearray-put-element Newtype n (vlax-safearray-get-element xType n)) ; Recopie xType dans NewType (vlax-safearray-put-element NewData n (vlax-safearray-get-element xData n)) ; Recopie xData dans NewData (setq n (1+ n)) ; Incrémente ) (vlax-safearray-put-element Newtype (+ k 1) 1002) ; insere le dernier atome de la liste (vlax-safearray-put-element NewData (+ k 1) "}") ; insere le dernier atome de la liste (vlax-safearray-put-element Newtype (- k 1) 1003) ; insere l'atome en avant dernière position (vlax-safearray-put-element NewData (- k 1) ActiveLayer0) ; insere l'atome en avant dernière position (vla-setxdata CurrentPViewport0 NewType NewData) ; Enregistre la nouvelle liste dans la fenêtre (if (equal CurrentLayout0 ActiveLayout0) ; Si l'utilisateur se trouve dans une présentation (progn ; alors il faut régénérer les fenêtres de la présentation (vla-display CurrentPViewport0 0) ; Régénère la fenêtre (vla-display CurrentPViewport0 1) ; Régénère la fenêtre )) ) ; Enumération des fenêtres flottantes ; Les sous-objets d'une présentation représentent tous les éléments dessinés dans la présentation (blocs, fenêtres...), ; mais le premier sous-objet représente toujours la vue active de la présentation elle-même. ; Il faut donc sauter le premier test. (Defun Boucle2 (CurrentPViewport0) (if (and var1 (vlax-method-applicable-p CurrentPViewport0 'Display) ; Vérification que l'objet est une fenêtre (PViewPort) (not (Equal CurrentPViewport0 ActivePViewport0))) (boucle3)) ; et que la fenêtre en cours n'est pas active (setq Var1 T) ; Variable qui sert à sauter le 1er test ) ; Enumération des présentations (Defun Boucle1 (CurrentLayout0) (if (Not (Equal CurrentLayout0 ModelSpace0)) ; Si la présentation en cours n'est pas l'espace objet (progn (setq Var1 nil) ; Variable utile pour la boucle2 (if (= (vla-get-count (Vla-Get-Block CurrentLayout0)) 0) (progn (vla-put-activelayout Activedoc CurrentLayout0) (vla-put-activelayout Activedoc ActiveLayout0) )) (vlax-map-collection (Vla-Get-Block CurrentLayout0) 'Boucle2) ; boucle sur les sous-objets de la présentation )) ) ; Programme principal (Defun C:GelerCalqueP () (vl-load-com) ; Chargement des fonctions ActiveX (setq *old1* (getvar "cmdecho")) ; Sauvegarde de la variable (setq *old2* (getvar "LAYOUTREGENCTL")) ; Sauvegarde de la variable (setvar "cmdecho" 0) ; Messages désactivés (setvar "LAYOUTREGENCTL" 0) ; Régénération systématique des présentations (Setq ActiveLayer0 (getvar "CLayer")) ; Nom du calque courant (Setq ActiveDoc (vla-get-ActiveDocument (vlax-get-acad-object))) ; Document actif (setq ActiveLayout0 (vla-get-activelayout ActiveDoc)) ; Présentation courante (y compris espace objet) (if (= (getvar "tilemode") 0) ; si on est dans l'espace papier (setq ActivePViewport0 (Vla-Get-ActivePViewport ActiveDoc)) ; alors il faut sauvegarder la fenêtre active (setq ActivePViewport0 nil) ; sinon pas de fenêtre active ) (setq ModelSpace0 (vla-get-Layout (vla-get-ModelSpace Activedoc))) ; Identificateur de l'espace objet (setq Layouts0 (vla-get-Layouts ActiveDoc)) ; liste de toutes les présentations (+ espace objet) (vlax-map-collection Layouts0 'Boucle1) ; sous-programme de traitement de chaque présentation (setq Var1 nil) ; Variable qui sert à choisir le message final (if (and ActivePViewport0 ; s'il existe une fenêtre active (not (equal (Vla-Get-ActivePViewport ActiveDoc) ActivePViewport0))) ; et que cette fenêtre n'est plus la même qu'au départ (progn (Vla-put-ActivePViewport ActiveDoc ActivePViewport0) ; alors restaurer la fenêtre de départ (setq Var1 T) ; choisir le message final correspondant ) ) (RestaureEnv) ; Appel à la procédure de restauration (if var1 ; choix du message (princ (strcat "Le calque " ActiveLayer0 " a été gelé dans les autres fenêtres flottantes")) (princ (strcat "Le calque " ActiveLayer0 " a été gelé dans toutes les fenêtres flottantes")) ) (princ) ) (princ "\nFonction C:GelerCalqueP chargée - tapez GelerCalqueP pour l'éxecuter.") (princ) ; pour utiliser ce programme, créer un bouton dans une barre d'outils. ; Puis taper la macro : ^C^CGelerCalqueP ; A chaque session Autocad, il faut recharger le programme, ; ou-bien le rajouter à la liste des programmes chargés au démarrage (menu Outils->Charger une application...) ; Pour moi : ; (Princ (= (cdadr (entget (vlax-vla-object->ename CurrentPViewport0))) "VIEWPORT") ; ceci est une autre méthode d'identification Merci à l'auteur.....

menubar ok je m'incline....

didier dit moi le nom de ton imprimante et je te dirais si je peut t'aider.... Ma société à fait des demandes de drivers speciales xp 64 Bits pour des imprimantes du genre ricoh hp ....

Bonjour, ce n'est pas une variable (je croit): A coté de l'icone A en haut à gauche, il y a une barre avec une fleche à droite : Clic dessus et choisit d'afficher la barre des menus.....

Tu peut faire un petit truc du genre: Outils, Selection Rapide Tout élement Supprimer ces éléments Et augmenter le pas suivant l'import...

Ok thierry pas de soucis pense y quand tu peut ....

Pour bien comprendre: Automatiquement un logiciel 32 bits installé sur un 64Bits trouvera sa place dans : C:\Program Files (x86) Alors qu'un soft 64Bits C:\Program Files Donc en émulant un 64Bits tous les softs que tu a devrait passer.... Les problèmes: DRIVER incompatible....(surtout imprimante)

Personne a la v.12 thierry ? olivier ?

Bonjour, c'est bien M-Ray installé d'office... Les deux rendu que tu parle pour max est M-ray est scanline. Mauvais frappe.... Avec le 64Bits tu monte au process presque 4go en plein calcul de rendu (32 bits bloque à 1 voir 2 avec le switch)....

Bonjour, La seule commande d'AutoCAD en multi proc est le rendu..... V-Ray n'est pas d'origine sur max. Pour ma part le 64Bits est la réponse au temps de calcul trés long...

Bonjour PaypHD, Peut tu preciser ta demande...

Merci calecx c'est bien sa...

Bonjour, Ce n'est que possible en lisp en te servant de ceci: Merci à l'auteur (au pasage) (vl-load-com) (defun l-coor2l-pt (lst flag / ) (if lst (cons (list (car lst) (cadr lst) (if flag (caddr lst) 0.0)) (l-coor2l-pt (if flag (cdddr lst) (cddr lst)) flag) ) ) ) (defun C:3dpolTO3dface ( / js ind count e_name lst_pt) (setvar "cmdecho" 0) (princ "\nChoix des 3DPolylignes.") (setq js (ssget '((0 . "POLYLINE") (-4 . "&") (70 . 9))) ind 0 count 0) (cond (js (setvar "CMDECHO" 0) (command "_.UNDO" "_Begin") (while (setq e_name (ssname js ind)) (setq ind (1+ ind) lst_pt (l-coor2l-pt (vlax-get (vlax-ename->vla-object e_name) 'Coordinates) T) ) (cond ((eq (length lst_pt) 3) (command "_.3DFACE" "_none" (trans (car lst_pt) 0 1) "_none" (trans (cadr lst_pt) 0 1) "_none" (trans (caddr lst_pt) 0 1) "" "" ) (setq count (1+ count)) ) ((eq (length lst_pt) 4) (command "_.3DFACE" "_none" (trans (car lst_pt) 0 1) "_none" (trans (cadr lst_pt) 0 1) "_none" (trans (caddr lst_pt) 0 1) "_none" (trans (cadddr lst_pt) 0 1) "_none" (trans (car lst_pt) 0 1) "" "" ) (setq count (1+ count)) ) ) ) (command "_.UNDO" "_End") (setvar "CMDECHO" 1) (princ (strcat "\n" (itoa count) " 3DFaces crées à partir de 3Dpolylignes.")) ) (T (prompt "\nAucune sélection valide.")) ) (prin1) )

Bonjour Curcis, Avec ton autorisation je vais copier et placé ton post ici Truc et Astuces d'AutoCAD 3D

A tu notion d'espace objet et d'espace papier? Si non je ne peut rien pour toi... Il faut eplucher ce site qui est aussi riche qu'animée.....

Bonjour, MERCI BRYCE Je m'étonne encore de voir des plans sans présentations.... Imprimer depuis l'objet devrait être impossible.....!!!!!

Ou encore dans le forum AutoCAD 3D !!

Si fraid c'est trés interressant!! Mais c'est l'inverse qui me preocuperais plus.... J'ai un plan de dingue le diviser en x plans..... Pour ma part sur ton projets: 1.A partir d'un dessin vierge appelé 1ere et 2ème XREF. Les placées selon l'entité en commun. 2.Recommencer avec 2ème et 3ème XREF.. etc.... Et tout sa peut être en lisp et laisser la main à l'utilisateur pour le calage(entité en commmun). Mais je pense que tout sa tu y avais déjà réflechit...

Est ce possible de voir un appercu du résultat ? L'intersection de plan sur des platefomres plates OK ... Mais en 3D j'aimerais voir sa.....

Bonjour, Alors je vais apporter des précisions: C'est juste mais pas tout à fait correct. En fait il faut que le calque contenant le wipeout ait une couleurs x. Cette couleur x doit avoir une projection 0 dnas le ctb. En passant par 225,255,255 sa reviens à peu près à la même chose... Pascal ton lisp est cool!!!

Sympa ton lisp fraid.... Je me suis appercue durant mes années de modelisation que l'historique des élements rectangles sont diffèrents que celui d'une polyligne formant un rectangle, pareil si c'est un cercle ou une polyligne avec arc... Si shpountz veut utiliser cette méthode de travail je conseille vivement de prendre en compte les élements que tu dessine(si tu doit revenir sur un diamètre: cercle) entre autre.... Mais autocad n'est pas conçu pour sa je pense....! Variable intéressante: Solidhist à 1 Delobj à 0 Si fraid peut completer...

Bonjour, Et merci de ton initiative de présentation.... CAO Mécanique de quel genre ? Qu'apporte Pro/E comparée à solid works ? Merci de tes réponses...