Introduction à AutoLISP

[Invité Patrick]

Voici un excellent tutorial par Gilles Chanteau pour apprendre le LISP.

[lili2006]

Bonsoir à toutes et tous,

 

Merci Patrick,

 

ça y est Gilles, tu as craqué ?;)

 

Pour le plus grand bonheur de tous,..

[VDH-Bruno]

Bonsoir,

 

Merci à Gilles pour sa générosité et Patrick pour la diffusion de l’information, je vais regarder cela avec un grand intérêt et aussi avec beaucoup de plaisir :)

[(gile)]

Bonsoir à toutes et tous,

 

Merci Patrick,

 

ça y est Gilles, tu as craqué ?;)

 

Pour le plus grand bonheur de tous,..

C'est un peu ça, oui.

Ce document que je réservais aux participants des formations LISP était vraiment trop peu diffusé à mon goût vu le peu de formations dispensées.

Je trouvais dommage que ce travail reste aussi confidentiel.

 

Bonsoir,

 

Merci à Gilles pour sa générosité et Patrick pour la diffusion de l’information, je vais regarder cela avec un grand intérêt et aussi avec beaucoup de plaisir :)

Je crains que tu n'y apprennes pas grand chose, ce document, pas très récent, s'adresse plutôt aux débutants.

Mais si tes yeux de lynx y repèrent quelques erreurs ou incohérences, n'oublie pas de les signaler, merci.

[jeff66]

Merci pour ce partage très appréciable.

Cordialement.

[philsogood]

hello

super boulot, en couleur de surcroit!!

+1

Phil

[lili2006]

Re,

 

Je trouvais dommage que ce travail reste aussi confidentiel.

 

Comme je te comprends,...:)

[lecrabe]

Hello Gilles

 

UN seul mot : MERCI pour la communaute !

 

lecrabe

[x_all]

ho yes merci...

 

en tant que grand (et éternel?) débutant j’aperçois enfin un document intelligible...

énorme merci, mes vacances que j'espère prochaine seront studieuses... :)

[VDH-Bruno]

Mais si tes yeux de lynx y repèrent quelques erreurs ou incohérences, n'oublie pas de les signaler, merci.

 

C'est bien naturel, d'ailleurs c’est déjà en cours d’annotation (trois fois rien) plus du chipotage qu’autre chose, et pas sûr que tout soit opportun dans le cadre d’une introduction au Lisp, je te retourne cela une fois terminé.

 

A+

[alala]

Bonjour,

 

et merci beaucoup pour ce document très intéressant.

 

@+

[(gile)]

Salut

 

Introduction à AutoLISP est désormais disponible sur Autodesk Exchange Apps Store

[DenisHen]

Génial, c'est ma bible dès que je veux faire une routine ! !

 

Merci à (gile)... Une fois de plus...

 

PS : à la fin du chapitre 11, il y a aussi \t qui insert une tabulation...

 

Encore merci pour ce partage...

 

Denis...

[DenisHen]

Salut à la communauté...

 

J'ai juste une petite requête, au vu de l'excellent "Introduction_a_AutoLISP.pdf" de Maître (gile).

 

Y-aurait-il un tuto sur les fenêtres DCL ?

 

Car je cherche à agir à l'intérieur même d'un DCL (un toggle qui activerait/désactiverait un text_box) mais je n'ai rien trouvé de probant là-dessus. Même sur DCL Dialog.

 

Denis...

[didier]

Coucou

 

si tu ne trouves pas sur ce site on ne peut rien pour toi

à mes yeux ce site est LE meilleur

[Patrick_35]

Salut à la communauté...

 

J'ai juste une petite requête, au vu de l'excellent "Introduction_a_AutoLISP.pdf" de Maître (gile).

 

Y-aurait-il un tuto sur les fenêtres DCL ?

 

Car je cherche à agir à l'intérieur même d'un DCL (un toggle qui activerait/désactiverait un text_box) mais je n'ai rien trouvé de probant là-dessus. Même sur DCL Dialog.

 

Denis...

Salut

 

Regarde mode_tile

 

@+

[Patrick_35]

Coucou

 

si tu ne trouves pas sur ce site on ne peut rien pour toi

à mes yeux ce site est LE meilleur

Salut

 

Surtout qu'il est en français :D

 

@+

[DenisHen]

Merci à vous deux...

 

Je vais donc continuer mes piétinements en LISP/DCL...

[DenisHen]

Re.

 

Juste une petite question, j'ai, dans ma DCL :

      ...
     :toggle{
       label= "Calque des points 2D";
       key="Calq2DTxt";
       value=ValCalq2D;
     }
     :edit_box{
       key="Pt2D";
       edit_width=8;
       value=Claq2D;
       allow_accept=true;
     }
     ...

 

Et dans mon LISP :

  ...
 (set_tile "ValCalq2D" ValCalq2D$) ;;ValCalq2D$ = "TOPO_XY" ou rien
 (set_tile "Calq2D" Calq2D$)       ;;Calq2D = "0" ou "1"
 ...

 

Mais rien ne fonctionne... AutoCAD me répond :

; erreur: quitter / sortir abandon

 

J'ai aussi essayé avec Calq2D= 0 ou 1 et value="Claq2D";

 

Si quelqu'un voit mon erreur ou peut me dire à quoi correspond la réponse d'AutoCAD, je suis preneur...

[Patrick_35]

Par exemple

 

Le DCL

test : dialog {
 :toggle{
   label= "Calque des points 2D";
   key="Calq2DTxt";
 }
 :edit_box{
   key="Pt2D";
   edit_width=8;
   allow_accept=true;
 }
 ok_cancel;
}

 

Test 1

(defun c:test1()
 (setq dcl (load_dialog (findfile "test.dcl")))
 (new_dialog "test" dcl)
 (action_tile "Calq2DTxt" "(mode_tile \"Pt2D\" (atoi $value))")
 (action_tile "cancel"    "(done_dialog 0)")
 (action_tile "ok"        "(done_dialog 1)")
 (start_dialog)
 (unload_dialog dcl)
 (princ)
)

 

Test 2

(defun c:test2()
 (setq dcl (load_dialog (findfile "test.dcl")))
 (new_dialog "test" dcl)
 (action_tile "Calq2DTxt" "(set_tile \"Pt2D\" $value)")
 (action_tile "cancel"    "(done_dialog 0)")
 (action_tile "ok"        "(done_dialog 1)")
 (start_dialog)
 (unload_dialog dcl)
 (princ)
)

 

@+

[DenisHen]

Merci Patrick_35 de te pencher sur mon problème...

 

C'est bien ton "test1" qui correspond à mes besoins, sauf que lorsque je clique sur le toggle, il devrait activer edit_box et non l'inverse...

 

Si toggle=1 => on saisie un texte dans l'edit_box.

 

Il faudrait donc inverser "(atoi $value)"

 

Merci encore à vous...

[Olivier Eckmann]

Bonjour,

 

si tu n'es pas allergique à l'anglais, il y a ce site

 

Olivier

[Patrick_35]

C'est bien ton "test1" qui correspond à mes besoins, sauf que lorsque je clique sur le toggle, il devrait activer edit_box et non l'inverse...

Je sais, c'était juste pour te montrer comment ça marche. A toi de l'adapter.

Et comme il n'y avait pas grand chose à changer pour le test2, j'en ai profité pour te montrer le set_tile

 

@+

[DenisHen]

Je viens de tester une petite tentative et ça à l'aire de fonctionner :

(action_tile "Calq2DTxt" "(mode_tile \"Pt2D\" (if (= 1 (atoi $value)) 0 1))")

 

Je ne pensais pas à l'introduction du code LISP à l'intérieur des définitions du DCL...

[(gile)]

Salut (réponse tardive...),

 

D'abord, le DCL (Dialog Control Language) ne fait que décrire de manière statique et indépendante la boite de dialogue (le fichier DCL ne "voit" pas le LISP qui le pilote). On ne peut donc pas utiliser des variables pour passer des valeurs à value.

Si tu veux mettre des valeurs par défaut dans le DCL, il faut utiliser des chaînes avec des valeurs adéquates ("0" ou "1" pour un toggle et n'importe quelle chaîne pour un edit_box mais écrite en dur).

 

C'est depuis le LISP (qui, lui, "voit" le DCL) que tu peux assigner les valeurs des contrôles.

      ...
     :toggle{
       label = "Calque des points 2D";
       key = "Calq2DTxt";
       //value = "1"; // coché par défaut (inutile si le LISP initialise le contrôle avec set_tile)
     }
     :edit_box{
       key = "Pt2D";
       edit_width = 8;
       //value = "TOPO_XY" // valeur par défaut (inutile si le LISP initialise le contrôle avec set_tile) 
       allow_accept = true;
     }
     ...

 

  ...
 (set_tile "ValCalq2D" ValCalq2D) ;; ValCalq2D = "TOPO_XY" ou rien
 (set_tile "Calq2D" Calq2D)       ;; Calq2D = "0" ou "1"
 ...

 

Quant à ton erreur, le "; erreur: quitter / sortir abandon" est assez caractéristique de l'échec de la séquence ci-dessous (qui appelle exit), soit parce que "fichier.dcl" n'a pas été trouvé dans les chemins de recherche ; soit parce que ce fichier ne contient pas de description de dialog nommée "nom_dialog".

 

  (setq dcl_id (load_dialog "fichier.dcl"))
 (if (not (new_dialog "nom_dialogue" dcl_id))
   (exit)
 )

 

 

PS : tu n'es pas obligé de reprendre la convention de nommage des variables utilisée par Terry Miller (TerryCAD) avec ses suffixes liés au type de la variable. Personnellement je trouve que ça ne clarifie pas le code bien au contraire.