thry0

Bjr à tous, Ton bloc "_DetailCallout" possède des entités sur ce calque. A rectifier donc ...

Re, Quand tu doubles clic sur un fichier AutoCAD, quelqu'il soit, c'est Dessin1 qui s'ouvre systématiquement, c'est bien ça ... ?

Bjr à tous, Je ne comprends pas de quel fichier tu parles pour l'ouverture avec le bloc note :huh: la nouvelle syntaxe de ton icone de lancement d'AutoCAD est un exemple à adapter à ton cas particulier : "C:\Program Files\Autodesk\AutoCAD\acad.exe" /t C:\Ton projet\Gabarit.dwt Vérifies en cliquant droit sur ton icone d'AutoCAD puis propriétés et dans la cible tu adaptes ... par ex. "C:\Ton projet\Gabarit.dwt" peut devenir "W:\Affaire Trucmuche\tondessinàouvrir.dwt" Je sais pas si je suis clair ... Sinon reviens à la charge ;)

Bjr à tous, Regarde du coté de la variable "STARTUP", à basculer à 1. Ou bien modifie la syntaxe de ton icone de lancement du programme. Par ex. "C:\Program Files\Autodesk\AutoCAD\acad.exe" /t C:\Ton projet\Gabarit.dwt Normalement c'est OK comme ça ...

Bjr à tous, Vas voir ICI Différentes solutions proposées ...

Re, Menu Outils - Macros et elle est accessible à cet endroit. A sélectionner, à lancer et la fenêtre apparaît là normalement ...

Re, Message à l'attention de jc1932, Il est vrai que je n'avais pas lu TOUS les messages depuis le début du sujet (9 pages ...), d'autant plus que chez moi le module VBA est installé et que je n'ai donc aucun problème pour ma part ! J'essayais simplement d'aider Monkey qui avait l'air perdu et qui n'a compris qu'après ma réponse (?) d'où venait le problème, ce fameux module ! Adresse ton message au bon intervenant la prochaine fois ... bêtement j'ai pris ta réponse pour moi :angry:

Re, Même soucis que message #160 ... Peux pas t'en dire plus, désolé :huh:

Bjr à tous, Tu prends le fichier "nettoyeurdev.dvb" comme indiqué dans un des messages ci dessus (si je ne m'abuse ... et toi par la même occasion ;) ) Ensuite, tu charges l'application (menu Outils etc ...) puis tu charges la macro "nettoyer.lancer_choix" et là apparait la fameuse boite de dialogue à choix multiples. Si soucis reviens à la charge :)

Bjr à tous, Pour en revenir à ma réponse, effectivement les chiffres correspondent à la position des digits voulus. Par ex : avec $(substr,$(getvar,dwgprefix),17,8) pour un répertoire C:\Work\Anthony\Affaires\ tu obtiens bien Affaires A toi de mettre en forme après ...

Re, En utilisant une expression DIESEL toujours dans la rubrique Champ genre : $(substr,$(getvar,dwgprefix),20,30) ou 20 est le 1er digit désiré et 30 ... ben le dernier !

Re, La finalité du chemin est d'obtenir ton nom de dossier (au final !), (en tous cas, l'arborescence jusqu'à ton dossier contenant ton fichier ...) Sinon je sais pas :unsure:

Bjr à tous, Pour ma part, je garderais la proposition de Didier mais choisirais plutôt Document - Nomdefichier et là tu auras 3 possibilités : soit Nom de fichier soit Chemin (seul !) soit ... ben les 2 ;)

Bjr à tous, Chose promise chose dûe, voici le lisp en question. En anglais, mais il suffit de renseigner le petit diamètre du tube, le grand diamètre de l'autre tube puis l'angle d'intersection entre les deux. Les 2 axes des tubes doivent être concourants pas de décalage possible. Pour ceux qui en ont l'utilité ou pour la curiosité ... A lancer aver la Cde "PIUP" après chargement. ;; PipeIntersUnroll.lsp [command name: PIUP] ;; To draw the profile of the unrolled end of a pipe or tube that intersects an equal- ;; or larger-diameter pipe at any non-parallel angle, and of the hole in the unrolled ;; larger pipe. ;; Draws line-segment Polyline approximation of profiles; user specifies precision ;; [number of segments]. ;; Angle of incidence: 0 = parallel [not allowed], 90 degrees = perpendicular. ;; Center-lines or their extensions must intersect [no eccentric intersections]. ;; Draws unrolled profiles as if larger-diameter pipe is vertical, and smaller-diameter ;; pipe is coming into it, for incident angles of less than 90 degrees, from above. ;; Surface of unrolled smaller-diameter pipe always extends upward from drawn end ;; profile; midpoint of that profile always represents bottom of hole in larger-diameter ;; pipe, and side of smaller pipe "slit" for unrolling is always on top. [At incident angles ;; > 90 degrees, this means smaller-diameter pipe surface will seem upside-down.] ;; Places a Point entity at reference point, representing intersection of pipe center-lines, ;; and draws unrolled profiles at distances from reference point relative to each pipe's ;; axial direction. ;; Kent Cooper, August 2011 (defun C:PIUP ; = Pipe Intersection Unrolled Profiles (/ *error* dias diab Ai seg ref Rs Rb inca As Xs Xb) (defun *error* (errmsg) (if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break")) (princ (strcat "\nError: " errmsg)) ); end if (command) (setvar 'osmode osm) (setvar 'blipmode blipm) (command "_.undo" "_end") (setvar 'cmdecho cmde) (princ) ); end defun - *error* (setq cmde (getvar 'cmdecho)) (setvar 'cmdecho 0) (command "_.undo" "_begin") (setq osm (getvar 'osmode) blipm (getvar 'blipmode) ); end setq (setq dias (getdist "\nSmaller Pipe diameter [O.D.]: ")) (while (not (and (setq diab (getdist "\nLarger Pipe diameter [O.D.]: ")) (>= diab dias) ); and ); not (prompt "\nMay not be smaller diameter than first pipe.") ); while (while (not (and (setq Ai (getangle "\nAngle of incidence between pipes: ")) (not (or (equal Ai 0 1e-8) (equal Ai pi 1e-8))) ); and ); not (prompt "\nPipes may not be parallel.") ); while (setq seg (getint "\nNumber of Polyline segments: ") ref (getpoint "\nReference point: ") ;; represents intersection of pipe centerlines Rs (/ dias 2); Radius of Smaller pipe Rb (/ diab 2); Radius of Bigger pipe inca (/ pi 0.5 seg); angle per segment around smaller pipe i -1 ) (setvar 'osmode 0) (setvar 'blipmode 0) (setvar 'plinewid 0) ;; Smaller-diameter pipe unrolled end profile: (command "_.point" ref "_.pline") (while (< i seg) (setq As (+ (* (setq i (1+ i)) inca) pi) Xs (* Rs (cos As)) Xb (sqrt (- (expt Rb 2) (expt (* Rs (sin As)) 2))) ); setq (command; feed point out to Polyline (list (+ (car ref) (* (/ (* dias pi) seg) (- i (/ seg 2.0)))) (+ (cadr ref) (- (/ Xb (sin Ai)) (* Xs (/ (cos Ai) (sin Ai)))) ); - ); list ); end command ); end while (command "") ;; Larger-diameter pipe unrolled hole profile: (setq i -1) (command "_.pline") (while (< i (1- seg)) (setq As (* (setq i (1+ i)) inca) Xs (* Rs (cos As)) Ys (* Rs (sin As)) Xb (sqrt (- (expt Rb 2) (expt Ys 2))) ); setq (command; feed point out to Polyline (list (+ ; X component (car ref) (if (zerop Xb); at 90 or 270 degrees, only with equal diameters (* Rb (sin As) (/ pi 2)) ; then - prevents divide-by-0 error (* Rb (atan (/ Ys Xb))); else - all other angles ); if ); + (+ ; Y component (cadr ref) (- (/ (* Xb (cos Ai)) (sin Ai)) (/ Xs (sin Ai))); else - all other angles ); + ); list ); command ); while (command "_close") (setvar 'osmode osm) (setvar 'blipmode blipm) (command "_.undo" "_end") (setvar 'cmdecho cmde) (princ) ); defun

Re, La courbe bleue (Développé "à plat" de la découpe) est le gabarit à appliquer sur ton tube pour la découpe. A tracer à l'échelle 1 bien sur ! Pour vérification, sa longueur doit correspondre à PIxD, périmètre du tube (!) Un chaudronnier saura faire ... Le temps de remettre la main sur le lisp et je fais suivre.

Re, Ci joint fichier du résultat désiré au final. A confirmer. Obtenu à l'aide d'un lisp trouvé sur le Net, et dont je remercie l'auteur à cette occasion. Gueule de loup.zip

Bjr à tous, Comme le dit Titifonky, les piquages sont directement liés aux différents diamètres concernés et leur position respective. Voir exemple ci joint ... Essai.bmp

Bjr à tous, azer, l'expression Diesel donnée ci dessus permets de garder uniquement du 1er au 7ème digit du nom du fichier : $(substr,$(getvar,dwgname),1,7) A adapter selon tes besoins ...

Bjr à tous, La fonction Overkill des Express Tools fait ça très bien ... Si le menu est installé chez toi pas de soucis particulier ;)

Re, Tu lances ta commande "Ligne", tu cliques ton 1er point à l'écran en renseignant la direction voulue de ta ligne en orientant correctement avec la souris ... Puis tu tapes au clavier 'CAL puis tes 275.5/2

Re, Point de détail important s'il en est effectivement. J'ai supposé que comme il s'agissait d'une nomenclature, Circus parlait de blocs similaires superposés ... et donc doublons "vrais". A lui de voir. Par contre pour ce qui est de savoir où ils sont, une autre méthode s'impose ;)

Bjr à tous, Si tu possèdes les Express Tools, la fonction Overkill fait ça. Avec une sélection par fenêtre ou pour tout le plan ...

Bjr à tous, Sur la ligne de cde ..., non ?

Bjr à tous, La commande XDELIM te permet, sauf erreur de ma part, de générer le cadre de délimitation s'il a été effacé, non ? Et pour de qui est de garder l'intérieur de ce cadre, il faut prendre l'option "Inverser" le cadre. Pas d'AutoCAD en français sous la main pour te donner les intitulés exacts à utiliser, désolé. En espérant t'avoir aidé tout de même ...

Bjr à tous, En passant par la commande "Orbite" puis click droit pour accéder au menu contextuel ...