lili2006

Re, En déchargent mes Lisps, quand le rentre : (getblock nil), j'ai bien la Boite de Dialogue, sinon, message AutCAD cité précédemment/

Bonjour à toutes et tous, Moi, non mais une collègue, oui ! (Le monde du Génie Civil est petit,....) Bon Dimanche

Re, Réponse de AutoCAD. Je m'en occupe de suite,

Bonjour à toutes et tous, Tout fonctionne à merveille, maintenant sur "Hatch2Excel".Merci encore. , Y manquerai plus qu'ça !!!! (En plus, au début j'étais presque sûr que c'était moi qui ne faisait pas les choses correctements, j'ai tellement l'habitude,....) Maintenant, surement rien à voir (Getbloc ?), lorsque j'utilises d'autres Lisp récemments revus par (gile) , j'ai ce message AutoCAD :[J'ai bien décharger mon ancien Getbloc.Lisp & Getbloc.DCL) Idem pour les Lisps "ins-pts;PNT2BLK; ins-vtx; INS3D", , il y en à peut_être d'autres..... Une idée ? [Edité le 11/11/2007 par lili2006]

Re, Merci (Gile) , je vais suivre tes conseils et revient.

Re, Au lycée Gustave EIFFEL de Bordeaux (33)

Re, Si je ne créé pas de fichier .XLS => Voici ce que me renvoi AutoCAD : J'ai toujours le message "Fermer toutes les feuilles Excel pour continuer" !!! ?? Si je créé un fichier .XLS => même message AutoCAD. Voici le contenu des cellules EXCel : Pourtant j'ai une dizaine de hachures (et calques) différents.

Bonjour à toutes et tous, (Gile), j'ai testé sur un autre ordi (XP SP2, AutoCAD 2008). La routine fonctionne mais m'ouvre toujours en cache le fichier. Si je lui demande de créer un fichier, il me dis qu'il ne l'a pas trouvé et si je créé un fichier Excel, à la fin du traitement, j'ai le message : Pour continuer fermer tous les fichiers Excel. Pourtant, rien de visible !(même problème sur ce post Réponse N° 24 !). Quand j'ouvre le fichier EXCel en question, on me dis qu'il est déjà ouvert (celui auquel j'ai accés est donc en lecture seule !). Il est cependant bien renseigné. Là aussi, est-il possible de filtrer les surfaces de hachures par calques ? Merci d'avance

Bonjour à tous, thierry.garré, merci de tes réponses. Effectivement, la notion de soin est importante pour le projet. J'essai de sensibiliser mes étudiants sur cette notion, mais ils manquent de recul. Par contre, lorsque l'on passe en 3D, beaucoup sont perdus. Je n'ai pas sous les yeux covadis, mais sur la V2007, il existe des commandes proches de celles que tu énonces, mais je vois qu'il y à de nouveaux outils 3D qui semblent trés intéressants. Sur la V10 qui devrait sortir, encore des nouveautés,notament le volet paysager entre autre et une nouvelle gestion des DAN,.... Est-ce que le lycée aura assez d'argent pour 10 mises à jour, rien n'est plus sûr,.. Merci encore et bon WE.

Bonjour à toutes et tous, (gile), la nuit porte conseil, c'est sûr ! Cela fonctionne parfaitement, c'était donc moi le Beug. En fait, sur le dessin que je voulais importer, il n'y avit rien !!! (Oublie d'enregistrement ou je ne sais quoi,...). Il m'a encore fallu 1 heure ce matin avant de m'en apercevoir, Pfuuuuuuu. Merci encore et désolé pour le dérangement,....

Rere et Bonjour à toutes et tous, Aprés plusieurs test et sur plusieurs lisps qui font appel à la même BD, voici les retours AutoCAD (toujours pour selectionner un bloc d'un fichier extérieur): 1) 2) 3) 4) 5) Et sur ce Lisp, ça marche ! Du coup, une fois les blocs chargés du dessin de référence, je peux à nouveau utiliser les autres Lisp, puisque c'est la même boite de dialogue (je veux dire que les blocs restent chargés !). Une idée ?

Re, Je viens de charger "Getblock" depuis le lien que tu donnes. Voilà la BD qui s'ouvre ( Nom du bloc et non Choisir un bloc). J'ai du me tromper quelque part,... <!--url{0}--> Ensuite, j'essaie l'option "parcourir",et aprés la saisie du fichier, je me retrouve avec cette BD => <!--url{1}--> . Et bien sûr, je n'ai pas accés au fichier choisi auparavent. J'tavouerai que j'suis un peu perdu, mais vu l'heure tardive et la journée passée,..... Bonne nuit. [Edité le 9/11/2007 par lili2006]

Re, J'ai "Getblock (version 2)" : ;;; Getblock (version 2) ;;; Retourne le nom du bloc sélectionné à l'écran, entré ou choisi ;;; par l'utilisateur dans une liste déroulante de la boite de dialogue ou ;;; depuis la boite de dialogue standard d'AutoCAD ;;; Argument : le titre (string) ou nil (défaut : "Choisir un bloc") (defun c:ssb (/ ss name) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) (= "INSERT" (cdr (assoc 0 (entget (ssname ss 0))))) (setq name (cdr (assoc 2 (entget (ssname ss 0))))) ) (and (sssetfirst nil nil) (setq name (getblock nil)) ) ) (sssetfirst nil (ssget "_X" (list '(0 . "INSERT") (cons 2 name)))) ) (princ) ) ;;; Getblock Retourne le nom du bloc entré ou choisi par l'utilisateur ;;; dans une liste déroulante de la boite de dialogue ou depuis la boite ;;; de dialogue standard d'AutoCAD ;;; Argument : le titre (string) ou nil (défaut : "Choisir un bloc") (defun getblock (titre / bloc n lst what_next dcl_id nom) (while (setq bloc (tblnext "BLOCK" (not bloc))) (setq lst (cons (cdr (assoc 2 bloc)) lst) ) ) (setq lst (acad_strlsort (vl-remove-if '(lambda (n) (= (substr n 1 1) "*")) lst) ) ) (setq dcl_id (load_dialog "Getblock.dcl")) (setq what_next 2) (while (>= what_next 2) (if (not (new_dialog "getblock" dcl_id)) (exit) ) (start_list "bl") (mapcar 'add_list lst) (end_list) (if titre (set_tile "box" titre) ) (if (setq n (vl-position (strcase (getvar "INSNAME")) (mapcar 'strcase lst) ) ) (setq nom (nth n lst)) (setq nom (car lst) n 0 ) ) (set_tile "bl" (itoa n)) (action_tile "bl" "(setq nom (nth (atoi $value) lst))") (action_tile "wbl" "(done_dialog 3)") (action_tile "tp" "(setq nom $value) (done_dialog 4)") (action_tile "accept" "(setq nom (nth (atoi (get_tile \"bl\")) lst)) (done_dialog 1)" ) (setq what_next (start_dialog)) (cond ((= what_next 3) (if (setq nom (getfiled "Sélectionner un fichier" "" "dwg" 0)) (setq what_next 1) (setq what_next 2) ) ) ((= what_next 4) (cond ((not (read nom)) (setq what_next 2) ) ((tblsearch "BLOCK" nom) (setq what_next 1) ) ((findfile (setq nom (strcat nom ".dwg"))) (setq what_next 1) ) (T (alert (strcat "Le fichier \"" nom "\" est introuvable.")) (setq nom nil what_next 2 ) ) ) ) ((= what_next 0) (setq nom nil) ) ) ) (unload_dialog dcl_id) nom ) (defun getblock (titre / bloc n lst what_next dcl_id nom) (while (setq bloc (tblnext "BLOCK" (not bloc))) (setq lst (cons (cdr (assoc 2 bloc)) lst) ) ) (setq lst (acad_strlsort (vl-remove-if '(lambda (n) (= (substr n 1 1) "*")) lst) ) ) (setq dcl_id (load_dialog "Getblock_2.dcl")) (setq what_next 2) (while (>= what_next 2) (if (not (new_dialog "getblock_2" dcl_id)) (exit) ) (start_list "bl") (mapcar 'add_list lst) (end_list) (if titre (set_tile "box" titre) ) (if (setq n (vl-position (strcase (getvar "INSNAME")) (mapcar 'strcase lst) ) ) (setq nom (nth n lst)) (setq nom (car lst) n 0 ) ) (set_tile "bl" (itoa n)) (action_tile "sel" "(done_dialog 5)") (action_tile "bl" "(setq nom (nth (atoi $value) lst))") (action_tile "wbl" "(done_dialog 3)") (action_tile "tp" "(setq nom $value) (done_dialog 4)") (action_tile "accept" "(setq nom (nth (atoi (get_tile \"bl\")) lst)) (done_dialog 1)" ) (setq what_next (start_dialog)) (cond ((= what_next 3) (if (setq nom (getfiled "Sélectionner un fichier" "" "dwg" 0)) (setq what_next 1) (setq what_next 2) ) ) ((= what_next 4) (cond ((not (read nom)) (setq what_next 2) ) ((tblsearch "BLOCK" nom) (setq what_next 1) ) ((findfile (setq nom (strcat nom ".dwg"))) (setq what_next 1) ) (T (alert (strcat "Le fichier \"" nom "\" est introuvable.")) (setq nom nil what_next 2 ) ) ) ) ((= what_next 5) (if (and (setq ent (car (entsel))) (= "INSERT" (cdr (assoc 0 (entget ent)))) ) (setq nom (cdr (assoc 2 (entget ent))) what_next 1 ) (setq what_next 2) ) ) ((= what_next 0) (setq nom nil) ) ) ) (unload_dialog dcl_id) nom ) Ce qui donne en mettant en ligne de commande : (getblock nil) => <!--url{0}--> AutoCAD me renvoi : C'est bien le chemin du fichier que je suis allez chercher, et puis après plus rien, la boite de dialogue s'efface et je reprend la main sur les commandes. Merci.

Re, J'ai testé et bien sûr, pas de surprises. Une question : Je n'arrive pas à choisir un bloc en fichier externe (bouton parcourir de la boite "Choisir un bloc). Je peux choisir le plan mais ensuite, je suis renvoyé sur la boite de dialogue de départ (à savoir, "Choisir un bloc"). Suis-je le seul ? Merci d'avance.

Re, Pour toi, certes, mais pas pour grand monde sur ce forum et c'est ce genre de manips qui nous font avancer. Je commence à regarder de plus en plus les modifs que tu fais en essayant de comprendre pourquoi, mais seul, c'est vraiment trés dur, et il faut y passer du temps. C'est encore loin d'être de mon niveau. Par exemple LXL, je ne peux que essayer de l'utiliser convenablement,( et je n'en suis même pas encore sur, alors,...). En tous cas, moi je te remercie beaucoup (je sais, une fois de plus) pour ce que tu fais sur ce site. Aujourd'hui, je me suis dis, tiens, je n'ai pas énormément de travail ce WE, je passe mon vendredi sur CADxp, et bin,.. Même comme ça, j'ai du mal à suivre ta cadence. J'ai à peine fini de tester que toi, tu as déjà revu les écritures su un autre problème, c'est balaise ! Comment fais-tu pour avoir des journée de 48h00 ???

Rere, Matt666, aurais-tu écrit le Lisp comme cela également ? Si tu peux le tester, merci. (Mon AutoCAD n'est pas dispo pour le moment (licence mobile)).

Re, Je ne peux pas tester maintenant mais vu le nombre de commentaires associés, cela ne t'as pas posé de problèmes,... Merci et je revient dés que j'ai pu tester.

Re, Il est à sa place, comme l'a dis Patrick_35 : Donc, ici ! . Bons tests.

Re, Il est clair qu'il faut dégager du temps sur CADxp, si on ne veut pas perdre le fil,... En ce qui me concerne, aucunes excuses ne sont nécessaires bien sûr MAIS il est vrai qu'il est préférable (du moins quand on est l'auteur du sujet !) de suivre le post sur quelques jours, jusqu'au moment ou l'auteur validera son post comme "résolu", ce qui n'empêche de rejeter un oeil de temps en temps,.. Bon WE.

Bonsoir à toutes et tous, Le post que j'ai suivi aujourd'hui m'a donné une nouvelle idée. Tout comme le Lisp "(PNT2BLK)" revu par (gile) en fonction de mes diverses demandes (merci encore à lui),est-il possible de faire la même chose sur le Lisp (également mentionné sur le post donné en lien) "ins-vtx " (rappel ci-dessous). Je m'explique, au lieu de selectionner des points graphiquement, pouvoir les saisir en ne désignant que le calque ou les points figurent ??? Je pense bien que c'est possible, vu la rapidité de réponse de (Gile) sur le même problème,... Merci d'avance. Rappel Lisp " ins-vtx " revu par (gile) => (defun c:ins-vtx (/ acdoc space bname ss lay layf n ins) (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 (setq bname (getblock "Nom du bloc")) (progn (if (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 bname)))) (setq lay (cdr (assoc 8 (entget (ssname ss 0))))) ) (if (setq layf (getlayer "Choisir le calque filtre de polylignes")) (if (ssget "_X" (list '(0 . "*POLYLINE") (cons 8 layf))) (progn (vla-startUndoMark acdoc) (vlax-for pl (vla-get-ActiveSelectionSet acdoc) (setq n (fix (vlax-curve-getEndParam pl))) (or (= (vla-get-Closed pl) :vlax-false) (setq n (1- n)) ) (repeat (1+ n) (setq ins (vla-InsertBlock space (vlax-3d-point (vlax-curve-getPointAtParam pl n)) bname 1.0 1.0 1.0 0.0 ) ) (if lay (vla-put-layer ins lay) ) (setq n (1- n)) ) ) (vla-EndUndoMark acdoc) ) ) ) ) ) (princ) )

Re, Bon courage alors, jeefreeze pour la semaine prochaine et @ bientôt pour tes commentaires !

Ouf, Bientôt, on aura plus le temps de poster nos requêtes, super . Quand je pense que j'ai quasiment passé la journée sur CADxp et que toi c'est tous les jours comme ça,... C'est ce que je disais sur un autre post, cela va trés vite su ce site et il est bele et bien vivant. Merci encore (gile) le résultat est terrible !!! (Imaginons la pose de bornes sur un terrain de 500 lots ,,!!! Même covadis ne sais pas faire (heu, tout du moins à ma connaissance, à part en géocodification sur le terrain ou en "bidouillant" la géobase, c'est à dire en associant le code du symbole au point) Et pour l'habillage 3D, oh là là, il me tarde de tester sur un plan topo 3D !!!. [Edité le 9/11/2007 par lili2006]

Re, J'suis bien conscient de cela, mais chaque test, même stupide, me permet de mieux comprendre l'esprit du lisp et je sais que toi, ou quelques autres trouverons toujours un moment pour répondre, la preuve. Et on ne répond pas tous les jours qu'à des questions inteliigentes,.... Mais continuer d'oser les poser, je trouve ça mieux que de rester dans son coin à ne rien comprendre.(Dans la mesure ou c'est pas trop "gonflant", bien sûr!). En tous cas, merci encore.

Re, Merci encore (gile), tes remarques sont trés interessante pour apprendre. Si maintenant, je voulais choisir le calque des polylignes à traiter (pour le moment le lisp met le bloc sur Toutes les polylignes même si le calque est gelé!) ou bien en selection graphique, ou même (le top du top) se servir de GETLAYERS ?? Evidemment, cet outil deviendrai tout de suite trés interessant, dans pas mal d'application même. Merci d'avance si tu as (ou quelqu'un d'autres ?) le courage (j'en doute pas) de jeter un oeil. Bon WE à tous,

Re, J'ai testé bon nombre de fois, avec les commandes que tu énonces, thierry.garré, je n'ai jamais eu de résultats formidables, et toi ?? Je suis sous la V200x-7 et toi, quelle version ? Merci d'avance.