Bred

Ah ! pour mon code et le tiens : si le SCU est différent du SCG, ça ne fonctionne pas ....

:D :D :D Génial ! Merci ! Vraiment malin ! Tu m'épates !

non, ce n'est pas pratique pour moi, car sa position d'insertion la plus fréquente est parallèle au plan XY... L'insertion avec la commande "insérer" est primordiale. merci quand même !

;) ;) ;) Merci ! j'ai enfin mon "quart d'heure de célébrité" ! Ce lisp est vraiment génial !!!!

Salut (gile), En effet... ;) Mais le truc c'est que justement dans ce cas on peut tricher : Mon bloc est une ligne (ou un tube rond) : donc on peut le tourner dans tous les sens sur l'axe des X, on ne fera pas la différence (ma ligne n'est que sur les X) ! C'est à dire que sa normale pourrais être dans n'importe quel direction : qu'importe !! Ce qui compte, c'est sa direction vers les X. Je le sais plus que bien, mais mon cas est plus simple je pense. merci dans tous les cas !

Re, Alors j'arrive en bricilant un truc avec rotate 3D... et grâce à deux routines de (gile)... Mais c'est vraiment du bricolage... - Je test si p2 > Z que p1 et je les inverse au cas où (car la routine ANGLE_3PTS ne retourne qu'un angle +) - Je calcul l'axe de rotation (Perpendiculaire aux 2 points) - Je calcul "l'angle 3D" de rotation - j'insert sur le plan XY, puis je retourne mon bloc.... (if (> (caddr p1) (caddr p2)) (setq p1c p1 p1 p2 p2 p1c)) (setq P1-AxeR (polar p1 (+ (angle p1 p2) (/ pi 2)) 1) ang (angle_3pts p1 (list (car p2) (cadr p2) (caddr p1)) p2)) (setq b (vla-insertblock (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) (vlax-3d-point (trans p1 1 0)) NomB 1 1 1 (angle p1 p2))) (vla-Rotate3D b (vlax-3d-point p1) (vlax-3d-point P1-AxeR) (- ang)))))) ;;; routines de (gile) ;;; ANGLE_3PTS Retourne l'angle (radians) défini par son sommet et deux points ;;; L'angle retourné est toujours positif et inférieur à pi radians. (defun angle_3pts (som p1 p2 / d1 d2 d3) (setq d1 (distance som p1) d2 (distance som p2) d3 (distance p1 p2) ) (if (and (< 0 d1) (< 0 d2)) (acos (/ (+ (* d1 d1) (* d2 d2) (- (* d3 d3))) (* 2 d1 d2) ) ) ) ) ;;; ACOS Retourne l'arc cosinus du nombre, en radians (defun ACOS (num) (if (<= -1 num 1) (atan (sqrt (- 1 (expt num 2))) num) (princ "\nErreur: L'argument pour ACOS doit être compris entre -1 et 1" ) ) ) Si vous avez plus beau, je suis preneur !!!!! merci.

Salut, Je n'arrive pas à insérer un bloc en lui donnant une direction par deux points.... Exemple simplifié : - J'ai un bloc = ligne de 0,0,0 à 0,4,0 déjà existant - Je sélectionne 2 points 3D (p1 = 1,2,3 et p2 = 8,9,10 par exemple) - je veux insérer mon bloc au point p1, et qu'il soit "dirigé" vers p2 (donc si l'on continue la ligne de mon bloc, cette ligne passe par p2....) L'insertion du bloc "en 2D" c'est bon... (setq b (vla-insertblock (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) (vlax-3d-point (trans p1 1 0)) Nom_Bloc 1 1 1 (angle p1 p2))) Mais après, j'ai tenté vla-mirror3D, vla.rotate3D, et je n'arrives pas à le mettre en place... Il doit y avoir un truc avec vla-put-normal, ou avec vla-TransformBy, mais je n'arrives pas à le réaliser.. Merci d'avance !!!!

Salut, Ton lisp est chargé au démarrage à chaque ouverture de planc, donc je ne pense pas que ce soit dü au mauvais chargement du réacteur. Message d'erreur : http://images.imagup.com/04/1216371480_2008-07-18_095801.jpg pour info : *layers* = nil .... :casstet: ... on dirais qu'il ne recharge pas la liste totale des calques.... (J'ai un plan avec deux calques : "Cercles" et "Rectangles" : j'ai gelé les cercles avec gelobj : Cela a l'air bon : (vlax-ldata-get "GelerOngletObjet" "toggled") = (("Cercles" . :vlax-false)) Est-ce que cela : (or *acdoc* (setq *acdoc* (vla-get-activeDocument (vlax-get-acad-object)))) (or *layers* (setq *layers* (vla-get-layers *acdoc*))) Ne devrais-t'il pas ce trouver en chargement au démarrage ? Un truc du genre au chargement : (if (vlax-ldata-get "GelerOngletObjet" "toggled") (progn (or *acdoc* (setq *acdoc* (vla-get-activeDocument (vlax-get-acad-object)))) (or *layers* (setq *layers* (vla-get-layers *acdoc*))))) (car je ne la vois pas le rappeler dans ton réacteur : j'ai l'impression que pour que ça fonctionne, il font donc lancer forcément une fois "gelobjet" pour le charger... ) Pour être plus clair : Mon fichier TEST... Avec le calque cercle gelé avec gelobj...

Salut (gile), Au sujet de ton super lisp gelobj : Je suis en 2009. Je pense qu'il y a un bug lors de la fermeture puis de la ré-ouverture d'un plan dans lequel ont aurais appliqué gelobj... J'ai du mal à comprendre ce bug donc je t'en dirais plus après plusieurs test, mais on dirait que lors de la ré-ouverture, tous les calques gelé avec ton outil soit gelé aussi en EP. Quand je passe en EP, j'ai une erreur "vla-object nil" ... Merci encore !

Salut, ton message me laisse perplexe... Tu les télécharges ? Ils devrais être sur ton dvd d'installation !

Salut, c'est le problème avec les logiciels spécifiques à la CAO : dès qu'il y a trop de pièces, c'est infasable !... J'en pralais y'a peu de temps ici. ... et si au final tu veux faire une mise en plan 2D, j'espère pour toi que tu as du temps devant toi... Autocad fait ça trés bien par contre.... :P

... ou aussi, si les lignes sont de polylignes, tu peux leur donner une épaisseur. Je pratique souvent la méthode qu'explique mdsv31, mais je met en style de texte simplex, pour une raison de facilité.

:o :o :o Mon avatar est déposé ! je peux le louer si vous voulez.... ;) M'en fou un peu, sauf que ça peut porter à confusion, la preuve en est...

Salut (gile), merci pour cet exemple et ton explication. J'en comprends le système... ... pas encore l'utilité.... (mais je n'ai fait que survoler)....

... et pour lui rendre hommage, c'est mon collègue Pieroka qui m'a fait découvrir ce système de modules complémentaires, et maintenant je ne m'en passerais plus !

Ben les bbcodes c'est les codes qui ce mettent entre crochets pour pouvoir citer un texte, mettre en couleur, mettre un lien internet, une image, etc... Tu as un module Firefox ici par exemple, mais j'aime bien aussi celui-là. (j'ai les 2 en fait...)

Et bien je te conseil d'y jeter un coup d'œil ! Il y a plein de trucs intéressants. L'un de ceux que j'utilise le plus souvent est un raccourcis pour les bbcode dans les forums...... et un correcteur d'orthographe aussi (bien pratique ici...)

Stylish et le style (dont beaucoup d'autres...): dark gray redesign

Salut Pieroka ! Je n'ai jamais parlé d'économie car je ne trouve plus le lien mais il parait qu'en fait c'est totalement faux que le "Google Back" utilise moins de Watt (un truc du genre "les cristaux se ferment, est c'est égal au fait qu'ils s'ouvrent" pour les écrans LCD.....Ce serait valable pour les "trés vieux" écran TFT de + de 15 ans...) Mais par contre, je pense que ça me bousille beaucoup moins les yeux, et puis je trouve ça moins agréssif, et plus jolie... Il est pas beau mon Google Black : (Module Stylish + Style "Google Web Search - dark gray redesign + Thème "Nasa Night Launch) http://images.imagup.com/04/1216142303_2008-07-15_181854.jpg

Et non.. Je paramètre mon EP entièrement en Noir aussi (comme en EO !) La seule chose qui change, c'est que je laisse l'Affichage de la zonne d'impression" Je n'affiche surtout pas "l'arrière plan Papier", (et donc pas l'ombre papier) ... j'ai même la ligne de commande en Noir ! http://images.imagup.com/04/1216112915_2008-07-15_110627.jpg http://images.imagup.com/04/1216112989_2008-07-15_110705.jpg

Salut, à l'égual du "Google Black" ou un thème Firefox "Black" comme celui "Nasa", ne serait-il pas possible d'avoir un thème CadXP Black ? merci. [Edité le 15/7/2008 par Bred]

Je ne suis pas d'accord, car on ne peux mettre de texte avec ssget, ce qui est particulièrement pratique lorsque l'on veut faire sélectionner un seul type d'objet a l'utilisateur ! ... sauf grâce à la super petite routine de (gile) ici !

... le pire, c'est qu'il remercie lili2006, mais il ne lui a pas donné de bonne réponse en fait..... En tous cas, ça me fait bien marrer ! C'est pour ça que je fait une remarque, parce que avant, j'avais l'habitude de ne pas avoir de remerciement (et je m'en foutais), mais là, en plus de ne pas en avoir, j'ai vraiment l'impression que mes messages ne sont pas tous affiché... Mais bon, suffit de me dire que dans ce post ma première réponse est visible, et ça me suffit !

;) Si c'est une blague elle est bonne. Si ce n'est pas le cas, bennane01, sans aucune rancune : vois-tu mon message ? (car ce n'est pas la première fois que ce genre de truc arrive...) merci.

Salut, et bienvenue ! Je ne comprends pas ce que tu veux faire, la fonction "empreinte" ne permet pas de "déformer un solide" ...