kclement

Bon, je vais faire l'exigeante, mais ce serait-il possible que la routine copy_align permette de sélectionner plusieurs objets ??? Merci... ;)

Alors, j'ai testé : 1) copy_align fonctionne parfaitement, c'est exactement ça que je voulais ! 2) la version light de copy_rotate : ça marche, mais celle que je'ai mise dans mon premier post, me permet de mettre la copie où je veux, et evntuellement d'avoir des copies multiples d'un seul coup... Mais merci quand même (gile) ! A + !

Bonjour, Merci (gile) je vais tester ça tout de suite ! C'est vrai, j'avais changé le nom pour que ce soit plus rapide à taper car il faut dire que j'utilise ce lisp plusieurs dizaines de fois par jour! Merci aussi lecrabe, je vais les essayer également, qui sait peut-être que je vais gagner encore plus de temps ! A bientôt...

Bonjour à tous, Il y a quelques temps j'avais trouvé sur ce forum un Lisp qui permettait de copier et de pivoter des objets dans la même commande : ; C:COPYROT8.LSP by STEVE SMITH, COMPUSERVE ID:72611,2544 (defun C:CR () (setq theset nil thelist nil mflag 0 rflag nil) (setq startent (entlast)); obtain last entity in database (prompt "Pick Objects to Copy: ") (setq sset (ssget)); object selection (initget 1 "Multiple") (setq bpt (getpoint "\nBasepoint/Multiple: ")); basepoint or m for multiple (if (= (type bpt) 'STR) (progn (setq mflag 1) (initget 1 "Fixed") (setq bpt (getpoint "\nBasepoint (mult. copies)/Fixed angle:")); base point or f for fixed rotation angle (if (= (type bpt) 'STR) (progn (setq rflag 1) (setq bpt (getpoint "\nBasepoint (mult. copies and fixed angle): ")) (setq fang (getangle bpt "\nFixed Angle:"));fixed angle for rotation );progn );if );progn );if ; loop until mflag becomes nil (while mflag (progn (setq startent (entlast)) (setq npt (getpoint bpt "Newpoint: ")) (command "_copy" sset "" bpt npt) (setq thelist (list (cdr (assoc 5 (entget startent))))) (setq nextone startent) (while nextone (progn (setq nextone (entnext nextone)) (if nextone (setq thelist (cons (cdr (assoc 5 (entget nextone))) thelist))) );progn );while (setq thelist (cdr (reverse thelist))); list of entity handles for copied group (ssmake thelist) (if rflag (command "_rotate" theset "" npt (rtd fang)) (command "_rotate" theset "" npt pause) );if (setq theset nil thelist nil); reset list and selection set (if (= mflag 0) (setq mflag nil)); drop out of while if not multiple );progn );while (if (equal npt bpt) (redraw)); if @ was used for newpoint redraw old object (setq theset nil thelist nil);try to clean up after one's self );defun ;turn list of ehandles to selection set (defun ssmake(sslist) (setq theset (ssadd)) (foreach ent sslist (ssadd (handent ent) theset)) ) ; Ca marche très bien, et j'aurais aimé avoir la même routine mais avec la fonction align à la place de rotate. Etant une bille en programmation, je me tourne vers vous, voir si vous pouvez quelque chose pour moi. Merci d'avance

Bonjour, J'ai déjà eu ce problème et il n'a jamais été résolu ! Une astuce toutefois : tu crée un wbloc des objets que tu veux copier avce le point 0,0,0 comme point de base puis tu insères ce bloc dans ton dessin vierge au point 0,0,0. En principe il n'y a pas de problème, en tout cas pour moi ça a toujours marché ! Salut

Salut, C'est moi l'auteur(e) de la question dont tu t'es inspiré pour ton application. Dès que les grêves sont terminées et que je peux retourner au boulot je teste ça ! Une question (peut-être bête vu que j'ai pas encore testé !) cependant : ça ne posera pas de problème si je donne ce fichier à quelqu'un qui n'a pas cette appli ? En tout cas, je suis toujours épatée des réponses qui sont distribuées sur ce forum grâce à des gens comme toi Eric! Merci !

Oui, oui, ça je sais :) . Mais c'est justement au moment de la publication qu'il me fait un pdf multipage. C'est pour ça que je voudrais pas avoir à tracer mes onglets un par un (sachant que je peux en avoir 70 répartis sur 3 fichiers !)... J'ai déjà essayé sur 2007, et ça n'a pas marché...

Merci pour ces reponses. Mais une partie reste en suspens : par défaut, Autocad 2008 me crée un PDF mulitipages, comment faire si ce n'est pas ça que je veux (sans avoir à imprimer tous mes onglets un par un) ? J'ai eu beau chercher, je n'ai rien trouvé dans les diffétentes options et aides d'Autocad...

Bonjour, Dans mon agence, nous travaillons sur deux versions d'Autodesk Architectural Desktop : 2007 et 2008. Si je lance une publication avec une mise en page PDF (avec Adobe PDF Creator) dans 2007, il me demande le nom de fichier pour chaque présentation et crée donc un pdf par onglet de présentation (que je suis obligée de fusionner pour avoir un seul document). Si je lance une publication identique (depuis le même fichier) sur 2008, il me crée un fichier unique multipages avec toutes me présentations... Alors, c'est bien, mais j'aimerai bien savoir comment controler ça dans 2008. Après tout, je peux très bien avoir besoin de plusieurs pdf...! Et est-il possible de faire un pdf multipages dans 2007 ? Merci ! PS : j'ai jeté un oeil dans l'aide 2008, il me propose d'utiliser un pc3 qui s'appelle DWG to PDF pour créer un document multipages ; vous avez déjà essayé ?

Bonjour, Dans mon agence, nous travaillons sur deux versions d'Autodesk Architectural Desktop : 2007 et 2008. Si je lance une publication avec une mise en page PDF (avec Adobe PDF Creator) dans 2007, il me demande le nom de fichier pour chaque présentation et crée donc un pdf par onglet de présentation (que je suis obligée de fusionner pour avoir un seul document). Si je lance une publication identique (depuis le même fichier) sur 2008, il me crée un fichier unique multipages avec toutes me présentations... Alors, c'est bien, mais j'aimerai bien savoir comment controler ça dans 2008. Après tout, je peux très bien avoir besoin de plusieurs pdf...! Et est-il possible de faire un pdf multipages dans 2007 ? Merci ! PS : j'ai jeté un oeil dans l'aide 2008, il me propose d'utiliser un pc3 qui s'appelle DWG to PDF pour créer un document multipages ; vous avez déjà essayé ? [Edité le 13/11/2007 par kclement]

Bonjour à tous Désolée de ce long silence... Je viens donc de lire les réponses et je vais essayer de ce pas ce lisp qui a l'air de fonctionner...! Merci encore !

Oui, bien sûr j'au déjà pensé à tout ça... Le problème c'est que j'utilise des fonction Autodesk Architectural Desktop qui sont spécifiques de la version 2006, et que même si je n'utilise pas nécessairement des fonctions 2007 (parce qu certaines améliorations d'utilisation ont été apportées !), ces deux formats ne sont pas compatibles, j'ai donc vraiment besoin de pouvoir les ouvrir dans les versions où ils ont été enregistrés ! C'est là que le bas blesse... :(

Effectivement, je n'y connais pas grand chose en lisp (si j'en vois un simple, je peux à la limite modifier quelques élément mais ça va pas beaucoup plus loin !) Ce serait super sympa de ta part en tous cas :P Merci ! PS: j'en ai parlé avec des collègue et ils n'y croient pas trop... Je testerai de toute façon !

Bonjour, Je m'explique : Dans mon agence nous travaillons (selon la date où ont démarré les projets) sous 3 versions d'Autocad Architectural Desktop : de 2006 à 2008. Ma question est la suivante : peut-on forcer un fichier qui aurait été enregistré en version 2006 à s'ouvrir sous cette version d'Autocad (car si on l'ouvre sur 2007 et qu'on fait des modifs, il ne pourra plus s'ouvrir en 2006) ? Si ce n'est pas possible, est-ce qu'il ne pourrait pas, par exemple, y avoir un message qui apparaitrait si j'ouvre un dessin dans la mauvaise version, sachant que si on travaille sur plusieurs affaires en même temps on peut avoir à ouvrir deux versions d'Autocad... Voilà, Merci !

Eh bien, quelle effervescence !!! Je crois que je n'avais jamais encore vu de conversation tourner dans ce sens sur ce forum ! Je vous avoue que je n'ai pas eu le temps de tester (au fait : merci (gile) !!!) J'ai malheureusement un petit coup de speed au boulot en ce moment même, mais je vous promets que je vous tiens au courant de mes avancées en matière de LISP ! A bientôt alors ! Kclement

Bouhouhou ! Ca me désespère : je pensais pouvoir m'y retrouver toute seule mais y a rien à faire! J'ai bien essayé pourtant... Il y a certains trucs que je commence à comprendre dans ce langage, mais là je suis perdue ! Donc je te donnes le LISP pour que tu puisses me dire où mettre quoi si ça te dérange pas... (defun c:inv(/ ent l); par Christophe PALMERIO (setq ent (entget (car (entsel "\nSelectionnez une cote: ")))) (if (= "DIMENSION" (cdr (assoc 0 ent))) (progn (setq l (subst (cons 51 (+ (cdr (assoc 51 ent)) pi)) (assoc 51 ent) ent ) ) (entmod l) ) ) (princ) ) Merci d'avance !

Salut à tous, J'ai récupéré un Lisp qui pemet d'inverser une cote, seulement je dois lancer la commande autant de fois que j'ai de cotes à inverser car il ne permet pas d'en sélectionner plusieurs. Donc j'aimerai faire en sorte que cela soit possible, mais je débute encore en lisp et j'ai pas su le faire malgré mes longues recherches... Merci...

Bon, ça marche ! Merci ! Par contre je n'ai pas compris pourquoi il faut mettre la ligne (setvar "HPASSOC" var_HPASSOC) à la fin du lisp...

OK, je vais tester ça demain... Merci !

Bonjour, J'ai trouvé un lisp sympa qui permet de creer des hachures solides et séparées sans passer par la boite de dialogue autocad. Je l'ai transformé un chouilla (malgré le peu de connaissances que j'ai en programmation LISP) mais par défaut dans autocad, la variable HPASSOC est à 0, donc je voudrais qu'au début du lisp elle se mette à 1 pour que les hachures soient associatives quelque soit l'ordi sur lequel je vais utiliser le programme. J'ai bien essayé de rajouter une ligne mais ça n'a rien fait... Autre problème : dans le lisp originale les hachures étaient en arrière plan et je voulais pouvoir choisir entre "arrière plan" et "en dessous de l'objet". Je suis parvenue à lui faire demander l'ordre de tracé mais lorsque je lui demande de mettre les hachures "en dessous de l'objet", il me dit : *Sélection non valable* Attend un point ou Fenêtre/Dernier/Capture/BOîte/TOUT/Trajet/SPolygone/CPolygone/Groupe/Ajoute r/Sup primer/Multiple/Précédent/annUler/AUto/uniQue Fonction annulée Pourtant il me fait quand même les hachures, et quand je lui demande en "arrière plan" tout va bien...je ne comprends pas ! Voici le programme : [surligneur] (defun c:mh (/ cmdecho ss i ss1 ot rep) (setq cmdecho (getvar "CMDECHO")) (setvar "CMDECHO" 0) (command "_.UNDO" "_Group") (setq ss (ssget '((-4 . " (-4 . " (0 . "POLYLINE") (-4 . " (-4 . "&") (70 . 1) (-4 . "<") (70 . 16) (-4 . "AND>") (-4 . "AND>") (-4 . " (0 . "LWPOLYLINE") (-4 . " (-4 . "&") (70 . 1) (-4 . "AND>") (-4 . "AND>") (-4 . " (0 . "MLINE") (-4 . " (-4 . "=") (71 . 3) (-4 . "AND>") (-4 . "AND>") (-4 . " (0 . "CIRCLE") (-4 . "AND>") (-4 . " (0 . "3DFACE") (-4 . "AND>") (-4 . " (0 . "ELLIPSE") (-4 . " (-4 . "=") (41 . 0) (-4 . "=") (42 . 6.283185307179586) (-4 . "AND>") (-4 . "AND>") (-4 . " (0 . "SPLINE") (-4 . " (-4 . "&") (70 . 1) (-4 . "AND>") (-4 . "AND>") (-4 . " (0 . "REGION") (-4 . "AND>") (-4 . "OR>") ) ) i -1 ss1 (ssadd) ) (initget 1 "a s") (setq rep (getkword "\nOrdre de tracé : Arrière plan (A) ou Sous le contour (S): " ) ) (if (= rep "s") (progn (setq ot "dessous")) (progn (setq ot "arriere")) ) (repeat (sslength ss) (command "_.-bhatch" "_properties" "_solid" "_select" (ssname ss (setq i (1+ i))) "" "" ) (ssadd (entlast) ss1) ) (command "_.draworder" ss1 "" ot) (command "_.UNDO" "_End") (setvar "CMDECHO" cmdecho) (princ) )[/surligneur] Bon, entre temps je me suis souvenue que, maintenant, dans la boite de dialogue des hachures, autocad propose justement l'ordre de tracer. Peut-être qu'il est inutile alors de passer par la commande draworder dans le lisp mais je suis bloquée là aussi Help ! Merci d'avance

Désolée pour le sujet du post, mais j'avais mis des astériques et j'avais pas vu qu'il avait supprimé le reste du texte...

Bonjour, J'ai trouvé un lisp sympa qui permet de creer des hachures solides et séparées sans passer par la boite de dialogue autocad. Seulement par défaut les hachures étaient en arrière plan et je voulais pouvoir choisir entre "arrière plan" et "en dessous de l'objet". Je suis débutante mais j'ai voulu tenter de modifier le lisp (ça fait au moins 2 heures que je suis dessus vu qu'il a fallu que je découvre en même temps des fonctions) Je suis parvenue à lui faire demander l'ordre de tracé mais lorsque je lui demande de mettre les hachures "en dessous de l'objet", il me dit : *Sélection non valable* Attend un point ou Fenêtre/Dernier/Capture/BOîte/TOUT/Trajet/SPolygone/CPolygone/Groupe/Ajouter/Sup primer/Multiple/Précédent/annUler/AUto/uniQue Fonction annulée Pourtant il me fait quand même les hachures, et quand je lui demande en "arrière plan" tout va bien...je ne comprends pas ! Autre requete : j'aimerai pouvoir mettre la variable autocad HPASSOC à 1 pour que mes hachures soient associatives lorsque je lance le lisp, mais je n'y arrive pas non plus... Voici le programme : [surligneur] (defun c:mh (/ cmdecho ss i ss1 ot rep) (setq cmdecho (getvar "CMDECHO")) (setvar "CMDECHO" 0) (command "_.UNDO" "_Group") (setq ss (ssget '((-4 . " (-4 . " (0 . "POLYLINE") (-4 . " (-4 . "&") (70 . 1) (-4 . "<") (70 . 16) (-4 . "AND>") (-4 . "AND>") (-4 . " (0 . "LWPOLYLINE") (-4 . " (-4 . "&") (70 . 1) (-4 . "AND>") (-4 . "AND>") (-4 . " (0 . "MLINE") (-4 . " (-4 . "=") (71 . 3) (-4 . "AND>") (-4 . "AND>") (-4 . " (0 . "CIRCLE") (-4 . "AND>") (-4 . " (0 . "3DFACE") (-4 . "AND>") (-4 . " (0 . "ELLIPSE") (-4 . " (-4 . "=") (41 . 0) (-4 . "=") (42 . 6.283185307179586) (-4 . "AND>") (-4 . "AND>") (-4 . " (0 . "SPLINE") (-4 . " (-4 . "&") (70 . 1) (-4 . "AND>") (-4 . "AND>") (-4 . " (0 . "REGION") (-4 . "AND>") (-4 . "OR>") ) ) i -1 ss1 (ssadd) ) (initget 1 "a s") (setq rep (getkword "\nOrdre de tracé : Arrière plan (A) ou Sous le contour (S): " ) ) (if (= rep "s") (progn (setq ot "dessous")) (progn (setq ot "arriere")) ) (repeat (sslength ss) (command "_.-bhatch" "_properties" "_solid" "_select" (ssname ss (setq i (1+ i))) "" "" ) (ssadd (entlast) ss1) ) (command "_.draworder" ss1 "" ot) (command "_.UNDO" "_End") (setvar "CMDECHO" cmdecho) (princ) ) [/surligneur] Bon, entre temps je me suis souvenue que maintenant dans la boite de dialogue des hachures autocad propose justement l'ordre de tracer. Peut-être qu'il est inutile alors de passer par la commande draworder dans le lisp mais je suis bloquée là aussi Help ! Merci d'avance [Edité le 13/3/2007 par kclement]

Dommage... Et y aurait-il un moyen pour éviter la boîte de dialogue, par exemple en tapant à la main le nom de l'étiquette et la valeur qu'on veut lui attribuer ?

Bonjour à tous, En cherchant dans le forum je suis tombée sur ce post de Patrick_35 : http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=11303#pid55450 Incroyablement utile d'ailleurs, merci Patrick_35 !!! Mais j'aurais aimé pouvoir utiliser le lisp MAT proposé sur tous les fichiers d'un même dossier, comme le lisp SCR laisse penser que c'est possible (c'est à dire changer d'un seul coup toutes les valeurs d'un même attribut)... Seulement j'ai essayé mais je n'y suis pas parvenue... Y a-t-il une solution pour faire ça ? Merci d'avance, Kclement

Super ça a marché ! C'est l'ancienne commande express, ou ça existe depuis longtemps ? En tous cas merci !