jfcantin1977

Salut c'est ok j'ai trouvé... Je dois régler ce problème à partir du logiciel qui est utilisé avec autocad et cela à régler le bobo.. merci quand même

Bonjour à tous J'ai un problème pour remplir mon texte. Je dois obligatoirement utiliser un type de police et qu'elle soit rempli. Mon TextFil ets à On mon textmode est à On mon SHADEMODE est à 2D et rien ne change. Ma police reste toujours vide. Je vais sur un autre ordinatuer et le texte est plein. (Par sur tout les poste) Voyez-vous d'où peu venir le problème ?? merci de votre aide

Bonjour usegomme Je suis loin d'être un Pro en Lisp donc je ne sais pas si tu as raison.... Mais le "Bug" que j'avais c'est que je ne veux pas taper un angle en inscrivant <12d11'12" mais 12.1112 et j'ai donc du faire une convertion en Lisp afin de convertir mon angle 12.1112 en <12d11'12. Dis moi si c'est ok ??? tu peux aller voir le code que j'utlise ici http:// http://www.cadxp.com/sujetXForum-25486.htm merci P.S. Je ne susi pas au bureau, j'essais ca lundi matin et je vous redonne des nouvelles... A+

Bonjour à tous J'ai 3 étapes dans le programme que j'essais de coder. Je saisi une coordonnée (setq ptj1 (getpoint "Piquer le Point de Départ:")) Je saisi une angle (ca me donne un angle en raidan) (setq AngleRad (Jeff2Rad AngleDMS)) (defun Jeff2Rad (a / p) (setq p (vl-string-position 46 a)) (* (/ pi 180.) (+ (atoi (substr a 1 p)) (/ (atoi (substr a (+ 2 p) 2)) 60.) (/ (atoi (substr a (+ 4 p) 2)) 3600.) ) ) ) Je saisi un distance: (setq Dist (getdist "\n Entrez une Distance: ")) Ma question: Comment utiliser la command Line afin de tracer une ligne à partir de la coordonnée de départ en utilisant l'angle et la distance ?? (command "LINE" ptj1 AngleRad "") Meric de votre aide

Salut Merci Mille fois.... Effectivement je crois que je me suis lancé dans un défi un peu trop grand pour moi... Mais le code que tu m'as fait va m'aider.... Merci beaucoup.. :)

D'accord... et si j'essais de passer à côté de ce porblème et que j emodifie mon angle avec la routine à Gile et ensuite je calcul pour convertir mon angle en Radian.. Ce que j'ai essayé depuis 15 minutes... et devinez quoi... ca fonctionne pas... :( Pouvvez-vous me dire pourquoi ca ne fonctionne pas et ou ce que je fais est-il réalisable ??? Merci de votre aide c'est tres apprécié P.S. Voici le message d'erreur que j'ai: #; error: bad argument type: numberp: "12d34'56\"" (defun jeff_convert (str / pos) (setq pos (vl-string-search "." str)) (strcat "" (substr str 1 pos) "d" (substr str (+ 2 pos) 2) "'" (substr str (+ 4 pos) 2) "\"" ) ) (defun c:jeff (/ AngleDMS) (setq AngleDMS (getstring "\n Entrez une Angle DD.MMSS: ")) (setq AngleModif (jeff_convert AngleDMS)) (setq AngleRad (d2r AngleModif)) (princ AngleRad) (princ) ) ; conversion des degrés en radians (defun d2r (AngleModif) (* (/ AngleModif 180.0) pi) ) [Edité le 15/10/2009 par jfcantin1977]

Salut Le problème peut-il venir du "Setting" d'Autocad ? Pourquoi arrives-tu au bon résultat ? J'ai fais un copier coller du code et j'arrive toujours à 1.3512 Enfin, si tu vois une piste où je pourrais vérifier... Merci de ton aide

Salut merci ... J'arrive au même résultat qu'avant soit 1.3512 et non à 0.2196 toujours en prenant l'exemple que l'utilisateur mets un angle de 12.3456 Le problème vient-il du fait que la fonction angtof ne gère pas une variable "modifiée" ? merci encore

Re... J'arrive à une erreur..... Je te remontre le code avec l'ajout que tu m'a proposé. Mais je ne dois pas l'avoir mis au bon endroit... Merci vraiment poutr ton aide (defun c:Jeff () (setq AngleDMS (getstring "\n Entrez une Angle DD.MMSS: ")) (setq AngleRad (DMS2Rad AngleDMS)) (princ AngleRad) ) (defun DMS2Rad AngleDMS (str / pos) (setq pos (vl-string-search "." str)) (angtof (strcat (substr str 1 pos) "d" (substr str (+ 2 pos) 2) "'" (substr str (+ 4 pos) 2) "\"" ) 1 ) )

Bonjour Gile J'ai effectivement essayé ta routine mais étant donnée que je ne saisi pas encore compléteemnt le Lisp je n'arrive pas a utiliser ta fonction... J'ai donc essayé un autre truc qui changait ma variable pour être traité comme un numérique mais je n'y arrive pas... Donc.... Revenons à ta routine. 1. Comment coder pour entrer dans ta routine ? J'ai vu dans l'autre post que tu me disais de remplacer la variable 2. Quel est la variable qui contient mon angle modifé par ta routine ? Merci de ton aide (defun c:Jeff () (setq AngleDMS (getstring "\n Entrez une Angle DD.MMSS: ")) ) (defun DMS2Rad AngleDMS (str / pos) (setq pos (vl-string-search "." str)) (angtof (strcat (substr str 1 pos) "d" (substr str (+ 2 pos) 2) "'" (substr str (+ 4 pos) 2) "\"" ) 1 ) )

Bonjour à vous deux. Je veux que l'utilisateur entre une angle dans Autocad. L'utilisateur entrera une angle dans ce format: Degré.MinuteSeconde Par exemple: 12.3456 L'utilisateur fera la touche Enter. Je veux dans mon code qu'il transforme la valeur entré par l'utilisateur et de faire le Raidan de cet angle. Donc dans mon exemple je veux arriver à un résultat du Radian de l'angle de 12d34'56" = 0.2196 J'aurias une variabl qui aura cette valeur (0.2196) et une ligne qui affichera la réponse dans Autocad. Mon problème est que je ne sais pas comment convertir mon angle de départ en Radian Voici une partie du code. La variable result = 12d34'56" ((= nb_c 7) (strcat "" (substr AngleDMS 1 2) "d" (substr AngleDMS 4 2) "'" (substr AngleDMS 6 2) "\"" ) ) (princ (angtof result)) Est-ce plus clair ? Merci

Bonjour merci pour le code. Le probleme est que je ne dois pas mettre une valeur connu (setq a(angtos 0.219601 1 4)) C'est l'utilisateur qui choisira l'angle. [surligneur] Mon but est de convertir une variable texte (un angle) en varible numérique.[/surligneur] [surligneur] Ensuite, de prendre la variable numérique et la transformer en Radian.[/surligneur] L'angle 12d34'56" est seulement un exemple. Ton code = 77d25'4.00" ? Merci Do you speak in english ?

Bonjour ElpanovEvgeniy Je sais que la façon de faire est : (angtof "12d34'56\"") Pourquoi si ma variable qui est en string et vaut12d34'56" ne me donne pas le bon résultat. Mon code pour voir le résultat de result (princ (angtof result)) De plus que vaut le "\" ? Ma variable result devrait valoir : 12d34'56\" ? Merci de ton aide. [Edité le 14/10/2009 par jfcantin1977]

Bonjour à tous J'ai une variable string qui est = à 12d34'56" je veux utiliser la commande angtof pour convertir mon angle qui est en string en Radian. Gile m'a dit sur un autre Post cette remarque: Pour les degrés sexagesimaux (comme pour les unités géodésiques) angtos ne reconnait que les chaînes dont le format est : "12d36'50"" Ma question Dois-je mettre absolument des guillement avant et après ma variable ou les guillemet indique que c'est une variable String (texte) Si je dois mettre ces guillemets comment faire ??? J'essais d'en mettre mais rien ne fonctionne, le code devient tout en rose. ((= nb_c 7) (strcat "" (substr AngleDMS 1 2) "d" (substr AngleDMS 4 2) "'" (substr AngleDMS 6 2) "\"" ) ) J'ai essayé de faire cette commande et j'arrive toujours à la mauvais réponse (princ (angtof result)) = 1.3512 si result = 12d34'56" Je devrais arriver à 0.2196 merci de votre aide

Salut.. et oui j'ai juste ca.... bien je t'ai épargné la suite qui est ce que j'entre au claivier.... ; error: bad function: "12.3456" Voici le code que j'essais d'utiliser Losrque j'arrive à setq AngleDMS et qu ej'entre 12.3456 j'appuis sur Enter et ERROR J'ai mis des point d'arrete au trois premiere ligne du code pour essayer le debug et le debug n'arrete jamais... :( (defun c:Jeff (/ AngleDMS nb_c result) (setq ptj1 (getpoint "Piquer le Point de Départ:")) ; Prend la coordonnée du premier point (setq AngleDMS (getstring "\n Entrez une Angle DD.MMSS: ")) (setq nb_c (strlen AngleDMS)) (setq result (cond ((= nb_c 6) (strcat "<" (substr AngleDMS 1 1) "d" (substr AngleDMS 4 2) "'" (substr AngleDMS 6 2) "''" ) ) ((= nb_c 7) (strcat "<" (substr AngleDMS 1 2) "d" (substr AngleDMS 4 2) "'" (substr AngleDMS 6 2) "''" ) ) ((= nb_c 8) (strcat "<" (substr AngleDMS 1 3) "d" (substr AngleDMS 4 2) "'" (substr AngleDMS 6 2) "''" ) ) ) ) (princ (AngleDMS) ) ) P.S. J'utilise un autre code, je sais que ce code est mauvais, mais j'aimerais comprendre le Debug et non soluitonner ce code... [Edité le 14/10/2009 par jfcantin1977]