lili2006

Re, Merci encore. Je continu alors mon grand menage de printemps. Si tu as le temps, peux-tu développer la démarche STP ? Moi, pour le moment, je charge les lisp avec mon fichier .CUI partiel, est-ce la bonne méthode ? Merci d'avance.

Re, Merci (gile), je vais faire le tour des routines. Autre chose, il y a t-il un nombre maximum de lisp que l'on peut charger dans un .CUI partiel ? Rien trouver dans l'aide AutoCAD,... Merci d'avance.

Bonjour à toutes et tous, Intéresant,... Fait du hasard, alors ?? Je vais le faire de suite, Et comment fais-ton STP ? Je me rapelle qu'il y avait des conflits quand je faisait des test. Il était grand temps, que je fasse du tri,... Je continu et te remercie encore de tes conseils,..

Re, A priori, après avoir repris ma config précédente, c'était le lisp "Getname" qui posait pb. Merci encore de ton soutien. J'commence à y voir plus clair. Bonne nuit.

Re, Merci encore (gile). J'sais pas c'qui s'passe mais je connecte très mal mais pas que sur cadxp, sur l'internet en général, Des travaux dans le coin, p't'etre,... Bonne soirée,.

Re, Tout compte fait, j'ai fait un mixte des deux (c'est toujours deux clics au final !). J'ai mis la fonction "sel" sur les menus contextuels du clic droit <!--url{0}--> et j'ouvre alors la BD, cela me convient. <!--url{1}--> Merci encore.

Re, Ah, celui-ci aussi est de toi ?! Merci également pour le rappel du lien. Je profite de ce post (plutot qu'en relancer encore un) pour te demander encore un renseignement (un de plus !). Pourquoi lorsque je lance ins-pts, PNT2BLK ,ou encore ins-vtx , AutoCAD me retourne => , ou bien . On en avait déjà parlé mais aujourd'hui, j'ai un mal de chien avec l'internet, alors... Si tu peux me raffraichir la mémoire,... Merci d'avance.

Re, Merci encore,... En fait, cela n'a pas l'air de marcher avec une V2007 de Office. J'ai enregistrer un fichier vierge au format 2003, j'ai retesté, alors là, plus de problème ! , Tiens, je n'ai pas accès à cette invite, moi ?? Oui ! J'ai réussit à retrouver des Auteurs, mais pas tous,... C'est vrai que c'est pratique quand l'auteur l'indique dans le Lisp.(tu en fais parti!)

Re, Super ! C'est vrai qu'c'est bien aussi sur le clic droit ! Je vais tester les deux, au moins on a le choix maintenant ! Merci encore à toi.

Re, Merci de ta réponse (gile). En effet, le dyn c'est bien mais il faut garder un oeil sur la ligne de commande. Dommage parce qu'elle est pratique en Palette, mais il m'arrive de rater des options de ce type du coup,...

Bonjour à toutes et tous, Je voulais tester ce Lisp et voici ce que me retourne AutoCAD => Le Lisp => (defun c:export-text (/ ss path sep file n elst lst typ jus vert ins) (and (princ "\nSélectionner les textes (ou Entrée pour \"Tout\")." ) (or (setq ss (ssget '((0 . "*TEXT,INSERT")))) (setq ss (ssget "_X" '((0 . "*TEXT,INSERT")))) ) (setq path (getfiled "Fichier d'exportation des textes" (getvar "DWGPREFIX") "*" 1 ) ) (or (and (= (strcase (vl-filename-extension path) T) ".xls") (setq sep "\t") ) (and (member (strcase (vl-filename-extension path) T) '(".txt" ".csv") ) (setq sep (getstring "\Entrez le séparateur: ")) ) ) (setq file (open path "w")) ;; En-tête =======================================;; (write-line (strcat "Compteur" sep "Type" sep "Calque" sep "Style" sep "X" sep "Y" sep "Z" sep "Justification" sep "Hauteur" sep "Rotation" sep "Valeur" ) file ) ;;================================================;; (repeat (setq n (sslength ss)) (setq elst (entget (ssname ss (setq n (1- n))))) (if (= (cdr (assoc 0 elst)) "INSERT") (if (and (= (cdr (assoc 66 elst)) 1) (setq att (entnext (cdr (assoc -1 elst)))) ) (while (= (cdr (assoc 0 (entget att))) "ATTRIB") (setq lst (cons (entget att) lst) att (entnext att) ) ) ) (setq lst (cons elst lst)) ) ) (mapcar (function (lambda (elst) (setq typ (cdr (assoc 0 elst)) vert (cond ((= typ "TEXT") 73) ((= typ "ATTRIB") 74) ) ) (cond ((member typ '("TEXT" "ATTRIB")) (setq jus (cond ((= (cdr (assoc vert elst)) 3) "H") ((= (cdr (assoc vert elst)) 2) "M") ((= (cdr (assoc vert elst)) 1) "B") (T "") ) jus (cond ((= (cdr (assoc 72 elst)) 0) (strcat jus "G")) ((= (cdr (assoc 72 elst)) 1) (strcat jus "C")) ((= (cdr (assoc 72 elst)) 2) (strcat jus "D")) ((= (cdr (assoc 72 elst)) 3) (strcat jus "A")) ((= (cdr (assoc 72 elst)) 4) (strcat jus "M")) (T (strcat jus "P")) ) ins (if (= jus "G") (trans (cdr (assoc 10 elst)) (cdr (assoc 210 elst)) 0) (trans (cdr (assoc 11 elst)) (cdr (assoc 210 elst)) 0) ) ) ) ((= typ "MTEXT") (setq jus (cond (((((T "B") ) jus (cond ((member (cdr (assoc 71 elst)) '(1 4 7)) (strcat jus "G")) ((member (cdr (assoc 71 elst)) '(2 5 8)) (strcat jus "C")) (T (strcat jus "D")) ) ins (cdr (assoc 10 elst)) ) ) (T (setq jus "G" ins (cdr (assoc 10 elst)) ) ) ) (write-line (strcat (itoa (setq n (1+ n))) sep (cdr (assoc 0 elst)) sep (cdr (assoc 8 elst)) sep (cdr (assoc 7 elst)) sep (rtos (car ins)) sep (rtos (cadr ins)) sep (rtos (caddr ins)) sep jus sep (rtos (cdr (assoc 40 elst))) sep (angtos (cdr (assoc 50 elst))) sep (cdr (assoc 1 elst)) ) file ) ) ) lst ) (close file) ) (princ) ) Désolé, là non plus je ne sais pas qui est l'auteur,... Une idée ?

Bonjour à toutes et tous, Je voulais tester ce Lisp et voici ce que me retourne AutoCAD => Le Lisp => (defun c:export-text (/ ss path sep file n elst lst typ jus vert ins) (and (princ "\nSélectionner les textes (ou Entrée pour \"Tout\")." ) (or (setq ss (ssget '((0 . "*TEXT,INSERT")))) (setq ss (ssget "_X" '((0 . "*TEXT,INSERT")))) ) (setq path (getfiled "Fichier d'exportation des textes" (getvar "DWGPREFIX") "*" 1 ) ) (or (and (= (strcase (vl-filename-extension path) T) ".xls") (setq sep "\t") ) (and (member (strcase (vl-filename-extension path) T) '(".txt" ".csv") ) (setq sep (getstring "\Entrez le séparateur: ")) ) ) (setq file (open path "w")) ;; En-tête =======================================;; (write-line (strcat "Compteur" sep "Type" sep "Calque" sep "Style" sep "X" sep "Y" sep "Z" sep "Justification" sep "Hauteur" sep "Rotation" sep "Valeur" ) file ) ;;================================================;; (repeat (setq n (sslength ss)) (setq elst (entget (ssname ss (setq n (1- n))))) (if (= (cdr (assoc 0 elst)) "INSERT") (if (and (= (cdr (assoc 66 elst)) 1) (setq att (entnext (cdr (assoc -1 elst)))) ) (while (= (cdr (assoc 0 (entget att))) "ATTRIB") (setq lst (cons (entget att) lst) att (entnext att) ) ) ) (setq lst (cons elst lst)) ) ) (mapcar (function (lambda (elst) (setq typ (cdr (assoc 0 elst)) vert (cond ((= typ "TEXT") 73) ((= typ "ATTRIB") 74) ) ) (cond ((member typ '("TEXT" "ATTRIB")) (setq jus (cond ((= (cdr (assoc vert elst)) 3) "H") ((= (cdr (assoc vert elst)) 2) "M") ((= (cdr (assoc vert elst)) 1) "B") (T "") ) jus (cond ((= (cdr (assoc 72 elst)) 0) (strcat jus "G")) ((= (cdr (assoc 72 elst)) 1) (strcat jus "C")) ((= (cdr (assoc 72 elst)) 2) (strcat jus "D")) ((= (cdr (assoc 72 elst)) 3) (strcat jus "A")) ((= (cdr (assoc 72 elst)) 4) (strcat jus "M")) (T (strcat jus "P")) ) ins (if (= jus "G") (trans (cdr (assoc 10 elst)) (cdr (assoc 210 elst)) 0) (trans (cdr (assoc 11 elst)) (cdr (assoc 210 elst)) 0) ) ) ) ((= typ "MTEXT") (setq jus (cond (((((T "B") ) jus (cond ((member (cdr (assoc 71 elst)) '(1 4 7)) (strcat jus "G")) ((member (cdr (assoc 71 elst)) '(2 5 8)) (strcat jus "C")) (T (strcat jus "D")) ) ins (cdr (assoc 10 elst)) ) ) (T (setq jus "G" ins (cdr (assoc 10 elst)) ) ) ) (write-line (strcat (itoa (setq n (1+ n))) sep (cdr (assoc 0 elst)) sep (cdr (assoc 8 elst)) sep (cdr (assoc 7 elst)) sep (rtos (car ins)) sep (rtos (cadr ins)) sep (rtos (caddr ins)) sep jus sep (rtos (cdr (assoc 40 elst))) sep (angtos (cdr (assoc 50 elst))) sep (cdr (assoc 1 elst)) ) file ) ) ) lst ) (close file) ) (princ) ) Désolé, là non plus je ne sais pas qui est l'auteur,... Une idée ?

Re, Lorsque je tape "p", pour accèder aux paramètres, je n'arrive pas à y accèder, il faut que je selectionne des textes et après je sors de la BD. Quelle manip faut-il faire STP (gile)?

Re, Effectivement, (gile), je ne mes souvenais plus du tout de ce lisp !! C'est en partie la raison qui me fait faire un tri dans les Lisps car je finis par rater l'essentiel, la preuve encore ici ! Merci encore de ton aide et tes conseils (gile)

Re, Je voulais dire, choix d'un type de selection dans le même esprit que cette BD => Ok ! Je n'avais tous simplement pas compris son utilité,... Merci encore,

Bonjour à toutes et tous, Quande je lance ce lisp, AutoCAD me retourne => Le Lisp => (defun transpts (apt matrix / ) (list (+ (* (car (nth 0 matrix)) (car apt)) (* (car (nth 1 matrix)) (cadr apt)) (* (car (nth 2 matrix)) (caddr apt)) (cadddr (nth 0 matrix)) ) (+ (* (cadr (nth 0 matrix)) (car apt)) (* (cadr (nth 1 matrix)) (cadr apt)) (* (cadr (nth 2 matrix)) (caddr apt)) (cadddr (nth 1 matrix)) ) (+ (* (caddr (nth 0 matrix)) (car apt)) (* (caddr (nth 1 matrix)) (cadr apt)) (* (caddr (nth 2 matrix)) (caddr apt)) (cadddr (nth 2 matrix)) ) ) ) (defun v_matr (dpt alphax alphay alphaz echx echy echz / ) (list (list (* echx (cos alphaz) (cos alphay)) (- (sin alphaz)) (sin alphay) (car dpt) ) (list (sin alphaz) (* echy (cos alphaz) (cos alphax)) (- (sin alphax)) (cadr dpt) ) (list (- (sin alphay)) (sin alphax) (* echz (cos alphax) (cos alphay)) (caddr dpt) ) (list 0.0 0.0 0.0 1.0) ) ) (defun c:box_text ( / ent_txt dxf_ent ins_point ht_txt lg_box ht_box ang_box pt_just lst_box transform diag_box sv_osm sv_cmd sv_blp cur_col mask_txt) (while (null (setq ent_txt (entsel "\nChoix d'un MultiTEXTE ou TEXTE: ")))) (setq dxf_ent (entget (car ent_txt))) (cond ((and (equal (assoc 210 dxf_ent) '(210 0.0 0.0 1.0)) (eq (cdr (assoc 0 dxf_ent)) "MTEXT")) (setq ins_point (cdr (assoc 10 dxf_ent)) ht_txt (/ (cdr (assoc 40 dxf_ent)) 5.0) lg_box (cdr (assoc 42 dxf_ent)) ht_box (cdr (assoc 43 dxf_ent)) ang_box (cdr (assoc 50 dxf_ent)) pt_just (cdr (assoc 71 dxf_ent)) ) (setq lst_box (list (list (- ht_txt) ht_txt 0.0) (list (+ lg_box ht_txt) ht_txt 0.0) (list (+ lg_box ht_txt) (- 0.0 ht_box ht_txt) 0.0) (list (- ht_txt) (- 0.0 ht_box ht_txt) 0.0) ) ) (cond ((eq pt_just 1) (setq transform (v_matr (list 0.0 0.0 0.0) 0.0 0.0 0.0 1.0 1.0 1.0)) ) ((eq pt_just 2) (setq transform (v_matr (list (- (/ lg_box 2.0)) 0.0 0.0) 0.0 0.0 0.0 1.0 1.0 1.0)) ) ((eq pt_just 3) (setq transform (v_matr (list (- lg_box) 0.0 0.0) 0.0 0.0 0.0 1.0 1.0 1.0)) ) ((eq pt_just 4) (setq transform (v_matr (list 0.0 (+ (/ ht_box 2.0)) 0.0) 0.0 0.0 0.0 1.0 1.0 1.0)) ) ((eq pt_just 5) (setq transform (v_matr (list (- (/ lg_box 2.0)) (/ ht_box 2.0) 0.0) 0.0 0.0 0.0 1.0 1.0 1.0)) ) ((eq pt_just 6) (setq transform (v_matr (list (- lg_box) (/ ht_box 2.0) 0.0) 0.0 0.0 0.0 1.0 1.0 1.0)) ) ((eq pt_just 7) (setq transform (v_matr (list 0.0 ht_box 0.0) 0.0 0.0 0.0 1.0 1.0 1.0)) ) ((eq pt_just 8) (setq transform (v_matr (list (- (/ lg_box 2.0)) ht_box 0.0) 0.0 0.0 0.0 1.0 1.0 1.0)) ) ((eq pt_just 9) (setq transform (v_matr (list (- lg_box) ht_box 0.0) 0.0 0.0 0.0 1.0 1.0 1.0)) ) ) (setq lst_box (mapcar '(lambda (x) (transpts x transform)) lst_box)) (setq transform (v_matr (trans ins_point 0 1) 0.0 0.0 (- ang_box) 1.0 1.0 1.0)) (setq lst_box (mapcar '(lambda (x) (transpts x transform)) lst_box)) ) ((and (equal (assoc 210 dxf_ent) '(210 0.0 0.0 1.0)) (eq (cdr (assoc 0 dxf_ent)) "TEXT")) (setq diag_box (textbox dxf_ent) ins_point (cdr (assoc 10 dxf_ent)) ht_txt (/ (cdr (assoc 40 dxf_ent)) 5.0) ang_box (cdr (assoc 50 dxf_ent)) ) (setq lst_box (list (list (- (caar diag_box) ht_txt) (- (cadar diag_box) ht_txt) 0.0) (list (+ (caadr diag_box) ht_txt) (- (cadar diag_box) ht_txt) 0.0) (list (+ (caadr diag_box) ht_txt) (+ (cadadr diag_box) ht_txt) 0.0) (list (- (caar diag_box) ht_txt) (+ (cadadr diag_box) ht_txt) 0.0) ) ) (setq transform (v_matr ins_point 0.0 0.0 (- ang_box) 1.0 1.0 1.0)) (setq lst_box (mapcar '(lambda (x) (transpts x transform)) lst_box)) (setq lst_box (mapcar '(lambda (x) (trans x 0 1)) lst_box)) ) (T (princ "\nN'est pas un TEXTE/TEXTE MultiLigne, ou non parallèle au SCG.") (setq lst_box nil) ) ) (cond (lst_box (setq sv_osm (getvar "osmode") sv_cmd (getvar "cmdecho") sv_blp (getvar "blipmode") cur_col (getvar "CECOLOR") ) (setvar "cmdecho" 0) (setvar "blipmode" 0) (setvar "osmode" 0) (setvar "CECOLOR" "255") (command "_.solid" (car lst_box)) (setq lst_box (cdr lst_box)) (repeat 3 (command (car lst_box)) (setq lst_box (reverse (cdr lst_box))) ) (command "") (setq mask_txt (entlast)) (setvar "CECOLOR" cur_col) (command "_.draworder" (cdar dxf_ent) "" "_above" mask_txt) (setvar "cmdecho" sv_cmd) (setvar "blipmode" sv_blp) (setvar "osmode" sv_cmd) (princ "\nCadre de texte colorisé en gris/blanc - 255") ) ) (princ) ) Je ne sais plus de qui est ce Lisp, désolé ! Une idée ? [Edité le 12/4/2008 par lili2006]

Re, Absolument parfait ! Merci encore (gile). pascool , merci de ta réponse mais c'est exactement les manips que je voulais éviter ! , cela dépend de la configuration que tu as donné à ta souris, et moi, je ne peux pas utiliser comme cela,... Merci à vous deux.

Bonjour à toutes et tous, Crois-tu, (gile), que cette technique de choix par BD est possible pour ton très fameux outil "Spécial-Selection" ? A ce propos, une remarque, ou constat chez moi (V2008 pleine) => SSC, aprés choix de la couleur me selectionne quasiment toutes les entités à l'écran si je selectionne un bloc ou une hachure?? (Surement fait expres,...!) [Edité le 12/4/2008 par lili2006]

Re, J'ai retélécharger l'ensemble,ça fonctionne sans problème. Merci encore (gile)

Re, Je viens de tester, voilà le résultat => Est-ce due à la selection ? Merci d'avance.

Re, Merci (gile).

Bonjour à toutes et tous, J'essaie de comprendre l'utilisation du Lisp "tatouage" de Bonuscad sans succès. Quelqu'un pourrait éclairer ma lanterne ? Merci d'avance. Au passage, si Bonuscad lis ce post, j'ai également un problème sur l'utilisation du lisp "METREPL" qui permet de faire un métré de polyligne. Voici ce que me retourne AutoCAD (V2008 pleine!) =

Bonjour à toutes et tous, Suivant la configuration de la souris, je suis obligé de passer par "outils => Editeur de bloc" pour éditer un boc avec attributs et celle-ci n'est pas très pratique dans la mesure ou il faut selectionner le bloc avec attribut(s) en question dans un déroulant. <!--url{0}--> Ne serait-il pas possible de le selectionner directement à l'écran, un peu comme cette BD de (Gile) ? <!--url{1}--> Merci d'avance.

Re, En retestant les fonctions, AutoCAD me retourne ce message quand je veux utiliser PLINE_BLOCK : . Une idée ? ps : Le DCL fait bien partie des fichiers supports ?! [Edité le 12/4/2008 par lili2006]

Bonjour à toutes et tous, Quelqu'un avait écrit une routine se lançant avec " CPL" qui permettait de faire du nettoyage de polylignes. Il me semble que Gile et Lecrabe y avaient participés (peut-être moi également !?). Après moulte recherche, impossible de la retouver et évidement, j'en aurai besoin au plus tôt,... Merci d'avance à ceux qui chercherons.