Tramber

Je ne veux pas m'immiscer dans ce que je ne connais pas mais dans votre domaine, j'entends peu souvent parler de plexscape. Ca n'est pas utile pour ton cas ? http://www.plexscape.fr/

J'essaie autre chose si tu réponds à ma suggestion de collage spécial.... quoique je n'aie rien d'autre !

Eh oui ! A la relecture, pas de différence dans l'écriture ? On peut écrire ? (vla-addsphere block (vlax-3d-point (list x y)) rayon) (vla-AddExtrudedSolid block region hauteur angledepouille) (vla-Boolean region acSubtraction region2) etc... ou il faut passer à (vlax-invoke block 'addsphere ... ...) ?

Et les gars ; si on écrivait un livre :P

Dommage quand-même pour Atomick. Moi non plus, je ne suis pas refractaire aux copier-coller, pas du tout. Dans mon utilisation, je n'ai jamais eu de problèmes. Il est vrai que je suis connaisseur et ne me fais pas avoir avec les blocs, blocs imbriqués,... Mais, juste une remarque, si tu essaies un collage spécial (c'est dans le menu édition) et coller sous forme d'entités AutoCAD. Cela marche-t-il ? Je suggère d'essayer, sans tester moi-même.

(atan (sqrt (- 1 (expt valeur 2))) valeur) Et oui, en plongeant dans les formulaires de géométrie, on trouve certains biais pour l'arccosinus ! Je te donne cette formule observée plusieurs fois ici et ailleurs. ;) Attention, ne laisse pas valeur dépasser 1 ou -1 B)

Salut jcv, salut Bryce ! Soyons honnêtes, il y a des fonctions plus avancées (plutôt que de passer par du COMMAND) et c'est toi-même, Bryce, qui nous avait d'ailleurs mis au clair la traduction des fonctions Vlisp qui permettent de traiter ces commandes en "dur". ex : vla-addBox vla-addSphere ... etc Je crois qu'il faut passer par la syntaxe invoke Comment créer une boite par exemple ? dans la syntaxe ZW ?

Je ne dis plus rien ! Il arrive souvent qu'on lance des pistes et que nos amis n'ouvrent même pas l'aide ;)

Et ta variable OSNAPZ ? elle est à 1 ?

Ah, l'amour Utiliser ce scriptpermet de se guérir un peu....

Et je dirais même plus : (cond((= typeres "Y") :P

(defun c:PrCr () (setq nombase "Nom_presentation_") (initget "X Y") (if (setq typreshab (getkword (strcat "\nType de réseau [X/Y] <"(cond (typeres) ("X"))"> :"))) (setq typeres typreshab)) (cond((= typeres "Y"); ouf ! (initget (if deltay 0 1) ) (setq result(getdist (strcat"\nDistance de deltaX :"(cond(deltay (strcat"<"(rtos deltay 2 3)">"))(""))))) (cond((not result)deltay)((setq deltay result))) (setq deltax 0.0) ) (T; X (initget (if deltax 0 1) ) (setq result(getdist (strcat"\nDistance de deltaX :"(cond(deltax (strcat"<"(rtos deltax 2 3)">"))(""))))) (cond((not result)deltax)((setq deltax result))) (setq deltay 0.0) )) (initget 1) (setq pointbase(getpoint"\nPoint de base : ")) (initget 33) (setq point2(getcorner pointbase"\nCoin de fenêtre : ") compteur 1) (initget 7) (repeat(getint"\nNombre de fenêtres : ") (command "TRACEUR" "O" "" "" "" "" "" "" "F" pointbase point2 "" "" "" "" "" "" (strcat nombase (itoa compteur)) "" "" ) (command "_REDRAW") (setq pointbase(list(+(car pointbase)deltax) (+(cadr pointbase)deltay) 0 ) point2(list(+(car point2)deltax) (+(cadr point2)deltay) 0 ) compteur(1+ compteur)) ) ) Un certain qqe-chose-Bruno m'a suggéré une amélio dans la question introductive. Pour être honnête, j'ai écrit un peu n'importe quoi dans le premier paragraphe. Car on est aussi là pour s'amuser :P

C'est justement le sujet ! Avec un Autolisp basique on peut aussi se satisfaire. C'est toi qui le mets au point avec ton bon vieux script, euhhh .... ton bon vieux (command ......)

Il est gentil l'Alsacien émigré mais je ne vois aucun remord sur la supression de l'arbre, de la structure d'aide en chapitres hiérarchisés que nous chercherions volontiers à retrouver.

Je veux pas te forcer la main mais il me semble que faire un petit peu de vieil Autolisp te permettrait éventuellement d'appréhender toi-même la résolution. Je serai là ce WE. Je prépare mon déménagement dans une commune voisine. Dans une semaine par contre, je risque fort d'être deconnecté pour qqes jours.

Moi je répondrais en disant que tu pourrais enregsitrer ton SCU (Sauver dans les options de la commande) et le restaurer dans l'EP. Ajoutons qu'il faut régler USCFOLLOW à 0 pour être tranquille mais ça c'est un classique !

Ca me fait plaisir de lire cela ! Dessiner pendant des années ne plait pas à tout le monde et notre profession vit pas mal dans le turn-over. D'où les difficultés de tant d'entreprises à recruter. Saluons les 13ème mois et la bonne volonté des employeurs pour les jeunes B) Bon courage !

La commande est bien à 1 La variable ! On va instaurer les punitions à la fin :P

eh ben mon vieux ;) Pour les fenêtres d'espace papier faut donc passer par un zoom nxp, à l'ancienne.... MAis quel topo ! On t'engage comme testeur officiel pour CADxp

Autant pour moi, j'avais rêvé, elle marche bien sur mes 2 versions : 2010 et 2011 ....

Je suis curieux, ça dit quoi ? Commande inconnue ? ou la commande ne va pas au bout ? Comme chez moi ou elle semble ne pas marcher sur 2010.... Pour info, c'est -EXPORTTOAUTOCAD, avec 2 T. Mais je voudrais savoir si vous avez un résultat

(defun c:PrCr () (setq nombase "Nom_presentation_") (initget 2 "X Y") (setq typeres(getkword (strcat"\nType de réseau X/Y <"(if typreshab "Y" "X")"> : "))) (setq typeres(or(= typeres "Y")(and(null typeres)typreshab))) (setq typreshab typeres); typreshab est un type habituel ! C'est un peu compliqué, non ? (cond(typeres; Y (initget (if deltay 0 1) ) (setq result(getdist (strcat"\nDistance de deltaX :"(cond(deltay (strcat"<"(rtos deltay 2 3)">"))(""))))) (cond((not result)deltay)((setq deltay result))) (setq deltax 0.0) ) (T; X (initget (if deltax 0 1) ) (setq result(getdist (strcat"\nDistance de deltaX :"(cond(deltax (strcat"<"(rtos deltax 2 3)">"))(""))))) (cond((not result)deltax)((setq deltax result))) (setq deltay 0.0) )) (initget 1) (setq pointbase(getpoint"\nPoint de base : ")) (initget 33) (setq point2(getcorner pointbase"\nCoin de fenêtre : ") compteur 1) (initget 7) (repeat(getint"\nNombre de fenêtres : ") ;| ICI ton COMMAND d'impression avec toutes les options nécessaires. genre (command "TRACEUR" "O" "" "" "" "" ..... "F" pointbase point2 ....) on peut aussi glisser un nom incrémenté directement en lisp dans le COMMAND = (strcat nombase (itoa compteur)) genre (command "TRACEUR" "O" "" (strcat nombase (itoa compteur)) "" "" ..... "F" pointbase point2 ....) |; ;;; maintenant on prépare les points suivants et le compteur pour le tour suivant dans la boucle REPEAT. (setq pointbase(list(+(car pointbase)deltax) (+(cadr pointbase)deltay) 0 ) point2(list(+(car point2)deltax) (+(cadr point2)deltay) 0 ) compteur(1+ compteur)) ) ) Pas beaucoup de temps mais un lisp écrit basique. Se lance par PRCR. Je n'ai pas regardé autour pour voir ce qu'il y avait mais je pense que, maitrisant le script, tu sauras renseigner le (command........). Ca pourrait marcher :P

Cher LeCrabe, je crois qu'un lisp de premier niveau (autolisp) te serait très utile. Pas compliqué, un pas vers l'automation. Je me penche sur une base si j'ai 2 minutes.

Oh, les gars ?! vous ouvrez l'aide, des fois ? 15+16=31 Mettez 31 soit 16 + 15 Ou 16+15+8+4+2+1

J'allais le dire aussi :(rires forts): En fait, je m'en serais douté ! Mais Inventor ne peut-il gérer les htumbnails ? I don't know !