bseb67

Salut jarod34! Juste deux questions: - où est déclaré fact? => (setq aire (* aire fact)) - le bloc "block" existe bien dans le dessin? Pour mes lisps, j'ai fait aussi une petite fonction qui s'appelle inserer_bloc avec pour paramètre le nom du bloc, le chemin (au cas où il n'existe pas encore dans le dessin), le point d'insertion, l'échelle en x et y, l'angle, pour les attributs je met attdia à 0 pour ne pas avoir la boite de dialogue des attributs, et attreq à 0 pour que les attributs prennent leur valeur par défaut. Ensuite je lance une fonction qui initialise les attributs du (set_attribut entité nom_att val_att)

ElpanovEvgeniy=> it's ok, if i wrote (x y) it was to say x=begin y=end, not x and y for position. I think that i have a same program which do this, but in c++ or in java.

:D ok, ben là je comprend. en fait tes (x y) sont des intervalles, je ne sais pas ce que j'ai aujourd'hui, mais j'ai le cerveau complètement à l'envers :P

:casstet: Là moi je n'y comprend rien .

Zebulon: y a un truc bizarre, ta fonction ne marche pas chez moi :casstet: (edit1: ta fonction est récursive) Et je ne vois pas pourquoi, tu appelles vl-directory-files de la même façon que les autres. (edit2: j'y comprends plus rien :casstet: , maintenant ca marche) (gile), patrick_35, ElpanovEvgeniy: ok, Mais petits compléments: 1 - vl-directory-files appelé sur nil comme répertoire, renvoie les répertoires dans mes documents. 2 - il y a toujours "." et ".." en première et deuxième position, au premier abord, je pensais que faire un (cddr (vl-directory-files ....)) plutot qu'un vl-remove irai plus vite, et bien non, les temps sont les mêmes. Ces vl sont vraiment très très fort :cool: [Edité le 10/9/2008 par bseb67] [Edité le 10/9/2008 par bseb67]

Salut, :( y a déjà plein de réponses, et malheureusement hier à midi j'ai du effectuer un dépannage qui m'a bouffé ma pause déjeuner :( . pour ce sujet c'est clair qu'un mode récursif parait évident et intuitif. Je vais tenter un mode itératif, mais avec le code court que vous avez donné, avec le super rapide mapcar, ca va être chaud de faire plus rapide. ;)

Il y a aussi la bibliothèque doslib que j'utilise souvent, mais surtout pour la recherche de fichiers dans des répertoires ou faire de copies, c'est plus rapide que des enregistrer sous. J'attaque le challenge à midi, (et ca me fait penser que je n'ai pas encore attaqué mon super) a+

salut patrick_35! est bien c'est ce que je fais, mais ca marche pas :mad: un exemple tout bête: (defun c:prout() (foreach elem (selection_to_liste (ssget "x")) (command "zoom" "ob" elem "") ) (getpoint) ) (defun c:lprout() (if (= (vl-catch-all-error-p (setq res (vl-catch-all-apply 'c:prout nil))) t) (*error*) ) ) ; c:lprout avec un remplacement de *error* par ma fonction perso, si je fais un un échap dans la boucle foreach il n'exécute pas complètement ma fonction d'erreur. par contre dans le getpoint c'est ok => ca c'était vendredi, je n'ai rien changé au code, et ce matin j'essaye pendant que j'écris ce post, et là ca marche ! :o Bon, ben j'espère que ca reste comme ca.

Salut! Je viens aussi de découvrir que la gestion d'erreur est limitée :( . J'ai redéfini *error* par une autre fonction, dans celle-ci j'appelle une autre fonction qui fait des princ, des if, des commandes et des setvar. Si je fait échap dans une boucle, ma fonction erreur se lance bien, mais stop au premier if juste après mon princ. j'ai alors essayer en mettant un vla-catch-all-apply, sur la fonction qui mouline avec des boucles, et bien le résultat et le même, j'ai bien mon princ, puis plus rien. :mad: Ca m'énerve :mad: . Car au début de chaque fonction, je modifie des choses, et veux donc les remettre en ordre à la fin ou en cas d'erreur.

Et en plus de defsource et deftarget: commande: -dwgunits

salut fraxa, en fait oui et non, le fichier est un fichier d'une entreprise extérieure, pour vérifier j'ai dessiner une simple ligne et fait un zoom dessus. Le fichier contient un fond de plan architecte, et comme dans 90%, ce fond de plan fout la m..... je m'étais fait une sauvegarde complète de toutes les variables dans 2 dessins, un où ca marche et celui où ca bug, et bien nada J'ai supprimer ce fond de plan, purger le dessin, puis un wbloc, et là :o , le zoom objet fonctionne à nouveau :exclam: ! Mystère et tautaugomme :cool: . Disons que le problème est plus ou moins résolu Par contre le zoom objet n'est pas le même sur un autocad 2007 par rapport à ma 2008, sur ma 2008, il laisse plus de marge autour de l'objet que la 2007.

Salut, N'ayant pas la connaissance total de toutes les variables ou mystères d'autocad, mais là j'ai mon zoom objet qui bug, mais seulement dans un dessin. :casstet: Normalement la vue n'affiche que l'objet choisi, mais là, il zoom un peu sur l'objet, mais en plus il ne centre pas la vue, par exemple j'ai une ligne qui fait 1m de long, et bien ma diagonale fait 88m :o ! Si quelqu'un sait d'où ça vient, je l'en remercie. :) ;)

salut, en lisp tu peux chercher les coordonnées des deux points formant la ligne avec le code dxf 10 et 11. ex: (cdr (assoc 10 (entget la_ligne))) ou (cdr (assoc 11 (entget la_ligne))) Ensuite pour demander un clic tu as (getpoint), ensuite tu peux tester si l'utilisateur a bien cliqué une des deux extrémités. pour chercher le point, il faudra faire une sélection avec un ssget en te servant des coordonnées de la ligne, attention!!! il faut que ta ligne soit visible à l'écran pour que le ssget te renvoie bien tout se trouvant sur la ligne, normalement tu as ton point et la ligne (plus d'autre chose si quelque chose passe ou se trouve sur ta ligne), là tu récupère les coordonnées du point avec le code dxf 10 et pour finir tu calcules la distance entre les deux points

Voici mon premier jet, donc sans le min: ;--------------------------------------; ; nom: min_list_bseb67_v1 ; ; role: cherche et renvoie le minimum ; ; d'une liste d'entiers ou de ; ; réels ; ; param: liste => liste d'entiers ou de; ; de réels ; ; retour: un entier et le minimum ; ; date: 28/08/2008 ; ; BLAES Sébastien ; ;--------------------------------------; (defun min_list_bseb67_v1( liste / res e tmp) ; le resultat c'est le premier élément (setq res (nth 0 liste)) ; si jamais ce n'est pas un entier, c'est que c'est une liste ; donc on prend le premier élément dans cette sous liste (while (or (/= (type res) 'INT) (/= (type res) 'REAL)) (setq res (nth 0 res)) ); while ; on va rechercher le minimum dans liste (mapcar (function (lambda (e) (if (= (type e) 'LIST) ; si c'est une sous-liste on recherche le minimum dedans (if (< (setq tmp (min_list_bseb67_v1 e)) res) (setq res tmp) ) (if (< e res) (setq res e) )))) liste) res ) ; min_list_bseb67_v1 n'utilisant pas le min, il me faut chercher le premier nombre.

Le controle ne change rien, le fichier contient plein de merdouille aec, dans ce genre de cas je fait un wbloc de tout le dessin. je suis passé des 800ko à 50 sur une mep 2008

Re, Sous un windows 32bits, tout processus à droit à 2Go de ram, si je t'ai conseillé de voir c'est par ce qu'autocad plante avant ces 2go, mon record c'est 1.8, mais souvent c'est 1.5. De plus en ouvrant deux autocad, tu t'autorises 2*2Go. ou pluto 3. Comme tu as 3.25 (je suppose 4Go en réel) changer le swap n'apporte rien, le swap n'est que la en complément, si tu ouvre 3 autocad avec 1.5Go chacun, tes 3.25 de ram seront pris et le reste ira dans le swap. Essaye de nettoyer ton fichier et un coup de défragmenteur de ram.

Salut steven! Quel windows utilises-tu? et en combien de bits? Si c'est un 32bits, autocad et autres versions (à partir de la 2007, je ne connais pas les autres avant) plantent lorsque tu atteints 1.6-1.8Go d'utilisation de ram. Un collègue qui fait de la 3d, autocad 2008 plante régulièrement. Seule solution, utiliser plusieurs autocad d'ouvert ou un outil du style ramboot qui te libère la ram qu'autocad n'utilise plus mais ne rend pas. (le vilain :cool: ) Lorsque tu lances ta manip regarde l'utilisation en ram du processus AutoCAD.exe et tu vera.

Salut x_all, pour le parcourt et le renommage de répertoire, il y a une bibliothèque très pratique est gratuite: doslib dispo ici http:// http://download.rhino3d.com/download.asp?id=doslib Il y a un arx à charger, puis tu as la possibilité d'utiliser: (dos_rendir old_path new_path) pour renommer (dos_find [filespec [format]]) pour chercher des fichiers dans un répertoire a+

Ca y est, la fonction est faite. :D c'est le cas pas utilisé liste d'entiers ou entiers et ou réels? oui, c'est vrai qu'il y a la fonction min, mais pas dans ma première version. je vais essayer de faire un code avec elle.

Office 2007: interface oulala, quand je cherche un truc, il me faut un temps fou pour le trouver. Et autre point négatif => le temps d'enregistrement. Au bureau on dispose de machine de même architecture, mais certaines avec 2003 pro et d'autre 2007 pro, et bien sur un fichier test de 5Mo sous excel rempli de formule: 24s sous 2003 70s sous 2007 :o :mad: Autocad 2009: installé en version 30j, utilisé 2j, je dispose d'un 24" (comme tout le monde ici), d'une bonne machine, et bien le menu bannière de pub et la lenteur m'ont joyeusement pas donné envie de l'activer. Je reste sur ma mep 2008 en profil autocad, ca marche très bien, ou plutot mieux. Même sur les derniers pc reçu, la 2009 n'est pas fluide fluide.

Salut pieroka! Tu as presque raison, je possède deux imprimantes: - une petite hp payé 80€ en 2002, la cartouche noire ma coute 30€ la couleur 35 :o , mais le prix je m'en fou, car je suis fourni par une amie qui travail pour hp et donc me fourni gratuitement tous les 6-8 mois un jeu de cartouches. Mais c'est vrai qu'elle s'excite pas mal avant la fin de vie de la cartouche. - ayant besoin de scanner, j'ai acheté en 2005 une canon pixa mp750, prix d'achat 290€, mais il y a tout d'abord 5 cartouches: 1 petite noire et 1 grosse noire, 3 pour les couleurs. prix de la cartouche 10-12€ en fonction du lieu d'achat. Là il me faut 5 jeux complets pour arriver au prix de l'imprimante. Je crois qu'en 3ans, j'ai du changer 6-7fois le jeux complet. Car ma copine imprime beaucoup avec. Et comme il n'y a qu'elle qui s'en sert pour l'impression, les frais passent en frais professionnels, donc ca réduit le prix de revient. Je n'ai pas essayer, mais ces cartouches sont "rechargeables normalement".

salut serge! Euh, non, je n'ai pas 41 ans, le 67 c'est par ce que j'habite dans le département 67 en france. Pour mettre des photos il faut tout d'abord déposer tes photos sur un site web ou des pages persos. Moi je suis chez free pour mon accès web, et j'ai donc un site à mon nom bseb67.free.fr. Et là j'ai déposé mes images, après lorsque tu tapes un message, il suffit de cliquer sur le petit icone qui représente un écran et un palette de dessin (à coté de l'icone représentant la terre), et entre les deux balises tu colles l'adresse web de l'image ex: http://bseb67.free.fr/.../mon_image.jpg Voilà. Pour la hauteur de neige j'avais vu les photos de mon ami, là où il était hébergé, il devait sortir par la terrasse au premier étage, puis ils ont dégagé la porte d'entrée. a+

Salut, bred: ton menu marche dans un lisp? (quand un lisp tourne), car moi j'aimerai ajouter au menu contextuel du clic droit dans la fenêtre de dessin des liens vers des fonctions lisp. Mais je patauge comme laure en ce moment. :( Mon but, avoir une utilisation plus convivial, plutot que de clique sur un bouton ou tapper un commande, se serai de faire un clic droit sur un objet, et de donner la possibilité de lancer ces commandes à partir du clic droit.

Normal alors, j'ai un ami (pas mai) qui était au québec au mois de mars pendant 15j pour fêter ses 40ans. Il y avait beaucoup de neige :o . Par contre, c'a ma attristé qu'une ancienne école militaire ai brulée, car le bâtiment aviat l'air super beau (architecturalement parlant) Si j'ai l'argent, je pense y aller avec lui pour ses 45ans. en tout cas merci pour l'info. C'est dommage, mais compréhensible, car faut éviter les surcouches à bug. [Edité le 20/8/2008 par bseb67]

Serge, couche tard ou lève tôt? (3:40). Merci pour les détails, je travail sous autocad que depuis février 2007. Donc je suis encore un débutant ;). Comme tu parles de C++, je voudrais savoir avec quel outils tu développes pour autocad, et si en c++ tu as plus de possibilités que le lisp? Et dernièrement si on peut créer des threads (processus) en c++? car disposant de machines mutlicoeurs, autant les utiliser à fond. merci.