Fraid

bonjour bred, En vrd nous nous servons de types de lignes contenant des lettres cela permet de les avoir dans le sens de lectures du plan il doit y avoir d'autres occasion d'utiliser ce lisp que j'utilise depuis deja depuis un certain temps voici la version que j'ai recupere je ne sais plus ni quand (Defun dd_ext ( cle e / ) (if (= 'ENAME (type e)) (setq e (entget e))) (cdr (assoc cle e)) ) (Defun dd_snoc ( elem li / ) (append li (list elem)) ) (Defun dd_analpol ( pol / e ent ll alti) (setq ll '() e pol) (cond ((= "POLYLINE" (dd_ext 0 pol)) (while (/= "SEQEND" (dd_ext 0 (setq ent (entget (setq e (entnext e)))))) (setq ll (cons (list (trans (dd_ext 10 ent) pol 1) (dd_ext 42 ent)) ll)) ) ) ((= "LWPOLYLINE" (dd_ext 0 pol)) (setq ent (entget pol) ptcrb nil alti 0.0) (while ent (if (= 38 (caar ent)) (setq alti (cdar ent)) ) (if (= 10 (caar ent)) (setq ptcrb (trans (snoc alti (dd_xy (cdar ent))) pol 1))) (if (= 42 (caar ent)) (setq ll (cons (list ptcrb (cdar ent)) ll))) (setq ent (cdr ent)) ) ) ) (if (= 1 (logand (dd_ext 70 pol) 1)) (dd_snoc (last ll) (reverse ll)) (setq ll (reverse ll) ll (dd_snoc (list (car (last ll)) 0.0) (reverse (cdr (reverse ll)))) ) ) ) (Defun dd_reversepol ( lpc / ) (if (= 'ENAME (type lpc)) (setq lpc (dd_analpol lpc))) (mapcar '(lambda (x1 x2) (list (car x1) (* (cadr x2) -1)) ) (reverse lpc) (dd_snoc (last lpc) (cdr (reverse lpc))) ) ) (Defun dd_tracepol ( lpc / lp) (setq lp (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0) (cons 100 "AcDbPolyline") (cons 90 (length lpc)) (cons 70 0) (cons 43 0) (cons 38 0.0) (cons 39 0.0) ) ) (foreach vert lpc (setq lp (append lp (list (cons 10 (car vert)) (cons 42 (cadr vert)) ) ) ) ) (setq lp (append lp (list (cons 210 (list 0.0 0.0 1.0))))) (entmake lp) ) (Defun C:Retournepol ( / e lp) (setq e (car (entsel "\npointer une polyligne"))) (if (and e (member (dd_ext 0 e) '("POLYLINE" "LWPOLYLINE"))) (progn (setq lp (dd_reversepol e)) (entdel e) (dd_tracepol lp) ) ) ) [Edité le 12/7/2006 par Fraid]

merci pour vos reponses et oui c'est dû a imageframe actif je n'y avais pas penser a le desactiver sinon le bug est que si on veut prolonger la polyligne va sur le bord de l'image j'ai oublier de dire que c'est quand on appuis deux fois sur entrée (sans choisir de bord de coupe) encore merci et bon match ;)

Bonjour, Il nous arrive souvent de devoir travailler par dessus une image raster vectorisation par exemple Comment se fait t'il que la commande ajuster bug a se moment la merci

merci

bonjour, generalement les maison de style bretonne et neobretonne on une partie du pignon qui remonte legerement au dessus de la toiture mais quel est son nom ? merci

bonjour Gile je me permet de revenir sur ce lisp car purge xref enleve les xref qui sont déchargées et la c'est embétant je voulais seulement les xrefs sans reference (supprimer manuelement) en plus sur 2006 le fonctionnement de spurge me parait aléatoire des fois sa marche et des fois non sur un meme plan

bonjour, la selection rapide n'est pas assez rapide pour toi?

désolé je n'avais pas fait attention que tu parlais de pourcentage c'est vrais que chez nous c'est pas plus de 10% de notre activité (en chiffre d'affaire)

bonjour, met de coté tes .pat originaux au cas ou puis remplace les par les nouveaux si ils on un autre nom (machin.pat par exemple) ouvre les avec un editeur de texte puis colle le contenu dans tes . pat j'espere avoir eter clair bon courage

bonjour, je ne suis pas encore passer a la 2007 mais avec un peu de chance cela n'a pas changer sur la 2006 je fais la presentation du premier onglet puis je clic droit sur chaque onglet/gestionnaire de mise en page je selectionne le premier puis definir courant et je le repete pour chaque peut etre qu'un lispeur peut te faire une routine automatisant cette tache bon courage

bonjour, J'utilise aussi Autocad pour Modéliser des volumes (batiment ou objet) Puis utilise 3dmax et photoshop pour l'integration ou l'animation pourquoi autocad? parceque je connais bien le logiciel c'est une question de rapidité donc d'argent voir notre site pour quelque exemples

Bonjour, Ce n'est pas une mauvaise idée Mais les domaines d'utilisation sont multiples (archi, meca...) Je pense qu'il faudra faire de nombreuse categories de plus, on peut etre performant en 3d et nul en lisp par exemple etre formateur c'est forcement se specialiser on peut pas etre bon partout bon courage Patrick si tu met cela en place

sa marche impeccable gile du coup je viens de decouvrir que l'on pouvait charger un lisp simplement en le faisant glisser dans le dessin encore merci et a bientot pour de nouvelles aventure ;)

je suis content que tu t'eclate grace a mes questions Gile doucement nous ameliorons autocad en eliminant certain defaults je suis sur le terrain cette semaine j'essairais ton lisp dés que je suis rentrer au bureau je te tient au courant merci

si si j'y arrive mais cela me fait perdre quelque seconde je vais plus vite en coupant la polyligne juste avant et en supprimant le petit bout restant et la je peux prolonger peut etre qu'il existerai un lisp qui fusionerai les sommets ayant les memes coordonnées?

bonjour, Autocad me semble une bonne solution tu peux tout faire avec (ou presque :P ) en plus il est si modelable que tu peux l'adapter a tes besoin par contre il est trés cher :mad: il y a surement une alternative moins couteuse mais cela restera une alternative

t'a bien compris si on fait pedit/modif sommet/suivant/ la croix reste sur le meme point puisque il il y a 2 sommet au meme endroit bref la meilleur astuce est de ne pas ramener les poignée l'une sur l'autre voila une discussion pour rien désolé :P

la "ramation" n'est pas forcement due a la config materiel mais souvent a des reglages windows faut savoir qu'un windows reglé par defaut rame il y a un tas de bon sites qui proposent des reglages de la base de registre et des services ex: http://www.pcastuces.com/

oui il faut absolument la version pro de windows

bonjour, Lorsque l'on ramene une poignées d'une polyligne l'une sur l'autre on ne peux plus prolonger celle ci je suppose que vous l'avez aussi remarquez et ben moi sa m'enerve grave et cela fait tres longtemps que sa m'agace :( y aurai t'il une astuce pour evité cela merci

bonjour, ta carte graphique n'est pas adaptée le minimum est une 6600 gt 1.5G de ram n'est pas un luxe

bonjour, tu peux deplacer ton scu pour que ton objet soit a 146 tramber m'a coiffer sur le poteau [Edité le 29/6/2006 par Fraid]

bonjour, ta question n'est pas tres clair si c'est pour enregistrer sous jpg c'est la commande jpgout sinon un simple imp. écr. suffit des fois tu peux aller aussi dans fichier/exporter

bonjour, et bienvenu tu clic droit dans les barre d'outil/personnaliser tu arrive dans l'interface de personnalisation tu n'a plus qu'a faire glisser les commande situé en bas a gauche vers les barre d'outil en haut a gauche mais fait tres attention cela peut tout metre en l'air je te conseil de choisir custom.cui dans la barre en haut je te laisse explorer cette nouvelle usine a gaz bonne chance

bonjour, Lorsque je travail sur des plans ou je dois zoomer sans arret soit je me fais 2 fenetre visant chacune un bout du plan ou bien j'enregistre des vues et me crée des bouton pour chaque vue bon courage