DenisHen

Bonjour à tous... Voilà, j'ai amené du boulo Extrèmement Urgent chez moi, pendant que je suis en arrêt maladie... Oui, j'ai mon bras gauche immobilisé, pas moyen d'aller bosser, une heure de trajet en bagnole... Donc, je lance, comme d'habitude, AutoCAD chez moi, avec une license et tout... Mais v'l'an... Erreur fatal... Donc, pas moyen de travailler... Ça fonctionnait nickel la semaine dernière, maintenant... ERREUR FATAL ! ! ! Franchement, ils font vraiment CHIER, chez AutoDesk ! ! ! La licence que j'ai chez moi est tout ce qui est de plus légal ! ! ! TotoCAD me gonfle de plus en plus... Si je n'avais pas autant de Lisp, DraftSight me semblerait comme roue de secours... GRRRRRR ! ! ! Le pire, c'est que je sais que je n'aurais jamais de solution... Put**n d'AutoCAD... Je grogne réellement... GRRRR ! ! !

Bonjour. As-tu essayé RBloc de Patrick_35 ?

Ça, en tant que guitariste depuis mes 16 ans, ça me parle... Et ça s'appel un string... Le seul instrument à vent avec une seul corde... Ok, je sors... ;)

Coucou aussi... Didier, j'ai toujours été d'accord avec toi, et je ne formalise jamais de tes remarques, qui m'ont très souvent servies à me sortir les doigts du c*l. Et pour cela, je t'en remercie et en profite pour remercier aussi tous les membres de ce site unique et doté de formidables membres. Si je connais un peu le lisp, c'est uniquement grâce à ce site et à toutes ces personnes bien intentionnées qui y sont, il faut le dire, très actives... Encore une fois, Didier, je te remercie, car même si tu ne me donnes pas le code que je cherche, tu me donne les clefs pour le faire. Et c'est, je le sais, pour toi, le meilleur apprentissage... Enfin bref (et je ne suis pas un enfin "enfinbrefiste") j'ai appris énormément sur ce site, j'en apprend encore beaucoup et, j'en suis sur, en apprendrais encore beaucoup... J’appréhende toujours de faire un nouveau code, l'écriture est, pour un novice comme moi, une grosse étape du code. Peut-être est-ce la raison de mes nombreux appels à l'aide... Mais rassure-toi, je suis loin d'être susceptible et ai un grand sens de l'humour... En gros, tu peut me vanner comme tu le souhaite, je n'en prendrais jamais ombrage... Encore une fois, merci à tous... Amicalement aussi... ;)

Bonsoir à tous, et merci pour votre aide... @LeCrabe : si j'en ai le temps, je ferais ça ce week-end. @Didier : toujours friand de tes remarques, je te remercie pour mon "avec le niveau que tu as en lisp je suis certain que tu sais faire ça". malgré tout, tu me flatte... ;) Mais il est vrai que j'ai souvent peur de ce que je ne connais pas, comme les faces 3D, mais n'est-ce pas dans nos réflexes comportementaux d'avoir peur de l'inconnu ? @(gile) : Merci pour ce code que je vais effectivement "décortiquer", mais dès que je vois des mapcar et des lambda... Je souris, et je pleure... :P Dans tous les cas, un grand merci à vous tous... C'est vrai que ce serait malheureux, et j'en serais inconsolable, que ce site disparaisse, comme on peut le redouter dans "la fuite des cerveaux"... Bon week-end à vous... Amicalement... Denis...

Bonjour à vous, et merci pour votre aide... Je suis sous AutoCAD Map 2018. @LeCrabe : La routine ne me fait que des polylignes à trois sommets. Et elle me créé des sommets qui n'existent pas. @BonusCAD : la routine me créé des sommets qui correspondent à d'autres sommets d'autres Faces 3D et ne sont donc pas superposés aux Faces 3D, et je n'ai pas d'accroche objet d'activés... En tout cas, je regarderais vos lisp ce week-end, si je trouve le temps... Merci encore à vous...

Bonjour à tous. Voilà, je viens de voir que les fichiers du Cadastre comporte des bâtiments formés avec des Faces 3D et non des polylignes fermées... Donc, est-ce que quelqu'un aurait un lisp qui transformerait ces faces 3D en polyligne ?

M'en doutais... C'était bien ça, seul ent est un ENAME... Donc, j'ai maintenant : (command "_hatch" "solid" ent "") Un grand merci à toi, Ô maître (gile)... ;)

Merci (gile) pour ton aide... Super ton screencast. J'ai bien fais tout pareil, mais rien n'y fait, j'ai essayé (command "_hatch" "solid" elst "") et (command "_hatch" "ansi31" 1 100 ent "") qui fonctionnent tous les deux en ligne de commande... Mais rien n'y fait... Je tourne en rond... Ne serait-ce pas le elst qui poserait problème ? (defun c:CadHachBati (/ n Select ent Obj Calq) (setq n 0) (setq Obj (entget (car (entsel "Clique une entité du calque à traiter :")))) (setq Calq (cdr (assoc 8 Obj))) (princ "\nCalq=") (princ Calq) (setq NouvCalq (strcat Calq "_HACH")) (command "-calque" "e" NouvCalq "") (if (setq Select (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 Calq) (cons -4 "&") (cons 70 1) ) ;_ Fin de list ) ;_ Fin de ssget ) ;_ Fin de setq (while (setq ent (ssname Select n)) (setq elst (entget ent)) (command "_hatch" "solide" elst "") (setq n (1+ n)) ) ;_ Fin de while ) ;_ Fin de if (princ) ) ;_ Fin de defun

Merci pour ton aide (gile)... Je ne connaissais pas cette astuce, j'ignorais que (command "_hatch") réagissait différemment que _hatch... J'ai donc suivi ton conseil, et curieusement, ça déconne toujours. Voici mon nouveau code : (defun c:CadHachBati (/ n Select ent Obj Calq) (setq n 0) (setq Obj (entget (car (entsel "Clique une entité du calque à traiter :")))) (setq Calq (cdr (assoc 8 Obj))) (princ "\nCalq=") (princ Calq) (setq NouvCalq (strcat Calq "_HACH")) (command "-calque" "e" NouvCalq "") (if (setq Select (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 Calq) (cons -4 "&") (cons 70 1) ) ;_ Fin de list ) ;_ Fin de ssget ) ;_ Fin de setq (while (setq ent (ssname Select n)) (setq elst (entget ent)) (command "_hatch" "_s" elst) ; ou (command "_hatch" "_s" elst "") (setq n (1+ n)) ) ;_ Fin de while ) ;_ Fin de if (princ) ) ;_ Fin de defun J'ai ajouté une sélection d'entité pour le rendre plus "universel"...

Merci (gile), effectivement, c'est mieux. Mais je pense que mon problème est dans l'écriture du (command "_hatch" elst) ou (command "_hatch" elst ""). C'est ça qui déconne, et je n'arrive pas à savoir pourquoi...? (defun c:CadHachBati (/ n Select ent) (setq n 0) (command "-calque" "e" "NANCAY_CADASTRE_BATI_HACH" "") (if (setq Select (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 "NANCAY_CADASTRE_BATI") (cons -4 "&") (cons 70 1) ) ;_ Fin de list ) ;_ Fin de ssget ) ;_ Fin de setq (while (setq ent (ssname Select n)) (setq elst (entget ent)) (command "_hatch" elst) (setq n (1+ n)) ) ;_ Fin de while ) ;_ Fin de if (princ) ) ;_ Fin de defun

J'ai modifier mon lisp en ajoutant un (setq n 0) au début... Et maintenant, j'ai cette réponse là de la part d'AutoCAD :

Re. Ben voilà, j'ai écris ça qui ne fonctionne pas : (defun c:CadHachBati (/ n Select ent) (command "-calque" "e" "NANCAY_CADASTRE_BATI_HACH" "") (if (setq Select (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 "NANCAY_CADASTRE_BATI")))) (while (setq ent (ssname Select n)) (if (= 1 (getpropertyvalue ent "Closed")) (progn (command "_hatch" ent "") ; (princ "\nHachure") ) ;_ Fin de progn ) ;_ Fin de if (setq n (1+ n)) ) ;_ Fin de while ) ;_ Fin de if (princ) ) ;_ Fin de defun AutoCAD me répond : Je pense qu'il me faudrait une formation chaque lundi... ;)

Bonjour à vous, et merci pour vos réponses. A priori, les polylignes sont bien fermées ou ouvertes, puisque mes fichiers sont issus du cadastre. Encore merci à vous...

Bonjour à tous. Je suis en train de faire un petit lisp qui me hachurera toutes les polylignes (des LWPOLYLINE) fermées d'un calque. Mais pour ce faire, je cherche à savoir si chaque polyligne est fermée. Si quelqu'un a une astuce, un conseil... Je suis preneur... Denis...

Salut Ô toi Grand Décapode... Et merci pour ces infos...

J'ai fais, il y a peu de temps, la même erreur que tu avais soulignée. Maintenant, je constate... ;)

Et tu n'es pas le seul ! ! !

Ça y est, j'ai les PDF, et ils sont vraiment bien fait... J'ai même découvert des trucs que je ne connaissais pas... A conseiller...

Salut didier. Oui, mon problème est résolu ([Résolu] dans l'entête). Ma question n'avait pas d'intérêt, car inutile. Je cherchais à écrire plusieurs textes depuis une routine Lisp, manifestement mal écrite... ;) Merci encore...

Salut didier... Et merci pour ton..."aide". Au temps pour moi, j'ai confondu avec la hauteur du style de texte... Maintenant que je vais dans l'aide, je dois apprendre à lire... Désolé...

Bonjour à tous. Aujourd'hui, j'ai un petit souci avec la variable TEXTSIZE, je n'arrive pas à la mettre à 0. Si quelqu'un a une idée, une astuce... Je suis preneur...

Je n'ai pas compris...

Salut. J'ai utilisé le Lisp LINOUT.VLS trouvé sur www.cadstudio.cz, Voici le contenu du fichier LIN : ; Linetypes exported by LinOut.lsp from C:\Users\***\Downloads\Dessin2.lin ; ; LINOUT by CAD Studio - www.cadstudio.cz ; *CACHE2,Caché (x.5) _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ A,3.175,-1.5875 *FOSSÉ 2,- - - - - - - - - - - - - - - - - - - - - - - - A,6,-6,["è",WINDINGS,s=4,r=9,x=-2,y=-1.7],-6 *400,400 ----400----400----400----400----400----400-- A,12.7,-5.08,["400",Standard,s=2.54,r=9,x=-2.54,y=-1.27],-6.35 *300,300 ----300----300----300----300----300----300-- A,12.7,-5.08,["300",Standard,s=2.54,r=9,x=-2.54,y=-1.27],-6.35 *( DASHED ),Dashed line stroke pattern A,0.5,-0.25 *800,800 ----800----800----800----800----800----800-- A,12.7,-5.08,["800",Standard,s=2.54,r=9,x=-2.54,y=-1.27],-6.35 *500,500 ----500----500----500----500----500----500-- A,12.7,-5.08,["500",Standard,s=2.54,r=9,x=-2.54,y=-1.27],-6.35 *600,600 ----600----600----600----600----600----600-- A,12.7,-5.08,["600",Standard,s=2.54,r=9,x=-2.54,y=-1.27],-6.35 Attention, j'ai souvent eu des différence de rotation des symboles compris dans les types de lignes. Ça se règle avec le "r=" dans les types de lignes. Tu as aussi le DesignCenter [CTRL] + 2.

Cool, content d'avoir aidé... N'oublie pas de noté [Résolu] à ton entête du premier message (en mode "Utiliser l'éditeur complet")... A+ Denis...