DenisHen

Bonjour, Mille mercis Bruno, Denis...

Bonjour à tous, Voilà, j'ai fais quelques petits bout de LiSP et je me pose toujours une question, Pourquoi AutoCAD répète-t-il toujours le dernier princ ? exemple, dans cette macro : (defun c:DHConfEtiqPTRL (/) (if (or (= (vlax-ldata-get "DenisH" "EtiqPTRL_XY") nil) (= (vlax-ldata-get "DenisH" "EtiqPTRL_XY") "") ) ;_ Fin de or (vlax-ldata-put "DenisH" "EtiqPTRL_XY" "O") ) ;_ Fin de if (setq EtiqXY (vlax-ldata-get "DenisH" "EtiqPTRL_XY")) ; (if (or (= (vlax-ldata-get "DenisH" "EtiqPTRL_Z") nil) (= (vlax-ldata-get "DenisH" "EtiqPTRL_Z") "") ) ;_ Fin de or (vlax-ldata-put "DenisH" "EtiqPTRL_Z" "O") ) ;_ Fin de if (setq EtiqZ (vlax-ldata-get "DenisH" "EtiqPTRL_Z")) ; (initget 1 "Oui Non") (setq EtiqXY (getkword "\nÉcrire l'X et l'Y [Oui/Non] ? ")) (initget 1 "Oui Non") (setq EtiqZ (getkword "\nÉcrire le Z [Oui/Non] ? ")) (vlax-ldata-put "DenisH" "EtiqPTRL_XY" (strcase EtiqXY)) (vlax-ldata-put "DenisH" "EtiqPTRL_Z" (strcase EtiqZ)) (princ (strcat "\n\nConfiguration actuelle : Étiquette XY = " (vlax-ldata-get "DenisH" "EtiqPTRL_XY") " Étiquette Z = " (vlax-ldata-get "DenisH" "EtiqPTRL_Z") ) ;_ Fin de strcat ) ;_ Fin de princ ) ;_ Fin:defun AotuCAD me répète la dernière ligne : Je ne saisi pas trop... Denis...

Re, Bon, je pense que ça devient trop compliqué pour moi. J'ai donc fais deux "commandes", - une qui effectue la "Configuration" des étiquettes : DHConfEtiqPTRL - l'autre qui lance la commande pour inserer le Mtext : Rens_PTRL. J'ai donc maintenant pour configurer : (defun c:DHConfEtiqPTRL (/) (if (or (= (vlax-ldata-get "DenisH" "EtiqPTRL_XY") nil) (= (vlax-ldata-get "DenisH" "EtiqPTRL_XY") "") ) ;_ Fin de or (vlax-ldata-put "DenisH" "EtiqPTRL_XY" "O") ) ;_ Fin de if (setq EtiqXY (vlax-ldata-get "DenisH" "EtiqPTRL_XY")) ; (if (or (= (vlax-ldata-get "DenisH" "EtiqPTRL_Z") nil) (= (vlax-ldata-get "DenisH" "EtiqPTRL_Z") "") ) ;_ Fin de or (vlax-ldata-put "DenisH" "EtiqPTRL_Z" "O") ) ;_ Fin de if (setq EtiqZ (vlax-ldata-get "DenisH" "EtiqPTRL_Z")) ; (initget 1 "Oui Non") (setq EtiqXY (getkword "\nÉcrire l'X et l'Y [Oui/Non] ? ")) (initget 1 "Oui Non") (setq EtiqZ (getkword "\nÉcrire le Z [Oui/Non] ? ")) (vlax-ldata-put "DenisH" "EtiqPTRL_XY" (strcase EtiqXY)) (vlax-ldata-put "DenisH" "EtiqPTRL_Z" (strcase EtiqZ)) (princ (strcat "\n\nConfiguration actuelle : Étiquette XY = " (vlax-ldata-get "DenisH" "EtiqPTRL_XY") " Étiquette Z = " (vlax-ldata-get "DenisH" "EtiqPTRL_Z") ) ;_ Fin de strcat ) ;_ Fin de princ ) Et pour créer le MText : (defun c:Rens_PTRL (Calq / Txt_Alti Alti TxtProf Prof Zgs pt_ins Text ClaqCourant X Y pt_ins_Txt angl_Txt) (princ "\nInsertion d'étiquette X,Y,Z,Pf,Zgs depuis Alti et Prof") (setq old_osmd (getvar "osmode") old_abase (getvar "angbase") old_adir (getvar "angdir") old_aunits (getvar "aunits") old_osmode (getvar "osmode") ) ;_ Fin de setq (setvar "osmode" 1) (setvar "angbase" 0) (setvar "angdir" 0) (setvar "cmdecho" 0) (setvar "aunits" 0) (setvar "osmode" 1) ; (if (= (vlax-ldata-get "DenisH" "EtiqPTRL_XY") nil) (vlax-ldata-put "DenisH" "EtiqPTRL_XY" "OUI") ) ;_ Fin de if (setq EtiqXY (vlax-ldata-get "DenisH" "EtiqPTRL_XY")) ; (if (= (vlax-ldata-get "DenisH" "EtiqPTRL_Z") nil) (vlax-ldata-put "DenisH" "EtiqPTRL_Z" "OUI") ) ;_ Fin de if (setq EtiqZ (vlax-ldata-get "DenisH" "EtiqPTRL_Z")) ; ; (setq Txt_Alti (entsel "\nSélectionner l'altitude")) ;) (setq Txt_Alti (car Txt_Alti)) (wcmatch (cdr (assoc 0 (setq elst (entget Txt_Alti)))) "*ALTI") (setq Alti (cdr (assoc 1 elst))) (setq Txt_Prof (car (entsel "\nSélectionnez la profondeur :"))) (wcmatch (cdr (assoc 0 (setq elst (entget Txt_Prof)))) "*PROF") (setq Prof (cdr (assoc 1 elst))) (setq Zgs (rtos (- (atof Alti) (atof Prof)) 2 2)) (princ (strcat "\nZgs=" Zgs)) (setvar "osmode" 1) (setq pt_ins (getpoint "\nPoint du PTRL : ")) (setvar "osmode" 0) (setq CalqCourant (strcat Calq "_ETIQ")) (princ "\nCalque courant : ") (princ CalqCourant) (command "-calque" "e" CalqCourant "") (setq X (rtos (car pt_ins) 2 2)) (setq Y (rtos (cadr pt_ins) 2 2)) (setq pt_ins_Txt (getpoint "\nPoint d'insertion du texte : ")) (command "_.line" pt_ins pt_ins_Txt "") (setq angl_Txt (getangle pt_ins_Txt "\nOrientation du texte : ")) (setq angl_Txt (/ (* angl_Txt 180) pi)) (setq Ins (getstring "\nChoix de la justification du texte (HG, HD, BG, BD...) : ") ;_ Fin de getstring ) ;_ Fin de setq ;(princ "\Choix du point d'insertion : ") (if (= (vlax-ldata-get "DenisH" "EtiqPTRL_XY") "OUI") (setq Text (strcat "X=" X "\\PY=" Y "\\P")) (setq Text "") ) ;_ Fin de if (if (= (vlax-ldata-get "DenisH" "EtiqPTRL_Z") "OUI") (setq Text (strcat Text "Z=" Alti "\\P")) ) ;_ Fin de if (setq Text (strcat Text "Pf=" Prof "\\PZgs=" Zgs) ;_ Fin de strcat ) ;_ Fin de setq (command "textstyle" "Etiquette") (command "_.-MTEXT" pt_ins_Txt "R" angl_Txt "J" Ins pt_ins_Txt Text "") ;_ Fin de command ;_ Fin de command ;_ Fin de command ;(princ "\nEtiquette Ok") ;Réaffectation des variables AutoCAD (setvar "osmode" old_osmd) (setvar "angbase" old_abase) (setvar "angdir" old_adir) (setvar "aunits" old_aunits) (setvar "osmode" old_osmode) (princ) ) La commande "Rens_PTRL" se lance comme ça : ^C^C(c:Rens_PTRL "DET_RES_CHA") Ou "DET_RES_CHA" équivaut au début du futur nom du calque qui sera "DET_RES_CHA" + _"ETIQ". Et merci encore à tous, Denis...

Bonjour à tous, Voilà ce que j'ai "réussi" à faire : (if (= (vlax-ldata-get "DenisH" "EtiqPTRL_XY") nil) (vlax-ldata-put "DenisH" "EtiqPTRL_XY" "O") ) ;_ Fin de if (setq EtiqXY (vlax-ldata-get "DenisH" "EtiqPTRL_XY")) ; (if (= (vlax-ldata-get "DenisH" "EtiqPTRL_Z") nil) (vlax-ldata-put "DenisH" "EtiqPTRL_Z" "O") ) ;_ Fin de if (setq EtiqZ (vlax-ldata-get "DenisH" "EtiqPTRL_Z")) ; (while (/= (type Txt_Alti) 'LIST) (initget "Configurer") (if (not (setq Txt_Alti (entsel "\nSélectionner l'altitude ou [Configurer] <Configurer>"))) (setq Txt_Alti "Configurer") ) ;_ Fin de if (if (= Txt_Alti "Configurer") (progn (initget 1 "Oui Non") (setq EtiqXY (getkword (strcat "\nÉcrire l'X et l'Y [Oui/Non] ? <" EtiqXY ">"))) (if (/= EtiqXY "") (setq EtiqXY (vlax-ldata-get "DenisH" "EtiqPTRL_XY" EtiqXY)) ) ;_ Fin de if (initget 1 "Oui Non") (setq EtiqZ (getkword (strcat "\nÉcrire le Z [Oui/Non] ? <" EtiqZ ">"))) (if (/= EtiqZ "") (setq EtiqZ (vlax-ldata-get "DenisH" "EtiqPTRL_Z" EtiqZ)) ) ;_ Fin de if ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de while (setq Txt_Alti (car Txt_Alti)) Deux petites choses que je ne comprend pas, 1. lorsque je fais [Entrer] à la première question "Sélectionner l'altitude ou [Configurer] <Configurer>", Il passe bien à la suite, mais si je fais [Entrer] quand il me demande Oui/Non, je dois obligatoirement entrer une réponse, il n'accèpte pas "rien" pour ne pas changer la réponse par défaut. Ca devrait ce régler dans le (iniget. 2. si je sélectionne directement une altitude (un texte) il me répond : Je pense que c'est le Txt_Alti que j'interprète mal... Mais je ne sais pas trop où... Zébulon : mes vlax-ldata- sont inclus dans le DWG. Merci encore à tous. Denis... PS : j'aimerais savoir s'il y a un moyen d'intéroger toutes les vlax-data d'un DWG. ReDenis...

Re à tous, Merci à toi Vincent, et aux autres aussi, mais avec tous ces nil, T, If, Cond, Or ou encore And, en ajoutant à celà des parenthèses dans tous les sens... J'avoue que je m'y perd sérieusement. Je vais essayé d'expliquer ce dont j'ai besoin, j'ai commencé la programmation avec le Pascal (très peu), le Turbo Pascal, puis la Basic, le Turbo Basic et ensuite avec VB5, VB6 et VBA... Je suis donc très loin de la "logique" LiSP... Bien qu'elle reste assez "pure" et extrèmement efficace... Voici : (setq EtiqXY (vlax-ldata-get "DenisH" "EtiqPTRL_XY" EtiqXY)) (setq EtiqZ (vlax-ldata-get "DenisH" "EtiqPTRL_Z" EtiqZ)) (while (or (/= (type Txt_Alti) 'LIST) (/= (cdr (assoc 0 (entget (car Txt_Alti)))) "LINE")) (initget "Configurer") (if (not (setq Txt_Alti (entsel "\nSélectionner l'altitude ou [Configurer] <Configurer>"))) (setq Txt_Alti "Configurer") ) (Si Txt_Alti n'est pas une entité sélectionnée (Alors ((Si Txt_Alti = "Configuration" ET EtiqXY <> "") (si oui demander Oui ou Non et proposer l'ancienne réponse par défaut) (si non exiger une réponse, Oui OU Non) ) ((Si Txt_Alti = "Configuration" ET EtiqZ <> "") (si oui demander Oui ou Non et proposer l'ancienne réponse par défaut) (si non exiger une réponse, Oui OU Non) ) (Si non (setq Txt_Alti (car Txt_Alti)) ) Je ne vois pas trop comment m'en sortir sans If... Mais avec le LiSP, je ne m'en sors pas tellement... J'y verais peut-être plus clair lundi. Bien concentrer sur le problème... Bien qu'au boulo, ils ne voient pas l'intérêt des "programmations"... Ils ne comprennent pas le gain de temps et l'absence de sources d'erreur dûe à l'entrée de données manuellement. Je préfère pour ma part, utiliser les données brutes du terrain plutôt que de les resaisir à la main... Qui est, on le sait tous, une abération... Sur ce, bon week-end à tous et vive les BBQ... C'est la saison... Merci encore à tous, Denis...

Merci à tous, Voilà, le code de Vincent fonctionne nikel, je l'ai donc adapté à mes besoins... Ce n'est qu'un début, mais j'ai maintenant ça : (setq EtiqXY (vlax-ldata-get "DenisH" "EtiqPTRL_XY" EtiqXY)) (setq EtiqZ (vlax-ldata-get "DenisH" "EtiqPTRL_Z" EtiqZ)) (while (/= (type Txt_Alti) 'LIST) (initget "Configurer") (if (not (setq Txt_Alti (entsel "\nSélectionner l'altitude ou [Configurer] <Configurer>"))) (setq Txt_Alti "Configurer") ) ;_ Fin de if (princ (strcat "\nTxt_Alti 1 =" Txt_Alti)) (if (= Txt_Alti "Configurer") (progn (if (/= EtiqXY "") (progn (initget 1 "Oui Non") (setq EtiqXY (getkword (strcat "\nÉcrire l'X et l'Y [Oui/Non] ? <" EtiqXY ">"))) (if (= EtiqXY "") (setq EtiqXY (vlax-ldata-get "DenisH" "EtiqPTRL_XY" EtiqXY)) ) ;_ Fin de if ) ;_ Fin de progn (progn (initget 1 "Oui Non") (setq EtiqXY (getkword (strcat "\nÉcrire l'X et l'Y [Oui/Non] ? <Oui>"))) (if (= EtiqXY "") (setq EtiqXY (vlax-ldata-put "DenisH" "EtiqPTRL_XY" EtiqXY)) ) ;_ Fin de if ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de while Mais quand je clique une altitude, AutoCAD me répond : Et quand je confirme pour accéder à la configuration : Je pense que c'est mon "(if (/= EtiqXY "")" qui doit déconner... Bon, je vous dis à tous "Excellent week-end", je verrai ça lundi, si je ne bidouille pas ce week-end... Et encore merci... Denis...

Re, J'ai beau essayer, je n'arrive à rien, j'ai écris ça, qui est un mixe de l'ancienne macro et des conseils que j'ai trouvés dans le lien ci-dessus : (InitGet 128) (setq Rep (entsel "\nCliquer sur une altitude ou entrer 'C' pour configurer : ")) (cond ((= (type Rep) 'STR) (setq Config Rep)) ((= (type Rep) 'LIST) (progn (wcmatch (cdr (assoc 0 (setq elst (entget Rep)))) "*ALTI") (setq Alti (cdr (assoc 1 elst))) ) ;_ Fin de progn ) ; ) ;_ Fin de cond Quand je clique sur une Altitude (dans un calque "*ALTI"), AutoCAD me répond : Et quand je tape "C", il me répond : J'avoue que j'atteind mes limites là. Je ne sais pas trop adapter "Entsel_Getstring" ni "GetEntStr" à mon besoin... Si quelqu'un a déjà une réponse, je suis preneur... Denis...

Bonjours bonuscad, Merci pour cette réponse, je vais de ce pas faire cette recherche... Denis...

Bonjour à tous, Voilà, j'ai fait une macro qui demande à l'utilisateur de : 1. cliquer un texte (une altitude), 2. cliquer un autre texte (une profondeur), 3. de cliquer un point (début de la future ligne de rappel), 4. de cliquer un autre point (fin de la ligne de rappel et insertion d'un Mtext qui comportera plusieurs de renseignements), 5. cliquer la direction du Mtext (orientation du MText). Cette macro peut placer ce Mtext avec, au plus complet : X=... Y=... Z=... Prof=... Zgs=... (ou Zgs est la génératrice supérieure, Zgs=Alti-Prof) Mais, à la première demande, j'aimerais laisser le choix pour, soit cliquer l'altitude, soit taper "C" pour "Configurer" le nombre de données comprises dans le MText. Car parfoit, on n'a pas besoin de l'X et de l'Y voir même du Z. Le MText sera donc : Z=... Prof=... Zgs=... Voir aussi, Prof=... Zgs=... La première demande à l'utilisateur se fait : (setq Txt_Alti (car (entsel "\nSélectionnez l'altitude :"))) Mais j'aimerai qu'elle soit plutôt comme ça : (setq Txt_Alti (car (ent??? "\nSélectionnez l'altitude ou taper C pour configurer l'étiquette :"))) Les questions de configurations seront simples : Indiquer l'X et l'Y ? <Oui>/Non : Indiquer le Z ? <Oui>/Non : Je placerai les différentes réponces avec "vlax-ldata" dans le dessin pour les réutiliser plus tard sans reconfigurer à chaque lancement de la macro. Je n'ai rien trouvé dans le formidable "Introduction à AutoLISP" de (gile). J'espère être assez claire... Merci d'avance, Denis

Salut, De toutes façons, il ne faut jamais installer un nouveau Windows sans, au minimum, un Service Pack pour corriger les centaines de bugs Microsoft... Personnellement, j'attend toujours les retours d'expériences des autres, plus compétents que moi, pour ce genre de choses. A moins de se faire une puissante sauvegarde pour pouvoir réinstaller une version précédente du système qui tournait correctement. Mais ce n'est que mon point de vue... Denis...

Bonjour à tous, Voici mon LiSP mais je n'ai pas eu le temps d'intégrer vos remarques... Denis...

Au temps pour moi... En relisant mon post, je me suis rendu compte que je confondais deux LiSP sur lesquels je travail en ce moment... Celui-ci concerne une macro qui créé un texte multiligne avec différents renseignements commes des côtes tampons et/ou radiers... Désolé pierrevigneux... Denis...

Dès que le l'ai fini, je le posterais... Il n'est pas compliqué, c'est pour le placement de PTRL (point de cotation d'une détection de réseaux souterrains), on lance la commande avec un paramètre (le début du nom du calque) puis, on clique sur l'altitude terrain, on clique sur la profondeur et ensuite, on pointe l'insertion du PTRL (avec deux étiquettes : la profondeur et le Z de la génératrice supérieur) puis on clique sur un segment d'une polyligne pour avoir la direction des textes à insérer et du bloc PTRL, et ensuite, on n'a plus qu'à placer la profondeur et le ZGS. Le tout se rangeant dans les bon calques : paramètre + "_PTRL" pour le bloc, paramètre + "_PROF" pour la profondeur, paramètre + "_ZGs" pour la génératrice supérieure. Je ferais un petit bout d'explication et j'essairais aussi de commenter mon code... Denis...

Salut à tous, Merci beaucoup pour vos aides, je testerais tout ça demain... Denis...

Bonjour à tous... Voilà, j'ai fais un petit bout de LiSP qui fait un texte multiligne avec des renseignements des diverses côtes d'un Tampon (X, Y, Z, Radier 1, Radier 2...). Mon LiSP demande les coordonnées du tampon en cliquant sur son centre, puis demande l'endroit de l'insertion de l'étiquette et ensuite, demande la rotation du texte multiligne... C'est là que je cale... Voici un bout de mon code : (setvar "osmode" 1) (setvar "angbase" 0) (setvar "angdir" 0) (setvar "cmdecho" 0) (setvar "aunits" 0) (setvar "osmode" 1) (setq pt_ins (getpoint "\nPoint à coter : ")) (setq X (rtos (car pt_ins) 2 2)) (setq Y (rtos (cadr pt_ins) 2 2)) (setvar "osmode" 0) (setq pt_ins_Txt (getpoint "\nPoint d'insertion du bloc : ")) (command "_.line" pt_ins pt_ins_Txt "") (setq angl_Txt (getangle pt_ins_Txt "\nOrientation du bloc : ")) (setq angl_Txt (/ (* angl_Txt 200) pi)) (setq ZOld (getreal "\nEntrez l'ancien Z tampon : ")) (setq ZNew (getreal "\nEntrez le nouveau Z tampon : ")) (setq Text (strcat "X=" X "\\PY=" Y "\\PZ=" (rtos ZNew 2 2) ) ;_ Fin de strcat ) ;_ Fin de setq (princ Text) .......... (command "_.-MTEXT" pt_ins_Txt "R" angl_Txt pt_ins_Txt Text "") Le problème est que mon angle de rotation du texte n'est pas le même entre le "getangle" et la rotation du MText lors de l'exécution de "command"... J'ai essayé divers méthodes (radian, degrés, grades...) mais rien n'y fait... Si quelqu'un a une idée, je suis preneur... Denis...

Salut à tous, Il me semble que la largeur d'une polyligne (si j'ai bien compris) ne supprote aucune mise à l'échelle... Si elle est de 0.20, elle sera visible dans les grandes échelles au delà du 1/500 mais quasiment invisible au dessous, dans les plus petites échelles... En faitn telle qu'elle apparait dans l'EP. Si tu veux qu'elles soient visibles quelle que soit l'échelle, il me semble qu'il n'y a pas d'autre alternative que l'épaisseur de ligne que tu peut régler : - soit dans les propriété de l'objet (et là, tous ce qui est "trait" peut être paramétrable, ex cercles ; lignes ; polylignes ; mêmes certains texte en police SHX...) - soit dans la propriété du calque (ce que j'utilise, vachement pratique). De cette façon, peut importe l'échelle du tracer... Elle feront toujours l'épaisseur désirée... Donc, visibles... C'est un peut comme les hachures... Trop serrées ça fait comme un solide, trop espacées, on ne les distingues plus correctement et on peut les interpréter commes des traits à la lecture du plan... Sauf que pour les "traits", AutoCAD peut gérer leur épaisseurs suivant le repport... Perso, il y a longtemps que j'utulise les épaisseurs de lignes, avec un peu d'entrainement, on s'y retrouve assez vite... Mais tu peux aussi, je pense, passer par un CTB (ou STB, je ne sais plus) à l'impression, en variant l'épaisseur de la plume... je te dis ça de tête, je n'ai pas AutoCAD sous le coude pour vérifier... Et je cours vers l'apéro... ;) Denis...

Ouais, Lambert zone 3 SUD et surtout pas CARTO... Mais ça se passe sur MAP ça, non ? Denis...

Ben moi je bosse, et pour l'implication de cette loi à mon boulo... Mais alors... Je ne peut même pas expliquer à quel point ils s'en foutent... Nous on bosse et eux... Ils sont encore en vacances... Depuis deux mois.... Pendant qu'on trime et qu'on fait vivre la boite... J'ai parfois des envies d'EI... Denis...

A Troyes, on est 5 à bosser... Sur 20 personnes ! ! ! On aura pas besoin de toucher de retraite dans 20 ans, puisqu'on bossera jusqu'à en creuver... :angry: Denis...

Mes sauvegardes automatiques sont réglées à 10 minutes, et les désélections ont l'air de se passer toutes les minutes...

Oops... C'est la SP2 pour AutoCAD, pas Windows... Au temps pour moi, et merci Olivier... Denis...

Une réparation... Depuis le menu d'installation ? Non, je n'ai pas pensé jusque là...

Oui, c'est justement avec ce type de manoeuvre que parfois, juste avant que je change une propriété, tout se désélectionne, pouf, comme-ça, sans rien dire... C'est super chiant ! ! Denis...

Bonjour à tous, Voilà, j'ai depuis quelques jours (juste après une MàJ Windows, comme par hasard) des problèmes avec mon AutoCAD. J'ai donc sauvegardé toutes mes variables dans un fichier SVF à l'aide de la commande _.sysvdlg d'ExpressTools. Je ne comprend pas pourquoi il me pose problème lorsque j'importe ma sauvegarde : Et lorsque je tape ces variables dans AutoCAD, il me propose la bonne orthographe mais m'écrit ensuite "Commande inconnue"... Quelqu'un aurait-il une explication ? Denis...

Bonjour à tous, Voilà, dans Map 2014, j'ai des petits trais qui apparaissent autour de mes blocs, aussi bien dans mon dessin que dans les Xrefs... Il doit il y avoir une variable à modifier mais je ne sais pas laquelle... Si quelqu'un a une réponse, je suis preneur... Denis...