Fraid

Bonjour, Je t'assure que dans ton cas la commande Mesurer est la bonne.

Bonjour, J'ai fini par trouver une solution sans calcul vectoriel ;|¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸, Anim.lsp 1.01 le 23/12/2010 By Frederick Coulon §§§Energetik Faktory§§§ Permet de réaliser une Animation d'un objet sous la forme d'une collection de JPG Dépendance: - Doslib http://download.rhino3d.com/McNeel/1.0/doslib/ Fonctions : - SAVE&SET_VAR , Argument : var = Nom de la variable, val = nouvelle valeur de la variable - Sortie , Argument : Mess = Message d'erreur |;;¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸, ;;; Fonction SAVE&SET_VAR (Gile) ;;; Enregistre la valeur initiale de la variable système dans une liste ;;; et lui attribue sa nouvelle valeur (si val est non nil) (defun SAVE&SET_VAR (var val) (cond ((getvar var) (setq SavedSysVarLst(cons (list 'setvar var (getvar var)) SavedSysVarLst)) (if val (setvar var val) ) ) ) );Fin Fonction SAVE&SET_VAR ;¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸, ;;; Fonction sortie ;;; Permet de sortir proprement du lisp (defun Sortie ( mess ) (princ "\nErreur --> Abandon") (princ mess) (vl-cmdf "_UNDO") );Fin Fonction sortie ;¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸, ;Début du lisp (defun c:anim ;;;Tapper anim pour lancer le lisp ;;;Déclaration des Variables Locales ( / uc sob pt1 pt2 tim spt i ent apt1 apt2 pathJPG NameDWG NameJPG ZeroName ) ;;;Mise en place du Lisp (vl-cmdf "_UNDO" "_BE") (SAVE&SET_VAR "CMDECHO" 0) (SAVE&SET_VAR "filedia" 0) ;;;Contrôle du SCU (setq uc (getvar "worlducs")) (if (= uc 0) (vl-cmdf "_ucs" "")) ;;;si le scu est different de Général, il le devient ;;;Entrées Utilisateur et Variables Locales qui en découlent (while (not(setq sob (car (entsel "\nSélectionnez un Objet: ")))) ) (setq pt1 (getpoint "\nPoint de départ") pt2 (getpoint "\nPoint d'arrivée") tim (getint "\nTemps de l'animation (entre 5 et 40 Secondes): ") PathJPG (dos_getdir "Chercher un Dossier..." "c:\\" "Sélectionne le dossier qui contiendra les Images" t) NameDWG (getvar "dwgname") ) ;;;Test de validité des entrées (if (= pt1 pt2) (sortie "\nLes points de départ et d'arrivée ne peuvent être identiques !!!")) (if (or(< tim 5) (> tim 40))(sortie "\nLe temps de L'animation n'est pas compris entre 5 et 40 Secondes !!!")) ;;;c'est parti (SAVE&SET_VAR "osmode" (logior (getvar "osmode") 16384)) ;;;No Accroche ;;;Création du calque temporaire (vl-cmdf "_.-LAYER" "e" "Anim-Temp" "") ;;;Création du guide (poly3D+points) (vl-cmdf "_3dpoly") (vl-cmdf "_non" pt2) (vl-cmdf "_non" pt1)(vl-cmdf) (vl-cmdf "_.DIVIDE" (entlast) (* 24 tim)) ;;; 24 Nombre d'images par seconde (30 pour norme Etats-Unis d'Amérique) ;;;Animation (setq spt (ssget "_x" (list (cons 0 "POINT") (cons 8 "Anim-Temp"))) ;;;Liste des Points dans le calque Anim-Temp i 0 apt1 pt1 ) (if spt (progn (vl-cmdf "_.-LAYER" "e" "0" "in" "Anim-Temp" "") ;;;Le calque zero devient courant et Anim-Temp Déactivé (repeat (sslength spt) (setq ent (ssname spt i) apt2 (cdr (assoc 10 (entget ent))) ) (vl-cmdf "_move" sob "" apt1 apt2 ) ;;;Déplacement (setq i (1+ i) apt1 apt2 ) (if (< i 10) (setq ZeroName "00")(if (< i 100) (setq ZeroName "0")(setq ZeroName ""))) (setq NameJPG (strcat PathJPG (substr NameDWG 1 (- (strlen NameDWG) 4)) ZeroName (itoa i) ".jpg" )) (vl-cmdf "_jpgout" NameJPG "") ;;;Impression en jpg );fin du repeat );fin du progn (Sortie "\nIl n'y a pas d'animation possible") );Fin du if (vl-cmdf "_-laydel" "n" "Anim-Temp" "" "o") ;;;Suppression du calque Anim-Temp ;;;Retabli le SCU le cas échéant (if (= uc 0) (vl-cmdf "_ucs" "p")) ;;;Arrêt propre du lisp (vl-cmdf "_UNDO" "_E") (mapcar 'eval SavedSysVarLst) (if NameJPG (princ (strcat "\nLa collection d'images a bien été enregistrée dans " PathJPG )) (princ "\nHop la !! Try Again ?!!")) (princ) );Fin du lisp ;¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸, ;| Testé sur - Soft : Autocad 2010 64Bit / winxp64 - Syst. : 2 CPU Xeon E5530 2.40Ghz / 32Go RAM - C.G. : FX 4800 |; J'ai bien conscience que c'est du travail de débutant, et qu'il y a certainement des façons bien plus éléguante d'ecrire ce code. Il y a moyen de faire quelque chose de plus complet (plusieurs objets, rotation, choisir un chemin....) Mais j'ai déjà mis 3 jours a écrire cela.... :P J' suis charette maintenant.. [Edité le 23/12/2010 par Fraid]

Bonjour, Je ne connais pas de solutions gratuites pour réalisé cela avec une qualité pro. Tu ne pourra pas echappé a 3dsmax pour exporter tes objets vers un logiciel de type Virtools.(env. 12000€ en version complete de base) Quand tu as 3dsmax il existe des solutions gratuites qui devienne tres interressantes par exemple chez Dassault system www.3dvia.com je te laisse decouvrir

Bonjour, Je confirme qu'a l'install il y a un choix de metier dédié :exclam: pas osé coché autre chose que classique

Si tout le monde pouvais penser et agir comme toi ce serai le bonheur Mais ce n'est pas le cas et en recevant les plans de mes clients (certains travail encore en R14!!) je vois de tout... :P c'est pour cela que je pense que la taille des fenetres devrait se faire automatiquement selon l'unité choisi en eo, du coup cela simplifierai la getion des echelles de type de ligne ainsi que l'impression. Il ne reviendrons certainement pas en arriere chez Autodesk :(

C'est bien sur par cette commande que c'est possible en lisp. J'y ai un peu plus réflechi, on selection l'objet a déplacé on clic le point de depart et d'arrivé du déplacement on divise le vecteur obtenu pour obtenir un déplacement par image (c'est la que je bloque) on fait une boucle en imprimant en bmp a chaque déplacement Peut etre qu'un Maitre Lispien voudra bien nous faire cela ?

Bonjour, C'est clair qu'il y a trop de parametres a gérer en ce qui concerne les echelles des espaces, des types de lignes, l'impressions, les fenetres... Sans formation c'est trés difficille et long de comprendre. Je pense que si il n'y aurai pas le choix d'echelle dans l'espace papier cela serai plus facile. Quel interet de pouvoir choisir si ton cartouche va faire 0.21 ou 210 de large ? Nous aurions tous la meme valeur, cela me generai pas.

Bonjour, La seule solution que je connais est de faire des ImprimEcrans au fur et a mesure que tu déplace tes pieces, puis assembler l'ensemble des images obtenu dans un logiciel de montage vidéo. C'est trés fastidieux... :P Mais on pourrai imaginer un Lisp qui nous ferai cela plus rapidement. Mes connaissances en calcul vectoriel ne me permettent pas de le faire Sinon je te conseillerai d'utiliser 3dsmax, l'animation d'objet est "un jeu d'enfant" en suivant les tutoriaux dispo sur youtube. En plus il est gratuit pendant 30 jours. Bon courage

Désolé je n'avais pas vu le double post.... Tes calques sont situés dans tes cartouches Donc pas la peine de tout explosé ton espace objet :( Dans ton espace papier tu pourra selectionner tes calques [Edité le 17/12/2010 par Fraid]

Bonjour, Si tu fait un wbloc avec tes objets selectionnable, tu devrai te retrouvé avec un fichier propre Bonne chance

Bonjour, Fait attention au nom de tes nouveaux blocs, c'est souvent comme cela que l'on a des problemes de référence.

sa y est c'est decoincé

Bonjour, Si c'est un probleme récurent c'est que c'est une des choses les plux complexe a comprendre et maitriser dans Autocad. Surtout parcequ'il y a enormement de circonstances qui mettent en péril l'affichage des Type de lignes. Le premier conseil que je donnerai est de mettre la variable PSLTSCALE a 1 ce qui théoriquement permet d'affiché les type de lignes quelque soit l'echelle utilisé dans ta fenetre. Aprés cela depend de ton dessin envois nous un exemple avec tout tes types de lignes en objet et un fenetre dans l'espace papier comme tu utilise d'habitude. la on pourra t'aider plus efficacement.

Bonjour, (Gile) a fait un travail remarquable sur les champs avec son Lisp Addfields http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=24917 peut etre y trouvera tu ton bonheur

Il y a moins de lettre dans la premiere ;)

Bonjour, C'est le motif Solide qui est utilisé (command "_-hatch" "s" NamCircl "p" [surligneur] "s" [/surligneur] "" "")

Bonjour, Je suppose que tu parle de Droite quand tu parle de ligne de repére, Ou alors de ligne de repére multiple ? Envois nous un exemple pour etre sur de parler de la meme chose En attendant tu peut faire un _audit, tu as peut etre des erreurs dans ton fichier

Bonjour, Normalement pas trop besoin de lisp pour faire cela Mais si tu est faché avec l'outil hachure un ptit truc (defun c:vert (/ SelCircle i NamCircl) (setq SelCircle (ssget (list (cons 0 "CIRCLE"))) i 0) (if SelCircle (repeat (sslength SelCircle) (setq NamCircl (ssname SelCircle i)) (command "_-hatch" "s" NamCircl "p" "s" "" "") (command "_chprop" (entlast) "" "co" "vert" "") (setq i (1+ i)) ) ) (princ) )

A tu regardé si tu as des blocs avec leur pt d'insertion de l'autre coté de la planete? un idée en passant...

Bonjour, Je te confirme que ce n'est pas du a ta carte, avec une 4800 cela m'arrive aussi. Notament sur des fichiers Géorférencés. Mais cela reste assez anecdotique. Peut etre en placeant temporairement le scu pres de tes objets (l'inverse de Bred) Je pense que c'est tout simplement un Buggounet. Tcho

Bonjour, Difficile de te repondre sans un plan en exemple. Un pc puissant ne veux pas dire grand chose, si il est mal configuré il tournera comme une patate. Sinon, dans tes dessin il peut y avoir beaucoup d'echelle d'annotation : recherche sur le forum il existe des routines qui nettoyent les plans. Y a t'il des MTEXT dans tes blocs....A éviter je pourrai faire des suppositions comme cela pendant des heures.. Envois nous un plan et nous pourrons t'aider

Bonjour, Pareil que toi Didier Je n'utilise que les formes imposées par mes clients. Si je leur envois une nouvelle forme, ils se déforment.... :P

Bonjour, Si un style de cotes est créé et utilisé dans le dessin, il est enregistré dans celui ci. Et je ne vois pas le rapport avec Autolisp.... Oui, selectionne une cote et ouvre la palette des Propriétés (Ctrl+1)

Bonjour, Je pense que c'est l'occasion pour toi de te metre a l'Autolisp. Car il est difficile de t'aider. Chaque charte graphique demande un developpement spécifique. Bonne chance

Bonjour, De quoi parle tu?