iowa13

Bonjour. Je me permets d'utiliser le titre de ce sujet.. je suis aussi concerné par des soucis d'impressions J'ai des points qui apparaissent sur des hachures lors d'impression pdf... Je suis en qualité pdf max.. Une idée.? Merci et la, en standard

N'étant pas dans l'horlogerie, je ne suis pas au dixième de millimètre lorsque je kutch...c’était juste pour un aspect visuel. Si cela posait problème, Autodesk aurait arrangé les choses et fait en sorte que lorsqu’on épaissit sa ligne, l’épaisseur aille vers l'intérieur du trait et non à son axe..

Je vous ai envoyé un lien en MP

En tout cas, c'est très bien expliqué. Si vous avez des formations de ce type, je suis preneur... Pour le trait plus épais, c'est pour ce principe. Il est vrai que lors de cotations, ce serait plus simple que l’épaisseur soit à l'intérieur du cadre, mais on s’éloigne de la demande de base 🙂 Ma méthode de travail n'est peut être pas la bonne.

Je ne me suis même pas posé cette question. Ce que je cherche a avoir, c'est un contour de mur plus épais et des hachures dans le contour . histoire que le contour du mur ressorte à l'impression... pourquoi dites vous que ce serait faux.? PS: si vous pouviez faire plus de vidéo de ce type, https://www.youtube.com/watch?v=aM-sLlztIjU , personnellement je pense que je comprendrais mieux

Pour l'erreur de frappe, j'ai fait un copier coller et modifier le texte avant d'ou le . qui ne doit pas etre la et je n'avais pas pris tout le code.... bref 1) Pour le "A supprimer", il n'y a pas réellement de réponse à la question, sauf "c'est très simple, forme toi" 2) je ne veux pas polluer le forum avec des sujet qui ne seront pas résolu.

Surement une erreur de frappe de ma part. Pour le principe, j'imagine bien que la demande n'est pas compliqué et peut etre faite simplement. A moi de comprendre les boucles, les conditions, les récuperations d'entités.. une entité.?? J'ai du boulot. PS: si un admin veut bien supprimer ce sujet qui au final ne sert a rien... Merci pour les infos

j'ai déjà jeter un œil, mais je ne dois pas avoir la bonne approche de réflexion. Je vais me débrouiller merci quand meme

Je veux bien me former, mais il faudrait des tutos pour les nuls à l'esprit basic Ou un site pour expliquer en détail chaque commande. Exemple, que veut dire . .setq pts (list (setq ls (append ls (list (drawLine pp pt entmakex qu'est ce donc...? bref toute les commandes. certaines commandes sont peut etre simple, mais il faut savoir les imbriquer.... Je suis sur que la demande n'est pas compliqué 3pts ou plus a fermer et hachurer l'intérieur, mais il faut trouver le point de départ de la relexion et de la mise en place. Il faut surtout de la méthode je pense

Je voudrais savoir s'il est possible de définir dans le lisp un épaisseur de polyligne. Le but: Faire le contour de mon mur avec une polyligne ep 1 et le remplir avec les hachures. Je dupliquerai le lisp en y modifiant l'epaisseur et le type de hachure pour différente création 1 lisp pour du béton mur ep1; 1 lisp pour de l'isolant ep0 ....... Il y a surement d'autres méthodes, mais ne connaissant rien, j'essaie d'adapter des programmes trouvés par ci par la..... Merci de votre aide ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; https://www.cadtutor.net/forum/topic/77129-polyline-and-hatching-with-autolisp/ ;; User makes a polyline by selecting points. The polyline is auto closed, a hatch is drawn inside ;; Make Polyline Hatch (defun c:mph ( / ss sc pp pt pts ln ls pline) (setq sc (getreal "\nScale: ")) (if (= 0.0 sc) (setq sc 1.0) ) (prompt "\nSelect points to make a Closed Polyline. Press enter to close the polyline: ") (setq pts (list)) (setq ls (list)) (setq pt (getpoint "\nPoint 1: ")) (setq pp pt) (setq pts (append pts (list pt))) (while (setq pt (getpoint pt "\nPoint: ")) ;; draw temporary line (setq ls (append ls (list (drawLine pp pt)))) (setq pp pt) (setq pts (append pts (list pt))) ) (setq pline (drawLWPoly pts 1)) ;; delete temporary lines (foreach ln ls (entdel ln) ) (hatch_closed_polyline (ssadd pline) sc) ) ;; https://www.cadtutor.net/forum/topic/18257-entmake-functions/ (defun drawLine (p1 p2) (entmakex (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2))) ) (defun drawLWPoly (lst cls) (entmakex (append (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 90 (length lst)) (cons 70 cls)) (mapcar (function (lambda (p) (cons 10 p))) lst))) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; user selects existing polylines; a hatch will be drawn inside ;; Select Polyline Hatch (defun c:sph ( / ss sc) (setq sc (getreal "\nScale: ")) (prompt "\nSelect Closed Polylines to Hatch: ") (while (setq ss (ssget '((0 . "LWPOLYLINE")))) (hatch_closed_polyline ss sc) ;;(entmakex-hatch hList 0.0 "ANSI31" 1.0) ) ) ;; slightly modified from this code: ;; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/entmake-hatch-with-base-point-or-object-polyline-entity-name/m-p/8703197#M383362 (defun hatch_closed_polyline (ss sc / cnt e hList) (if (= 0.0 sc) (setq sc 1.0) ) (setq cnt (sslength ss)) (while (<= 0 (setq cnt (1- cnt))) (setq e (ssname ss cnt)) (if (setq tmp (CreateHatchList e)) (setq hList (cons tmp hList)) );if );while (setq hList (reverse hList)) (if (entmakex-hatch hList 0.0 "ANSI31" sc) (prompt "\nSuccess!") (prompt "\n...Failure.") );if (princ) );defun (defun CreateHatchList (e / i j pList found) (foreach i (entget e) (if (= 10 (car i)) (progn (setq pList (cons i pList)) (setq found nil j (member i (entget e))) (while (and (not found) (< 0 (length j))) (if (= 42 (car (car j))) (setq pList (cons (car j) pList) found t) );if (setq j (cdr j)) );while );progn );if );foreach (reverse pList) );defun ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun entmakex-hatch (l a n s) ;; By ElpanovEvgeniy ;; L - list point ;; A - angle hatch ;; N - name pattern ;; S - scale ;; return - hatch ename (entmakex (apply 'append (list (list '(0 . "HATCH") '(100 . "AcDbEntity") '(410 . "Model") '(100 . "AcDbHatch") '(10 0.0 0.0 0.0) '(210 0.0 0.0 1.0) (cons 2 n) (if (= n "SOLID") '(70 . 1) '(70 . 0) ) ;_ if '(71 . 0) (cons 91 (length l)) ) ;_ list (apply 'append (mapcar '(lambda (a) (apply 'append (list (list '(92 . 7) '(72 . 1) '(73 . 1) (cons 93 (/ (length a) 2))) (mapcar '(lambda (b) b) a) '((97 . 0)) ) ;_ list ) ;_ apply ) ;_ lambda l ) ;_ mapcar ) ;_ apply (list '(75 . 0) '(76 . 1) (cons 52 a) (cons 41 s) '(77 . 0) '(78 . 1) (cons 53 a) '(43 . 0.) '(44 . 0.) '(45 . 1.) '(46 . 1.) '(79 . 0) '(47 . 1.) '(98 . 2) '(10 0. 0. 0.0) '(10 0. 0. 0.0) '(451 . 0) '(460 . 0.0) '(461 . 0.0) '(452 . 1) '(462 . 1.0) '(453 . 2) '(463 . 0.0) '(463 . 1.0) '(470 . "ANSI31") ) ;_ list ) ;_ list ) ;_ apply ) ;_ entmakex ) ;_ defun (princ "\nCOMMAND MPH: Make Polyline Hatch.") (princ "\nCOMMAND SPH: Select Polyline Hatch.") (princ)

Il y a une erreur dans ton lisp. J'ai eu le même soucis. J'essaie de l'adapter à mon fichier, mais je coince complètement... Voici mon ébauche. C'est un peu capricieux, il faut parfois regénérer les onglets. (vl-load-com) ;;;================================================================= ;;; ;;; SOM.LSP V1.00 ;;; ;;; Sommaire ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun c:som(/ att doc ent fol ind js ef lay lign lst n old rec rect saut y) (defun rect(x y pas) (entmake (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 90 4) (cons 70 1) (cons 10 (list x y 0.0)) (cons 10 (list (+ x 186) y 0.0)) ;longeur ligne haut tableau (cons 10 (list (+ x 186) (- y pas) 0.0)) ;longueur ligne basse tableau (cons 10 (list x (- y pas ) 0.0)) (cons 6 "BYLAYER") (cons 8 "CARTOUCHES") (cons 62 256) (cons 67 1) (cons 370 -1) (cons 410 "000-1") ) ) ) (defun text(x y txt att) (entmake (list (cons 0 "MTEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbMText") (cons 1 txt) (cons 6 "BYLAYER") (cons 7 "ARIAL") (cons 8 "CARTOUCHES") (cons 10 (list x y 0.0)) (cons 11 (list 0.0 0.0 0.0)) (cons 40 3.0) (cons 50 0.0) (cons 62 256) (cons 67 1) (cons 71 att) (cons 72 1) (cons 370 -1) (cons 410 "000-1") ) ) ) (defun lign(x x1 y y1) (entmake (list (cons 0 "LINE") (cons 100 "AcDbEntity") (cons 100 "AcDbLine") (cons 10 (list x y 0.0)) (cons 11 (list (+ x x1) (+ y y1) 0.0)) (cons 6 "BYLAYER") (cons 8 "CARTOUCHES") (cons 62 256) (cons 67 1) (cons 370 -1) (cons 410 "000-1") ) ) ) (if (setq js (ssget "x" (list (cons 0 "INSERT") (cons 2 "cartouche")))) (progn (setq ef (ssget "x" (list (cons 410 "000-1") ) ) doc (vla-get-activedocument (vlax-get-acad-object)) lay (vla-item (vla-get-layers doc) "CARTOUCHES") old (vla-get-lock lay) n 0 ) (vla-startundomark doc) (vla-put-lock lay :vlax-false) (if ef (while (setq ent (ssname ef n)) (if (not (eq (cdr (assoc 2 (entget ent))) "cartouche")) (entdel ent) (setq ind (vlax-ename->vla-object ent)) ) (setq n (1+ n)) ) ) ; (if ind ;(foreach n (vlax-invoke ind 'getconstantattributes) ; (if (eq (vla-get-tagstring n) "IND") ; (setq ind (vla-get-textstring n)) ; ) ;) ; ) (setq n 0 lst '()) (while (setq ent (ssname js n)) (setq fol '()) (foreach att (vlax-invoke (vlax-ename->vla-object ent) 'getattributes) (cond ((eq (vla-get-tagstring att) "NUMPLAN") (setq rec (cons 0 (vla-get-textstring att))) ) ((eq (vla-get-tagstring att) "NUMFOLIO") (setq rec (cons 1 (vla-get-textstring att))) ) ((eq (vla-get-tagstring att) "TITRE1") (setq rec (cons 2 (vla-get-textstring att))) ) ((eq (vla-get-tagstring att) "IND") (setq rec (cons 3 (vla-get-textstring att))) ) ((eq (vla-get-tagstring att) "DATE") (setq rec (cons 4 (vla-get-textstring att))) ) ) (setq fol (cons rec fol)) ) (setq fol (list (cdr (assoc 0 fol)) (cdr (assoc 1 fol)) (cdr (assoc 2 fol)) (cdr (assoc 3 fol)) (cdr (assoc 4 fol)) ) ) (if (not (member fol lst)) (setq lst (cons fol lst)) ) (setq n (1+ n)) ) (setq lst (vl-sort lst '(lambda (a b) (if (= (car a) (car b)) (< (cadr a) (cadr b)) (< (car a) (car b)) ) ) ) x 211.0 ;position horizontal du tableau y (+ (/ (- (* (+ (length lst) 3) 4) 236) 2) 279) ;voir avec hauteur position tableau ) (rect x y 10) ;hauteur du cadres dans le tableau de titre (foreach n (list 86 98 108 120 ) ;position des lignes du tableaux des titres. (lign (+ x n) 0 y -10) ;hauteur des lignes dans le tableau de titre ) (text (+ x 16) (- y 5) "LISTE DES DOCUMENTS" 5) (text (+ x 92) (- y 5) "N° PLAN" 5) (text (+ x 103) (- y 5) "FOLIO" 5) (text (+ x 114) (- y 5) "INDICE" 5) (text (+ x 128) (- y 5) "DATE" 5) ; (foreach n (list 1 2 3 4 5 6) (text (+ x 104 (* n 4)) (- y 6) (itoa n) 5) ) (setq y (- y 12)) (rect x y (* (length lst) 8)) (foreach n (list 86 98 108 120);110 114 118 122 126 (lign (+ x n) 0 y (- (* (length lst) 8))) ;en rapport avec longueur ligne vertical ) (foreach txt lst (text (+ x 112.5) (- y 2) (if (not (member (cadddr txt) (list "" "-"))) ;(strcat (caddr txt) " - " (cadddr txt)) (caddr txt) ) 16 ;en rapport avec centrage vertical si 8 hauteur ligne, mettre 16 car -y2 plus haut ) (text (+ x 92) (- y 2) (car txt) 5) ;position des textes dans le titre (text (+ x 103) (- y 2) (cadr txt) 5) (text (+ x 114) (- y 2) (cadddr txt) 5) (text (+ x 128) (- y 2) (caddr txt) 5) ;(text (+ x 104 (* (atoi ind) 4)) (- y 2) "cadr txt" 5) (if saut (lign x 186 y 0) ;longueur ligne tableau ) (setq y (- y 8) saut T) ;hauteur des cellules du 2eme tableau ) (vla-put-lock lay old) (vla-endundomark doc) (princ "\nSommaire effectué.") ) (princ "\nPas de plans.") ) (princ) ) (setq nom_lisp "SOM") (if (/= app nil) (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " chargé.")) (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter."))) (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter."))) (setq nom_lisp nil) (princ) si des âmes charitables pouvaient m'en dire plus.? EXEMPLE-1.dwg

Bonjour. J'ai trouvé un lisp pour réaliser des hachures dans un rectangle suivant 3points, mais cela ne fonctionne pas. Pourriez vous m'indiquer ce qui coince.? (defun C:INSULHATCH ( / old_snap old_lay first_pt second_pt third_pt hatch_scale rectangle_name) ; ;insulation batting hatch tool from www.CADhatch.com for metric & imperial drawings ;to use, pick first point on left end of line, second point on right end of same line, third point needs to be opposite the second point. ; (setq old_snap (getvar "OSMODE"));save osnap so we can reset it on exit (setvar "OSMODE" 1); set osnap to end point (setq old_lay (getvar "CLAYER")); save current layer name so we can reset it on exit (prompt "\nSelect 2 points on lower line and 3rd on top line at 90degs to 2nd: ") (setq first_pt (getpoint)) (setq second_pt (getpoint)) (setq third_pt (getpoint)) (setq hatch_scale (/ (distance second_pt third_pt) 100.0)); hatch scale needs to be distance between lines divided by 100 (command "LAYER" "M" "HATCHLAYERNAME" "");edit layer name to suit your requirments, if layer exists in the drawing will set to that, if not it will create it. (command "rectangle" first_pt "R" second_pt third_pt);draw a rectangle to hatch (setq rectangle_name (ssget "L" ));name the rectangle so we can delete it if required (command "UCS" "3" first_pt second_pt "") (command "HATCH" "P" "H1INSUN1" hatch_scale 0 "S" "L" "") (command "ERASE" rectangle_name "");erases the hatch boundary rectangle, delete this line if you normally want to keep the boundary (command "UCS" "P");resets UCS to previous setting (setvar "OSMODE" old_snap); resets osnap to previous setting (command "LAYER" "M" old_lay "");reset to orginal layer ); end defun Par avance merci ps: je n'y connais rien

N'oublie pas le RESOLU 🙂

Regarde quelques vidéos d'advance steel, je pense que cela peut t'aider. https //www.youtube.com/watch?v=RcC4Hf9FakQ (supprime l'espace après le https)

avec le petit programme au dessus, on a des styles comme ça.

tu veux représenter quoi avec ta polyligne? Si c'est une membrane, il y a ce script sympa https://apps.autodesk.com/ACD/fr/Detail/Index?id=95241408569295599&appLang=en&os=Win32_64..

Tu peux essayer advance steel *, une application pour de la serrurerie et charpente... je pensais également à métalcad, mais pour un mouton à 5 pattes, +1 pour advance steel. j'ai parlé avec un prof qui tourne avec solidworks pour de la serruerie... pourquoi pas. ATHENA est plus tourné vers la menuiserie à mon sens. Il y a aussi top solid, mais pour un mouton à 5 pattes, je sais pas Sinon j'ai entendu parlé de HiCAD (je pense est un peu comme advance steel) * advance steel coté + : tu peux quasiment tout faire coté - : la licence et une formation est, je pense, nécessaire. (Sauf si tu as du temps pour l'apprendre seul.)

Tout simplement parce que je connaissais pas cette méthode. Je pensais qu'un simple "clic" pouvait résoudre mon affaire... Je vais étudier cette nouvelle approche. Mais il faut quand même avoir un autre fichier et si le lien est rompu, cela ne fonctionne plus. Merci Edit1: Je viens de tester cette méthode sur un autre fichier, et cela ne fonctionne pas. Est ce parce que j'ai ce code " $(substr,$(getvar,ctab),1,50)" dans la case par défaut d'un attribut....? je continue mes recherches Edit2: Il y a surement un bug, car il n'extrait que 5 onglets sur les 25. si je fais une modif sur le 6eme, tout le tableau débloque... Je ne suis pas convaincu par cette méthode

Voici le fichier modifié pour ma façon de travailler le nom des onglets est du type 01-A-titre (01, le numero du plan; le A pour l'indice et titre.... pour le nom du plan) ces valeurs sont "injectées" dans le cartouche. EXEMPLE-1.dwg normalement je bosse suivant les règles du dessinateur... plan + cotation dans l'objet et cartouche et impression dans les parties papiers.

La modification doit se faire dans cette partie de code.? Car ce que je comprends, c'est que le script liste les attributs entre les "" . mais le (cdr (assoc 0 fol).???? (foreach att (vlax-invoke (vlax-ename->vla-object ent) 'getattributes) (cond ((eq (vla-get-tagstring att) "NUMPLAN") (setq rec (cons 0 (vla-get-textstring att))) ) ((eq (vla-get-tagstring att) "NUMFOLIO") (setq rec (cons 1 (vla-get-textstring att))) ) ((eq (vla-get-tagstring att) "TITRE1") (setq rec (cons 2 (vla-get-textstring att))) ) ((eq (vla-get-tagstring att) "IND") (setq rec (cons 3 (vla-get-textstring att))) ) ((eq (vla-get-tagstring att) "DATE") (setq rec (cons 4 (vla-get-textstring att))) ) ) (setq fol (cons rec fol)) ) (setq fol (list (cdr (assoc 0 fol)) (cdr (assoc 1 fol)) (cdr (assoc 2 fol)) (cdr (assoc 3 fol)) (cdr (assoc 4 fol)) )

Personne n'aurait d'idée.?. Merci

Bonjour. J'ai un peu avancé sur le lisp sommaire (som.lsp ci dessus), mais je bloque sur un point (avant le prochain..) apparemment, il ne peux lister que 3 choses via la commande "car" ou "cadr" ou "caddr". Dans mon cas, j'en aurais 4 apres liste des docs. (position des titres à l'horizontal) (text (+ x 16) (- y 4) "LISTE DES DOCUMENTS" 5) (text (+ x 92) (- y 4) "N° PLAN" 5) (text (+ x 102) (- y 4) "FOLIO" 5) (text (+ x 118) (- y 4) "INDICE" 5) (text (+ x 140) (- y 4) "DATE" 5) Je pense que le listing se joue dans ces lignes, mais je bloque car novice (foreach txt lst (text (+ x 2.5) (- y 2) (if (not (member (cadddr txt) (list "" "-"))) ; (strcat (caddr txt) " - " (cadddr txt)) (caddr txt) ) 4 ) (text (+ x 92) (- y 2) (car txt) 5) (text (+ x 102) (- y 2) (cadr txt) 5) (text (+ x 118) (- y 2) (cadddr txt) 5) (text (+ x 140) (- y 2) (caddr txt) 5) ;(text (+ x 104 (* (atoi ind) 4)) (- y 2) "cadr txt" 5) Pour le moment j'arrive à afficher tout sauf la colonne DATE... (certains me diront surement de m'en passer.. 🙂 mais elle sert à indiquer la date de mise a jour du plan.) Quelqu'un pourrait m'en dire plus ou m'aiguiller? Merci

Bonjour. Je relance ce sujet, car je suis presque dans le même cas. 1) Mes onglets sont du type "01-A-nom du dessin" (01 = numéro du plan, A= lettre de l'indice et le nom du dessin) Une façon simple pour moi d'avoir les infos de base, nom et indice, pour retrouver le plan en lisant l'onglet. 2) ma configuration d'onglet 01-A-xxxxx renvoi ces valeurs dans le cartouche à différent endroit via ce principe de code $(substr,$(getvar,ctab),1,50) Jusque la rien de particulier. 3) Dans le lisp de Patrick_35 (SOM.lsp), il y a cette ligne qui est en relation avec un dwg dont les onglets sont nommés 001-0 / 002-1 / etc.... (setq ef (ssget "x" (list (cons 410 "000-1") 4) il y a également un tableau d'indice qui mets un croix dans un case en fonction du numéro d'indice dans le plan Mes questions.... 1) Est il possible de répertorier tout les onglets et y lire les infos dans le cartouche "numéro de plan + titre 1 voir titre 2 + indice + folio " ? Le listing se fait deja mais le nom des onglets posent problème en cas de modif Je me dis que si la lecture de l'onglet n'etait pas aussi "sélectif", cela serait plus simple car le tri se fait avec le numéro de plan dans le cartouche 2) Est il possible, dans le même principe de récupération de données dans le cartouche, d'afficher le numéro d'indice et non un tableau avec une croix, car certains plans n'ont pas le même niveau de révision. ps, comme vous vous en doutez, je n'y connais rien en programmation. Merci d'avance de votre aide Som.lsp EXEMPLE-1.dwg

Bonjour. Il se pourrait qu'il y ai eu un bug avec le logiciel Athena sur ce document.

Je suis vraiment une bleusaille... j'ai pour habitude de cacher le ruban car trop d'emprise sur ma vue, et je n'ai pas pensé à cela. désolé d'avoir polluer la forum