Fraid

merci d'avoir osé poser cette question car moi aussi j'ai ce souci avec les plans venant de microstation....

Bonjour, Pour joindre des polylignes selon leur calque j'ai ecrit ce lispounet (defun c:jptolay (/ i) (setvar "peditaccept" 1) (listLayers) (foreach lay lst1 (jplay lay) ) ) (defun jplay (lay) (if (setq pol(ssget "x" (list (cons 0 "LWPOLYLINE") (cons 8 lay)))) (vl-cmdf "_.pedit" "_m" pol "" "_j" 0.00 "") ) ) (defun listLayers (/) ;fonction de giles me semble t'il (setq lay (tblnext "layer" T)) (while lay (setq lst1 (cons (cdr (assoc 2 lay)) lst1) lay (tblnext "layer") ) ) ) Je pensait y arriver avec mapcar (voulant la comprendre) mais connaissant la fonction foreach, c'est celle la que j'ai fini par utiliser. Donc comment cela s'ecrit avec mapcar? car j'ai eu beau essayer , j'y arrive pah :P merci

bonjour, Si tes bloc sont placer dans un dossier qui fait partis de tes chemins de recherche de fichiers support, tu n'a pas besoin de lui donner de chemin Option/Fichiers/Chemin de recherche de fichier support et tu rajoute ton dossier

Bonjour; La seul façon que connaisse pour réaliser cet manip, c'est de regarder tes objets par dessous Tu rentre dans ta fenetre Affichage/Point de vue 3d/Bas

Bonjour, Comme vous l'avez surement remarquez, la date du dernier message du forum lisp est bloqué au 20/09/2010. C'est sur que cela a peu d'importance. Mais peut etre que le web"master" peut nous réparer cela?

Bonjour, C'est vrai que dans ce sens Autocad --> Illustrator, il y a un probleme d'echelle apparament dû a l'adaptation a la zone de travail et la gestion des epaisseurs de lignes. Pour contrer cette mise a l'echelle, je place mes objets dans autocad dans un rectangle de 209.822 mm / 296.748 mm qui correspond a la taille maxi d'un A4 pour Illustrator lors de l'importation choisir Adapter au plan de travail et tu verra ton carré fait bien 10*10 ;) Bonne chance

je pense que tu est un peu tetu :exclam: ctrl+c ne fonctionne pas dans autocad (ou jamais comme on le souterai) point Apparament tu as des version anglaise .... :cool: Aprés tout depend de ce que tu veux copier... Est tu dans la meme cession autocad ou 2 autocad ouvert? ensuite si tes dessins sont a la meme echelle... Cela peut etre une histoire de calque desactivé, verrouillé... les version d'enregistrement n'on rien a voir (peut etre pour les blocs dynamiques...) si tu reste dans le meme autocad .... envois nous ton dessin qui refuse de recevoir, cela peut etre instructif :exclam: sinon utilise wbloc, cela ,permet de recuperer de objet recalcitrant en fait il y a telement de raison pour que ctrl+c ne fonctionne pas qu'en France on ne l'utilise pas, et si t'est en France ton revendeur c'est foutu de toi (mdr) :D

Bonjours, Je voudrai apporter une petite precision sur Il faut que l'emplacement de ce fichier soit déclarer dans les Chemins de recherche de fichiers de support pour qu'il soit sur Clic droit Options/Fichiers et tu Ajoute le dossier ou ce situ ton fichier "source"

Bonjour, Le texturage sur Autocad est une aventure... la solution de Tramber fonctionne, mais je prefere dans ce cas la les XREFs, surtout si ton objet est lourd. Si il est extremement lourd, decompose le aussi en xref, (par facades et la toiture par exemple) je sais que tu te retrouve avec une xref contenant d'autre xref, mais bizarement tout fonctione mieux. Bon courage (ps: je conseil une nouvelle fois 3dsmax)

Bonjour, Il faut oublier le ctrl+c dans Autocad. fait plutot un ctrl+maj+c (copier avec un point de base)

Bonjour, Désolé Rhymone, je n'avais pas vu ta question Pdf a partir d'un bitmap, on ne peut pas s'accroché Pdf venant d'un dessin vectoriel, on peut s'accroché

Bonjour, Peut etre que le Mode d'accrochage a la grille est activé ? ( F9 )

Bonjour, et bienvenue Dans Format/Contrôle des Unité Tu choisi l'unité dans laquel tu travail dans l'espace objet. Je n'ai pas compris si tu voulais travailler en metre ou millimetre Donc aprés avoir choisi Metre par exemple Si tu dessine une ligne de 1 dans l'espace objet, elle mesurera 1 metre Si ton dessin fait 60 unitées il fait 60 metres Si tu avais commencer ton dessin au millimetre (60 000 unitées) il faudra que tu applique une echelle de 1/1000 a ton dessin pour revenir en metre. Aprés rerelecture de ton post c'est peut etre l'inverse que tu veux Mais c'est le meme principe sauf que dans ce cas la il faut multiplier par mille l'echelle de ton objet :P :casstet: :o

Bonjour, tu peux jouer sur le seuil de tolérance (petite case blanche qui s"affiche sous les menus pendant l'execution) tu arrivera comme cela a creer ta selection que tu n'aura plus qu'a remplir si il te reste des zones qui t'embete prend l'outil rectangle de selection et reste appuyer sur Alt, ce qui permet d'oter une les parti souhaiter si tu veux en rajouter c'est Maj une fois que ta selection correspond a tes besoin ctrl+c puis, Calques/Nouveau calque de remplissage/Couleur Unie... (cs4) Bon courage

Bonjour, Un simple glisser depuis l'explorateur windows est préférable au copier/coller qui produit cet objet OLE. On peut rien en faire de ces objets et théoriquement ils existent pour inserer des objets non reconnus par Autocad. Donc bannir le copier/coller depuis l'explorateur.

Bonjour, Les echecs de cette commandes sont souvant du au fait que l'on ai superposé des sommets ou que le dessin soit en 3D. Pour la superposition il existe un lisp Cleanpoly (fait une recherche) et pour la 3D (defun C:z=0 (/) (command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "" ) (princ) (princ "\nLes Z sont égal à ZERO!") ) Bon courage

Bonjour, Je suis sur xp64 et je n'ai pas eu trop de souci d'installation jusqu'a maintenant, Il a gagné en stabilité au fur et a mesure des mise a jours le seul souci c'est avec des vieux softs ou quelques applicatifs du type Circé j'ai toujours un 32 bit qui tourne dans un coin au cas ou. De toute façon, rien que pour la RAM sa vaut le coup

a oui! Comment?

Bonjour, Je confirme le fait qu'il ne faut pas y connaitre grand chose pour réaliser des routines qui changent la vie. Notament pour les mises à la charte graphique, puisque cela consiste généralement à selectionner des objets et changer leurs proprietées. Et je voulais vous remercier pour nous prouver qu'Autocad n'est pas seulement un logiciel de DAO et une "plateforme" de développement, mais aussi un '(champ "expérimental").

Merci :D C'est vrais que je n'est par encore etudié la fonction mapcar, ni lamda d'ailleur je risquai donc pas de comprendre. Donc avant de relire et experimenter tout cela je vais devoir m'y mettre. Mais j'ai beaucoup de mal avec la théorie. Je comprend les choses que lorsque je les met en pratique. A l'école je n'ai compris le nombre PI que lorsque l'on me la expliqué avec un bout de ficelle... :P Mais j'ai fini par comprendre et m'en souviendrai toute ma vie.

J'ai reçu un message personnel me demandant comment j'obtenais ces planches cadastrales et si on avait le droit de le faire. Le droit? Vu quelle sont en libre disposition sur Internet, cadastre.gouv.fr je ne vois pas pourquoi nous n'aurions pas le droit de la vectorisée. La recette: Les ingrédiants : Acrobat pro, Illustrator, Autocad, Internet Sur le site du Cadastre choisir les outils Avancé puis Imprimer Extrait de plan Choisir l'echelle et le format voulu puis cliquer sur Aperçu et edition (pdf) Annulé l'impression et enregistrer le PDF sur votre disque dur Dans l'explorateur windows clic droit sur le pdf / ouvrir avec Illustrator Dans Illustrator Fichiers/Exporter choisir dxf puis dans la fenetre des options choisir R14/LT98/LT97 laissé le reste par defaut OK Ouvrir le dxf avec Autocad exploser les blocs et metre a sa charte graphique. je livre un lisp qui fonctionne 9 fois sur 10 (il y a des blocs inatendus quelque fois) ;|¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø Cada.lsp : Mise a la charte LD-COM d'un extrait cadastral Dépendance : Xb.lsp Explose tout les blocs sp.lsp super purge (tout les deux disponible sur le forum) |;¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:cada (/ i spoly ent) (vl-load-com) (setvar "CMDECHO" 0) (command "_UNDO" "_BE") (setvar "osmode" (logior (getvar "osmode") 16384)) (IBloc&Explos "Calques") (Del&explos "BLOCK_3") (Del&explos "BLOCK_4") (Del&explos "BLOCK_5") (ErsasPolOfLong 812.96 812.98) (setq spoly (ssget "_x" (list (cons 0 "LWPOLYLINE")))) (changLay spoly "EN_40_LIM-CADASTRE") (Command "_.-LAYER" "v" "EN_40_LIM-CADASTRE" "") (setq spoly (ssget "_x" (list (cons 62 40)))) (changLay spoly "EN_32_construction") (setq spoly (ssget "_x" (list (cons 62 41)))) (changLay spoly "EN_32_construction") (Command "_.-LAYER" "v" "EN_32_construction" "") (c:xb) (ChangLayOfLong 15000 "EN_15_commune200") (Command "_.-LAYER" "v" "EN_15_commune200" "") (ChangLayOfLong 1500 "EN_40_lim-secada") (Command "_.-LAYER" "v" "EN_40_lim-secada" "") (command "_erase" (ssget "_x") "") (DeverLay) (c:sp) (setvar "osmode" (logand (getvar "osmode") 16383)) (command "_UNDO" "_E") (setvar "CMDECHO" 1) (princ) ) ;;=========================================================;; (defun IBloc&Explos (NomBloc) (command "_-insert" NomBloc pause "" "" "") (ExploseBloc NomBloc) ) ;;==========================================================;; (defun ExploseBloc (Nombloc) (setq sblk (ssget "_x" (list (cons 2 NomBloc)))) (if sblk (command "_explode" sblk) ) ) ;;==========================================================;; (defun Del&explos (nombloc) (setq sdel (ssget "_x" (list (cons 410 "model") (cons -4 "")))) (command "_erase" sdel "") (ExploseBloc NomBloc) ) ;;=========================================================;; (defun ChangLayOfLong ( Long Lay / i ent peri spol) (setq spol (ssget "x" (list (cons 0 "LWPOLYLINE")))) (setq i 0) (if spol (repeat (sslength spol) (setq ent (ssname spol i)) (setq PERI (vla-get-length (vlax-ename->vla-object ent))) (if (> PERI Long)(changLay ent Lay) ) (setq i (1+ i)) ) ) ) ;;=========================================================;; (defun changLay ( Sel Lay) (if Sel (command "_chprop" Sel "" "ca" Lay "co" "ducalque" "ep" "ducalque" "t" "ducalque" "") ) ) ;;=========================================================;; (defun ErsasPolOfLong ( LongMin LongMax) (setq spoly (ssget "_x" (list (cons 0 "LWPOLYLINE")))) (setq i 0) (if spoly (repeat (sslength spoly) (setq ent (ssname spoly i)) (setq PERI (vla-get-length (vlax-ename->vla-object ent))) ;(&& "1") (if (and(< PERI LongMax) (> PERI LongMin)) (command "_erase" ent "") ) (setq i (1+ i)) ) ) (command "_explode" sblk) ) ) ;;=========================================================;; (defun DeverLay (/ n AcDoc Lay) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))) (repeat (setq n (vla-get-count (vla-get-Layers AcDoc))) (setq lay (vla-item (vla-get-Layers AcDoc) (setq n (1- n)))) (if (= :vlax-true (vla-get-lock lay) ) (progn (vla-put-lock lay :vlax-false) (setq l_lst (cons lay l_lst)) ) ) ) (Princ "\nTout les Calques sont Dévérouillés !") (princ) ) Il ne reste plus qu'a adapter le nom des calques Aprés t'enchaine avec le Lisp de Gile plus haut et hop hpopohopophop~~

sa marche nickel impressionnant de rapidité :exclam:

Merci Gile. Tu as sorti l'artillerie lourde J'etais tombé sur un post sur les objetdbx de Patrick35 me semble t'il ou Bonuscad.. Je m'y etais mis pensant avoir trouver les Incantations Ultimes. Aprés moult essais et autant de message d'erreur j'etais passé a autre chose... Faut dire que la doc est pas facile a trouver a ce sujet. Sinon des petits coquins de Smilies sont venus s'inserer dans le code Peut tu confirmer que c'est :p qui a ete remplacé? j'ai le doute. De mon coté j'avais essayé comeme quelque chose avec une autre approche ;|¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø ;¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø ¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø ASBL.lsp : Assemble tout les dessins d'un répertoire par leur plus longue Polylignes Communes Dépendance : Doslib ¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø ;¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø |;¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø (defun c:Asbl ( / CourantPath ListeDWG ;Variables Locales Cont1 Cont2 NbDWG NextDWG ListPolyIn NbPol NextPol MaxPolin MaxpolOn LongPol ListPolyOn) ;~~~~~~~~~~~~~~~~~; (vl-load-com) (setvar "CMDECHO" 0) (command "_UNDO" "_BE") (setvar "osmode" (logior (getvar "osmode") 16384)) ;~~~~~~~~~~~~~~~~~; (setq CourantPath (getvar "dwgprefix") ListeDWG (dos_find (strcat CourantPath "*.dwg")) Cont1 1 NbDWG (sslenght ListeDWG) MaxPolin 0 );EndSetq ;~~~~~~~~~~~~~~~~~; (repeat NbDWG ;sur chaque dessin présent dans le répertoire courant (setq NextDWG (ssname ListeDWG Cont1) ListPolyIn (ssget "_x" (list (cons 0 "LWPOLYLINE"))) Cont2 0 NbPol (sslenght ListPolyIn) );EndSetq ;~~~~~~~~~~; (repeat NbPol ;Recherche de la plus grande Polyligne dans le Dessin (setq NextPol (ssname ListPolyIn Cont2)) (setq LongPol (vla-get-length (vlax-ename->vla-object NextPol))) (if (> LongPol MaxpolIn) (setq Maxpolin LongPol PolIn NextPol ) );EndIf (setq Cont2 (1+ Cont2)) );Endrepeat ;~~~~~~~~~~; (command "_-insert" NextDWG "0,0" "" "" "") ;Insertion du prochain dessin (command "_explode" NextDWG) ;puis explosion ;~~~~~~~~~~; (setq ListPolyOn (ssget "_p" (list (cons 0 "LWPOLYLINE"))) ;selection des objets dernierement crées ;(c'est l'idée qui m'a fait ecrire le code) Cont2 0 NbPol (sslenght ListPolyOn) MaxpolOn 0 );EndSetq ;~~~~~~~~~~; (repeat NbPol ;Recherche de la plus grande Polyligne dans le Bloc explosé (setq NextPol (ssname ListPolyOn Cont2)) (setq LongPol (vla-get-length (vlax-ename->vla-object NextPol))) (if (> LongPol MaxpolOn) (setq MaxpolOn LongPol PolOn NextPol ) );EndIf (setq Cont2 (1+ Cont2)) );Endrepeat ;~~~~~~~~~~; ;Récuperer les coordonnées des premieres poignées des 2 polylignes ;~~~~~~~~~~; ;Déplacer la Selection ListPolyOn selon la difference des 2 poignées (setq Cont1 (1+ Cont1)) );Endrepeat ;~~~~~~~~~~~~~~~~~; (setvar "osmode" (logand (getvar "osmode") 16383)) (command "_UNDO" "_E") (setvar "CMDECHO" 1) (princ) );EnDefun et oui je suis encore au ras des paquerettes et quand je li cela (equal pts_ref (mapcar '(lambda (p) (mapcar '+ p vec)) pts) 1.0) j'avoue que cela me depasse Avec les post de Bruno il me semble que cela devient mystique le Tao du Lisp....

Bonjour, Etrange ton probleme Peut etre le nombre de zero aprés le virgule ?

si tu nous envois un plan en exemple peut etre que l'on pourra un peu plus t'aider sinon c'est peut etre un probleme dans Illustrator si tu as un deuxieme disque dur tu peux deja lui dire, car par defaut il ne le sais pas Edition/Préférences/modules externes et disques de travail Ensuite il faut rajouter de la memoire virtuelle (taille géré par l'ordi) sur ce disque via windows Attention de ne pas supprimer celle qui se trouve sur ton systeme tcho