Bred

ça me parait évident !...... maintenant que tu me le dits !!!!... merci une fois encore (gile).

Re, en repiquant ton ancien exemple : (defun Ins_BlocImb (NomB pt) (vla-insertblock (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point (trans pt 1 0)) NomB 1 1 1 (angle '(0 0 0) (trans (getvar "UCSXDIR") 0 (trans '(0 0 1) 1 0 T)))) ) (defun c:test () (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Bloc (vla-add (vla-get-Blocks AcDoc) (vlax-3d-point '(0 0 0)) "Bloc" ) Bloc_1 (vla-add (vla-get-Blocks AcDoc) (vlax-3d-point '(0 0 0)) "Bloc_1" ) Bloc_2 (vla-add (vla-get-Blocks AcDoc) (vlax-3d-point '(0 0 0)) "Bloc_2" ) ) (vla-addcircle Bloc_1 (vlax-3d-point '(0 0 0)) 10 ) (vla-addcircle Bloc_1 (vlax-3d-point '(0 0 0)) 5 ) (vla-addline Bloc_2 (vlax-3d-point '(-10 -10 0)) (vlax-3d-point '(10 10 0)) ) (vla-addline Bloc_2 (vlax-3d-point '(-10 10 0)) (vlax-3d-point '(10 -10 0)) ) (Ins_BlocImb "Bloc_1" '(0 0 0)) (Ins_BlocImb "Bloc_2" '(0 0 0)) ) En EO (SCG) : http://xs221.xs.to/xs221/07465/testscg.jpg En EP, fenêtre active, SCU 90 sur X (dans la fenêtre uniquement): http://xs121.xs.to/xs121/07465/testscuEP.jpg

oui oui... exemple : Le SCG en espace objet "onglet" je tourne mon SCU dans la fenêtre de 22 sur les X et de 33 sur les Z. l'orsque le bloc s'insert, il est en SCG.

Salut, (gile) - encore lui - il y a quelque temps maintenant, m'avait permis de m'arranger le coup du problème d'orientation d'insertion de blocs en passant par vla-insertblock .... (ici) Mais maintenant mon problème est le suivant : lorsque je veux insérer un bloc dans une fenêtre active de l'EP, dans laquelle j'aurais orienter mon SCU différement du SCU de l'EO "onglet", cette orientation n'est pas pris en compte.... faute à UCSXDIR je pense.... (defun getSpace () (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) ) ) (vla-insertblock (getSpace) ; (vlax-3d-point (trans pt 1 0)) NomB 1 1 1 ; (angle '(0 0 0) (trans [b](getvar "UCSXDIR")[/b] 0 (trans '(0 0 1) 1 0 T)))) merci de votre aide !!!

Alors ça ! c'est super malin ! chapeau au sous sol !

Re, Tu fais ton exe sous quel language ? (perso je débute/tripatouille en vb.net)

Salut, jolie boulot. Tu pourrais ouvrir Autocad...en tâche de fond.

Cette animation à donc été créer et convertis en flash avec CamStudio. (merci à lili2006) Pour le mettre en directe dans le forum, il faut un Hébergeur qui accepte les swf. Le code pour info : http://images2.hiboox.com/images/4607/uw0cvbtw.jpg [Edité le 17/11/2007 par Bred]

Je viens de trouver la solution à mon problème de taille de .gif : je le transforme en Flash !!!

... de rien ... :casstet: j'étais en train de faire une anim pour te montrer, je te la donne ici : (le gif est trop lourd, je le met en flash) [Edité le 15/11/2007 par Bred]

Tu selectionne donc ton entité, et dans la ligne de commande tu dois rentrer la distance, puis l'angle d'extrusion.

Salut et bienvenue ! Sous Autocad, "l'esquisse" doit être une forme fermée, et en une seule entité (c'est à dire une polyligne, une region, ou toutes autre forme comme cercle, polygones, etc....) Pour tester, dessine un rectangle avec l'outil rectangle, et tu verras qu'en le selectionnant c'est une seule entité. Tu pourras alors l'extruder.

Salut, alors, après avoir tapé "vba autocad" dans Google : http://pagesperso-orange.fr/maxence.delannoy/vba/vba.htm

.... et bien moi, je vais titiller beaucoup plus (gile) je pense..... Déjà, bravo pour ton code (gile) ! Mais un truc bluffant que je pense être possible (... pour les connaisseurs des réacteurs ! ;) ) Grouper le texte et le cadre, et si l'on modifie le textes, le cadre suit !.... mmmm ? ;) ;) :P

Salut, tu trouveras des codes pour travailles sur les groupes ici. dont un code répondant à ta demande j'ai l'impression : ; 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 )

Re, désolé, je n'avais pas compris ce que tu voulais faire (je pensais que tu voulais faire une selection à l'écran et que tu avais des problèmes avec les fenêtres non rectangulaire....) regarde dans l'aide "getreal" (avec en parralelle "initget") Tu devrais peut-être expliquer un peu plus ce que tu veux faire, car l'utilité de ton code m'echappe un peu et je ne voudrais pas te proposer des choses inutiles....

Salut, à tester : (on doit povoir faire + simple...) (setq sel (ssget '((0 . "VIEWPORT,*POLYLINE,SPLINE,ELLIPSE,CIRCLE,REGION")))) (repeat (setq i (sslength sel)) (if (and (equal (cdr (assoc 0 (entget (ssname sel (setq i (1- i)))))) "VIEWPORT") (equal (cdr (assoc 69 (entget (ssname sel i)))) 16)) (setq Fen (ssname sel i))) (if (and (equal (cdr (assoc 0 (entget (setq f (cdr (assoc 330 (entget (ssname sel i)))))))) "VIEWPORT") (equal (cdr (assoc 69 (entget (ssname sel i)))) 16)) (setq Fen f)) ) [Edité le 14/11/2007 par Bred]

je n'ai jamais testé, mais vue que depuis 2007 le système de rendu est différent, est-ce que les 3D faces sont pris en compte ?? Met un solide 3D (cube...) à côté de tes faces et lance un rendu pour voir...

Salut, Ben il faut que tu crées l'animation (avec les .exe dans les précedents messages), puis tu la mets dans le message, comme une simple image (enregistré dans un hébergeur). ... mais perso, je bute toujours sur la taille du gif...

Salut, sur 2007, dans l'editeur de texte, pour une cote, le retour de ligne = ... Entrée !... ;) [Edité le 12/11/2007 par Bred]

Salut, Je ne vois pas comment faire autrement que de l'explose et de le re-créer ensuite... Tu trouveras ci-dessous un petit lisp qui automatise la procédure. (defun c:ebm (/ B BEXP I N P S SS X) (setq ss (ssget '((0 . "INSERT")))) (repeat (setq i (sslength ss)) (setq b (vlax-ename->vla-object (ssname ss (setq i (1- i)))) p (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint b))) bexp (vla-explode b) bexp (vlax-safearray->list (vlax-variant-value bexp)) s (ssadd) n (itoa (fix (* (getvar "TDUSRTIMER") 10000000)))) (vla-delete b) (mapcar '(lambda (x) (ssadd (vlax-vla-object->ename x) s)) bexp) (command "_-block" n "_none" p s "") (command "_-INSERT" n "_none" p "1" "1" 0) ) (princ) ) (NB : je sais, je melange de l'autolisp et de vl, mais créer un bloc et l'inserer en v-lisp est tellement tordu que je trouve beaucoup plus simple de le faire comme ça...) [Edité le 12/11/2007 par Bred]

Salut, Tu peux insérer une image raster comme fond.

Salut, si c'est de "scu suivant objet" que tu parles, est-ce que l'objet sur lequel tu cliques ne fait pas parti d'un bloc ? (car à ce moment là c'est le sens de rotation du bloc qui donneras le sens du scu, et si le bloc n'a pas subi de rotation, le scu ne bougeras pas...)

Salut, Clic droit sur un fichier dwg / ouvrir avec / choisir le programme / parcourir (si il la v2008 n'est pas dans les chemins recommandés... .... allez cherche AutoCAD.exe dans repertoire autocad2008 / .... et surtout cocher "Toujours utiliser ce programme pour ouvrir ce ype de fichier.

Et bien on atteinds (presque) la perfection !!!!... (le "presque" n'est en fait par pour toi, (gile), car je comprends que l'on ne peux pas faire autrement, et c'est du "chipotage" de ma part : lorsque l'on passe dans un onglet EP, on voit les objets du calque verrouillé en EO se dégeler.)