yalta

...nous n'avons plus aucune raison d'en douter Esbe, le Père Noël existe bien........... ;) Tout simplement un grand merci à toi Gile :) :D ;)

.... déjà à l'école j'étais hors sujet.....!!! ;) ;)

...est-ce celui-là ..?? MOVE .lsp Permet d'afficher tous les blocs d'un même fichier en un seul clic. ((lambda ( / prefix pt_ins last_pt obj ll ur lg) (setvar "cmdecho" 0) (setvar "attreq" 0) (vl-load-com) (setq prefix (strcat (vl-filename-directory (getfiled "Sélectionner un fichier DWG TEMOIN" "" "dwg" 16)) "\\")) (setq pt_ins (getpoint "\nPoint d'insertion pour le 1er Bloc? <0.0,0.0,0.0>: ")) (if (null pt_ins) (setq pt_ins '(0.0 0.0 0.0))) (setq last_pt nil) (foreach dwg (vl-directory-files prefix "*.dwg" 1) (command "_.-insert" (strcat "\"" prefix dwg "\"") "_none" pt_ins "1.0" "1.0" "0.0") (setq Obj (vlax-ename->vla-object (entlast))) (vla-GetBoundingBox Obj 'll 'ur) (setq ll (safearray-value ll)) (setq ur (safearray-value ur)) (if last_pt (progn (command "_.move" (entlast) "" "_none" (list (car ll) (cadr pt_ins) (caddr pt_ins)) "_none" pt_ins) (setq lg (distance (list (car ll) (cadr pt_ins) (caddr pt_ins)) pt_ins)) ) (setq lg 0.0) ) (setq pt_ins (list (+ lg (car ur)) (cadr pt_ins) (caddr pt_ins))) (setq last_pt pt_ins) ) (command "_.zoom" "_all") (command "_.zoom" "_extents") (setvar "attreq" 1) (setvar "cmdecho" 1) (prin1) ))

Bonjour...........et merci ;) Gile pour ce lisp, voilà une flèche de repère qui me sera bien utile. Parcontre serait-ce possible d'avoir la même chose c'est à dire tjs la flèche mais, ensuite, avec une polyligne plutôt qu'un arc et lui donner par défaut une épaisseur de 0.13mm...?? :exclam: :exclam: STP. Merci d'avance, Sylvain

...peut-être avec [surligneur]Lupas Rename 2000[/surligneur] à télécharger içi....ou ailleurs... ;)

... ;) ;) un grand merci à vous pour votre rapidité et votre efficacité. Sylvain

Bonjour à toutes et à tous, Quelle est ou quelle serait l'astuce pour faire un même raccord sur plusieurs Polylignes en les sélectionnant toutes à la fois...??? Merci d'avance, Sylvain ;)

.....je vous l'avais bien dit que je n'y connaissait rien.............!!!!! ;) ;) ;) Effectivement il est bien de Bonuscad. Merci beaucoup de votre aide, Sylvain.

Bonjour à toutes et à tous, j'ai récupéré ce lisp [surligneur]BREAK.LSP[/surligneur] (Décompose une polyligne et arc en conservant leurs épaisseurs)........mais voilà, je le charge comme les autres et en réponse à la commande j'ai " commande inconnue...". N'ayant aucune connaissance en lisp, pouvez vous m'aider..?? Merci d'avance. (defun c:break_lw ( / js i ent dxf_obj dxf_43 dxf_38 dxf_39 dxf_10 dxf_40 dxf_41 dxf_42 dxf_39 dxf_210 n) (initget "Toutes Sélection _All Select") (if (eq (getkword "\nLWPolylignes à couper à chaque sommets? [Toutes/Sélection] : ") "All") (setq js (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 67 (if (eq (getvar "CVPORT") 2) 0 1)) (cons 410 (if (eq (getvar "CVPORT") 2) "Model" (getvar "CTAB"))) ) ) i -1 ) (setq js (ssget (list (cons 0 "LWPOLYLINE") (cons 67 (if (eq (getvar "CVPORT") 2) 0 1)) (cons 410 (if (eq (getvar "CVPORT") 2) "Model" (getvar "CTAB"))) ) ) i -1 ) ) (cond (js (repeat (sslength js) (setq dxf_obj (entget (setq ent (ssname js (setq i (1+ i)))))) (if (cdr (assoc 43 dxf_obj)) (setq dxf_43 (cdr (assoc 43 dxf_obj))) (setq dxf_43 0.0) ) (if (cdr (assoc 38 dxf_obj)) (setq dxf_38 (cdr (assoc 38 dxf_obj))) (setq dxf_38 0.0) ) (if (cdr (assoc 39 dxf_obj)) (setq dxf_39 (cdr (assoc 39 dxf_obj))) (setq dxf_39 0.0) ) (setq dxf_10 (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) dxf_obj)) dxf_40 (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 40)) dxf_obj)) dxf_41 (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 41)) dxf_obj)) dxf_42 (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 42)) dxf_obj)) dxf_210 (cdr (assoc 210 dxf_obj)) ) (if (not (zerop (boole 1 (cdr (assoc 70 dxf_obj)) 1))) (setq dxf_10 (append dxf_10 (list (car dxf_10))) dxf_40 (append dxf_40 (list (car dxf_40))) dxf_41 (append dxf_41 (list (car dxf_41))) dxf_42 (append dxf_42 (list (car dxf_42))) n (cdr (assoc 90 dxf_obj)) ) (setq n (1- (cdr (assoc 90 dxf_obj)))) ) (repeat n (entmake (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (assoc 67 dxf_obj) (assoc 410 dxf_obj) (assoc 8 dxf_obj) (if (assoc 62 dxf_obj) (assoc 62 dxf_obj) (cons 62 256)) (if (assoc 6 dxf_obj) (assoc 6 dxf_obj) (cons 6 "BYLAYER")) (if (assoc 370 dxf_obj) (assoc 370 dxf_obj) (cons 370 -1)) (cons 100 "AcDbPolyline") (cons 90 2) (cons 70 (boole 1 (cdr (assoc 70 dxf_obj)) 128)) (cons 38 dxf_38) (cons 39 dxf_39) (cons 10 (car dxf_10)) (cons 40 (car dxf_40)) (cons 41 (car dxf_41)) (cons 42 (car dxf_42)) (cons 10 (cadr dxf_10)) (cons 40 (cadr dxf_40)) (cons 41 (cadr dxf_41)) (cons 42 (cadr dxf_42)) (assoc 210 dxf_obj) ) ) (setq dxf_10 (cdr dxf_10) dxf_40 (cdr dxf_40) dxf_41 (cdr dxf_41) dxf_42 (cdr dxf_42)) ) (entdel ent) ) (print (sslength js)) (princ " LWpolyligne(s) coupée(s) à ses sommets.") ) ) (prin1) ) ..............et bon Week-end ;)

......merci à vous tous mais maintenant il est certain que ce sont bien des îlots non hachurés.... :cool: :P ...merci de ton soutien Esbe ;) , c'est parti...... :P :casstet:

.....merci de vos réponses mais malheureusement ni l'une ni l'autre ne convenait ......et pourtant j'y ai cru ;) .........................visiblement il me semble que ce sont tout simplement des îlots non hachurés.. :P .....drôle de méthode....

Bonjour à toutes et à tous, Certaines zones du plan que j'ai reçu sont hachurées, son concepteur y a inscrit qq textes en appliquant un masque d'arrière-plan. De mon côté je désire supprimer qq'uns de ces textes ( [surligneur]textes lignes[/surligneur] et non [surligneur]multilignes[/surligneur] ) mais malheureusement le masque subsiste, un trou blanc dans les hachures, pas très esthétique... :P . Y-a-t-il un moyen de récupérer les hachures à ces endroits où mon texte est supprimé... ;) ?? Sylvain

Bonjour, .........si j'osai je demanderai la même chose dans le sens des " y "...!! ce serait sympas, merci, Sylvain

......il faut supprimer un dénommé " pushow**.dll " qui est dans C / WIndows / pushow**.dll (il peut y en avoir plusieurs).

Bonjour, Juste à titre préventif, au cas où, comment fait-on pour mettre tous les styles de texte sur des polices *.shx... :P :P !!!!

......idem au clavier, on a tout essayé. ;) bon week end à tous, Sylvain

.....bin non justement ..........sur toute les pages quel que soit le site. Que ce soit un mot, une ligne ou un paragraphe je peux copier mais ça s'arrête là....... :P :P je n'ai plus la main pour coller. Là c'est sur mon ordi perso à la casa.

...c'est vrai, à quoi cela peut servir ??? Dans mon cas, tout simplement afin d'éviter d'avoir tjs cette même question " est-ce que je m'y prend bien ? " ou " est-ce que je m'y prend mal ? " .......!!! :cool: :cool: Je suis passé sur info en 01/2001 en ayant [surligneur]aucune[/surligneur] connaissance en informatique puisque je n'avais pas l'utilité d'avoir un PC à mon domicile. J'ai donc appris l'informatique en faisant le stage Autocad de........3 jours......avec ça tout allait pour le mieux.....!!! Aujourd'hui mon savoir je me le dois et surtout, aussi, grace à CADxp ;) ;) Certaines questions paraissent peut-être futiles ou sans importances à certains alors qu'elles sont tellement enrichissantes pour d'autres. ....voilà Bred et merci de ton aide.... ;) Sylvain

Bonjour à toutes et à tous, Si je fais un copier d'extrait de document sur le Net, quel qu'il soit, je n'ai plus la main pour coller ce document dans Word ou autre......!!!!! :P :P De quoi cela peut-il bien venir ???

...pardon, oui Oli je lui indique bien un point de base mais depuis ce matin j'ai complètement refait mes blocs à pb plutôt que de les exploser et de les recréer dans leur fichier initial (bien que tout était normal par rapport à un bloc qui ne posait pas pb). Donc maintenant ne crions pas victoire mais il me semble que mes soucis sont résolus :mad: :casstet: :cool: :D ;) :) ...................jusqu'à quand...!!! ;) Pouvez vous tout de même ,SVP, répondre à ma première question, juste à titre d'info. Sinon merci à vous tous... ;) ;) Sylvain

bonjour, ...Pour bred ==> oui il me semble que cette distance de défaut est constante et par la même occasion je réponds à Oli ;) mon point de base est bien à 0,0,0.....!!! et j'insère mes blocs en les faisant glisser depuis le DesignCenter. merci à vous. ;) ;)

...pas de sous-bloc non plus Tramber ;) ce ne sont que des blocs simples: - rectangle et une diagonale - idem avec un carré - rectangle avec qq hachures - idem avec un carré........etc ...tu vois le genre, il n'y a pas plus basique.....!!!!

...justement je viens d'exploser mes 10 premiers blocs et de les recréer (Nickel je l'espère :casstet: :casstet: )mais j'ai tjs ce pb sur un bloc qui vient se positionner à qq encablures de son point de base (0,0) lorsque je l'insère...!!! J'ai fait plusieurs essais en les insérant dans n'importe quel ordre mais le pb subsiste avec n'importe quel bloc........je suis largué :P :P Je vais laisser tomber pour aujourd'hui. Merci à vous. Sylvain

...rassure toi je ne le prends pas mal, il est vrai que l'on ne connait pas le niveau de chacun et il se peut également que l'on passe à côté d'un détail aussi infime soit-il. (les réponses les plus basiques sont tjs les bienvenues, qqu'un peut tjs en tirer profit.) Sinon, l'un des blocs a une base rectangulaire et l'autre carrée......j'avais vérifié ;) ;)

* point de base OK * Nom différent pour chacun de mes blocs.........mais c'est là qu'il y a pb , car lorsque j'insère un nouveau bloc voilà le message qui est affiché dans la boite de dialogue Définition à double du bloc nouveau fichier bloc ignorée. ....!!!alors qu'ils ont tous un nom différent. C'est à dire que jai déjà inséré le bloc A, le B ...C....D et si j'appelle le E , il arrive de nouveau avec le B...!!! :casstet: A11_ETANCHE_1X58W.DWG A14_ETANCHE_2X18W.DWG......sont les 2 noms de blocs qui posent pb, je ne vois pas....!!! Pour ce qui est de l'échelle, mes blocs sont dessinés en CM. Si je les insère sur un plan qui est au CM également ==> pas de pb hormis qq uns qui seront plus petits ou plus grand, bien que j'ai vérifié mes unités d'échelle......!!!! :casstet: