Aller au contenu

Messages recommandés

Posté(e)

salut tt le monde

je viens de débuter en lisp, j 'essaie de d'écrire une routine pour la vue en plan d'un pont qlcq

,je ss ing resp de la concep des O.A, mais le pblm c qd je combine la cotation continue avc les coordonnées locales, ça ne marche plus :casstet:

svp svp svp, j ai besoin d'un COUP DE POUCE!!

 

voici la routine!

(defun c:co ()

 

(initget 64)

(setq N (getint "\nentrer nbr de travées:"))

(setq P1 (getpoint "\n entrer 1er point:"))

(setq P2 (getpoint "\n entrer 2eme point:"))

(setq P3 (polar P1 (/ PI 2) 10))

(setq d (distance P1 P1))

 

 

(command "_PLINE" P1 P2 "")

 

(setq k (ssget))

(command "_ARRAY" k "" "_R" 1 (- N 1) d 1)

 

(command "_dimaligned" P1 P2 P3 "")

 

 

(setq x d)

 

(command "_PLINE" P2 "@x,0" "")

 

(repeat N

 

(setq x (+ x d))

 

(command "_PLINE" "@x,0" "@(+ x d),0" "")

 

(command "_dimcontinue" "@X,0" ""))

 

)

 

 

Posté(e)

salut tt le monde

je viens de débuter en lisp, j 'essaie de d'écrire une routine pour la vue en plan d'un pont qlcq

,je ss ing resp de la concep des O.A, mais le pblm c qd ....

 

j'avoue ne pas connaitre ce language.... (tt? ss? ... ????) :casstet: :P

Tu édites ton message en français, nous ne sommes pas tous ingénieur ! :cool:

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Posté(e)

ok pigé, voilà le msg:

 

salut tt le monde

je viens de débuter en lisp, j 'essaie de d'écrire une routine pour la vue en plan d'un pont quelconque, mais le problème c'est quand je combine la cotation continue avec les coordonnées locales, ça ne marche plus!!

svp svp svp, j ai besoin d'un COUP DE POUCE!!

 

voici la routine!

(defun c:co ()

 

(initget 64)

(setq N (getint "\nentrer nbr de travées:"))

(setq P1 (getpoint "\n entrer 1er point:"))

(setq P2 (getpoint "\n entrer 2eme point:"))

(setq P3 (polar P1 (/ PI 2) 10))

(setq d (distance P1 P1))

 

 

(command "_PLINE" P1 P2 "")

 

(setq k (ssget))

(command "_ARRAY" k "" "_R" 1 (- N 1) d 1)

 

(command "_dimaligned" P1 P2 P3 "")

 

 

(setq x d)

 

(command "_PLINE" P2 "@x,0" "")

 

(repeat N

 

(setq x (+ x d))

 

(command "_PLINE" "@x,0" "@(+ x d),0" "")

 

(command "_dimcontinue" "@X,0" ""))

 

)

 

:)

Posté(e)

Ah..... merci ! ;)

J'avoue ne pas bien comprendre ce que tu cherches à faire avec ton lisp, ne pourrais-tu pas afficher une image du plan finis stp ?

 

 

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Posté(e)

Sache juste, cher sangracosan, que sur ce forum, si tu n'écris pas dans un français un tant soit peu correct nombre de membres ne liront même pas ton message.

Moi le premier.

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Posté(e)
salut

ski est entre ,, c 1 + c pas la peine de se gratter la tete avc!!

essaie d etre efficace en me repondant ;) ;)

:casstet:

http://img226.imageshack.us/img226/2913/nosmsry3.png

:casstet:

"Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."

J-C Van Damme

Posté(e)

Wow !!!

moi qui suis d'un fond indulgent, j'ai trouvé ma limite !!!

 

c'est regrétable, mais personnelement je ne répondrais pas à cette personne semble manquer totalement de savoir vivre...

 

Par contre si c'est dû à un handicap mental, je demande que l'on m'excuse, il est difficile de discerner les personnes handicapés via des messages écris (même si le language écris SMS porte à le croire).

Donc, sangracosan, si tu souhaite toujours une réponse et que nous n'avions pas compris que tu es dans le cas de personne que je viens de décrire, signale le nous !...

 

 

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Posté(e)
merci pr le com JALNA

essaie au moins de repondre avec qlq che d'utile :casstet:

même mon ancetre le + loin sais faire des coms :cool:

 

merci qd mm!!!

 

Salut

Je suis sur que je ne suis pas si loin de ton ancêtre...

D'ailleurs il me semble que nous sommes cousins non!!

 

Mais une chose est sure tu n'es pas sur un forum de rencontres

 

Ici tu vas rencontrer des personnes vraiment compétentes!!

"Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."

J-C Van Damme

Posté(e)
:present: pr me réconcilier avc vs!!!désolé si on m a pas compris!!

 

pr te réconcilier avc q ?

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Posté(e)

hello,

 

l'ancêtre, le vrai, vient déposer son grain de sel,

 

La bonne volonté des inscrits de ce site n'est plus à démontrer,

et si un jeune premier me donne un ordre du genre

essaie au moins de répondre avec quelque chose d'utile

c'est pour le moins incongru sur le site.

c'est dommage car s'il le souhaite, il trouvera une aide...

 

je fréquente de moins en moins CadXp par manque de temps,

mais ce genre de personnage ne m'incite pas à faire des efforts.

 

 

amicalement tout de même.

 

Posté(e)

 

Bonsoir vieux confère virtuel du Clan des Diplodocus ;)

 

Allons soyons "gentils et indulgents" avec les jeunots ...

 

On peut envisager de leur laisser une 2ème chance !? :exclam:

 

Bonne soirée et bonnes Fêtes de fin d'année, Le Decapode

 

Autodesk Expert Elite Team

Posté(e)

-.-. . / -. .----. . ... - / .--. .- ... / . -. / .- ..-. ..-. .. -.-. .... .- -. - / ..- -. / -.-. .- -.. . .- ..- / --.- ..- . / -.-. . .-.. .- / .- .-. .-. .- -. --. . .-. .- / .-.. . ... / -.-. .... --- ... . ...

 

@+

 

[Edité le 15/12/2006 par Patrick_35]

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Posté(e)

Bon, je ne vais pas faire le rabat-joie avec un nouveau venu, (en espérant un effort certain pour la prochaine fois)

 

Ce que j'ai remarquer vite fait sans essayer ton code

 

(setq d (distance P1 P1)) ???? ne serait pas (setq d (distance P1 P2))

 

(setq k (ssget))

(command "_ARRAY" k "" "_R" 1 (- N 1) d 1)

 

(command "_ARRAY" (entlast) "" "_R" 1 (- N 1) d 1) serait plus simple et éviterais de faire une sélection.

 

(command "_PLINE" P2 "@x,0" "")

 

Ici tu as mis une variable en chaine de texte, ELLE NE SERA PAS EVALUEE

 

faire plutôt

(command "_PLINE" P2 (strcat "@" (rtos x) ",0") "")

 

idem pour la suite

Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité