DenisHen

Mais alors là, j'avoue que j'ai les yeux du loup de Tex Avery ! ! ! Épaté, que je suis... épaté ! ! ! Mais comment faire pour introduire (setq p (getpoint)) (command "_.pline" p (while p (command (setq p (getpoint p))))) Dans ma routine, qui dessine une partie de bâtiment... (<- je n'arrive pas à poser ma capture...) (defun c:PhBatiOuvert () (if (= (setq Ech (vlax-ldata-get "Phalene" "Ech1")) nil) (PhEch1)) (setq p1 (getpoint "\nDébut du bâtiment : ")) (setq p2 (getpoint p1 "\nFin du bâtiment : ")) (setq Ori (angle p1 p2)) (setq Co (getstring "\nCoté bâti (<+> / -): ")) (cond ((= Co "-") (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 2)) 2)) (setq p4 (polar p3 (+ (angle p1 p2) (/ pi 2)) 3)) (setq p5 (polar p2 (+ (angle p1 p2) (/ pi 2)) 2)) (setq p6 (polar p5 (+ (angle p1 p2) (/ pi 2)) 3)) ) (T (setq p3 (polar p1 (- (angle p1 p2) (/ pi 2)) 2)) (setq p4 (polar p3 (- (angle p1 p2) (/ pi 2)) 3)) (setq p5 (polar p2 (- (angle p1 p2) (/ pi 2)) 2)) (setq p6 (polar p5 (- (angle p1 p2) (/ pi 2)) 3)) ) ) (setq js (ssadd)) (command "-calque" "e" "Bâtiments (Contour)" "co" 2 "" "") (command "_.pline" "_non" p3 "_non" p1 "_non" p2 "_non" p5 "") (setq js (ssadd (entlast) js)) (command "-calque" "e" "Bâtiments (non levé)" "co" 2 "" "") (command "_.pline" "_non" p3 "_non" p4 "") (setq js (ssadd (entlast) js)) (command "_.pline" "_non" p5 "_non" p6 "") (setq js (ssadd (entlast) js)) (command "-calque" "e" "Titre Cache" "") (command "_.pline" "_non" p4 "_non" p6 "") (setq js (ssadd (entlast) js)) (command "-calque" "e" "Bâtiments (Hchures)" "co" 8 "" "") (command "hachures" "ansi31" (/ Ech 50) (+ (angle p1 p2) 100) js "") ) Mais cette routine n'accèpte que la saisie de deux point... Je cherche comment faire pour 3 ou plusieurs sommets... ? ( sans compter la perpendiculaire entre les deux extrémités et leur deux anté-nultièmes...).. Je cherche... Mais je pène...

Messieurs, je ne saisie pas... Je ne pensais pas passer par la ligne de commande ? ? Je pensais savoir faire la différence entre (c:routine2 "Symb1" "Symb2") et routine2;Symb1;Symb2; A moins que je n'ai pas compris le sens des réponses.... Denis...

Bonsoir à tous.... Je suis en plein développement et me vient d'un coup... Comment dois-je faire pour pouvoir faire appel à la même routine depuis une autre routine ET depuis AutoCAD ? Dans le Menu : (c:routine2 "Symb1" "Symb2") Dans Lisp (defun c:routine1 (symb1 symb2 / ) (Patati et Patata) ) Et plus loin.... (defun c:routine2 (symb1 symb2 / ) (Patati (routine1 Symb1 Symb2) Patata) ) Si on ne regarde pas les parenthèses, j'ai improvisé, mais juste si c'est possible... Merci...

J'ai un petit problème, (gile) Dans ta fonction (defun SOME (fun lst) (and (consp lst) (member T (mapcar fun lst)) ) ) Il y a and, et je ne trouve pas d'aide dessus, ni AutoCAD ni VLisp... ? Pourquoi ?

Merci Gile, tu me donne l'occasion d'apporter ma contribution.... ( Si je ne me fais pas "grillé) Il faut toujours s'assurer d'une condition "dépassante"... (Bien vu (gile))... C'est ce qu'on appelle un circuit fermé en électronique, une redondance cyclique chez Microsoft (redondance = cyclique, Microsoft aussi, se mort la queue...), un cercle rouge en politique, un cercle vicieux en boite de nuit... Et... Et ? Comment en informatique... ? ? ? Un BUG ! ! ! Oui, le plus gros problème en informatique : l'outil le plus évolué de l'évolution n'est qu'un insecte... Sommes-nous peu de chose.... Ahhhhh, un peu d'humour ne fait pas de mal... Bon, mas brève contribution, si elle est juste, s'arrête déjà... Et, j'en suis sûr sera reprise.... Merci à tous.... ;) Denis...

Merci à tous les deux... ( les grillés et les grilleurs.... :P ) Bon, je vais apprendre le Yoga et pratiquer le Zen... A cause des fonctions "itératives" et "récursives"... Je croix que je vais avoir du mal... M. Contensou en parlais déjà... Et vous aussi.... Pfffffffff.......... Je n'ai pas fini de bosser avant d'y arriver.... Bon....Ouais, je sais je suis lourd... (d'ailleurs, je pense à changer ma signature... ;) ) Mais j'ai encore une question qui traine.... Au boulo, On a AutoCAD 2004 et 2005, on a donc VLisp partout... Mais qu'a de plus VLisp ? Merci pour vos réponses... Je buche, je potasse et je décortique... ( je migraine aussi.. ;) ) Denis...

Bonsoir à tous, Je cherche depuis deux jours...( heures) la façon de faire des "boucles" avec le Lisp... J'ai vu les While.... (tant que...) Mais je n'ai rencontré nul part de GoTo (ou autre chose s'en approchant... Je me suis donc retrouvé devant le livre de M. Contensou... Et j'en déduis que ce style de boucle est inutile avec ce langage... En effet, je croix curieusement qu'il faut construire la routine de façon à ce qu'elle fasse appelle à elle-même pour remplacer le GoTo. Mais je tatonne tellement que je me demande si j'avance ou si je fais tout simplement n'importe quoi.... Si les doyens peuvent éclairer les pauvres novices que nous sommes... Merci... Denis...

Waow... Merci à tous... C'est parfait ! ! Denis...

Bon, je n'y arrive toujours pas... Ma phrase dans le menu reste la même, Mais j'ai changé la routine comme suit : (defun c:_PhTexte (Text Haut / ) (setq Haut (atof Haut)) (if (= (setq Ech (vlax-ldata-get "Phalene" "Ech1")) nil) (PhEch)) (setq p1 (getpoint "\nPoint d'insertion du text : ")) (setq p2 (getpoint p1 "\nOrientation du texte : ")) (command "-texte" "j" "mc" p1 (/ (* Haut Ech) 1000.0) p2 Text) ) Mais AutoCAD me répond : Commande: (phtexte "Bonjour" "2.5") ; erreur: no function definition: PHTEXTE J'utilise mal atof ? Merci, Denis...

Donc, (phtexte "Bonjour" "2.5") est bon, et je n'ai qu'à ajouter dans la routine : (setq Haut (atof Haut)) Merci Patrick_35, je cours modifier ... Denis

Bonsoir à tous, Voilà, j'ai fais une petite routine qui écrit un texte dans le dessin...Mais ça ne fonctionne pas... La phrase dans mon menu : (phtexte "Bonjour" "2.5") J'ai essayé 2.5 et "2.5" Ma routine : (defun c:_PhTexte ( Text Haut / ) (if (= (setq Ech (vlax-ldata-get "Phalene" "Ech1")) nil) (PhEch)) (setq p1 (getpoint "\nPoint d'insertion du text : ")) (setq p2 (getpoint "\nOrientation du texte : ")) (command "-texte" "j" "mc" p1 (/ (* Haut Ech) 1000.0) p2 Text) ) Pour le cas ou cela serve à quelqu'un...( Grand merci à (gile) ) (defun PhEch () (setq Ech (vlax-ldata-get "Phalene" "Ech1")) (if Ech ;; si Ech est déjà défini (progn (if (setq Ech (getreal (strcat "Ancienne échelle (1/" (fix (rtos Ech)) ") - Nouvelle échelle: 1/"))) ;; Si Ech est re-défini (vlax-ldata-put "Phalene" "Ech1" Ech) ) ;_ Fin de if (princ (strcat "\nEchelle = 1/" (rtos (vlax-ldata-get "Phalene" "Ech1"))) ) ) ;_ Fin de progn ;; si Ech n'est pas encore défini (progn (setq Ech (getreal "Échelle du dessin 1/")) (vlax-ldata-put "Phalene" "Ech1" Ech) (princ (strcat "\nEchelle = 1/" (rtos (vlax-ldata-get "Phalene" "Ech1"))) ) ) ) (princ) ) Merci pour votre aide... Denis...

Ok, (float s'assure si c'est un réel, sinon, ça devient un réel ? Peut-t'on l'associé ? Comme avec Fix ou autre... et dans quel ordre... ? Si val = "18.2" que fait float... faiut-t'il passer par string...(pardon.. ) strcat ? ;) Denis...

(float unit) ? .... Attends, je regarde l'aide... J'obtient de l'aide AutoCAD : (float number) Arguments number Any number. Return Values The real number derived from number. Examples Command: (float 3) 3.0 Command: (float 3.75) 3.75 Celà voudrait-t'il dire que.... Float s'assure que l'argument est bien un nombre.. (un entier) ?

Je débute..... Je suis le premier intéressé... Mais sujet clot.... Denis...

Waow... (gile)... Merci... Mais cette réponce, je l'imprime... Car dans le truc toudu... Le chemin d'accès est bigrement vicieux... Encore une fois..... (gile)...... ;) Denis...

Mon égoïsme me perdra..... Sujet nul et non avenant..... Nombril....

Bon, maintenant, c'est au tour de RebCao... Ta formule : [ 250 * ( 1 / ( 100 / ECH ) ) ] / unité En Lisp, ça donne ça ? Je vais improviser, je ne retrouve pas mon lisp ( il a dut rester au boulo...) (/ (*250 (/ 1 (/ 100 Ech))) unité) Le vache, on peut me dire tout ce qu'on veut.... Le lLisp, c'est pas évidant... Je suis SÛR d'avoir faut... Denis...

Problème résolu ailleurs.. Grace au WebMaster... Denis

(gile)... Je ne sais quoi te devoir... J'ai essayé avant ton conseil... Rien, je suis allé dans Et après, ca marche Mais en Noir et Blanc... Enfin bref... t'as un RIB ? ;) Merci encore à toi..... Denis... PS, j'imprime l'excellent "Bibles.lsp" de l'excellent Patrick_35... Il faut que j'arrête de demander sans chercher par moi-même.... Alors je potasse son super truc... A force de ce démerder seul... On finit pas abuser des autres... Sans le vouloir.... On s'accroche.... Ce sont des choses humaines... Et C'est mon défaut... Mais j'y travaille... Car j'adore ce site, et tous ses protagonistes... ReDenis...

Bonsoir (gile)... Bon, je m'en vais prendre de tes nouvelles.... Depuis le temps que tu m'aides.... J'espère donc que tu te porte bien... Et on en revient au Lisp^... Je ne me trompe pas... En DXF, 10=X 20=Y 30=Z C'est pour cela que ja na saisi âs le "DXF Lisp" et le "DXF AutoCAD" à moins que je me sois encore gouré... Mais je compte trop sur toi... Je lis souvent "Lisp" et "Code DXF" en même temps... Serait-ce le réelle code des DWG ? Bon..... Je ne sais plus comment te remercier....... Alors : Merci..... Denis...

Merci (gile)... (encore une fois..... Pffffffff) Mais je me demande si tous mes fils sont bien connectés là-haut... Je pars fouiller je n'ai pas le réflexe de recherche avant de créer un nouveau forum... Mais là.. Je le dis avant les autres... C'est MA faute... Je ne fais pas d'effort...Mea coulpa...... Faudrait peut-être créer un nouveau forum juste pour ma poire.... On pourrait le nommé : "Dressage du cancre fainéant" ! ! Je déconne... Bien sur...(spécial dédicace pour notre chèr webmaster => ;) ) A qui on doit tous beaucoup.... Bon, j'ésite à te remercier encore une fois... (gile)... Tu vas en avoir mare... Un bisous, tu pourrais mal le prendre... Alors dans ce cas, une bonne PDM s'impose.... Non ? Merci.... Sincèrement... Denis...

Bonsoir... J'ai un petit problème sur tous les poste de ma boite comportant AutoCAD... On est tous en réseau avec plusieurs imprimantes... Il m'est impossible d'imprimer un code Lisp... Tout ce passe bien... Mais jamais rien ne sort ! ! ! Au bout d'un moment, l'éditeur VLisp plante... et AutoCAD disparait... (d'un coup)... Quelque soit le code, le lisp, le poste, le varsion d'AutoCAD (2004 et 2005)... Snif..... Moi qui voulais décortiquer sur mon canapé.... Merci pour d'éventuelles réponses... Denis...

Bonsoir à tous... Pour ma part, j'ai appris à utiliser AutoCAD sur une version 9 anglaise piraté... (mince, fallait pas le dire...) ,puis sur la version 10, puis 11 (en allemand) ...... J'étais apprentis.. C'était en 92 et j'ai passé mes deux premier mois à regarder une bête en info... Curieux... Non ? Il bossait, et j'étais debout, derrière lui à l'observer... Un type excellent ! !(qu'on appellera Daniel, un DPLG) Puis, au bout de ces deux mois, le bosse a acheté un poste de travail uniquement pous moi... J'étais donc devenu un vrai collègue... Mais un vrai débutant, avec des question à la con... Mais il ne me répondait qu'en "énigme"... Comme pour dire, réfléchis.. Tu as la réponse...Il suffit de la chercher...Quand on trouve par soi-même, on retient... En bref... Ma formation a été "à chier"... Même si Daniel était un excellent professeur...( mais ce n'était pas son boulo...) J'ai aussi pris connaissance du basic avec Daniel... Pour fairepar exemple, une routine qui traduisait un listing de point (M,X,Y,Z,C), Je ne vous l'avais pas dis, j'étais chez un géomètre. Donc, En Basic, selon les codes....patati et patata, on créait un DXF... Sur mon poste flambant neuf.. J'ai du développer un .EXE qui recueille les envois d'un Xplan (si quelqu'un connait...) vers un fichier point... Après chaque point, mon logiciel demandait un code.... Et j'ai passé des semaines à digitaliser les planches du cadastre comme-ça... C'était il y a 15 ans ! ! oui, ça fait 14...) Depuis... j'ai adopté la méthode du "démerde toi"... Si d'autre le font, tu peux le faire... Mais j'aime l'aide...la donner et la recevoir... Maintenant, je fais chi*** les forums de CadXP ( excellent site ) pour recevoir de l'aide... Mais mon altruisme se dégrade..... Je dois y remédier... Je n'arrive pas à faire partager mes connaissances.... Qui ne sont pas si mauvaises que ça... Tout ça pour dire qu'un formateur est essenciel... Surtout que lui, répond aux questions... Car l'aide d'AutoCAD.... Pfffffffff....... Violà... Mais je ne savais pas que RebCao était formateur....ça m'explique maintenant son haut niveau.... En bref, il triche ;) Bon, je vais essayé de recotoyer mon envie de professer.... Merci à tous... Denis...

Bonsoir kikay2 Je pense, au cas tu ne l'aurrais pas déjà fais, de modifier l'ordre du tracé (commande "ordretrace") Si tu connais déjà cette commande, je ne vois que'un problème de drivers... Mais ton problème est curieux... Traceur en réseau, S'il y a des AutoCAD sur plusieurs poste... Faire des testes sur les autres postes... (mais je pense que tu as déjà essayé...) Tu imprime depuis un espace papier ou espace objet ? Dernier truc... Fais un _.wblock de ton dessin et retente le truc... En espérant avoir fais avancer le chmilblique... Bon courage... Denis...

C'est encore moi... Je ne savais pas... Mais le plus grand intérêt n'est-t'il pas celui des abonnés ? Je pose juste la question... Je vais être encore la vache noire... Denis...