CadFrank

Mouais j'ai finalement trouvée l'erreur hehe!! mais merci quand même pour ton aide. Par contre ou est le forum ad-hoc ??? Maintenant J'aimerai transformer certain coin en rayon comment dois-je procéder.. ou plus tôt es-ce qui faudrais que je change la command pline pour ligne que je place chaque ligne en entlast et ensuite que je fasse un fillet pour chaque coin ou j'en ai besoin. Voici une photo :

Meh !!! si je fait le routine étape par étape elle marche!!!! comprend pas!!!!

Parfait alors merci pour ton temps. Alp

j'ai fais la modification par contre le résultat est le même il me donne un profilé déformé et je ne comprend pas pourquoi.

Bonjour, j'ai suivi les étapes d'un livre pour me donner une routine qui permet de créer un profilé en acier (W) par contre il se produit une erreur en cour et je ne comprend pas pourquoi. Voici le code : (defun c:test (/ O L H EA ES R) (setq O (getpoint "\nPoint un point : ")) (setq H (getreal "\nDonnez la hauteur du profilé 'd' : ")) (setq L (getreal "\nDonnez la largeur du profilé 'b' : ")) (setq EA (getreal "\nDonnez l'épaisseur de l'âme 'w' : ")) (setq ES (getreal "\nDonnez l'épaisseur de la semelle 't' : ")) (setq R (getreal "\nDonnez le rayon du raccord 'k,k1' : ")) (setq pt1 (polar O Pi (/ L 2))) (setq pt2 (polar pt1 (/ Pi 2) ES)) (setq pt3 (polar pt2 0 (/(- L EA) 2))) (setq pt4 (list (car pt3) (+ (cadr o)(- H ES)))) (setq pt5 (list (car pt1) (cadr pt4))) (setq pt6 (list (car pt1) (+(cadr pt5) ES))) (setq pt7 (polar pt6 0 L)) (setq pt8 (list(car pt7) (cadr pt5))) (setq pt9 (list(+ (car pt4) EA) (cadr pt8))) (setq pt10 (list (car pt9) (cadr pt3))) (setq pt11 (list (car pt8) (cadr pt10))) (setq pt12 (list (car pt11) (cadr pt1))) (command "pline" O "w" 0 0 pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt12 O "") (command "fillet" "r" R) (command "fillet" pt3 pt4 pt4 pt5 pt9 pt10 pt10 pt11 "") );defun Merci de votre aide.

(setq total (itoa (length (layoutlist)))) Avec ceci je suis capable d'avoir le nombre de layout... y a t il une face d'utiliser ceci pour faire une modification de mon attribut

C'est parfait! ça fonctionne maintenant. Quoi que en bout de ligne a ne fait pas se que je veux ds ma cartouche. p-e si je démontre le résultat sa peut aider. voici l'effet que je veux que sa represente. Merci pour tout l'aide si quelqu'un trouve la reponse alors sa sera mon cadeau de nowel :(rires forts): :(rires forts): Joyeux Nowel a tous!!

Quand je lance la routine Ron sa me retourne RON ; error: no function definition: VLAX-GET-ACAD-OBJECT

j'ai trouver se code mais je ne reussi pas a le faire fonctionné (defun c:lpc() (setq sheet 1) (setq total (itoa (length (layoutlist)))) (foreach layout (layoutlist)) (print) (ssget "_X" (list (cons 0 "INSERT") (cons 66 1) (cons 2 "Cartouche Aliance") (cons 410 layout))) ;sa me dit qu'il y a une erreur avec le ssget. (strcat (itoa sheet) " of " total) (setq sheet (1+ sheet)) )

sait bizarre mais je ne vois pas tes images

Je ne sais pas comment les utiliser je cherche a faire un lisp pour avec le décompte de chaque layout dans mon dessins mais vu que je suis assez nous je ne sais pas comment.

c'est cela que je chercher a faire mais je sais pas comment.

Re bonjour, C'est plus les page que j'aimerais qui soit incrementer 1 de 1 passe a 1 de 2 quand on rajoute une layout. ainsi de suite si je faire un nouveau layout la premiere page est 1 de 3 la deuxième devient 2 de 3 et la derniere 3 de 3

ah ben il me dise que je ne peu pas envoyer se types de fichier :unsure: donc je l'ai zipper!!! mouahaha que je suis perspicase

j'ai essayé de le mettre mais sa na pas fonctionné il faudrais que tu puisse voir mon cartouche. mais j'ai essayer de mettre de champs et la seule chose qui apparais c'est ####

Bonjour, Ceci est la première fois que j'écris sur se forum. J'aimerais savoir si il y a une façon de faire en sorte que quand je fais un nouveau layout appartir d'un déja créé que les pages de ma cartouche change en suite. en lien j'ai mis ma cartouche. Salutations!