ASTERIXII

Juste une question, pourquoi n'utilise tu pas l'tilitaire de licence mobile qui exite de 2004 ? [Edité le 16/2/2007 par ASTERIXII]

Bien comme d'habitude..... Juste une question, pourquoi ne retrouve ne pas ton travail en zone de téléchargement ? car dans le cas suivant c'est ton code depuis le début, et cela dans le but de retrouver plus facilement les petit lisp qui nous rendent la vie plus facile. c'est juste une idée..

Pour yalta Aprés le lancement de la commande lisp -choix du fichier excel -choix de la feuille - et la , le choix de l'incrementation avant de choisir le bloc ou l'attribut - ensuite choix par bloc ou par attribut sa marche [Edité le 14/2/2007 par ASTERIXII]

ticticmarc lorsque tu cliques sur ajouter par attribut quel est le message sur ta ligne de commande ? -soit le message ce n'est pas un attribut (c'est peut-être un attribut, mais qui n'est pas contenu dans un bloc) - soit veuillez selectionner un attribut (même si c'est deja fait) alors valide Pour moi, il me semble que l'ordre de trie des attributs est fonction de l'ordre de création. non ?

La je décroche, tu fais sa comment ? tu lance un routine qui collecte les infos sur les xref, les changes en attributs, l'ajoute au bloc cartouche existant ou alors il est indépendant et la tu peux l'ajouter au rapport . Mais si tu change les xref ou si tu en rajoutes ?

Exemple : j'ai deja une ligne dans mon tableau existante Ligne 10 avec incrémentation des colonnes A10=attribut n°1 B10=attribut n°2 Je voudrais que pour l'ajout de nouveaux éléments, il incrémente, et passe a la ligne 11 sans demander de numero Ligne 11 (automatique) avec incrémentation des colonnes A11=attribut n°1 B11=attribut n°2 Pour les xref, j'explique mon cas souvent je dois envoyer des plans avec leurs xref si il y a un plan je fais etransmis, ici pas de problème si j'ai 20 plans avec 20 ou plus xref avec des chemins differents cela revient a faire une liste de tous les xref , d'ou l'intérêt de ma demande ,et ton lisp

Je reviens sur un ancien sujet, sur le comptage des blocs dynamique et autres Le code suivant est bon (de patrick), mais j'ai besoin de pouvoir selectionner une zone de comptage, et voir même compter dans une zone definie par une polyligne merci (defun c:CT(/ js bllst ent CT) (if (setq js (ssget "x" (list (cons 0 "INSERT")))) (progn (setq CT (mapcar '(lambda (x) (setq x (vlax-ename->vla-object x)) (if (vlax-property-available-p x 'EffectiveName) (vla-get-EffectiveName x) (vla-get-Name x) ) ) (mapcar 'cadr (ssnamex js)) ) ) (foreach ent CT (if (not (member ent (mapcar 'car bllst))) (setq bllst (append bllst (list (cons ent (length (vl-remove-if-not '(lambda (x) (eq ent x)) CT)))))) ) ) ;(mapcar '(lambda (x) (princ (strcat "\n" (itoa (cdr x)) " bloc(s) " (car x)))) bllst ) (mapcar '(lambda (x) (princ (strcat "\n" (car x) " " (itoa (cdr x)) ))) bllst ) ) ) (princ) ) (princ "\nCTT chargé. Tapez CT pour l'exécuter") (princ)

Depuis la version 1.10 plus de probléme. En fait cela permet de savoir quel numero de ligne il faut entrer. Pourrais-tu incrementer en ligne ou en colonne suivant le choix deja fait dans la boite de dialogue, pour que l'entrée suivante (nouveau cartouche) soit placée a la suite ? -J'en rajoute une couche... hors contexte des attributs, rajouter pour chauque plan la liste des xref ACTIF (avec le chemin ) a la suite des colonnes ou des lignes suivant l'option de remplissage. Encore du boulot.....

Peut-être un bug dans la deuxiéme version: (remarque, j'utilise le même fichier dwg et excel qu'avec la premiere version du lisp, important ? dans mon cas les attributs sont dans un bloc ) -je dupliques une presentation dans mon dwg, je change les valeurs des attributs -j'ouvre excel ou il y a 3 feuilles avec deja des valeurs de cartouches dont un essai de ce matin avec la nouvelle version du lisp (valeurs enregistrées dans la feuille n°3) -dans autocad je lance la routine, selectionne la feuille n°1, selectionne le bloc ,indique A20 comme cellule, mise a jour du fichier excel -Le probleme est qu'il ne place pas les valeurs dans la bonne feuille, ni dans la bonne ligne, en fait il a conservé les parametres de ma derniere intervention soit la feuille n°3 ligne A10 @+

En fait, si la modification est de traduire des mots anglais en francais c'est possible si c'est pour ajouter une nouvelle fonction c'est impossible si c'est pour contourner une procedure c'est possible mais trés illégal ! En général lors que l'on modifier un arx c'est pour le crack comme pour un lisp 'avec protection' ou un fichier FAS ou en VLX [Edité le 10/2/2007 par ASTERIXII]

Deja !, trop fort Et encore bravo !! Je test lundi

Tous d'abord chapeau, aprés mon premier test, pas de bugs Pour les sugestions: Est-il possible de selectionner le Bloc du cartouche avec plusieurs attributs, et qu'il remplisse automatiquement le tableau, plutot que de selectionner un a un les attributs. Cela permet également d'avoir toujour le même classement des attributs dans les colonnes d'excel. Si j'abuse, incrémentation des lignes du tableau (car je resonne de autocad vers excel) @+ Et encore bravo !!

je ne sais pas si j'ai bien compris, tu parles de l'arborescence dans autocad au dans l'explorateur win.

Premiere chose, declare les chemins de recherche des fichier dans OUTILS/OPTIONS onglet FICHIER , le premier de la liste ...SUPPORT seconde chose:il manque des guillemet dans ton script, (celle de la touche 3 du clavier) il faut _OPEN [surligneur] "[/surligneur]Fenetre_A0 [surligneur] "[/surligneur] _zoom et _mcliche [surligneur] "[/surligneur]Fenetre_A0 [surligneur] "[/surligneur] _close o ensuite rajoute cette commande [surligneur] rememberfolders 0[/surligneur] au début du fichier scr [surligneur] rememberfolders 1 [/surligneur] a la fin du fichier scr cette fonction permet simplement la creartion des sld dans le même répertoire que les dwg[Edité le 9/2/2007 par ASTERIXII] Pour le fichier lisp modifier ;; ecriture dans le fichier (setq ligne1 (strcat "_OPEN " nom_bloc ) ligne2 (strcat "_zoom " "et") ligne3 (strcat "_mcliche " nom_bloc ) ligne4 (strcat "_close " "o") ) par ;; ecriture dans le fichier [surligneur] (setq nom_bloc (strcat nom_bloc "\""))[/surligneur] (setq ligne1 (strcat "_OPEN [surligneur] \"[/surligneur]" nom_bloc ) ligne2 (strcat "_zoom " "et") ligne3 (strcat "_mcliche [surligneur] \"[/surligneur]" nom_bloc ) ligne4 (strcat "_close " "o") )[Edité le 9/2/2007 par ASTERIXII][Edité le 9/2/2007 par ASTERIXII] [Edité le 9/2/2007 par ASTERIXII]

Peux-tu ouvrire ton fichier scr et le copier dans ton message, je pense qu'il y a simplement moyen de le modifier.(le fichier scr est en fait un fichier texte que tu ouvre avec le bloc-notes)

Effectivement il faut IE>6.0 mais normalement avec IE7 cela doit fonctionner Fait aussi la mise a jour de MICROSOFT.NET pour voir

Comment est affiché le chemin (automatique ou manuel ?)

Je suis également preneur du projet final, cela fonctionne t-il dans les 2 sens ? je mets a jour les attributs dans le cartouche, lance une commande lisp et la liste EXCEL est a jour , possible ?

--> voir le même sujet mais dans LISP

Mea culpa, effectivement mon environnement et trop perso, en fait il manque beaucoup trop d’élément de déclaration. Pour AutoCAD.lsp il s’agit d’un second fichier , chargé suivant un profil, mais le code initial n’est pas de moi mais de PHILIPPE CAPDEVILA pour son logiciel CapTOPO. Il ma déjà modifié en partie une fonction, mais je cherche à l’étendre. la fonction est de transformer un texte en bloc avec un point et des attributs. sa fonction demande un point d'insertion et le choix d'un texte, moi je veux selectionner plusieurs texte , le point d'insertion du bloc correspondant au point d'insertion du texte -->(setq ins_pt (cdr (assoc 10 txt))) ; Point d'insertion du texte ->(setq Point (list (car ins_pt) (cadr ins_pt) z)) Point d'insertion du bloc cela fonctionne bien avec 1 texte, mais lorsque je modifie le code pour une selection cela ne marche plus.

Petite explication sur le diametre 125 La fonte 125 (DN125) correspond a un diametre interieur de 125 et exterieur de 135 mm Pour l'acier dn125 tarif 10 diametre extrieur 139,7x4 (4 etant l'epaisseur) soit un diametre interieur de 131.7 mm Il sagit la de tube couramment utilisé

En fait voila le code complet (defun incremen () (setq incre_pt $value) (if (= incre_pt "0") (setq n "0") (setq n (itoa (+ (getvar "useri5") 1))) ) ;_ Fin de if (set_tile "NUME" n) ) ;_ Fin de defun (defun table_plus (a) (if (= a 1) (progn (setq ajoute 1) (mode_tile "ALTZ" 1) (mode_tile "ALTPLUS" 0) ) ;_ Fin de progn (progn (setq ajoute 0) (mode_tile "ALTZ" 0) (mode_tile "ALTPLUS" 1) ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de defun (defun C:NP () (if (not c:gpl) (load "acad.lsp") ) ;_ Fin de if (setq oldos (getvar "osmode")) (setq ech_attrib (rtos (getvar "useri1") 2 0)) (setq z "0.00") (if (not valplus) (setq valplus "0.00") ) ;_ Fin de if (if (not ajoute) (setq ajoute 0) ) ;_ Fin de if (if (not incre_pt) (setq incre_pt "0") ) ;_ Fin de if (setq id_dcl (load_dialog "topobloc.dcl")) (if (not (new_dialog "NEWPT" id_dcl)) (exit) ) ;_ Fin de if (if (= incre_pt "0") (progn (setq n "0") (set_tile "incre_pt" "0") ) ;_ Fin de progn (progn (setq n (itoa (1+ (getvar "useri5")))) (set_tile "incre_pt" "1") ) ;_ Fin de progn ) ;_ Fin de if (cond ((= ajoute 0) (setq a 1) (table_plus 0) (set_tile "ADZ" "0") (set_tile "UNZ" "1") ) ((= ajoute 1) (setq a 0) (table_plus 1) (set_tile "ADZ" "1") (set_tile "UNZ" "0") ) ) ;_ Fin de cond (set_tile "NUME" n) (set_tile "ALTPLUS" valplus) (set_tile "ALTZ" z) (action_tile "ALTPLUS" "(setq valplus $value)") (action_tile "NUME" "(setq n $value)") (action_tile "ALTZ" "(setq z $value)") (action_tile "ADZ" "(table_plus 1)") (action_tile "UNZ" "(table_plus 0)") (action_tile "CANCEL" "(exit)") (action_tile "incre_pt" "(incremen)") (start_dialog) (unload_dialog id_dcl) (If (Not (tblsearch "BLOCK" blk_nom)) (creabloc) ) ;_ Fin de If (setvar "osmode" 0) (progn (setq txt (entget (car (nentsel "\nPointer l'altitude a copier :")))) (setq ins_pt (cdr (assoc 10 txt))) ; Point d'insertion (setq txt (cdr ( assoc 1 txt ))) (if (= (vl-string-search "=" txt) nil) (setq val (atof txt)) (setq val (atof (substr txt 3))) ) ;_ Fin de if (setq z (atof txt)) (setq Point (list (car ins_pt) (cadr ins_pt) z)) ;; alain (setq z (rtos z 2 2)) ) ;_ Fin de progn (command "_insert" blk_nom (list (car point) (cadr point)) "1" "1" "" ) ;_ Fin de command (upd_ent (entlast) 8 blk_layer) (upd_blk (entlast) blk_mat 1 n) (xd_ins (entlast) z) (upd_blk (entlast) blk_alt 1 z) (command "-hyperlien" "i" "o" (entlast) "" "" "" (strcat "N° " n " Alt " z) ) ;_ Fin de command (setvar "osmode" oldos) (if (= incre_pt "1") (setvar "USERI5" (atoi n)) ) ;_ Fin de if ) ;_ Fin de defun boite DCL NEWPT:dialog {label="CREATION D'UN NOUVEAU POINT"; : boxed_column { label = "Format du Point à créer"; spacer; //:row{ :radio_button {label = "Additionner en Z";key = "ADZ";} <-- selection : radio_button {label = "Nouveau Z";key = "UNZ";} spacer; :toggle {label = "Incrémentation des points";key = "incre_pt";} <--- selection // } :edit_box{label="Numero du point";key="NUME";edit_width=15;} :edit_box{label="Valeur de l'altitude"; key="ALTZ";edit_width=15;} :edit_box{label="Valeur à additionner"; key="ALTPLUS";edit_width=15;} } :row{ :button {label="OK";key="APRES";is_default=true;fixed_width=true;width=12;} :button {label="Annuler";key="CANCEL";is_cancel=true;width=12;} } }

Attention les materiaux sont differents donc les diametres aussi en enterré pour du gaz acier,Pe, cuivre pour de l'AEP Pe ,Fonte Un diametre fonte 125 n'a rien a voir avec un 125 acier Lien pour le tube Pe http:// http://www.sotra-seperef.com/Medias/pdf/ft/ft_pebd.pdf Lien tube acier http:// http://www.ac-creteil.fr/sti-ete/RESS-PED/bts/Ress/Acier%20NF%20A%2049-XXX.rtf Lien fonte http:// http://www.pamline.fr/pages/site/index.asp

Une adresse pour te l'envoyer ?

ci-joint 2 lisps dont la fonction est de transformer un texte en bloc avec un point et des attributs. Le premier lisp fonctionne bien pour la selection d'une entité (defun C:alain () (progn (setq txt (entget (car (nentsel "\nPointer l'altitude a copier :")))) (setq ins_pt (cdr (assoc 10 txt))) ; Point d'insertion (setq txt (cdr ( assoc 1 txt ))) (if (= (vl-string-search "=" txt) nil) (setq val (atof txt)) (setq val (atof (substr txt 3))) ) ;_ Fin de if (setq z (atof txt)) (setq Point (list (car ins_pt) (cadr ins_pt) z)) (setq z (rtos z 2 2)) ) ;_ Fin de progn (command "_insert" blk_nom (list (car point) (cadr point)) "1" "1" "" ) ;_ Fin de command (upd_ent (entlast) 8 blk_layer) (upd_blk (entlast) blk_mat 1 n) (xd_ins (entlast) z) (upd_blk (entlast) blk_alt 1 z) (command "-hyperlien" "i" "o" (entlast) "" "" "" (strcat "N° " n " Alt " z) ) ;_ Fin de command ) ;_ Fin de defun le second lisp ne fonctionne pas, il est pour un selection multiple (defun C:alain () (Prompt "\n\nSélectionner les Textes à extraires...") (setq ss (ssget '((0 . "TEXT,MTEXT")))) (progn (setq cnt 0) (while (setq toto (ssname ss cnt)) (setq txt (cdr (assoc 1 toto ) ) X (rtos (nth 1 (assoc 10 (entget toto) ) ) 2 8 ) Y (rtos (nth 2 (assoc 10 (entget toto) ) ) 2 8 ) cnt (1+ cnt) );setq (if (= (vl-string-search "=" txt) nil) (setq val (atof txt)) (setq val (atof (substr txt 3))) ) ;_ Fin de if (setq z (atof txt)) (setq Point (list x y z)) (setq z (rtos z 2 2)) ) ;_ Fin de progn (command "_insert" blk_nom (list (car point) (cadr point)) "1" "1" "" ) ;_ Fin de command (upd_ent (entlast) 8 blk_layer) (upd_blk (entlast) blk_mat 1 n) (xd_ins (entlast) z) (upd_blk (entlast) blk_alt 1 z) (command "-hyperlien" "i" "o" (entlast) "" "" "" (strcat "N° " n " Alt " z) );while ) ;_ Fin de command ) ;_ Fin de defun Une idée sur l'erreure ?