DenisHen

Ben ce n'est pas le même rapport entre les triangles semblables ? le triangle vert est semblable au cyan... Ou alors je me plante...

Re. J'ai ajouté à mes routines "Changement de projection d'un DWG". Elle fonctionne sur MAP, mais pour les autres AutoCAD, je n'en sais rien... Si je pouvais avoir un petit retour, ce serait cool... ;) Denis...

Salut à tous... J'ai "amélioré" ma commande "Cotation XYZ" qui propose maintenant l'option d'avoir un cadre (complet ou stylisé) autour des coordonnées ou pas... Merci à (gile) pour calculer les quatre coins d'un MText... Je viens de mettrte mes routines à jour sans avoir demandé l'accord de (gile) pour utiliser son bout de code qui calcul ces quatre coins... (gile), ai-je ton accord post-publication ? ;) Denis...

Bon, j'ai résolu tant bien que mal mon problème... J'ai maintenant "insérer" la routine de (gile) DANS la mienne... Je poste le résultat dans mes routines partagées (elle se nomme "Cotation XYZ" en neuvième position)... Encore merci messieurs...

Salut. La surface n'est pas proportionnelle aux longueurs ? Enfin, à une longueur... Comme si tu avais deux triangles semblables ?

J'ai résolu une partie de mon problème, c'est la ligne du olst qui faisait planter... Du coup, j'ai : (setq plst (text2box-plst (entget (entlast)) 0.1)) Et je n'ai plus de ligne d'erreur "...lentityp nil" Mais plst est vide lorsqu'il revient de Text2box-plst. Pourtant, toutes mes variables sont déclarées...

Re, et merci encore... @(gile) : j'avais aussi essayé 0.1 au lieu de "0.1", mais j'ai la même erreur. A la fin de ton code Text2box-plst, plst est bon, c'est bien une liste de coordonnées XY. Mais au retour dans le mien, j'ai toujours "; erreur: type d'argument incorrect: lentityp nil" et je n'arrive pas à me l'expliquer... :unsure: @didier : je sais bien, je travaille aussi chez moi, mais je trouve difficilement le temps pour du boulo à la maison. Il y a quelques années, j'en avais du temps, c'est là que j'ai commencé à apprendre le Lisp (en plus du VBA, LibreOffice-Basic...). Mais maintenant, mon emploi du temps est plutôt "serrer"... Je dois privilégier ma santé et la famille... C'est comme en cuisine, je suis à l'aise pour accommoder les restes, mais incapable de faire un plat en sauce... Merci encore à vous deux...

Bonjour à tous. @(gile) : merci à toi, mais avec le code que tu viens de me donner, AutoCAD me répond : Alors que dans la console j'ai bien une liste de coordonnées : Et oui, pour une fois, j'ai pensé à bien déclarer mes variables dans les deux routines. Comme tu me l'a fais souvent remarquer. ;) @didier : je suis à 100% d'accord avec toi, c'est vrai que le copier/coller n'apprend qu'à se servir de la souris. Mais je fais du LISP en "clandestin", je ne suis que dessinateur (je sais, je ne suis pas le seul dans ce cas), mais je ne peux pas "comptabiliser" mon temps dans le secteur R&D, donc, je fais de mon mieux... Et on est tous dans ce cas. Et oui, je t'en sais gré... ;) En tous cas, merci à vous deux... PS : Je viens de voir un truc bizarre, quoi que je fasse, plst est toujours pareil...

Re, Voilà, j'ai bien observé le Lisp de (gile) (et oui, ç'est coton pour un novice comme moi de décortiquer un code de Maître (gile) avec ses mapcar, lambda...), mais je bloque. J'ai bien isolé son code : ;; Text2Box-plst (gile) ;; Retourne la liste des sommets (coordonnées SCO) de la boite englobant le texte après décalage ;; ;; Arguments ;; elst : liste DXF de l'entité ;; of : distance de décalage (defun Text2box-plst (elst of / nor ref rot wid hgt jus org box plst) (if (= "MTEXT" (cdr (assoc 0 elst))) (setq nor (cdr (assoc 210 elst)) ref (trans (cdr (assoc 10 elst)) 0 nor) rot (angle '(0 0 0) (trans (cdr (assoc 11 elst)) 0 nor)) wid (cdr (assoc 42 elst)) hgt (cdr (assoc 43 elst)) jus (cdr (assoc 71 elst)) org (list (cond ((member jus '(2 5 8)) (/ wid -2)) ((member jus '(3 6 9)) (- wid)) (T 0.0) ) ;_ Fin de cond (cond ((member jus '(1 2 3)) (- hgt)) ((member jus '(4 5 6)) (/ hgt -2)) (T 0.0) ) ;_ Fin de cond ) ;_ Fin de list plst (mapcar (function (lambda (p) (mapcar '+ org p))) (list (list (- of) (- of)) (list (+ wid of) (- of)) (list (+ wid of) (+ hgt of)) (list (- of) (+ hgt of)) ) ;_ Fin de list ) ;_ Fin de mapcar ) ;_ Fin de setq (setq box (textbox elst) ref (cdr (assoc 10 elst)) rot (cdr (assoc 50 elst)) plst (list (list (- (caar box) of) (- (cadar box) of)) (list (+ (caadr box) of) (- (cadar box) of)) (list (+ (caadr box) of) (+ (cadadr box) of)) (list (- (caar box) of) (+ (cadadr box) of)) ) ;_ Fin de list ) ;_ Fin de setq ) ;_ Fin de if (setq mat (list (list (cos rot) (- (sin rot)) 0) (list (sin rot) (cos rot) 0) '(0 0 1) ) ;_ Fin de list plst (mapcar (function (lambda (p) (mapcar '+ (mxv mat p) (list (car ref) (cadr ref))) ) ;_ Fin de lambda ) ;_ Fin de function plst ) ;_ Fin de mapcar ) ;_ Fin de setq ) ;_ Fin de defun Et j'ai ceci dans le mien (de code) : (command "_.-MTEXT" Pt_ins_Txt "R" Angl_Txt "J" OptionIns "H" Haut Pt_ins_Txt Text "" ) ;_ Fin de command ;_ Fin de command (setq plst (text2box-plst (entlast) "0.1") olst (cons (vlax-ename->vla-object tx) olst) ) ;_ Fin de setq En gros, j'écris mon texte et demande ses coordonnées, mais AutoCAD me répond : J'ai beau tenter plusieurs syntaxes, rien n'y fait ! Je pense que mon erreur est dans le (entlast). Je suppose que plst est une suite ce coordonnées du type : Je tente de faire un encadrement partiel de mes coordonnées, comme celui-ci : Donc, un trait avec : - une ligne de P1 (angle P1 P2) et (/ (distance P1 P2) 2) - une ligne de P1 (angle P1 P4) et (/ (distance P1 P4) 2) et ainsi de suite pour les autres sommets... Si didier passe par là, je lui serais grès de ses observations sur les copier/coller. Même s'il a raison. ;) Je suis preneur pour toute observation, conseil, astuce...

Salut. Entièrement d'accord... Pourquoi pas à l'heure ? Une heure le matin et une le soir... Comme ça, ceux qui suivent la formation seront encore plus productifs...

Bonjour Olivier... Je ne dirais rien, mais la stupidité est désormais un trait de ma personnalité. J'ai Classic Shell sur mon Windows 8, chez moi... Mais je n'y ai pas pensé pour le boulo... Je termine le démarrage de tous mes "services" cérébraux... :(rires forts): Merci Olivier...

Bonjour à tous. Et merci à vous de m'aider. @Tramber : merci pour le truc, je ne connaissais pas cette commande... @(gile) : Merci pour ce Lisp, je m'y colle dès maintenant... Mais je sens que ça va être coton... Et bonne journée... Denis...

Salut. Je ne connaissais pas ce truc... C'est ça que j'aimerai faire, mais en créant un nouveau raccourcis, pas un qui existe déjà dans un menu divers. C'est bien dommage... C'était bien pratique... Une fois de plus Micro$oft n'en a fait qu'à sa tête...

Salut Tramber. Merci pour ton aide, mais mes Mtext sont orientés. Ils ne sont parallèle ni au SCU ni à un autre d'ailleurs. Mon plan a juste subit une rotation par un autre LISP ("Orientation du plan") : (command "_ucs" "_z" p1 p2) (setvar "snapang" (angle p1 p2)) Mais je suis toujours en coordonnées d'origine. J'espère être clair... Du coup, il me faudrait plutôt 4 coordonnées au lieu des 2 que propose ton code... Merci encore...

Bonjour à tous. Voilà (je sais, je commence toujours par "Voilà"), aujourd'hui, je cherche à perfectionner une des routines que j'ai mise à disposition dans mes routines LISP. Via une commande dans mon Lisp, je créé un Mtext en un seul point : (command "_.-MTEXT" Pt_ins_Txt "R" Angl_Txt "J" OptionIns "H" Haut Pt_ins_Txt Text "") Ou Pt_Ins_Txt est le point d'insertion du MText mais aussi le deuxième (ou dernier) point... J'aimerai, lorsque je créé ce Mtext, l'encadrer. Il me faut donc pour cela, ses quatre coordonnées. Est-ce possible ? Je pense qui oui, puisque je peut faire l'encadrement via les ExpressTools. J'ai tenté de comprendre la commande "tcircle" qui se trouve dans "acettxt.lsp" des ExpressTools, mais c'est vraiment trop complexe pour moi... Je suis preneur pour toute observation, conseil, astuce...

J'ai dû mal m'exprimer. Je cherche à ajouter une icône dans le premier menu démarrer de Windows 10, pas dans son sous-menu démarrer. J'aimerai ajouter une icône directement dans les gros icônes du menu "général".

Re. Sachant que je n'ai aucune icône sur mon bureau, comment ajouter un "menu" ou "raccourcis" dans le menu "Démarrer" de Windows 10 ?

Merci (gile) pour cette précision...

Merci Manu.Net... Encore une fois à mon secours... ;) C'est exactement ça... Mais alors, comme coup foireux de la part de Micro$oft... Chapeau... PS, à ouvrir en tant qu'Administrateur.

C'est exactement ce que je cherchais... Merci à toi... Denis...

Salut Manu.Net, et merci de me répondre. Ben en fait, je ne sais pas, j'ai 3 HotFix : - AutoCAD_2017_Hotfix_1_x64.exe (23 658Ko) - AutoCAD_2017_Hotfix_2_x64.exe (24 287Ko) - AutoCAD_2017_Hotfix_3_x64.exe ( 635Ko) et le SP1, mais c'est un collègue qui les a téléchargé et il n'est pas là de la semaine et la prochaine semaine aussi... Raison pour laquelle j'ai posté ce message...

Bonjour à tous. Voilà, depuis les débuts de Windows, et ce jusqu'à Windows 7, il y avait un menu démarrer DANS le menu démarrage. J'entend par là, que l'on pouvait placer des raccourcis dedans pour qu'ils se lancent tout seul juste après le lancement de Windows. Ce qui faisait gagner du temps lors des redémarrages. Voici une petite capture depuis un XP : Sauf que, sous Windows 10, je ne retrouve plus ce menu. Si quelqu'un sait où il se trouve, ou a une astuce, un conseil... Je suis preneur... Denis...

Bonjour à tous. Voilà, je viens d'installer AutoCAD MAP 2017 et j'ai 3 HotFix. Dois-je les installer les uns après les autres ou directement le dernier ? Denis...

Ben du coup, j'ai charger le CUIX d'AutoCAD 2014... Et ça fonctionne...

Salut à tous, et merci de m'aider. Bien vu Olivier, j'ai pu accéder à la "Modification/Suppression" d'AutoCAD MAP 2017 grace à ton astuce. Mais je n'ai rien trouvé dans "Ajouter ou Supprimer des fonctionnalités" des composant AutoCAD : Mais je n'ai rien trouvé pour télécharger les ExpressTools. Denis...