Big666

Bon...

bonjour TiTi je suis impressionné par le mannequin en bois que j'ai vue sur ton blog.

bonjour et merci pour les scripts

IL EST 16.17h nous somme en septembre le froid arrive . et merci de ta réponse .

bonsoir? le fichier ouvre sans problème mais je suis curieux de connaitre l'utilité de cette extention. ton site est en anglais. merci pour ton help

Bonjour je ne connaissais pas cette extension .fdwg pas de problème , que veut elle dire?

win topo

merci pour vos conseille pdf2dwg fonctionne . vous m'avez trouver une solution et à cette instant , mes chefs ont changé d'idée. désolé

CA fonctionne pour avoir chercher longtemps , merci pour ton aide. pour tes remarques .

ça ne fonctionne pas mais c'est surement de ma faute. ;;; sf -Gilles Chanteau- 13/04/07 ;;; Insère le bloc "sf" après sélection d'une polyligne ;;; Attribut 1 : Nom de la pièce ;;; Attribut 2 : Longueur de la polyligne ;;; Attribut 3 : Aire de la polyligne (defun c:sf (/ AcDoc Space bloc nom ent obj ins op reg ech id long aire ref) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (if (or (tblsearch "BLOCK" (setq bloc "sf")) (findfile (setq bloc "sf.dwg")) ) (progn ;; attribut "nom de la pièce" (if (not (setq nom (getname "Nom de la pièce"))) (setq nom "") ) (while (not (setq ent (car (entsel))))) (setq obj (vlax-ename->vla-object ent)) (if (= "AcDbPolyline" (vla-get-ObjectName obj)) (progn (if (not (setq ins (getpoint "\nSpécifiez le point d'insertion ou < Centre >: " ) ) ) (progn (if (= (vla-get-closed obj) :vlax-false) (progn (vla-put-closed obj :vlax-true) (setq op T) ) ) (setq reg (vlax-invoke space 'addRegion (list obj)) ins (vlax-get (car reg) 'Centroid) ) (if op (vla-put-closed obj :vlax-false) ) (vla-delete (car reg)) ) ) (if (not (vlax-ldata-get "sf" "ech")) (vlax-ldata-put "sf" "ech" 3) ) (if (not (setq ech (getreal (strcat "\nEntrez le facteur d'échelle <" (rtos (vlax-ldata-get "sf" "ech")) ">: " ) ) ) ) (setq ech (vlax-ldata-get "sf" "ech")) (vlax-ldata-put "sf" "ech" ech) ) (setq id (vla-get-ObjectID obj) (setq prefixe "surface: " suffixe " m²") ;; Attribut périmètre (mm² -> m²) aire (strcat prefixe "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Area \\f \"%lu2%pr2%ct8[1e-0]\">%" suffixe ) (setq prefixe "Perimétre: " suffixe " ml") ;; Attribut surface (mm -> m) long (strcat prefixe "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Length \\f \"%lu2%pr2%ct8[1.00]\">%" suffixe ) ) (setq ref (vla-InsertBlock Space (vlax-3d-point (trans ins 1 0)) bloc ech ech 1 (angle '(0 0 0) (trans (getvar 'ucsxdir) 0 (trans '(0 0 1) 1 0 T))) ) ) ;; attribution de leur valeur aux attributs (mapcar '(lambda (x y) (vla-put-TextString x y)) (vlax-invoke ref 'GetAttributes) (list nom aire long) ) (vla-regen AcDoc acActiveViewport) ) (alert "L'objet sélectionné n'est pas une polyligne.") ) ) (alert "Le bloc \"sf\" est introuvable.") ) (princ) )

Bonjour J’ai un peut adapter le lisp pline_ block. le nom de la pièce est en 1erl’aire passe en 2emela longueur en 3emej’ai rajouté dans le block-pline bloc HSP (attribut)et n° de pièce (attribut)remplacer le raccourci de lisp par sf pour surface Cependant : Le champ aire affiche aire de la pièce par rapport à la polyligne et affiche exemple 100 pour 100m² Je voudrais rajouter surface : 100 m² Il y a ca dans le lisp. Area \\f \"%lu2%pr2%ct8[1e-0]\">%" Je lès remplacé par ca. Area \f "%lu2%pr2%ps[surface : ,m²]">% Mais ca ne fonctionne pas. Pour l’instant j’ai un texte devant et derrière chaque champ aire et long. Que dois-je faire pour arriver à mes fins. Merci. ;;; sf -Gilles Chanteau- 13/04/07 ;;; Insère le bloc "sf" après sélection d'une polyligne ;;; Attribut 1 : Nom de la pièce ;;; Attribut 2 : Longueur de la polyligne ;;; Attribut 3 : Aire de la polyligne (defun c:sf (/ AcDoc Space bloc nom ent obj ins op reg ech id long aire ref) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (if (or (tblsearch "BLOCK" (setq bloc "sf")) (findfile (setq bloc "sf.dwg")) ) (progn ;; attribut "nom de la pièce" (if (not (setq nom (getname "Nom de la pièce"))) (setq nom "") ) (while (not (setq ent (car (entsel))))) (setq obj (vlax-ename->vla-object ent)) (if (= "AcDbPolyline" (vla-get-ObjectName obj)) (progn (if (not (setq ins (getpoint "\nSpécifiez le point d'insertion ou < Centre >: " ) ) ) (progn (if (= (vla-get-closed obj) :vlax-false) (progn (vla-put-closed obj :vlax-true) (setq op T) ) ) (setq reg (vlax-invoke space 'addRegion (list obj)) ins (vlax-get (car reg) 'Centroid) ) (if op (vla-put-closed obj :vlax-false) ) (vla-delete (car reg)) ) ) (if (not (vlax-ldata-get "sf" "ech")) (vlax-ldata-put "sf" "ech" 3) ) (if (not (setq ech (getreal (strcat "\nEntrez le facteur d'échelle <" (rtos (vlax-ldata-get "sf" "ech")) ">: " ) ) ) ) (setq ech (vlax-ldata-get "sf" "ech")) (vlax-ldata-put "sf" "ech" ech) ) (setq id (vla-get-ObjectID obj) ;; Attribut périmètre (mm² -> m²) aire (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Area \\f \"%lu2%pr2%ct8[1e-0]\">%" ) ;; Attribut surface (mm -> m) long (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Length \\f \"%lu2%pr2%ct8[1.00]\">%" ) ) (setq ref (vla-InsertBlock Space (vlax-3d-point (trans ins 1 0)) bloc ech ech 1 (angle '(0 0 0) (trans (getvar 'ucsxdir) 0 (trans '(0 0 1) 1 0 T))) ) ) ;; attribution de leur valeur aux attributs (mapcar '(lambda (x y) (vla-put-TextString x y)) (vlax-invoke ref 'GetAttributes) (list nom aire long) ) (vla-regen AcDoc acActiveViewport) ) (alert "L'objet sélectionné n'est pas une polyligne.") ) ) (alert "Le bloc \"sf\" est introuvable.") ) (princ) ) ]

il faux être abonné j'ai en faite 500 a 600 PDF à insérer et rajouter un cartouche. que pensez vous de PDF2DWG ?

bonjour Je sait que on ne peut pas insérer un pdf sur 2009. mais existe t'il une solution par un petit programme. merci

IMAGINE Cadre ,Cartouche , avec choix du cartouche ,boite DCL pour choisir tous ça .

merci il me suffisait d'attendre un peut.

Bonjour Dans option, à quoi correspond 1. (pourcentage d'enregistrement incrémentiel) 2. (minute entre enregistrement) En 1 . Que ce passe t’il tout les 50mn (par exemple) - dessin, mémoire vive, disque dur, serveur ? En 2. ?

vous savez quoi ? ça marche . je suis heureux. vive la vie. joie bonheurs. et surtout merci à tout le monde qui a fait preuve de patience avec se sujet.

LTSCALE: 1 PSLTSCALE: 0 CELTSCALE: 1 MSLTSCALE: 0 Toutes les variables sont comme indiqué. il n'y a pas de xref.

lien du fichier http://dl.free.fr/qRQ05cOgS

oui si je clique sur "cliquer pour..." rien ne se passe

Quant je en sait pas ça concerne tous les fichiers j'ai appliqué à une présentation une coupe. regen bien sur

Quant je en sait pas ça concerne tous les fichiers j'ai appliqué à une présentation une coupe. regen bien sur

cliquer pout attacher les fichiers ne fonctionne pas.

Merci pour votre aide. j'ai beau appliquer vos conseil rien y fait. le pire est que psltscale fonctionner bien avant et la rien y fait. je vais mettre mon dessin a disposition (il faux que je demande le droit)!

BONJOUR Un type de ligne "isolation ne se mais pas à l’échelle dans l'espace papier. Malgré le faite de changer la variable PSLTSCALE. les types de ligne dépende t'il pour leurs misse a l’échelle d'autre variables merci