gepetto

Hello, Merci pour ton aide, je suis content de ta réponses, ca marche très bien. J'ai du changer la taille de l'échelle, a 1 1. j'ai mon dessin avec comme unité des mm. "Le nom de la présentation courante s'obtient par l'intermédiaire de la variable CTAB (getvar "ctab"). Veux-tu placer ce texte directement à la suite du nom du fichier ?" J'ai essayer de mettre la variable (getvar "ctab") à la suite mais comme tu le savais déjà ca n'allais pas fonctionner... non. Je pense qu'il faudrait un truc du genre: (setq str (strcat "file:///" (getvar "dwgprefix") (getvar "dwgname") attendre que le dessin soit ouvert, écrire dans la ligne de commande ctab enter (getvar "ctab" )))) Mais je ne sais pas du tout ou aller chercher comment faire. Je te remercie encore de ton aide Heureux que tu m'aide Gepetto

Effectivement je ne pensais pas que l'on puisse trouver des "horreur de ferraillage" pareille sur des ouvrage d'art. Mais personnellement, et de l'avis de mes collaborateur, je pense que l'accès a une version du plan numérique, "permet" d'enlever un doute sur tel ou tel question, permet aussi simplement de mesurer la diagonale d'un élément pour en assurer la bonne forme. etc... Je suis aussi de ton avis Didier (mon homonyme) qu'il peux être dangereuse voir suicidaire de donner la possibilité à l'atelier de pouvoir modifier les plans. Par contre avoir une possibilité de mettre un commentaire ou relever une erreur, sur le plan pourrai numérique pourrait aussi être un avantage. (surtout quand on voit comment les plan revienne de l'atelier... si il revienne) Voila pourquoi je voudrai mettre un place un tel système. Je vous remercie Amicalement

Hello, Après quelque recherche, il s'avère que le QRcode se prêterai mieux a ma demande, il permet dans un espace réduit de mettre beaucoup d'info. je suis tomber sur un article QRcode qui donne un chouette lisp. Avec une modif à faire pour qu'autocad ne plante pas... le code ci-joint. Il me faudrait de l'aide pour modifier ce lisp, en y ajoutant la fonction suivante: (voir fichier dwg) Que le texte demander correspondent au chemin d'accès du fichier soit C:\, ainsi que le nom de la présentations. Que le QR code ce mette directement dans le coins gauche de la présentations. Je ne sais pas si c'est possible ou si jr rêve un peux. Je vous remercie indéfiniment de votre aide. Amicalement qrcode.lsp dessin dwg QR code.zip

Hello, Après avoir fait mes essai, j'ai pas trop mal compris le truc, il y a des choses que je n'arrive pas à faire. Il y a 3 bloc dans le dessin ci-joint, avec sur chacun d'entre eux mes soucis. Merci de votre aide Amicalement Exemple 1.2.zip

Hello, Ouaw, y a des réponses là. Pour répondre a tout le monde. J'aime bien la version de la visionneuses, vais aller regarder dans cette direction. Exact un version numérique du plan papier. Pour retrouver la version numérique du plan papier soit la bonne mise en page, y aurait 'il un moyen de ce servir d'un code barre, ou qqch du genre. Quelqu'un d'entre vous a déjà fait quelque chose la dessus? Pour ce qui relève de la responsabilité, c'est toujours tendu effectivement mais dans mon cas il s'agit des ouvrier de notre société et le technicien c'est aussi le parton... Le temps ou la DAO n'existait pas, et il fallait gratter, gratter, quand y avais une erreur,... et oui mais les temps on évoluer. Je vous remercie de votre aide. Amicalemet

Hello, Voila, il arrive souvent que sur les plans d'atelier il manque une ou plusieurs informations très souvent une cote ou un angle. ca apporte souvent un risque d'erreur, ou de déranger le technicien qui n'est pas forément là.... Vous imaginer tous le topo... Je me demande comment mettre en place un système qui permette au personnel de l'atelier de consulter la mise en page du plan qu'il on en version papier. ainsi il pourrai très facilement rechercher l'info manquante. Je me demande si il existe pas quelque chose dans cette idée, Je pourrai imaginer de mettre le fichier en lecture seul, ou gérer les autorisation d'écriture et de lecture. Ensuite il faudrait quelque chose permettant d'accéder facilement au présentations. Je vous remercie de m'aider dans ma quêtes. Amicalement

Hello, Merci pour tes réponses, je vais donc passer mes 2000 lignes a la moulinettes... J'ai trouver pourquoi le cliche ne fonctionnais pas. le nom du fichier contenait un "." genre plat_ac._50x10 apres surpression ca joue. Merci encore. Bonne journée

Hello, Merci pour tes 2 réponses, je ne connaissais pas le coups du bloc "normal", en jouant avec la variable échelle et rotation ca donne des résultat vraiment bien. Vais me souvenir de cette combine. Pour mon bloc dynamique, c'est plus pratique a modifier, ca évite de devoir mesurer les côte x et y, y a les poignées... L'idéal serai d'avoir des poignées sur les 4 angles. J'ai a nouveau essayer, mais chaque fois, j'ai qqch qui ne suit pas, je dois sélectionner qqch de faut. Je te remercie Gepetto

Hello, Alors j'ai pu utiliser la commande dos que tu m'as fournis, mais après y faut éditer chaque ligne de chaque fichier, un sacré boulot. Y a pas un moyen d'automatiser ce job? De plus j'avais fait mes clicher avec la commande Mcliche, (avec le SAS pour pouvoir mettre tout mes clicher a la même échelle, etc...) mais mes clicher n'apparaisse pas, pourtant le fichier lui s'incère bien dans le dessin Une idée? Je vous remercie de votre aide Carre_ac._06.zip

Hello, Merci a vous tous pour vos réponses, Oui j'avais regarder les fichier joint, et avais penser les inscrire 1 a 1 dans le fichier texte, mais ca restait long. Je ne connais le dos que de nom,... mais vais tester ta commande, Je vais faire un fichier *.bat, ca va quand même plus vite, non. Je te remercie.

Hello, Je suis extrêmement confus de ne pas t'avoir répondu. A toi qui a pris du temps pour moi, je te prie de m'excuser. Voila, si tu est d'accord de m'accorder a nouveau ton aide, je me devrais de te répondre rapidement. En ce qui concerne les 2 variantes, ce que je recherche s'approche plus de la version "mal fait" car, l'étirement s'effectue que dans la direction voulu. mais il est vrai que le point d'insertion devrait rester dans un des 4 angles. De plus la possibilité d'étirement en X et Y que propose le coin haut gauche est idéal. Il faudrait cela au 4 coins. Comme tu me l'as si gentiment proposer, il serai mieux que je sache comment les faire ces bloc... Je te remercie. Amicalement Gepetto PS pour le silicone, je me vais preparer quelque choses

Hello, Hello, Me voila en pleine création de ma bibliothèque de bloc. J'ai tester plusieurs variante, le design center, la palette d'outils, même les menu mosaïque... c'est dire. Puis je suis tomber sur l'excellent lisp de Bibles. Que j'ai adopter puisque il est parfait, et répond à mes besoin voir plus. Ma Question est: Y a t'il moyen d'insérer par lot une série de dwg. Je m'explique: J'ai renommer un nom de la famille principale en (Acier) Ajouter des famille secondaire (cornière égal) (cornière inégal) Ensuite je peux ajouter un symbole un a un, en définissant la désignation et le chemin de recherche. J'aurai voulu savoir si y a moyen d'automatiser ce travail. A savoir que le nom du dwg, correspond à la désignation voulu. Car vu la quantité d'acier normaliser, je vais y passer bien des nuits... Je vous remercie de votre aide. Amicalement Gepetto

Hello, Merci pour le script, j'avais pas eu le temps de tester plus vite, j'ai compris la façon de faire, et ca marche bien. Je te remercie

Hello, Merci à vous 2 pour votre aide et vos conseil aviser quand à mon état de novice avancer en programmation,.... et la façon dont faut que je débute. Je vais lire le documents proposer, et essayer d'appliquer. Y a t'il des exercices qui existe, pour pouvoir débuter? avec un correctif? Je vous remercie de votre aide. Je vais mettre les lignes avec la création d'un calque, on sait jamais... Merci beaucoup de votre aide. Gepetto

Hello, Merci Bonuscad, ca marche du tonnerre pour la commande copsegs. mais je ne trouve guère un truc qui y ressemble pour le commande ofsegs, arrive tu as me dire ou faut modifier la ligne. Je te remercie et j'ai mis le lisp entier. Ta proposition (vlax-put copy 'Layer (getvar "CLAYER")) et ce que je voudrais, mais qui ne marche que jusqu'au "CH" (vlax-put copy 'Layer (getvar (command"-calque" "CH" "TRAITEMENT_TOLE"))) @Goldorak44 oui je suis 100% d'accord avec toi, j'avais y a quelque temps voulu faire l'effort de comprendre, mais c'est rude... Promis je vais lire le document de gile. ;;; OFSEGS (gile) 26/08/08 ;;; Décale les segments de polyligne sélectionnés. (defun c:ofsegs (/ ofdist ent pline normal elevat params points side closest par bulge p1 p2 arc_data ) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (initget 6 "Par") (if (setq ofdist (getdist (strcat "\nSpécifiez la distance de décalage ou [Par] <" (if (< (getvar "OFFSETDIST") 0) "par" (rtos (getvar "OFFSETDIST")) ) ">: " ) ) ) (if (= ofdist "Par") (setvar "OFFSETDIST" -1) (setvar "OFFSETDIST" ofdist) ) (setq ofdist (getvar "OFFSETDIST")) ) (if (and (setq ent (entsel "\nSélectionnez un segment à décaler: ")) (setq pline (vlax-ename->vla-object (car ent))) (= (vla-get-ObjectName pline) "AcDbPolyline") (setq normal (vlax-get pline 'Normal)) (setq elevat (vla-get-Elevation pline)) ) (progn (setq params (cons (fix (vlax-curve-getParamAtPoint pline (trans (osnap (cadr ent) "_nea") 1 0) ) ) params ) ) (HighlightSegment pline (car params)) (while (setq ent (entsel "\nSélectionnez le segment suivant ou <Quitter>: ")) (if (equal (vlax-ename->vla-object (car ent)) pline) (progn (setq par (fix (vlax-curve-getParamAtPoint pline (trans (osnap (cadr ent) "_nea") 1 0) ) ) params (if (member par params) (vl-remove par params) (cons par params) ) ) (redraw) (foreach p params (HighlightSegment pline p)) ) ) ) (if (setq side (GetPointAboutPlane normal (trans (list 0 0 elevat) normal 0) (if (minusp (getvar "OFFSETDIST")) "\nSpécifiez une valeur pour \"Par le point\": " "\nSpécifiez un point sur le côté à décaler: " ) ) ) (progn (redraw) (vla-StartUndoMark *acdoc*) (setq closest (vlax-curve-getClosestPointTo pline side T) par (vlax-curve-getParamAtPoint pline closest) ) (if (minusp (getvar "OFFSETDIST")) (setq ofdist (distance side closest)) ) (cond ((equal closest (vlax-curve-getStartPoint pline) 1e-9) (setq side (trans side 0 normal)) ) ((equal closest (vlax-curve-getEndPoint pline) 1e-9) (setq par (- par 1) side (trans side 0 normal) ) ) ((= (fix par) par) (setq side (polar (trans closest 0 normal) ((if (clockwise-p (trans (vlax-curve-getPointAtParam pline (- par 0.1)) 0 normal ) (trans closest 0 normal) (trans (vlax-curve-getPointAtParam pline (+ par 0.1)) 0 normal ) ) + - ) (angle '(0 0 0) (trans (vlax-curve-getFirstDeriv pline par) 0 normal T ) ) (/ pi 2) ) ofdist ) ) ) (T (setq par (fix par) side (trans side 0 normal) ) ) ) (setq bulge (vla-getBulge pline (fix par)) p1 (trans (vlax-curve-getPointAtParam pline (fix par)) 0 normal ) p2 (trans (vlax-curve-getPointAtParam pline (1+ (fix par))) 0 normal ) ) (if (zerop bulge) (if (clockwise-p side p2 p1) (setq ofdist (- ofdist)) ) (progn (setq arc_data (PolyArc-data bulge p1 p2)) (if (minusp bulge) (if (< (cadr arc_data) (distance (car arc_data) side) ) (setq ofdist (- ofdist)) ) (if (< (distance (car arc_data) side) (cadr arc_data) ) (setq ofdist (- ofdist)) ) ) ) ) (mapcar (function (lambda (p) (vl-catch-all-apply 'vla-Offset (list p ofdist)) (vla-delete p) ) ) (Copysegments pline params) ) (vla-EndUndoMark *acdoc*) ) ) ) (princ "\nEntité non valide.") ) (princ) ) ;;================================================================;; ;; COPSEGS (gile) 26/03/08 ;; Copie les segments de polyligne sélectionnés. (defun c:copsegs (/ ent pl par lst) (vl-load-com) (if (and (setq ent (entsel "\nSélectionnez un segment à copier: ")) (setq pl (vlax-ename->vla-object (car ent))) (= (vla-get-ObjectName pl) "AcDbPolyline") ) (progn (setq par (fix (vlax-curve-getParamAtPoint pl (trans (osnap (cadr ent) "_nea") 1 0) ) ) lst (cons par lst) ) (HighlightSegment pl par) (while (setq ent (entsel "\nSélectionnez le segment suivant ou <Quitter>: ")) (if (equal (vlax-ename->vla-object (car ent)) pl) (progn (setq par (fix (vlax-curve-getParamAtPoint pl (trans (osnap (cadr ent) "_nea") 1 0) ) ) lst (if (member par lst) (vl-remove par lst) (cons par lst) ) ) (redraw) (foreach p lst (HighlightSegment pl p)) ) ) ) (setq lst (vl-sort lst '<)) (if (setq from (getpoint "\nSpécifiez le point de base: ")) (while (and (setq to (vl-catch-all-apply 'getpoint (list from "\nSpécifiez le deuxième point: ") ) ) (listp to) ) (mapcar (function (lambda (p) (vla-move p (vlax-3d-point (trans from 1 0)) (vlax-3d-point (trans to 1 0)) ) ) ) (CopySegments pl lst) ) ) ) (redraw) ) (princ "\nEntité non valide.") ) (princ) ) ;;================================================================;; ;; CopySegments ;; Copie des segments de polyligne ;; Les segments sont copiés à la même place et conservent leurs propriétés ;; Les segments jointifs sont unis en une polyligne unique ;; ;; Arguments ;; pline : la polyligne source (vla-object) ;; params ; la liste des indices des segment à copier ;; ;; Retour ;; la liste des polylignes créées (defun CopySegments (pline params / nor space tmp copy ret) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (setq params (vl-sort params '<) nor (vlax-get pline 'Normal) space (vla-ObjectIDToObject *acdoc* (vla-get-OwnerID pline)) ) (while params (setq tmp (cons (car params) tmp) params (cdr params) ) (if (and (zerop (car tmp)) (= (- (vlax-curve-getEndParam pline) 1) (last params)) (equal (vlax-curve-getStartPoint pline) (vlax-curve-getEndPoint pline) 1e-9 ) ) (progn (setq params (reverse params) tmp (cons (car params) tmp) params (cdr params) ) (while (= (car params) (1- (car tmp))) (setq tmp (cons (car params) tmp) params (cdr params) ) ) (setq tmp (reverse tmp) params (reverse params) ) ) ) (while (= (car params) (1+ (car tmp))) (setq tmp (cons (car params) tmp) params (cdr params) ) ) (setq tmp (reverse (cons (1+ (car tmp)) tmp))) (setq pts (vl-remove nil (mapcar (function (lambda (pa / pt) (if (setq pt (vlax-curve-getPointAtParam pline pa)) ((lambda (p) (list (car p) (cadr p)) ) (trans pt 0 nor) ) ) ) ) tmp ) ) ) (setq copy (vlax-invoke space 'addLightWeightPolyline (apply 'append pts) ) ) (foreach p (cdr (reverse tmp)) (vla-setBulge copy (vl-position p tmp) (vla-getBulge pline p) ) (vla-getWidth pline p 'swid 'ewid) (vla-setWidth copy (vl-position p tmp) swid ewid) ) (foreach prop '(Elevation Layer Linetype LinetypeGeneration LinetypeScale Lineweight Normal Thickness TrueColor ) (if (vlax-property-available-p pline prop) (vlax-put copy prop (vlax-get pline prop)) ) ) (vlax-put copy 'Layer (getvar "CLAYER")) (setq tmp nil ret (cons copy ret) ) ) ) ;;================================================================;; ;; HighlightSegment ;; Met un segment de polyligne en surbrillance ;; ;; Arguments ;; pl : la polyligne (vla-object) ;; par : l'indice du segment (defun HighlightSegment (pl par / p1 p2 n lst) (and (setq p1 (vlax-curve-getPointAtParam pl par)) (setq p1 (trans p1 0 1)) (setq p2 (vlax-curve-getPointAtParam pl (+ par 1))) (setq p2 (trans p2 0 1)) (if (zerop (vla-getBulge pl par)) (grvecs (list -255 p1 p2)) (progn (setq n 0) (repeat 100 (setq lst (cons (trans (vlax-curve-getPointAtParam pl (+ n par)) 0 1) lst ) n (+ n 0.01) ) ) (grvecs (cons -255 (apply 'append (mapcar 'list lst (cdr lst)))) ) ) ) ) ) ;;================================================================;; ;;; Clockwise-p ;;; Retourne T si les points p1 p2 et p3 tournent dans le sens horaire (defun clockwise-p (p1 p2 p3) (< (sin (- (angle p1 p3) (angle p1 p2))) -1e-14) ) ;;================================================================;; ;;; Polyarc-data ;;; Retourne la liste des données d'un arc de polyligne (centre rayon angle). (defun polyarc-data (bu p1 p2 / ang rad cen area cg) (setq ang (* 2 (atan bu)) rad (/ (distance p1 p2) (* 2 (sin ang)) ) cen (polar p1 (+ (angle p1 p2) (- (/ pi 2) ang)) rad ) ) (list cen (abs rad) ang) ) ;;================================================================;; ;; GETPOINTABOUTPLANE ;; Retourne le point d'intersection de la perpendiculaire à la vue courante passant ;; par le point saisi par l'utilsateur et le plan défini par sa normale et un point. ;; ;; Arguments ;; nor : le vecteur normal du plan d'intersection ;; org : un point sur le plan d'intersection (SCG) ;; msg : le message d'invite ou "" ;; ;; Retour : les coordonnées (SCG) du point d'intersection ou nil (defun GetPointAboutPlane (nor org msg / p1 p2 sc) (if (and (setq p1 (getpoint msg)) (setq p1 (trans p1 1 0)) (setq p2 (trans p1 0 2)) (setq p2 (trans (list (car p2) (cadr p2) (1+ (caddr p2))) 2 0)) (/= 0 (setq sc (apply '+ (mapcar '* nor (mapcar '- p2 p1)))) ) ) (mapcar (function (lambda (x1 x2) (+ (* (/ (apply '+ (mapcar '* nor (mapcar '- p1 org))) sc) (- x1 x2) ) x1 ) ) ) p1 p2 ) ) )

Hello, Merci pour ton idée, elle me plait bien, et vais partir dans cette direction. soit un bloc dynamique. J'ai donc dessiner mon rectangle, avec ma croix à son centre, et mis des paramètre et des actions, ca marche à peux près, mais il y a me poignée, qui font n'importe quoi, elle ne reste pas dans les angles comme je voudrais, peux tu me dire ce que je fait de faux? De plus je vais aussi faire un bloc dynamique d'un joint silicone, avec ca mousse, le truc c'est qu'il faudrait arriver a garder les proportions, si tu as une idée je suis preneur. Je te remercie de ton aide. Amicalement Gepetto cale.zip

Hello, J'ai découvert sur le site a Gile un lisp permettant de décaler des segment d'une poliligne, ,exactement la commande que je voulais, Un Grand Merci à toi Gile. Mais j'aurai voulu pouvoir y définir un calque spécifique. J'ai essayer 2-3 truc, mais je dois faire des truc faut. Voici le lisp. entre les ;;;;;;; ma partie de code ajouter. ;;; OFSEGS (gile) 26/08/08 ;;; Décale les segments de polyligne sélectionnés. (defun c:ofsegs (/ ofdist ent pline normal elevat params points side closest par bulge p1 p2 arc_data ) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (initget 6 "Par") (if (setq ofdist (getdist (strcat "\nSpécifiez la distance de décalage ou [Par] <" (if (< (getvar "OFFSETDIST") 0) "par" (rtos (getvar "OFFSETDIST")) ) ">: " ) ) ) (if (= ofdist "Par") (setvar "OFFSETDIST" -1) (setvar "OFFSETDIST" ofdist) ) (setq ofdist (getvar "OFFSETDIST")) ) (if (and (setq ent (entsel "\nSélectionnez un segment à décaler: ")) (setq pline (vlax-ename->vla-object (car ent))) (= (vla-get-ObjectName pline) "AcDbPolyline") (setq normal (vlax-get pline 'Normal)) (setq elevat (vla-get-Elevation pline)) ) (progn (setq params (cons (fix (vlax-curve-getParamAtPoint pline (trans (osnap (cadr ent) "_nea") 1 0) ) ) params ) ) (HighlightSegment pline (car params)) (while (setq ent (entsel "\nSélectionnez le segment suivant ou <Quitter>: ")) (if (equal (vlax-ename->vla-object (car ent)) pline) (progn (setq par (fix (vlax-curve-getParamAtPoint pline (trans (osnap (cadr ent) "_nea") 1 0) ) ) params (if (member par params) (vl-remove par params) (cons par params) ) ) (redraw) (foreach p params (HighlightSegment pline p)) ) ) ) (if (setq side (GetPointAboutPlane normal (trans (list 0 0 elevat) normal 0) (if (minusp (getvar "OFFSETDIST")) "\nSpécifiez une valeur pour \"Par le point\": " "\nSpécifiez un point sur le côté à décaler: " ) ) ) ;;;;;; (calque (strcat "TRAITEMENT_TOLE" ) 1 "cache3" 18) ;;;;; (progn (redraw) (vla-StartUndoMark *acdoc*) (setq closest (vlax-curve-getClosestPointTo pline side T) par (vlax-curve-getParamAtPoint pline closest) ) (if (minusp (getvar "OFFSETDIST")) (setq ofdist (distance side closest)) ) (cond ((equal closest (vlax-curve-getStartPoint pline) 1e-9) (setq side (trans side 0 normal)) ) ((equal closest (vlax-curve-getEndPoint pline) 1e-9) (setq par (- par 1) side (trans side 0 normal) ) ) ((= (fix par) par) (setq side (polar (trans closest 0 normal) ((if (clockwise-p (trans (vlax-curve-getPointAtParam pline (- par 0.1)) 0 normal ) (trans closest 0 normal) (trans (vlax-curve-getPointAtParam pline (+ par 0.1)) 0 normal ) ) + - ) (angle '(0 0 0) (trans (vlax-curve-getFirstDeriv pline par) 0 normal T ) ) (/ pi 2) ) ofdist ) ) ) (T (setq par (fix par) side (trans side 0 normal) ) ) ) (setq bulge (vla-getBulge pline (fix par)) p1 (trans (vlax-curve-getPointAtParam pline (fix par)) 0 normal ) p2 (trans (vlax-curve-getPointAtParam pline (1+ (fix par))) 0 normal ) ) (if (zerop bulge) (if (clockwise-p side p2 p1) (setq ofdist (- ofdist)) ) (progn (setq arc_data (PolyArc-data bulge p1 p2)) (if (minusp bulge) (if (< (cadr arc_data) (distance (car arc_data) side) ) (setq ofdist (- ofdist)) ) (if (< (distance (car arc_data) side) (cadr arc_data) ) (setq ofdist (- ofdist)) ) ) ) ) (mapcar (function (lambda (p) (vl-catch-all-apply 'vla-Offset (list p ofdist)) (vla-delete p) ) ) (Copysegments pline params) ) (vla-EndUndoMark *acdoc*) ) ) ) (princ "\nEntité non valide.") ) (princ) ) Je vous remercie de votre aide. Amicalement Gepetto

Hello, Apres une recherche sur le net, je crois ne pas avoir trouver mon bonheur. Alors je vais vous en faire la demande. Je voudrais une commande me permettant de dessiner un rectangle, avec à l'intérieur une croix (c'est comme cela que l'on schématises les cales de montages) mais qu'elle fonctionne comme la fonction rectangle, c'est a dire que l'on sélectionne le point 1, puis le point 2( qui est dans la diagonale du 1er) J'ai bien penser au bloc dynamique, mais le fait de devoir étirer 2 point me plait guère. Quelqu'un de vous aurai t'il une solution, ou un début? Je vous remercie Amicalement Gepetto

Hello, Merci de vos conseil, je me vais essayer ca ce weekend, et vous retient au courant. Je vous remercie de votre aide. Amicalement Gepetto

hello, Merci de ton aide, mais la commande ne fonctionne pas. ca note commande inconnue. Commande: ^C^C_.-LAYER;_F;FIXATION-ATTRIBUT;;_zoom;_e Commande inconnue "-LAYER;_F;FIXATION-ATTRIBUT;;_ZOOM;_E". Appuyez sur F1 pour obtenir de l'aide. ce qui m'etonne c'est que dans la commande _.-layer, je n'ai pas d'option avec un "F", la commande geler est un "G", alors j'ai aussi essayer avec cette lettre, mais j'ai la même erreur, que faire? Je te remercie. Amicalement Gepetto

Hello, Ha, ben j'ai appris quelque choses aujourd'hui, je vais aller me coucher moins bête. Je te remercie pour ton aide. Amicalement Gepetto

Hello, Cool ca marche, je te remercie. Mais arrive tu a m'expliquer pourquoi, je ne suis pas un spécialiste, mais un bricoleur du dimanche. Pourquoi le fait de mettre un \ permet de faire la rotation, j'ai cru qu'un ; permettait de faire une pose à la macro? ^C^C_-layer;CH;FIXATION;;-inserer C:/dessins/essai3/c10025 \1;1;\_layerp Je te remercie. A toi aussi une bonne et heureuses année 2015 Amicalement Gepetto

Hello, Cool Merci de ton aide, mais juste un petit truc qui me chagrine encore, je voudrai pouvoir choisir l'angle du bloc, j'ai donc enlever le 0 qui ce trouve après le \1;1; ^C^C_-layer;CH;FIXATION;;-inserer C:/dessins/essai3/c10025 \1;1; ;_layerp Mais ce ne joue pas, pourquoi? Je te remercie de votre aide. Amicalement Gepetto

Hello a tous, Voila je voudrais crée un script que j'utiliserai avec SAS qui devrais faire: Geler un calque, zoom tout J'ai un soucis à la fin de la commande FIXATION-ATTRIBUT je devrai ajouter un ENTER et un *annuler* pour que le script fonctionne, mais ne sais pas comment faire. ou alors devoir écrire le script autrement Mon script _.-LAYER G =FIXATION-ATTRIBUT _zoom _e Je vous remercie de votre aide Amicalement

Bonjour, a tous. Je vais te faire part de mon expérience en tant que dessinateur en construction métallique durant 13 ans dans un bureau technique ou nous faisions du plans d'exécutions pour diverses PME de 3 a 40 personnes. Mais plutôt orienter façade, serrurerie generale (porte fenêtre escalier) quasiment jamais dessiner de charpente. Maintenant je suis comme toi patron d'une PME de 10pers. Nous avions 3 programmes soit: 1)Pour ce qui est de la menuiserie métallique porte, fenêtre, etc nous utilisions Syscad un logiciel 2D mais qui te crée tes coupes automatiquement, et génère liste de débitage, commande, etc. A mon gout très bien fait pour la menuiserie, livrer avec une belle gamme de pièces normaliser, et quelque beau outil pour nous constructeur métallique (tôlerie bande étanche, etc...) Une démo est dispo sous syscad.info 2) Pour les escalier balancer droit etc... trepcad.de Tu défini les bases de ton escalier via quelque boite de dialogue, et monte l'escalier en 3D, puis génère plan d'atelier, de découpe etc... j'en suis rester a la version 5, mais je sais qu'il on évoluer depuis. Je crois même qu'il on été racheter par Graitec 3) et pour fini Advance steel depuis la version 2010, que nous utilisions pour la façade poteau traverses, tôlerie, escalier, verrière etc... Demande un gros travail de mise en place, de paramétrage, mais quand c'est en place ca roule assez bien. Voila j'espère avoir pu apporter de l'eau à ton moulin. Amicalement Gepetto