lesourd2

Salut Tu peux aussi aller voir le site de "DN FRANCE"

Salut Fond noir en objet (reticule vert) Fond blanc en presentation(reticule rouge)

Salut Et avec DESIGN CENTER en glisser deposer vers ton nouveau dessin

Salut Ou encore comme ceci (defun c:Multalign_text ( / js n pojs vla_po offset_txt vla_obj pt deriv alpha) (princ "\nSélectionner les textes à aligner. ") (setq js (ssget '((0 . "*TEXT"))) n -1) (cond (js (vl-load-com) (princ "\nSélectionner la polyligne. ") (while (null (setq pojs (ssget "_+.:E:S" '((0 . "LWPOLYLINE")))))) (setq vla_po (vlax-ename->vla-object (ssname pojs 0))) (initget 7) (setq offset_txt (getdist "\nDistance de décalage du texte: ")) (repeat (sslength js) (setq vla_obj (vlax-ename->vla-object (ssname js (setq n (1+ n)))) pt (vlax-curve-getClosestPointTo vla_po (vlax-get vla_obj 'InsertionPoint)) deriv (vlax-curve-getfirstderiv vla_po (vlax-curve-getparamatpoint vla_po pt)) alpha (- (atan (cadr deriv) (car deriv)) (angle '(0 0 0) (getvar "UCSXDIR"))) ) (vlax-put vla_obj 'Alignment 1) (vlax-put vla_obj 'Rotation (if (or (> alpha (* pi 0.5)) (< alpha (- (* pi 0.5)))) (+ alpha pi) alpha)) (vlax-put vla_obj 'TextAlignmentPoint (polar pt (+ alpha (* pi 0.5)) (if (or (> alpha (* pi 0.5)) (< alpha (- (* pi 0.5)))) (+ (vlax-get vla_obj 'Height) offset_txt) offset_txt ) ) ) ) ) ) (prin1) ) @+

Salut Peut etre de cette façon ;; TABLOBLO (Tramber) ;; Crée un tableau qui liste les blocs insérés (sélectionnés ou toute la collection) (defun c:tabloblo (/ libloc liidbloc ss col liref ptins tableVL cont row) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (prompt "\nSélectionnez les blocs à lister ou < Tous >") (or (setq ss (ssget '((0 . "INSERT")))) (setq ss (ssget "_X" '((0 . "INSERT"))) col T ) ) (if ss (progn (vlax-for x (setq ss (vla-get-ActiveSelectionSet *acdoc*) ) (setq liref (cons (if (vlax-property-available-p x 'EffectiveName) (vla-get-EffectiveName x) (vla-get-Name x) ) liref ) ) ) (vla-delete ss) ) ) (if col (vlax-for i (vla-get-Blocks *acdoc*) (if (and (/= (substr (vla-get-name i) 1 1) "*") (= :vlax-false (vla-get-IsXref i)) ) (setq libloc (append libloc (list (vla-get-name i))) liidbloc (append liidbloc (list (vla-get-ObjectID i))) ) ) ) (setq libloc (remove_doubles liref) liidbloc (mapcar '(lambda (x) (vla-get-ObjectID (vla-item (vla-get-Blocks *acdoc*) x ) ) ) libloc ) ) ) (initget 1) (setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0)) (setq tableVL (vla-addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point ptins) (+ 2 (length libloc)) 3 20 ; Hauteur cellule 80 ; Largeur cellule ) ) (vla-put-VertCellMargin tableVL 4.0) ; Marge verticale (vla-put-TitleSuppressed tableVL :vlax-false) (vla-put-HeaderSuppressed tableVL :vlax-false) (vla-setText tableVL 0 0 "Blocs") ; Titre (vla-setText tableVL 1 0 "Nom") ; Titre colonne 1 (vla-setText tableVL 1 1 "Nombre") ; Titre colonne 2 (vla-setText tableVL 1 2 "Symbole") ; Titre colonne 3 (setq cont -1 row 1 ) (repeat (- (vla-get-Rows tableVL) 2) (vla-settext tableVL (setq row (1+ row)) 0 (nth (setq cont (1+ cont)) libloc) ) (vla-settext tableVL row 1 (length (vl-remove-if-not '(lambda (n) (= n (nth cont libloc))) liref ) ) ) (vla-SetBlockTableRecordId tableVL row 2 (nth cont liidbloc) :vlax-true ) (vla-setcellalignment tableVL row 0 5) (vla-setcellalignment tableVL row 1 5) ) (princ) ) ;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste (defun REMOVE_DOUBLES (lst) (if lst (cons (car lst) (REMOVE_DOUBLES (vl-remove (car lst) lst))) ) ) Merci à son auteur @+

Salut Avec ce Lisp par ex. ;;;Le DWG sélectionné doit être fermé. (defun c:xrlist (/ filename odbx lst) (vl-load-com) (if (setq filename (getfiled "Chosir le fichier DWG" "" "dwg" 0)) (if (setq odbx (gc:GetAxDbDoc filename)) (progn (vlax-for b (vla-get-Blocks odbx) (if (= :vlax-true (vla-get-IsXref b)) (setq lst (cons (vla-get-Path b) lst)) ) ) (vlax-release-object odbx) (if lst (progn (princ (strcat "\nRéférences externes dans :\n" filename)) (foreach x (reverse lst) (princ (strcat "\n\t" x)) ) (textscr) ) (princ (strcat "\nAucune référence externe dans :\n" filename)) ) ) (princ "\nLe fichier n'est pas accessible") ) ) (princ) ) ;;; gc:GetAxDbDoc ;;; Accéder à un dessin fermé ;;; ;;; Retourne : ;;; un objet IAxDbDocument si le document est trouve ;;; nil si le document n'a pu être trouvé ou s'il est ouvert ;;; ;;; Argument : ;;; Le chemin complet du fichier (defun gc:GetAxDbDoc (filename / axdbdoc release) (setq axdbdoc (vlax-create-object (if (< (setq release (atoi (getvar "ACADVER"))) 16) "ObjectDBX.AxDbDocument" (strcat "ObjectDBX.AxDbDocument." (itoa release)) ) ) ) (if (vl-catch-all-apply 'vla-open (list axdbdoc filename) ) (not (vlax-release-object axdbdoc)) axdbdoc ) ) @+

Salut A voir http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=16937236&linkID=9240938 Moi je prends GLOBAL @+ [Edité le 4/8/2011 par lesourd2]

Salut Merci pour ta reponse Je trouvais ça pourtant bien pratique... @+

Bonsoir, A la commande "aecbpipeadd" (ajouter des tuyaux) je n'ai pas la boîte de dialogue qui s'affiche Je suis en MEP 2010 (je l'avais en MEP 2008) Des idées.. @+

Salut Je me suis bien marré avec cet article + quelques collegues. Je crois que l'on a tous au moins un debordé dans le taf (j'en ai aussi un chez moi) Pour l'instant j'ose pas lui faire lire l'article, mais je suis persuadé qu'il ne comprendrait pasni se reconnaitrait.

Salut PEDIT

Salut Merci de ta reponse fribourg66

Salut => Friboug 66 : pdf2cad est-il compatible avec SEVEN 64 bits?

Salut voir ce post @+

Salut Bryce: bizarrement, j'utilise souvent ce lisp : un xed comme xorro v 1.1 adaptation par usegomme de XEDIT auteur inconnu => enregistré dans un chemin de recherche de fichier de support. Des que je lance la commande copier, je perds la main sur toute autre commande, ECHELLE ,ROTATION, DEPLACER, etc...

merci lili 2006 de ta réponse Pour l'instant je me depanne comme ça

Salut à tous Toujours pas d'infos, d'Idées ? Ah la la...

Salut Voir ce post

Salut à tous , La commande copie depuis le bouton de barre d'outils AutoCad fonctionne uniquement en "unique", aucune possibilite d'avoir l'option multiple COPYMODE est à 0 En selectionnant le mOde de copie sur Multiple rien n'y fait. La macro associe ( dans l'interface personnaliser ) est $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_copy,^C^C_copy) => identique à un autre poste, qui lui fonctionne. Des idées ??? merci d'avance

Salut Voire ce lisp , merci à son auteur ;;;Fonctionnement : ;;;- Les cadres de pages doivent être des blocs. ;;;(Si vous avez des cadres en simple rectangle, transformez en un en bloc et faites un réseau ou un copier) ;;;- Afin d'éviter toutes erreur, une présentation déjà paramétré doit exister (Une fenêtre de présentation cadré et mis à l'échelle, Traceur, échelle de tracé pour un cadre). ;;;- Les cadres en Espace Objets peuvent être à n'importe quel échelle, et peuvent être mélangé Portrait et Paysage. ;;;- L'unité d'insertion doit être en millimètre, centimètre ou mètre. ;;;- Le nom des onglet sera incrémenter de +1. ;;;- Commande : CEP ; Crée un onglet EP par cadre (bloc) de page sélectionné en EO ; par Bred - Un onglet déjà paramétrer doit exister (defun c:CEP (/ ACDOC B C FEN I LAYS N-P NOM-P ONG-BASE ONG_DEST SEL XMIN YMAX A-P HAUT LARG P1 P2 NOM ECH LAY LOCK UNIT) (vl-load-com) ; 4 Millimètres 5 Centimètres 6 Mètres (setq Unit (cdr (assoc (getvar "INSUNITS") '((4 . 1) (5 . 10) (6 . 1000))))) (while (not sel) (setq sel (car (entsel "\n Choix du cadre (Bloc) :"))) (if sel (if (not (equal (vla-get-ObjectName (setq b (vlax-ename->vla-object sel))) "AcDbBlockReference")) (setq sel nil))) ) (setq sel (ssget '((0 . "INSERT"))) AcDoc (vla-get-activedocument (vlax-get-acad-object)) nom-p (getstring t "\n Nom des Onglets à Créer :") layS (layoutlist)) (if (> (length layS) 1) (progn (princ "\n Copie configuration traceur d'onglet Existant. \n Plusieurs Présentations détectées.") (while (not ong-base) (princ "\n") (repeat (setq i (length layS)) (princ (strcat (nth (- (length layS) i) layS) " * ")) (setq i (1- i))) (setq ong-base (getstring t "\n Présentation d'où la configuration du traceur sera récupérée :")) (if (not (member ong-base layS)) (setq ong-base nil)))) (setq ong-base (car layS))) (setq a-p (vla-item (vla-get-layouts AcDoc) ong-base)) (vla-getcustomscale a-p 'n 'm) (vla-put-ActiveLayout AcDoc a-p) (vlax-for e (vla-get-paperspace AcDoc) (if (equal (vla-get-ObjectName e) "AcDbViewport") (setq lay (vla-get-Layer e) lock (vla-get-DisplayLocked e))) ) (setq i 0) (repeat (sslength sel) (if (vlax-property-available-p (vlax-ename->vla-object (ssname sel i)) 'effectivename) (setq nom vla-get-effectivename) (setq nom vla-get-name)) (if (equal (nom (setq c (vlax-ename->vla-object (ssname sel i)))) (nom b)) (progn (vla-GetBoundingBox c 'xmin 'ymax) (setq n-p (vla-add (vla-get-Layouts AcDoc) (setq ong_dest (strcat nom-p " - " (rtos (1+ i) 2 0))))) (setq ech (vla-get-XEffectiveScaleFactor c)) (vla-copyfrom n-p a-p) (vla-put-ActiveLayout AcDoc n-p) (setq fen (vla-AddPViewport (vla-get-paperspace AcDoc) (vlax-3d-point '(0 0 0)) (setq Larg (* Unit (/ (- (car (vlax-safearray->list ymax)) (car (vlax-safearray->list xmin))) ech))) (setq Haut (* Unit (/ (- (cadr (vlax-safearray->list ymax)) (cadr (vlax-safearray->list xmin))) ech))))) (vla-put-Layer fen lay) (vla-put-DisplayLocked fen lock) (vla-ZoomExtents (vlax-get-acad-object)) (vla-Display fen :vlax-true) (vla-put-MSpace AcDoc :vlax-true) (vla-put-ActivePViewport AcDoc fen) (vla-ZoomWindow (vlax-get-acad-object) xmin ymax) (vla-put-MSpace AcDoc :vlax-false) (if (> (- (car (vlax-safearray->list ymax)) (car (vlax-safearray->list xmin))) (- (cadr (vlax-safearray->list ymax)) (cadr (vlax-safearray->list xmin)))) (vla-put-PlotRotation (vla-get-activelayout AcDoc) ac90degrees) (vla-put-PlotRotation (vla-get-activelayout AcDoc) ac0degrees)) (setq p1 (vlax-make-safearray vlax-vbdouble (cons 0 1)) p2 (vlax-make-safearray vlax-vbdouble (cons 0 1))) (vlax-make-variant (vlax-safearray-fill p1 (list (- (/ Larg 2)) (- (/ Haut 2))))) (vlax-make-variant (vlax-safearray-fill p2 (list (/ Larg 2) (/ Haut 2)))) (vla-put-PlotType (vla-get-activelayout AcDoc) acWindow) (vla-setwindowtoplot (vla-get-activelayout AcDoc) p1 p2) (setq i (1+ i)) ) ) ) (setvar "TILEMODE" 1) (princ) )

Salut Sûrement, mais tres objectivement le lisp XCOL de Gile est plus convivial. Merci tout de même. [Edité le 9/2/2011 par lesourd2]

Salut pour changer d'echelle les blocs: (defun c:ecb(/ pos js blk blk2 ins nblk lis myecho) (princ "\nDeveloppe par AMATI Ph. (Novembre 2002) (Ver:1.0)") (setq myecho (getvar "cmdecho")) (setvar "cmdecho" 0) (setq pos 0) (setq fe (getreal "\nFacteur d'echelle : ")) (initget 128 "Unique Global") (setq nblk (entsel "\n Choix du bloc : ")) (cond ((= nblk "Unique") (setq nblk (entget (car (entsel "\nChoix du bloc :")))) (while (/= (cdr (assoc 0 nblk)) "INSERT") (setq nblk (entget (car (entsel "\nChoix du bloc :")))) ) (setq blk (cdr (assoc -1 nblk))) (setq ins (cdr (assoc 10 nblk))) (command "_scale" blk "" ins fe) ) ((/= nblk "Unique") (if (= nblk "Global") (setq nblk (entsel "\nChoix du bloc :")) ) (setq nblk (entget (car nblk))) (while (/= (cdr (assoc 0 nblk)) "INSERT") (setq nblk (entget (car (entsel "\nChoix du bloc :")))) ) (setq nblk (cdr (assoc 2 nblk))) (setq lis (list (cons 0 "INSERT") (cons 2 nblk))) (setq js (ssget "X" lis)) (if js (progn (while (ssname js pos) (setq blk (ssname js pos)) (setq blk2 (entget (ssname js pos))) (setq ins (cdr (assoc 10 blk2))) (command "_scale" blk "" ins fe) (setq pos (+ pos 1)) ) ) ) ) ) (setvar "cmdecho" myecho) (princ) )

La biere n'est vraiment pas chere chez vous...

Salut Rebcao Ci-joint le fichier sur ton adresse et ici Le fichier date un peu, je pense que tu as déjà une bonne base. http://dl.free.fr/dzlUwkBHq @+

Salut J'avais bien pensé au script.. De là à l'ecrire c'est une autre histoire Si une âme charitable peut me filer les bases ( surtout pour la mise page de l'impression)