jalna

Merci Gile!! lili Peut être rudement pratique aussi ! Pas tout compris! :casstet:

Salut Gile Encore une petite chose qui pourrait etre sympa....... -Créer un calque Total Surface automatiquement et mettre le bloc totalarea sur ce calque! -Comme le pline block (and (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list (vla-get-Layers AcDoc) "TEXTE-SURFACES" ) ) ) (vla-add (vla-get-Layers AcDoc) "TEXTE-SURFACES" ) ) (vla-put-Layer ref "TEXTE-SURFACES") Le problème c'est que je ne sais ou placer ce code!!!!!!!!!!!

Sur 2006 Message d'erreur: _.netload Nom du fichier d'assemblage: GetFileLisp.dll Commande: ; erreur: no function definition: GETFILES

Salut Gile Pas de soucis sous 2008 Bonne journée

Salut Regarde ici (Niveau en coupe ou facade) Perso moi je déplace l'origine sur mon +-0.00 et je localise un point en Y

Bonjour, Voila une routine aboutie!! Je dirais chapeau bas Monsieur! Quand je pense à mes galères avec les extractions de données qui marchent une fois sur deux, la je dois dire, que grace à toi, je vais oublier tout ça et ne prendre que ta routine. Si tu savais à quel point cela va me faciliter la tache, je pense que tu es loin de l'imaginer...... Depuis le temps que je cherche une routine de ce style, voila tu l'as fait........ Et de plus tu as ajouter des petits programmes sympa (AREASHOW........) Et tu as eu une super idée avec AREACONV!! Et tout cela avec des commentaires sur chaque routine!!! Merci encore Gile Mais comme je l'ai déja dit, je suis sur de ne pas être le seul à qui cela va faire plaisir!! Tiens encore une chose Extractions de données de surfaces dans un tableau AutoCAD sous 2008, ok Passez votre fichier à une personne qui a 2006, il bosse dessus et enregistre, ok Ouvrez le sur 2008, adieu extractions de données................... Grace à TOTALAREA finit les galères............. Bon j'arrête on se croirait dans un téléachat.................. Bon Week End

Désolé de t'embeter gile, mais j'ai encore une petite question : Au niveau du AREAUPD Serait il possible de sélectionner plusieurs blocs d'un coup plutôt que 1 par 1. Car sur un essai d'un grand plan, je n'arrive pas forcément à voir quelle polyligne à bougée, surtout si j'en ai plusieurs............ Ou alors est il possible d'adapter la fonction AREAUPD au regen? Mais c'est un détail!! :P

Parfait!! :D Je pense que tu vas l'ajouter dans ta liste de lisp, car je suis sur de n'être pas le seul à qui cela fait plaisir! Merci beaucoup d'avoir pris du temps, et si je peu rendre service (heu plutot dans le graphisme) n'hésite pas ;)

Encore un petit truc Si j'ai une polyligne de 400/405(cm), comment faire pour avoir le zéro de fin, afin d'avoir un résultat de 16.20m², au lieu de 16.2m². Merci par avance

Superbe!!!!!!!!!!!!!!!!!:D Vraiment excellent!!!!!!!!!!!!!!:D Je n'en attendait pas mieux!!!!!!!!!!!!! :exclam: Merci beaucoup Monsieur!

Salut Essaye du coté des options Onglet Sélection - Modes de sélections - Utiliser MAJ

Salut (gile) et dans un premier temps merci beaucoup pour le temps consacré!! :D Je viens juste d'essayer et j'ai suivi tes instructions TOTALAREA : fonctionne (j'ai crée un bloc "TotalArea.dwg") et il me donne le total des polylignes. AREAEDIT : Il me demande de sélectionner le bloc, mais quand je clique sur le bloc, rien ne se passe, et j'ai commande:, il semblerait qu'il ne reconnait pas le bloc "TotalArea.dwg" AREASHOW : J'ai le curseur mais quand je me déplace sur le bloc je ne vois pas les polylignes en surbrillance Je suis sous 2008 Il y a peut être un lien avec l'étiquette du bloc? Ais-je loupé quelque chose......

Juste un petit mot Dans l'espace objet on résonne en unité Dans l'espace papier(présentation) on résonne toujours en mm.

Salut Pas trop compris ta question Sinon enregistrer sous et purger les calques uniquement Pout ton bloc c'est ici

Pour l'unité AutoCAD, c'est soit le mètre, centimètre , km, micron, unité solaire ect.......... Pour les échelles voila : http://img356.imageshack.us/img356/7519/echelleam6.jpg

Salut Je comprend pas trop!! Quel est ton unité de travail et à quelle échelle veux tu mettre ton plan?

Tu as très bien compris!! Pas de problèmes, c'était une demande, et je comprend que cela prenne du temps!!

Bravo à toi didier pour tes connaissances! :D

En fait je souhaite garder le pline_block actuel, mais j'aimerais un autre dans le meme style mais par sélection de polyligne. En ce qui concerne le bloc, je vais en créer un autre ou je vais avoir un seul attribut(total des polylignes) Donc je pense à un nouveau pline_block+ par exemple, en gardante le pline_block d'origine, car il me sert aussi. Je sais pas si je suis clair!! Voici mes codes actuel pour pline_block ;;; Pline_bloc -Gilles Chanteau- 13/09/06 ;;; Insère le bloc "pline_block" après sélection d'une polyligne ;;; Attribut 1 : Nom de la pièce ;;; Attribut 2 : Aire de la polyligne (vl-load-com) (defun c:pline_block (/ AcDoc Space bloc nom ent aire long ins) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (cond ((tblsearch "BLOCK" (setq bloc "Pline_block"))) ((findfile (setq bloc "Pline_block.dwg"))) (T (setq bloc nil)) ) (if bloc (progn (while (not (setq ent (car (entsel))))) (if (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE") (progn (setq obj (vlax-ename->vla-object ent) id (vla-get-ObjectID obj) aire (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Area \\f \"%lu2%pr2%ps%ct8[0.0001]\">%" ) ) (if (not (setq nom (getname))) (setq nom "") ) (initget 1) (setq ins (trans (getpoint "\nPoint d'insertion: ") 1 0)) (setq ref (vla-InsertBlock Space (vlax-3d-point ins) bloc 1.0 1.0 1.0 0.0 ) ) (mapcar '(lambda (x y) (vla-put-TextString x y)) (vlax-invoke ref 'GetAttributes) (list nom aire) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (and (vl-catch-all-error-p (vl-catch-all-apply 'vla-item (list (vla-get-Layers AcDoc) "TEXTE-SURFACES" ) ) ) (vla-add (vla-get-Layers AcDoc) "TEXTE-SURFACES" ) ) (vla-put-Layer ref "TEXTE-SURFACES") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (vla-regen AcDoc acActiveViewport) ) (alert "L'objet sélectionné n'est pas une polyligne.") ) ) (alert "Le bloc \"Pline_block\" est introuvable.") ) (princ) ) Pour le Getname ;;; GetName Retourne le nom spécifié ou choisi dans la liste. ;;; Les noms entrés sont ajoutés à la liste. ;;; La liste est conservée dans le dessin. (defun getname (/ lst what_next dcl_id nom) (if (not (vlax-ldata-get "Pline_block" "Name")) (vlax-ldata-put "Pline_block" "Name" '("BAINS" "CUISINE" "ENTREE" "SEJOUR" "WC" "DEGAGEMENT" "DGT." "SALON" "CELLIER" "CAVE" "CHAMBRE" "CHAMBRE 1" "CHAMBRE 2")) ) (setq lst (vlax-ldata-get "Pline_block" "Name")) (setq dcl_id (load_dialog "GetName.dcl")) (setq what_next 2) (while (>= what_next 2) (if (not (new_dialog "getname" dcl_id)) (exit) ) (start_list "pop") (mapcar 'add_list lst) (end_list) (action_tile "pop" (strcat "(if (or (= $reason 1) (= $reason 4))" "(set_tile \"tp\" (nth (atoi $value) lst)))" "(mode_tile \"accept\" 2)" ) ) (action_tile "add" (strcat "(if (not (member (get_tile \"tp\") lst))" "(setq lst (acad_strlsort (cons (get_tile \"tp\") lst))))" "(done_dialog 2)" ) ) (action_tile "del" (strcat "(setq lst (vl-remove (get_tile \"tp\") lst))" "(done_dialog 2)" ) ) (action_tile "accept" (strcat "(if (not (read (get_tile \"tp\")))" "(progn (alert \"Spécifiez un nom, svp.\")" "(done_dialog 2))" "(progn (setq nom (get_tile \"tp\"))" "(if (and (not (member nom lst)) (/= nom ""))" "(setq lst (acad_strlsort (cons (get_tile \"tp\") lst))))" "(vlax-ldata-put \"Pline_block\" \"Name\" lst)" "(done_dialog 1)))" ) ) (setq what_next (start_dialog)) (if (= what_next 0) (setq nom nil) ) ) (unload_dialog dcl_id) nom )

Salut! Un début de réponse DBX erreur-type sont signalées par le ObjectDBX bibliothèque. Ils viennent souvent de 3rd party add-on applications, en particulier les applications de LT. Toujours appliquer le dernier Service Pack pour votre application de CAO Autodesk (et peut-être aussi pour l'add-on). Cette erreur peut être aussi causée par un problème matériel ou d'une collision avec une autre application en cours d'exécution ou de conducteur.

Salut lovecraft Merci beaucoup, petit programme très utile!! :D Il ne fonctionne uniquement avec du texte ligne?

Salut Merci de penser à moi :) J'ai une erreur de type: Erreur: nombre d'arguments trop important :casstet:

Salut Ok pour les pièces, cela fonctionne très bien. En fait plutôt que de sélectionner une par une il faudrait pouvoir sélectionner plusieurs polylignes avant d'avoir la boite de dialogue du nom de pièces.

Salut VISRETAIN Bonne soirée

Un peu comme les extractions de données sur 2008!! (je sais je suis pénible avec ça) Quand tu imprimes, souvent j'ai un message qui apparait me disant qu'une extraction de données à changer et que je dois la mettre à jour (alors que rien n'a changer) ce que je fais, je réimprime une deuxième fois (sans rien changer) et le message réapparait (le même) Au bout de plusieurs impression, effectivement .............................................................