Big666

bonjour tu me le donne

D’accord avec toi olivier il faut ce jeter à lisp (jeu de mot) prffff.. A laide de vos explication et de l’aide auto lisp je cherche à comprendre plutôt d’écrire bien sûr il me faudrait des books pour mieux comprendre, Pas lsous et quelle livre, certain sont fait pour ce qui on déjà compris. Donc je décrit ce que je vois : merci de vôtre aide (if (or (tblsearch "BLOCK" (setq bloc "sf")) (findfile (setq bloc "sf.dwg"))) (progn ;; 01 attribut "nom de la pièce" (if (not (setq nom (getname "Nom de la pièce"))) (setq nom "") ; if => fonction Évalue conditionnellement des expressions ( ;;vérifié sur la ligne si toute les condition son ;;reuni pour exécuter la valeur de getname ;; or => fonction Rend le logique OU d'une liste d'expressions ;;(là je ne comprend pas) ;;tblsearch => fonction Fouille une table de symbole pour un nom de symbole ;;(regarde dans les texte proposer un nom) ;;findfile => fonction Fouille une table de symbole pour ;;un nom de symbole fait la même chose que blsearch ;;exemple "Bain" "Cuisine" "Entrée" "Séjour" "WC" ;qui se trouve dans .getnamelsp ;;progn => fonction Évalue chaque expression consécutivement et rend ;; la valeur de la dernière expression (la comprend pas) ;; re if ;; not => fonction Vérifie qu'un article évalue au zéro ;; ( qu'il n'y a rien au départ) ;;setq nom => fonction stoker le texte vide dan la variable nom ;; résumons : ;;le lisp cherche un block, il le cherche dans le format dwg, ;;inscrit la dernière saisie,(là je ne comprend pas), ;;regarde dans getname les nom proposer, ;;(la comprend pas) , regard si il n'y a rien,si rien stocke rien.

bonjour à quoi sert t'il extraction de donner. ou? mais ou et t'il

pas autre idée désole

bon peut être qu'il est enregistrée ailleurs ce lui que tu ouvre est une version précédente. je suis sur XP le meilleure des OS C:\Document and Seatting\ton nom\ Application data\autodesk 2014*\ r?**\Recent\enregistrement *ta version Autocad ** r 20 je crois pour 2014 essaye ça c'est gratuit j'ai retrouvé des fichier perdu comme ça.

renomme l’extension (je pense que tu la fait mais ....) c'est bien du dwg à l'origine ( bien sûr bak) je sais des évidences mais par expérience je sais que dans la panique ont devientt aveugle .

MERCI OLIVIER apprendre le lisp c'est un de m'est objectif comme dessinateur . quant je montre à des collèges, regarde ce que je peux faire ! remplir la nomenclature d'une pièce en quelque clic . "il ont des réactions étranges des jurons , il me dise monsieur." c'est programme sont indispensable, mais même si je suis capable de bricoler de la à en faire un il y a des kilomètres. oui il faut que je rentre dans l’apprentissage du lisp . merci pour t'es Lumière à temps perdu ou plutôt le temps qu'il me reste je vais appliquer t'est conseille sur ce lisp. je le soumettrait , et la si tu a la j'attendrais vos remarque (mais il n'y en n'aura pas)!! merci pour le mal que tu tes donné.

c'est en faisant

mais ou ke tel si j’ai bien compris une après midi de boulot a la poubelle oup pardon ext

oui

bonjour dans le menu expresse : => blocs =>importer information d'attributs je chique donc sur "importer information d'attributs" là, je choisi le fichier précédemment extraitouvritun message ATTIN - SELECT BLOCS?CHOIX DES OBJETMessage AutoCAD.NO MATCHING ....... j'ai pourtant réaliser cette fonction plusieurs fois dans l’après midi. merci

Je sais que tu a raison. Donc Je Sais que je ne sais pas qu’elle question posé ?? Essayons : je veux rajouter au lisp de gille deux attributs. Je me suis dit si ce que j’appelle le code, fonctionne pour Exemple ‘’nom de la piece’’ Cela peut fonctionner pour les attributs hsp, N° de la pièce. Si oui je fouille dans GetName.lsp Si non je pleure Par ailleurs j’ai très peux de temps pour apprendre le lisp je bidouille. Un stage me sera refusé de plus je ne pense pas avoir le niveau requit. Le temps je suis fonctionnaire depuis 4 ans et ça na rien à voir avec ‘’ les bande de tire au C’’ Merci pour la réponse.

Bonjour Le lisp Pline_block De gille doit être pour moi devenu un toc. (Renommé SF pour surface) Il m’apporte tellement que je n’ai de cesse de rajouter des choses, petite jusque là. Mais là c’est un peut gros pour moi. Ma méthode et simple puisque je ne comprends pas le lisp. =>Là, Il a fait ça, si il la fait et que ça marche je le refais et hop (mais ça ne doit pas être si simple) Dans pline_blocs d’origine il y a : Le lisp : Pline_block.lspLe lisp :GetName.lspGetName.DCL Pour l’instant je touche au lisp Pline_block je lui dis je veux ça. En suite se sera le tour de GetName.lsp En suite se sera le tour de GetName.DCL Dans une autre vie peut être Puis de rajouter les attributs au bloc dwg Donc, là je vous demande (ok tu es bien partie pas a la suite). Ou, Mais non ça ne marchera pas, et pourquoi ? Et si ça me dépasse. Tempi… Je ferais du tricot..... ;;; 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 ;;; Attribut 4 : N° de la piece big666 ;;; Attribut 4 : HSP big666 (defun c:sf (/ AcDoc Space bloc nom ent obj ins op reg ech id long aire Nref) (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 ;; 01 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) ;; 02 Attribut périmètre (mm² -> m²) aire (strcat "Surface: " "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Area \\f \"%lu2%pr2%ct8[1e-0]\">%" " m²" ) ;; 03 Attribut surface (mm -> m) long (strcat "Perimétre: " "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Length \\f \"%lu2%pr2%ct8[1.00]\">%" " ml" ) ) (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)) ) ) ) (progn ;; " (progn ;; 04 n° de la piece" (if (not (setq nom (getname "N° de la piece"))) (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) (progn ;; 05 hsp" (if (not (setq nom (getname "hsp"))) (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) ;; attribution de leur valeur aux attributs (mapcar '(lambda (x y) (vla-put-TextString x y) ) (vlax-invoke ref 'GetAttributes) (list nom aire long N° HSP) ) (vla-regen AcDoc acActiveViewport) ) (alert "L'objet sélectionné n'est pas une polyligne." ) ) ) (alert "Le bloc \"sf\" est introuvable.") ) (princ) ) ) ) ) ) ) ) ) ) )

collire

je ne connaît pas 2014 lt cependant n'y a t'il pas une notion annotative sur les hachures de cette version.

j'avais essayer sur 2012 sûrement faute de ma par. or sujet pour l’orthographe c'est mieux non... gille tu m'en a fait la remarque il y a ... bien sûr ce n'est pas parfait mais c'est mieux . d’ailler je vous conseille, pour tous ce qui soufre illettrisme de faire faire un diag, un stage qui ne fait pas tout mais qui dirige t'est effort. français facile et un bon site.

lecrabe imposible de déposé un zip ici et free ne me renvoie pas le téléchargement . donne mois la méthode svp et remercie gille c'est lui qui a tous fait

attention je croie avoire fait ca ééééééééééééééééééét plouf problème planter casse zut jlefrait plus. si tu ouvre avec notepad ++ il y a bien un message qui te dit touche pas a ça pt....c a l’époque ou j'ai voulu traduire pour le plaisir .... cela ma parue long. amuse toi avec le logiciel ressource hack "legal" c'est plus simple je pense qu"a force de traduire je vais parler anglais. merci pour ton info je vais quant même essayer.

mois on ma donner ce lisp, je les mis à ma sauce personne n'en veux. allez faite semblent

ici

abennon

mais ont ne peut pas l'utiliser en toute illégalité, sans la payer. Simon 2009 me va bien et au lieu de payer une licence a trop cher ... mais rassurer vous je suis fonctionnaire c'est la France qui paye mais qui paye la France?

FormaBois sur 2009 ça fonctionne de LILI2006 (MERCI) pour la méthode : quant je crée une icon pour un lisp peut importe le nom que je mais derrière les C^C^cela peut être (je t'aime monde cruelle et dans n'importe quelle langue) donc dans outil => CUI => Toute les commandes la petite flèche en bleu V => tu clique dessus Commandes EXPRESS. Apparaît toute les commande du menu express . => tu clic sur l'une d"entre elle . "Aligne Space par exemple" => dans propriétés Macro il y a => ^C^C tu change le mot dans => Nom tu change le mot pour moi rien ne change apprêt avoir appliqué donc ma manipe ne suffit pas. résulta : c’était pour dire rien du tout.

ATTENTION JE VAIS ESSAIYER . pas peur non pas peur