DenisHen

Encore un truc... (princ (angtos amin (getvar "AUNITS") 4))) est un angle... Comment lui ajouté 100 grades... Comme çà ? : (princ (+ 100 (atof (angtos amin (getvar "AUNITS") 4))))

Merci encore, une fois de plus, à toi Gile... Mais on ne peut s'en sortir quand on débute ! ! rtos, ok -> Real TO String Mais atof ? ? C'est vraiment pas évident... ( Alphanumérique TO Fix ? ? C'est carément pas la même chose... J'aurais plus vu : stor... non ?) J'imprime ton précieux post, Gile... Il va m'être SUPER précieux... Merci encore... Denis...

Bonsoir à tous... Je cherche l'inverse de rtos... Mais surtout les inverses de toutes commandes... pas seulement de rtos... Mais aussi de toutes les autres ( quand elles existent...) Merci d'avance... (Je sais que ce message va être lu pas beaucoup.... Je voulais juste pour faire un petit "coucou" à ceux qui m'ont aidé bien plus que nécessaire...Donc, merci à, entre autres, Patrick, Patrick_35, BonusCad, Gile, ......) Cette liste n'est pas dans l'ordre mais ils sont tous au même niveau : excellent ! ! A+

WAOW ! ! Alors là... Je suis bouche bée ! ! ! La connaissais pa celle-là ! ! Ca marche un pec ! ! ! Mille merci ! ! !

Bonsoir à tous ! ! Me revoilà ! ! Bon, j'ai du faire des progrès... Mais je ne sais pas encore de quels tailles :D Mais voilà ce qui m'amène : j'ai ce code : (if (= (setq Alti (getreal "\nAltitude tampon :")) nil) (exit)) ...... ...... (princ (rtos Alti 2 2)) Je saisie : 95.1 Et j'obtiens : 95.1 au lieu de 95.10... Je pensais que (rtos Alti 2 2) me forcerait les 2 décimales comme dans l'aide du LisP... Je me suis planté où ? Merci...

Grand bravo à toi BonusCAD ! ! C'est quaziment ce qu'il me fallait ! ! ! Sauf que les deux petits traits qui relient la polyligne d'origine et le décallée doivent être dans un autre calques. Raison pour laquelle je pensais stocker les XY des points de la Polyligne. Merci encore... Quand à Bred, merci pour tes exemples de code, je ne sais pas gérer les listes ( Grave en LisP ) mais je vais potasser ton post... Merci... Denis...

Bonsoir Je n'ai pas compris, c'est un raccord sans faire joindre ? On a à l'origine, deux polylignes (non parallèles) et on les raccorde en gardant deux entités polylignes ? MMMmmmm intéressant... À force d'habitude, je vais très vite pour le faire... Mais je le garde... Mes collègues vont surement aprécier... Quand ils auront enfin compris q'une ligne à plusieurs sommets est une polyligne ! ! ;) Merci Patrick_35... Denis...

Salut à tous... Me revoilà ! ! ! J'avais des tonnes de boulo et je m'entrainais (seul, pour une fois) au Lisp... J'avance lentement mais surement... Sauf là ;) Voilà, j'aimerais controler le dessin d'un mur. Pour parfaire ma demande, imaginez-vous dessiner un hexagone ( 2 ou 3 mètre d'arrête suffisent) avec un sommet supprimé... On a donc une polyligne ouvert à 5 sommets... Ensuite, on la décale de 20 cm. Comment faire pour dessiner un trait du premier sommet de la polyligne jusqu'au premier de la polyligne décalée... Et commant faire de-même avec le dernier sommet ? ? J'ai trouvé une solution (peut-être) que je ne parviens pas à mettre en oeuvre, mes connaissances en Lisp ne me le permettent pas encore... La voici : Tracer une suite de ligne en les ajoutant à un "(setq LineMur (ssadd))" par exemple. (setq p1 (getpoint "\nPremier point du mur : ")) (setq LineMur (ssadd)) [surligneur] while not p1 (ou un truc dans ce genre, je n'y ai pas encore réfléchi...)[/surligneur] (setq p2 (getpoint p1 "\nPoint suivant : ")) (command "_.line" p1 p2) (setq p1 p2) (setq js (ssadd (entlast) LineMur)) [surligneur]Fin du While[/surligneur] Mais avant le (setq p1 p2) stoker les coordonnées du point dans une liste (ben quoi, c'est du Lisp ? ;) ) Puis, à la fin, utiliser les deux premières coordonnées pour en sortir l'angle afin de joindre les deux débuts des polylignes( comme (- (angle p1 p2) angledroit) ou (+ (angle p1 p2) angledroit) selon le coté du décalage). Faire la même chose avec les deux dernières coordonnées pour les deux fins de ces mêmes polylignes... Je n'ai aucune idée de savoir si tous le monde comprend mon brouaha... Pour ceux qui ne cotoient pas les plans topo, il y a deux façons de dessiner un mur : - toujours 2 traits parallèles symbolisant l'épaisseur Entre ces deux traits, on peut avoir : 1. soit des hachures, 2. soit une polyligne symbolisant l'axe de ce mur (donc au milieu)... Bon, je pense avoir tout dis... Merci pour vos réponses éventuelles... Denis...

Bonsoir à tous... Je ne comprend pas très bien le "but final" JUJUZAZA, tu demande une protection contre les fautes et les erreures de manipulation ou pour que ton menu ne soit pas "piraté" ? Car chaque problème a sa solution... Mais il faut connaître le problème... MNU = Fichier créer par l'utilisateur pour les "menus déroulants" MNS = Fichier MNU compilé + barres d'outils créés dans AutoCAD MNR = Compilation des BMP (format bizard d'AutoCAD) Si je me trompe.... Recifiez.... Bon courage.... Denis...

Vichissois ? ? Woaw ? ? Et Leclerc ? ? ? Bon, trève de plaisanterie, c'est réellement un problème de mémoire (dixit Richard) ..; Surtout de la part du traceur.... Augmente sa mémoire et tu y trouvera ton salut... C'est un moyen de "fuite" et non de "résolution"... Mais fais comme tu veux...J'avais le même problème... Mais je l'ai résolu en faisant un PDF... Tout allait beaucoup mieux après... Mais rien n'éest écrit... Pdm... Denis...

Par contre, j'ai toujours 100 gr en trop dans mon angle de rotation.... J'avais déjà recontré le truc quand je copiais la "mise en forme" d'un texte sur un multi texte.... Quelqu'un aurait une petite idée ? Denis...

D'accord... La prochaine fois, j'apprend à lire ! ! Denis...

Re-bonsoir... J'ai encore des petits problèmes avec mes Mtext... Ma ligne de commande est : (command "_-mtext" pt1 "j" "mc" "_non" pt1 "h" 5 "_r" (polar pt1 rot 0) "_w" "0.00" (strcat TxtSec " n° " 55)) Mais mon mtext inclus toutes mes commandes ,les hauteurs, l'angle, même les XY du point d'insertion ! ! comme ceci : h 0.850000000000000 _r 148.6377384262874,156.8535520438333 _w 0.00 RE n° 92 Comment ce fait-ce ? Denis...

Je suis désolé Patrick_35, mais c'est trop peu pour que je puisse comprendre...Je me suis mis au Lisp depuis trop peu de temps... Mais je pense que (gile) m'a donné une voie pour m'en tirer... Faire de mon texte un block, puis l'insérer ensuite... Et là, je gèrerais la surbrillance nulle (texte invisible).... Je ne sais pas encore comment, mais je trouverai... C'était dans un autre forum... Je cherchais, en cliquant sur un segment d'une polyligne, à en sortire son angle et en faire un texte parallèle.... Je suis dessus... J'essai de m'en sortir avec les Code DXF et autre cdaadddadaddaaddrrrr 10 pour en sortir les coordonnées d'une polyligne... Je cherche... J'aurais certainnement des questions... Je suis les conseils de (gile) ( qui sont très bon.... Il ne m'en dit pas trop... Grace à lui, je cherche... et trouve...) J'y arriverai... Je le sais, Mais je sais aussi, que je n'y arriverais jamais sans vous.... Bon, je retourne au travail... Pdm... Denis...

Eh ben pas moi, les amis... Bonne nuit à vous... Denis...

Oui, j'ai déjà vu àa Gile, un MText de largeur 0 équivaut à un retour à la ligne que s'il est ordonné... ( comme un "\n") Non ? Mais le VLisp m'intérresse fortement.... Mais j'attend d'en connaitre un peu plus en Lisp.... Merci encore à vous... Mais une dernière petite question pour Patrick_35, vu qu'il connait le VLisp.... Pourqoui autant de ligne dans... (vl-load-com) (setq Doc (vla-get-ActiveDocument (vlax-get-acad-object))) (setq stylt (vla-get-ActiveTextStyle Doc)) (setq haut(vla-get-height stylt)) (vla-put-height stylt 0) C'est inévitable ? Mais j'en apprend encore trop pour l'instant pour comprendre ces finesses là... En plus, je suis en train de redessiner TOUS mes blocs.... Pour résoudre mes problèmes d'échelles dans mes Lisp.... Et je refais donc aussi TOUTES mes bibliothèques..... PFFFFFF Plus de mille sept cent et quelques blocks ! ! ! Souhaitez moi bon courage ! ! Mes blocks sont à l'échelle 1/1, si ça intéresse quelqu'un... Merci encore... Denis...

J'étais sûr que t'allais répondre ce soir.... C'est incroyable ! ! ! Fidèle au poste pour aider les pauvres débutants que nous sommes..... On aurra : (= Texte "Ligne1\nLigne2") Donc c'est ça.... Je cours vers le lien... Encore une fois... Un grand merci ! ! ! ;) Denis...

Bonsoir à tous... J'ai fais une routine qui écrit un texte simple... Mais j'ai besoin, maintenant, d'écrire aussi un multi texte... J'ai lu dans les forum comment faire pour faire apparaitre la fenêtre du MText... Mais je ne parviens pas à lui faire saisir un texte... Et qui dit multi texte, dit aussi : "retour chariot" : : (ASCII 13 ou 32)... Quelqu'un aurrait un truc ? Denis...

Merci à tous, mais je suis tombé par hazard sur une routine Express (tcircle) qui fait exactement ce que je cherche... Merci à tous.... Je vais quand-même faire un tour sur les matrices... Denis...

C'est une erreure de variable..... Je pense qu'il attend un réel... Mais c'est résolu... J'ai : (defun c:TamponTxt() (setq objet (car (entsel))) (setq ValTxt (cdr (assoc 1 (entget objet)))) ) Et AutoCAD répond : Choix de l'objet: "T=99.41" Je vais voir quoi faire avec ça... Denis...

Le petit ' (apostrophe) veut bien dire "setq" ?

WOOOUUU WWWOOOUUUWWW !! !! !! J'ai une super piste : (defun c:TamponTxt() (setq objet (car (entsel))) (setq ValTxt (cdr (assoc 1 (entget objet)))) Je continu... Denis...

Une question.... Car j'en suis venu, pour l'instant, à ça : (defun c:TamponTxt() (setq objet (car (entsel))) (setq ValTxt (cdr (assoc 1 objet))) (princ Valxt) Mais pour l'instant... Rien... Je me suis posé une question, Est-ce que Setq implique un style de variable ou tout est accepté... "10" 10 10.000 ...... ? Merci... Denis...

Ah bon ? La console donne autre chose que les variables ? ? Waow.... Merci...

Bonsoir à tous... Voilà, je cherche le texte (la valeur) d'un Text ou d'un MText... Je pense à ça : (setq dxf_ent (entget (Selection))) (setq ValTxt (cdr (assoc 1 dxf_ent)) Meis comme je super débute en "cdr et car...." et aussi en code DXF..... Merci à tous... DenisH...