pierrevigneux

Bon j'ai essayé tout ce que je crois être le mieux mais zut sans livre ni, prof. et seul je n'y arrive pas, je suis réellement bouché, je commence à penser que je deviens trop vieux pour ce genre d'exercice, pourtant je suis très trenace habituellement, mais il y une certaine limite quand même.Je déclare forfait pour l'instant. T'es presque arrivé je t'aiderai uniquement si tu fais un gros effort mais sans y arriver. Voilà ce que ça me retourne error: bad argument value: AutoCAD command: # (setq R= ( command "text" -4 325 "R= " strcat "R="(rtos(abs(/(-(vlax-curve-GetDistAtParam obj (+ pr 0.5)) (vlax-curve-GetDistAtParam obj(- pr 0.5))) (* 4.0 (atan seg_bulge))))2 2)) Voilà le gros effort !

Bonjour Tramber Si j'ajoute ton code à ( command "text" -4 325 "R= " strcat "R="(rtos(abs(/(-(vlax-curve-GetDistAtParam obj (+ pr 0.5)) (vlax-curve-GetDistAtParam obj(- pr 0.5))) (* 4.0 (atan seg_bulge))))2 2)) ) ) C'est bien mais il ne m'imprime pas la réponse, le calcul est parfait ? Command: R=90 Unknown command "R=90". Pierre [Edité le 1/4/2010 par pierrevigneux]

Bonsoir ! Toujours le même problème, non solutionné. Il me manque encore le Rayon de l'arc? (while (null (setq js (ssget "_+.:E:S" '((0 . "LWPOLYLINE"))))) (princ "\nCe n'est pas une LWPolyLine!") ) (setq ename (ssname js 0) obj (vlax-ename->vla-object ename) pr -0.5 ) (command "_.undo" "_begin") (repeat (fix (vlax-curve-getEndParam obj)) (setq pt_sel (vlax-curve-GetPointAtParam obj (setq pr (1+ pr))) seg_bulge (vla-GetBulge obj (- pr 0.5)) ) (setvar "clayer" "0") (if (not (tblsearch "LAYER" "cen_arc")) (command "_layer" "_N" "cen_arc" "_CO" "3" "cen_arc" "") ) (setvar "clayer" "cen_arc") (if (not (zerop seg_bulge)) (command "_.dimordinate" "_none" (setq p_cen (osnap (trans pt_sel 0 1) "_cen")) "_none" (polar p_cen 0 (getvar "dimtxt")) "_.dimordinate" "_none" p_cen "_none" (polar p_cen (* pi 0.5) (getvar "dimtxt")) "_.shape" "coin" "0" "1" "0" "_.point" "0" ( command "text" -4 325 "R= " [surligneur] [/surligneur] ) ) ) ) (command "_.undo" "_end") (prin1) ) Quelqu'un pourrais m'aider ? Merci! [Edité le 31/3/2010 par pierrevigneux]

Merci beaucoup! jfd Alors présentement ça marche

Re-Bonjour Gile J'ai tapé Command: (findfile "base.dcl") nil Et effectivement elle retourne nil. Je pense qu'il faut envisager une réparation, voire une réinstallation d'AutoCAD C'est ce que je craignait ! Merci de ton attention si précieuse !

Bonjour didier que la version 2004 écrivait déjà dans "application datas" du "user"... au pire, cherche l'original dans "support". J'ai fait une recherche du fichier base.dcl dans support et dans tout le disque C: et rien, il ne trouve pas. Par contre j'ai message qui se lit comme suit: ===== DCL semantic audit of C:\DOCUME~1\UTILIS~1\LOCALS~1\Temp\Tmp004.dcl ====== Error in "IncTxt". (widget type = ** undefined **, key = "") Widgets of this type cannot have children. Error in "IncTxt". (widget type = ** undefined **, key = "ro") Widgets of this type cannot have children. Error. Widget named "ok_cancel" is undefined. Error. Widget named "radio_row" is undefined. Error. Widget named "boxed_column" is undefined. Merci de votre attention ! @+

Bonjour à tous! Dernièrement j'ai des messages d'erreur dans Autocad 2004 Ex: Message "base.dcl" can't find file Semantic error(s) in DCL files See file AutoCAD.dce for détails. Error loading dialog controle file. Quelqu'un pourrais me dire comment corriger? Merci!

Re-bonsoir! À tout hasard j'envoie mon fichier exemple, parce que plus j'essaie et moins j'y comprend http://dl.free.fr/bJPIREodu @+

Merci Gile J'ai toujour des erreurs, je ne suis vraiment pas doué. @+

Bonjour Gile Si j'ajoute "_.shape" "coin"(osnap osmode "_center") "1" "0" Est-ce correcte?

Bonjour! Je demande juste de corriger mon erreur sur le lisp suivant, suite à ma demande du début (vl-load-com) (defun c:Dim_PolyCenArc ( / js ename obj pr pt_sel seg_bulge pt_cen) (princ "\nSélectionner une polyligne.") (while (null (setq js (ssget "_+.:E:S" '((0 . "LWPOLYLINE"))))) (princ "\nCe n'est pas une LWPolyLine!") ) (setq ename (ssname js 0) obj (vlax-ename->vla-object ename) pr -0.5 ) (command "_.undo" "_begin") (repeat (fix (vlax-curve-getEndParam obj)) (setq pt_sel (vlax-curve-GetPointAtParam obj (setq pr (1+ pr))) seg_bulge (vla-GetBulge obj (- pr 0.5)) ) (setvar "clayer" "0") (if (not (tblsearch "LAYER" "cen_arc")) (command "_layer" "_N" "cen_arc" "_CO" "3" "cen_arc" "") ) (setvar "clayer" "cen_arc") (if (not (zerop seg_bulge)) (command [surligneur] "_.shape" "coin"(osnap "_cen") "1" "0" "_.point" "0" "1" "0" "0" [/surligneur] (setq pt1(getpoint pt1 p_cen )) (initget 16) ( setq pt2 (getpoint "La Location du text? ") e (strcat "N " (rtos (cadr pt1))) n (strcat "E " (rtos (car pt1))) ) ( command "text" pt2 0 E "text" "" N ) ) ) ) (command "_.undo" "_end") (prin1) ) Le problème est que je ne peux pas l'insérer au centre de mon rayon, pour ensuite continuer la commande c.a.d. retourner les coordonnées Nord et Est, j'aimerais également y retourer le rayon, si possible. Merci à l'avance!

Bonjour Vincent J'ai essayé ta page , pas de retour mais aucune réponse? Salutations!

Pour ma part J'aimais mieux la dernière version. mais pas d'Insertion du bloc PENTE_FLECHE : c pas grave ! Le bloc pente-flèche est important. Je suis sur Autocad 2004 Merci !

Bonjour! J'ai essayé [surligneur]webmaster@cadxp.cadmag.info [/surligneur] Même réponse?

Bonjour Tramber C'est que je ne voulais pas prendre trop de place dans le forum. J'essayais d'être bref le plus possible, mais enfin, c'est le deuxième fichier qui est le plus important pour moi. Le problème est que je veux remplacer les coordonnée en dim pour mon petit lisp, de façon à retourner les coordonnée Nord et Est, si possible y inclure le Rayonde la courbe en question. Merci de ton attention

Bonjour! J'ai essayé d'envoyer un message au Webmaster avec mon fichier, pour changer mon Avatar. http:// webmaster@cadxp.com et ça ne fonctionne pas . Delivery Status Notification (Failure) Quelqu'un pourrais m'aider? Merci.

Bonsoir! J'ai un lisp que J'ai pris sur le forum et je veux le modifier en insérant une autre petite routine. Ce que je n'arrive même pas à faire! http://dl.free.fr/mbpb7Ppb6 http://dl.free.fr/tKXcG5M1v Le problème est que je veux remplacer les coordonnée en dim pour mon petit lisp, de façon à retourner les coordonnée Nord et Est, si possible y inclure le Rayonde la courbe en question. Merci!

C'est parfait merci Titifonky Pour finaliser il me reste à entourer tout le texte avec un rectange double ligne. Si tu as un truc pour diminuer quelque peu le fond sous le texte, J'apprécierais. Amicalement. Pierre

Bonsoir Carboleum Remplaces princ par itoa. Voilà ce que ça me retourne. ; error: bad argument type: numberp: nil Si tu peux trouver la faille http://dl.free.fr/qfUn7nHy2 Amicalement. Pierre

J'ai essayé un autre forme de compteur que tu m'as dsuggéré. Point d'insertion des informations de l'arc?: Taille du texte <1.000>: Compteur = 2 Compteur = 3 Compteur = 4 Compteur = 5 Compteur = 6 Compteur = 7 Compteur = 8 Compteur = 9 Compteur = 1011; error: bad argument type: stringp 11 En fait ce que je veux c'est d'intégrer le résultat du compteur dans mon lsp cité plus haut "\\PCourbe = " [surligneur] ( princ compteur)[/surligneur]) Si tu vois ce que je veux dire. Si je tape compteur ça me retourne 1 c'est correct, mais il ne veux pas me l'afficher? Merci de ton attention. [Edité le 22/3/2010 par pierrevigneux]

Bonjour à tous! J'ai une routine et je cherche à y intégrer un compteur et je n'y arrive pas. Chercher l'erreur? (defun c:compteur() (setq compteur 1) (terpri) (setq compteur ( + 1 compteur )) ) (strcat "{\\fComic Sans Ms|b0|i0|c0|p34;" "\\PCourbe = "( princ compteur) "\\PAngle = " (angtos ( / seg_len rad) ( getvar "AUNITS") 4 ) "\\PRay = " (rtos rad 2 3) "\\PTg = " (rtos (distance pt_start pt_vtx) 2 3) "\\PLc = " (rtos seg_len 2 3) "\\PFL = " (rtos (- (distance pt_cen pt_vtx) (abs rad)) 2 3) "\\PCorde = "(rtos ( distance pt_start pt_end) 2 3) "}" ) Merci!

C'est super ! De mieux en mieux, je suis les étapes de l'évolution de ton lisp, ça m'émerveille à chaque fois, chapeau Giletu es un vrai pro. Salutations!

Fantastique Gile C'est très intéressant les légendes et les différentes couleurs, heiureusement pour nous que ce n'est uniquement pour le fun. Merci encore Maître [Edité le 18/3/2010 par pierrevigneux]

Oh que tu as raison mon cher Patrick_35 Devant des pros comme vous je me sens tellement inférieur. J'en apprend à tous les jours. Vive CAD xp Salutations !

Bonjour Gile J'ai testé le fichier ça fonctionne très bien, de façon très rapide . Par contre avec le fichier de capde06 les pentes ne sont pas dans le mêmes directions, je crois que le lisp de Gile est plus exacte. J'envoie le lien dans le dessin que je l'ai testé. http://dl.free.fr/mw7v1Z5Jw Merci à vous deux.