doua

bonjour zebulon_, merci pour ton aide ! ;) ça marche enfin ! dit moi zebulon stp, peux-tu m'expliquer ces deux lignes à quoi elles servent ? (command "_.undo" "_group") (command "_.undo" "_end") merci chef ! :D

ok, le voilà mon programme il est un peux long ! :P (defun c:dess() ;Mentant Gauche (setq HSMG (getreal "\entrez une valeur_HSMG:")) (setq BSMG (getreal "\entrez une valeur_BSMG:")) (setq EPMG (getreal "\entrez une valeur_EPMG:")) (setq HMTG (getreal "\entrez une valeur_HMTG:")) ;Mentant Gauche (setq ptG0 '(0 0)) (setq ptG1 (list BSMG 0)) (setq ptG2 (list BSMG HHMTG)) (setq ptG3 (list 0 HHMTG)) (setq ptG4 (list 0 0)) (setq ptG5 (list (- BSMG EPMG) 0)) (setq ptG6 (list (- BSMG EPMG) HHMTG)) (setq ptG7 (list EPMG 0)) (setq ptG8 (list EPMG HHMTG)) (command "POLYLIGN" ptG0 ptG1 ptG2 ptG3 ptG4 "") (command "ligne" ptG5 ptG6 "") (command "chprop" (entlast) "" "co" 2 "") (command "chprop" (entlast) "" "T" "CACHE" "") (command "ligne" ptG7 ptG8 "") (command "chprop" (entlast) "" "co" 2 "") (command "chprop" (entlast) "" "t" "CACHE" "") ;Section Mentant Gauche (setq ptSMG0 (list 0 (/ HHMTG 2.0))) (setq ptSMG1 (list (- BSMG ) (/ HHMTG 2.0))) (setq ptSMG2 (list (- BSMG ) (+ (/ HHMTG 2.0) HSMG))) (setq ptSMG3 (list (- (- BSMG) BSMG) (+ (/ HHMTG 2.0) HSMG))) (setq ptSMG4 (list (- (- BSMG) BSMG) (/ HHMTG 2.0))) (setq ptSMG5 (list (- BSMG) (/ HHMTG 2.0))) (setq ptSMG6 (list (- (- BSMG ) EPMG) (+ (/ HHMTG 2.0) EPMG))) (setq ptSMG7 (list (- (- BSMG ) EPMG) (- (+ (/ HHMTG 2.0) HSMG) EPMG))) (setq ptSMG8 (list (+ (- (- BSMG ) BSMG) EPMG) (- (+ (/ HHMTG 2.0) HSMG) EPMG))) (setq ptSMG9 (list (+ (- (- BSMG ) BSMG) EPMG) (+ (/ HHMTG 2.0) EPMG))) (command "POLYLIGN" ptSMG1 ptSMG2 ptSMG3 ptSMG4 ptSMG5 "") (command "ligne" ptSMG6 ptSMG7 ptSMG8 ptSMG9 ptSMG6 "") ;;Flèche partie Mentant Gauche (setq L1 (list (- (/ BSMG 2.0)) (/ HHMTG 2.0))) (setq L2 (list (- (/ BSMG 2.0)) (+ (/ HHMTG 2.0) (/ BSMG 2.0)))) (setq L3 (list (+ (- (/ BSMG 2.0)) 46) (+ (/ HHMTG 2.0) (/ BSMG 2.0)))) (setq L4 (list (- (- (/ BSMG 2.0)) 46) (+ (/ HHMTG 2.0) (/ BSMG 2.0)))) (setq L5 (list (- (/ BSMG 2.0)) (+ (+ (/ HHMTG 2.0) (/ BSMG 2.0)) 105))) (setq L6 (list (+ (- (/ BSMG 2.0)) 80) (+ (+ (/ HHMTG 2.0) (/ BSMG 2.0)) 105))) (setq L7 (list (- (- (/ BSMG 2.0)) 80) (+ (+ (/ HHMTG 2.0) (/ BSMG 2.0)) 105))) (setq L8 (list (+ (/ BSMG 2.0) BSMG) (/ HHMTG 2.0))) (setq L9 (list (+ (/ BSMG 2.0) BSMG) (+ (/ HHMTG 2.0) (/ BSMG 2.0)))) (setq L10 (list (+ (+ (/ BSMG 2.0) BSMG) 46) (+ (/ HHMTG 2.0) (/ BSMG 2.0)))) (setq L11 (list (- (+ (/ BSMG 2.0) BSMG) 46) (+ (/ HHMTG 2.0) (/ BSMG 2.0)))) (setq L12 (list (+ (/ BSMG 2.0) BSMG) (+ (+ (/ HHMTG 2.0) (/ BSMG 2.0)) 105))) (setq L13 (list (+ (+ (/ BSMG 2.0) BSMG) 80) (+ (+ (/ HHMTG 2.0) (/ BSMG 2.0)) 105))) (setq L14 (list (- (+ (/ BSMG 2.0) BSMG) 80) (+ (+ (/ HHMTG 2.0) (/ BSMG 2.0)) 105))) (command "ligne" L1 L2 "") (command "ligne" L3 L4 "") (command "ligne" L5 L4 "") (command "ligne" L5 L3 "") (command "ligne" L6 L7 "") (command "SOLIDE" L4 L3 L5 "" "") (command "ligne" L8 L9 "") (command "ligne" L10 L11 "") (command "ligne" L12 L11 "") (command "ligne" L12 L10 "") (command "ligne" L13 L14 "") (command "SOLIDE" L11 L10 L12 "" "") (command "_text" "_non" L7 "0" "Mon texte") ) merci de votre aide

rebonjour, zebulon_ :P je m'excuse de te dérranger !! mais j'ai inserer juste la ligne : (command "_text" "_non" F7 "0" "Mon texte") on fait je ne sais pas comment faire enter mes corrdonées déja prédéfini dans F7 !! dans cette ligne ------> Spécifiez le point de départ du texte ou [Justifier/Style]: alors quand je fait un print sur Le F7 ça donne ceci : commande : (print F7) (3250.0 7630.0) (3250.0 7630.0) pourquoi il ne connais pas ces corrdonée mon programme ?? :casstet: amicalement

merci zebulon_ , je vais le tester maintenant ! amicalement Doua

salut, help !! je n'arrive toujour pas à écrirs avec ma commande introduite dans mon programme lisp !! :casstet: ya-t-il qlq qui peux m'aider ! merci!

rebonjour, didier j'ai fais rentrer cette commande dans mon programme mais il m'ecris rien !! il exécute toutes les instructions que je lui ai donnée il me déssine tous ce que je lui ai demandé avec les flèches de coupe etc... mais l'ecriture pour renseigné la coupe non ! je crois qu'il faut les coordonée du point de départ et ça je ne sais pas comment le faire rentrer dans la commande ? nb : le F1 F2 F3 etc tous ça c'est des coordonés pour tracer des ligne dans un point bien défini alors faut-il que je met comme réponse par exemple : Spécifiez le point de départ du texte ou [Justifier/Style]: F7 Voilà ce qu'il me donne quand j'ai fais rentrer ta commande : .....etc Commande: _text Style de texte courant: "Standard" Hauteur de texte: 1.0000 [b] Spécifiez le point de départ du texte ou [Justifier/Style]:[/b] Spécifiez la hauteur <1.0000>: 1 Spécifiez l'angle de rotation du texte <0>: 0 Entrez le texte: a-a Commande: nil Commande: merci pour votre aide !!

;) salut didier, excuse moi j'êtais en congé c'est pourquoi j'ai pas vue ton message ! merci pour ton aide amicalement doua

salut, j'ai un programme lisp qui fait un dessin avec les vues et les sections, je veux inserer du text par exemple : la 1er Flèche qui indique la section a-a je veux que les a-a soit ecrite dans un point (x,y) mais je veux ajouter cette ligne comme une commande autocad voilà mon essais echoué !!! :casstet: ....etc . ;;tracer les lignes de flêche (command "ligne" F1 F3 "") (command "ligne" F4 F6 "") (command "ligne" F4 F5 "") (command "ligne" F4 F7 "") (command "SOLIDE" F5 F2 F6 "" "") ;;;ecrire le texte qui va avec les flêche [b] [/b];(command "texte" F7 10 0 "a-a" "") je ne sais pas comment faire pour inserer mon ecriture ?? :casstet: merci pour votre aide !

:D non CDL ! c'est pas pour moi c'est pour une amie . On fait Tramber, je lui est donnée un bouquin "grand livre autocad 2000" mais elle l'a trouver trop compliquer ! j'ai pas trouver de solution pour elle Alors j'ai poster mon message ici !!! j'ai beau chercher sur les moteurs de recherche mais... Nb : elle faisait ces plans sur une table à dessin "donc manuellement...!!!!!!" :casstet:

salut, svp est ce qu'il ya un fichier de préference en PDF qui explique les principaux commande d'autocad (exp : pour dessiner ecrire effacer..etc .) avec des petits exemples à faire c'est pour un débutant en autocad. je vous remercie infinnement ! amicalement

Merci Tramber pour ta réponse ! je vais le tester ! merci encors ;)

salut, comment je peux en langage "lisp" changer la couleur des lignes dans un dessin et en même temps le type de ligne en discontinu par exemple nb : j'ai fait un prog qui me trace ces ligne voila la partie qui dessine (command "ligne" ptT1 pt2 "") merci de votre aide

salut merci de votre aide jalna & Tramber ! c'est bon ! amicalement doua

salut ok je vais chercher cette option ! merci

Salut, j'ai fait un dessin en 3D "une forme rectangulaire" ! ma question c'est : est_ce qu'on peut changer l'angle de ce dernier d'un seul coté en gardant les autres faces droites NB: j'ai essayé avec "extrusion" mais il m'applique l'angle sur tous les faces ! merci de votre aide

salut, comment peut-on faire un filtage "pour par exemple un écrou" en 3d !? merci de votre précieuse aide amicalement doua

salut, on fait j'ai pas une liste j'ai une variable qui s'appel "nom" et qui contient plusieur élément exemple : (setq nom (cdr calq)) je veux qu'il me classe la variable "nom" qui n'est pas une liste !! dans l'ordre croissant ou décroissant !! voilà ! on fait merci gile pour les autres informations ils sont important aussi !! amicalement doua

salut, j'ai une variable qui contient tous les infos qu'il me faut, quand le programme commence à écrire il me met mon tableau à l'envers il commence par le dernier element : voilà ce que j'ai fait mais ça n'as pas marcher ; :casstet: ; renoie de la liste avec ces elements inversés (setq listenom (reverse listenomtr)) ; trier dans l'ordre alphabétique une liste de chaine (setq listfol (acad_strlsort listfol)) comment je peux trier mon tableau SVP ?? :( merci pour votre aide

salut patrick, merci encors patrick ! :P je vais le faire ! amicalement doua

salut, comment peut-on avoir le nom du calque qui appartien à un bloc bien spécifier ? :casstet: je m'explique ! j'ai un programme qui cherche les blocs bien spècifier dans un fichier contenant plusieurs calques, je veux qu'au moment ou il trouve ce bloc il me met dans une variable à part (que je vais utiliser aprés ) le nom du calque ou il a trouvé ce bloc ! voilà juste la partie du programme ou il recherche les blocs : (if (setq js (ssget "x" (list (cons 0 "INSERT")(cons 2 "List*")))) (progn (setq n 0) [u] ;traitement des blocs [/u] (while (setq ent (ssname js n)) (setq bl (entget ent)) (if (cdr (assoc 66 bl)) merci de votre aide doua ;)

salut bonuscad, citation extraite du message original: ******J'ai trouvé: (length) requiert une liste! Tu doit employer (sslength) pour avoir le nombres d'éléments dans un jeu de sélection. c'etait ça on fait qui bloque, car mnt il m'a créer le fichier wblock c'est bon ça marche !! merci bonuscad

salut, j'ai fait un programme pour créer des wbloc pour chaque calque en integrant dans chaque calque le calque "cartouche " . mais il me donne comme erreur : type d'argument incorrect: listp je me demande si ce n'ai pas sur cette ligne ou je me suis tromper (setq sel2 (ssadd (ssname sel1 i) sel2)) voilà une partie du programme (en fait la variable "ncalque" contient tous mes calques) ;;---Début---------------------------------------------------C:eclatfol--- ;; crée des wblocs avec les layers d'un dessin >> ;------------------------------------------------------------------------------- (setq sel1 (ssget "x" (list (cons 8 "cartouche")))) (setq sel2 (ssget "x" (list (cons 8 ncalque)))) (setq long1 (length sel1)) ;(setq sel sel2) (setq i 0) (repeat long1 (setq sel2 (ssadd (ssname sel1 i) sel2)) (setq i (+ i 1)) ) (setq nomfich (getvar "dwgname")) (setq nomdir (getvar "dwgprefix")) (setq nomfich (substr nomfich 1 (- (strlen nomfich) 4))) (if sel2 (command "_wblock" (strcat nomdir nomfich "_" ncalque) "" (list 0 0) sel2 "") ) (setq compt (+ compt 1)) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; merci pour votre aide doua

desoler , je me suis pas connecter hier pour te répondre ! on fait oui je cherche des attributs qui portes une étiquette qui commence par "list*" tu sais comme je l'avais déja ecris dans mon message ( posté le 15/5/2006 à 18:47) ilme manque juste qlq chose dans mon programme que je ne sais pas dit patrik tu peux me donnée un adresse e-mail et je t'envoi le programme plus le fichier là je crois tu pourra comprendre ce que je veux stp Patrick, merci

:exclam: oh ! il ya personne qui peut m'aider à résoudre mon problème !!?? :( bon merci quand même A+ doua

Bonsoir Tramber, je t'ai envoyé le fichier dans cette adresse : ab-cad@wanadoo.fr j'espère que je me suis pas tromper ! :exclam: merci pour ton aide précieuse ! doua