Débutant demande corrections...

DenisHen · le 11 avril 2006

Boujours professeurs...

Alors voilà, aujourd'hui, j'ai fais ça :

;; Création de Calque avec couleur et Type de ligne
(defun CreaCalq (Calq Coul TypLign /)
 (cond ((= Coul "") (setq Coul "7"))) ;_ Fin de cond
 (cond (or
        (= TypLign "Communale")
        (= TypLign "Bordurechaussee")
        (= TypLign "Cloture-barbele")
        (command "-style" "Cloture2" "simplex.shx" "1" "1" "0" "N" "N" "N")
        )
       ) ;_ Fin de cond
 (cond (or
        (= TypLign "EDF-FT")
        (= TypLign "EDF-FT-Cable")
        (= TypLign "EauPotable")
        (= TypLign "EauUsee")
        (= TypLign "EDF")
        (= TypLign "FranceTelecom")
        (command "-style" "Reseau" "simplex.shx" "1" "1" "20" "N" "N" "N")
        )
       ) ;_ Fin de cond
 (cond (or
        (= TypLign "Cloture-beton-G")
        (= TypLign "Cloture-beton-C")
        (= TypLign "Cloture-beton-D")
        (= TypLign "Cloture-bois-G")
        (= TypLign "Cloture-bois-C")
        (= TypLign "Cloture-bois-D")
        (= TypLign "Vigne")
        (command "-style" "Cloture1" "Phalene-Ligne.shx" "1" "1" "0" "N" "N" "N")
        )
       ) ;_ Fin de cond
 (cond (or
        (= TypLign "Cloture-fer-G")
        (= TypLign "Cloture-fer-D")
        (command "-style" "Cloture3" "RomanD.shx" "1" "1" "0" "N" "N" "N")
        )
       ) ;_ Fin de cond
 (cond ((/= TypLign "")
        (command "-typeligne" "ch" TypLign "s:/config/phalène/phalène.lin" "")
        (command "-calque" "e" Calq "co" Coul "" "tl" TypLign "" "")
        ) ;_ Fin de cond
       (T (command "-calque" "e" Calq "co" Coul "" "tl" "continuous" "" ""))
       ) ;_ Fin de cond
 ) ;_ Fin de defun

Je suis très content de moi, car celà tourne (hormis un "nil" à la fin), mais pas si content car la routine cherche à créer tous les styles... Ce que je cherche à éviter pour ne pas alourdir le dessin...

Mais j'ai encore beaucoup de mal à bien intégrer le coup des parenthèses ! ! ! C'est du tout neuf pour moi... Et pas dans mes reflex ! !

J'ai jeté un oeil sur tblsearch (je sais Tramber, j'avais déjà assez de travail comme-ça... ;) ).. et je pense (si je peu dire) que je devrai avoir un truc comme-ça :

 (cond ((/= TypLign "")
       [surligneur] (cond ((= (tblsearch "Cloture2" "standard") nil) 
               (command "-typeligne" "ch" TypLign "s:/config/phalène/phalène.lin" "")
               ) [/surligneur] 
              ) ;_ Fin de cond
                   ;(command "-typeligne" "ch" TypLign "s:/config/phalène/phalène.lin" "")
        (command "-calque" "e" Calq "co" Coul "" "tl" TypLign "" "")
        ) ;_ Fin de cond
       (T (command "-calque" "e" Calq "co" Coul "" "tl" "continuous" "" ""))
       ) ;_ Fin de cond
 ) ;_ Fin de defun

Encore que je sois pas sûre que les polices SHX autorise les "standard" comme les "gras" ou les "Big Foot"

Voilà, si mes vnérables professeurs s'en sentent le courage... Je les en remerci d'avance

Denis...

Tramber · le 11 avril 2006

Tu prends les COND pour des IF.

Tu devrais comprendre que, pour tous les COND sur TypLign un seul suffirait

DenisHen · le 11 avril 2006

Merci à toi Tramber, Ca devrait donner un truc comme çà ?

;; Création de Calque avec couleur et Type de ligne
(defun CreaCalq (Calq Coul TypLign /)
 (cond ((= Coul "") (setq Coul "7"))) ;_ Fin de cond
       (or
        (= TypLign "Communale")
        (= TypLign "Bordurechaussee")
        (= TypLign "Cloture-barbele")
        (command "-style" "Cloture2" "simplex.shx" "1" "1" "0" "N" "N" "N")
        )
       (or
        (= TypLign "EDF-FT")
        (= TypLign "EDF-FT-Cable")
        (= TypLign "EauPotable")
        (= TypLign "EauUsee")
        (= TypLign "EDF")
        (= TypLign "FranceTelecom")
        (command "-style" "Reseau" "simplex.shx" "1" "1" "20" "N" "N" "N")
        )
       (or
        (= TypLign "Cloture-beton-G")
        (= TypLign "Cloture-beton-C")
        (= TypLign "Cloture-beton-D")
        (= TypLign "Cloture-bois-G")
        (= TypLign "Cloture-bois-C")
        (= TypLign "Cloture-bois-D")
        (= TypLign "Vigne")
        (command "-style" "Cloture1" "Phalene-Ligne.shx" "1" "1" "0" "N" "N" "N")
        )
       (or
        (= TypLign "Cloture-fer-G")
        (= TypLign "Cloture-fer-D")
        (command "-style" "Cloture3" "RomanD.shx" "1" "1" "0" "N" "N" "N")
        )
       ) ;_ Fin de cond
 (cond ((/= TypLign "")
        (command "-typeligne" "ch" TypLign "s:/config/phalène/phalène.lin" "")
        (command "-calque" "e" Calq "co" Coul "" "tl" TypLign "" "")
        ) ;_ Fin de cond
       (T (command "-calque" "e" Calq "co" Coul "" "tl" "continuous" "" ""))
       ) ;_ Fin de cond
 ) ;_ Fin de defun

Mais je me plante toujours àvec les parenthèses... J'ai du mal à prendre le coup... Mais ça viendra...

Merci...

Denis...

Tramber · le 11 avril 2006

T'es vraiment une catastrophe (je me moque bien sur) !

(cond ((= Coul "") (setq Coul "7")) ;_ Fin de cond POURQUOI LA FIN ?.....non, c'est juste le début

(or

(= TypLign "Communale")

(= TypLign "Bordurechaussee")

(= TypLign "Cloture-barbele")

) ; ICI ON CLOT LE OR

(command "-style" "Cloture2" "simplex.shx" "1" "1" "0" "N" "N" "N"); on lance la ou les commandes

)

(or

(= TypLign "Communale2")

(= TypLign "Bordurechaussee2")

(= TypLign "Cloture-barbele2")

) ; ICI ON CLOT LE OR

commandes diverses

)

.......

.....

(T ; pour le dernier

commandes diverses

)

)FIN du COND

DenisHen · le 11 avril 2006

Merci de ta patience Tramber,

Mais ce sont ces fichues parenthèses ET "cond" (qui n'existe pas dans le VB)

Dis-moi si j'ai faux :

(setq a 5)
(cond((< a 6)
                (setq a (+ a 2)) ; fin expression si a<6
                ) ; Clot a < 6
            ((= a 7)
                 (setq a 8)
                 (setq a (+ a 1)) ; fin expression si a=7
            ) ; Clot a = 7
          )Fin cond

On aura donc a=9 à la fin

J'ai bon monsieur ?

(gile) · le 11 avril 2006

Encore des erreurs

Il manque un (cond , le deuxième.

Il manque une paranthèse ouvrante avant chaque (or et une fermante après les groupes de conditionnelles.

Un des :_ Fin de cond (l'avant dernier) n'a pas lieu d'être le cond n'est pas fini.

Pour les paranthèses, je le répète une dernière fois, utilise l'éditeur VisualLISP : le formatage de la feuille (ou de la sélection) décale automatiquement les groupes de paranthèses les plus à l'intérieur vers la droite ou te préviens en cas de paranthèse suppléméntaire ou manquante. Un double clic devant une paranthèse fermante ou derrière une ouvrante sélectionne tout le code jusqu'à la paranthèse équivalente.

Clique sur l'aperçu ci-dessous

http://xs76.xs.to/pics/06152/Edit2.PNG.xs.jpg

Cet éditeur offre aussi de puissantes fonctions de débogage, permet le chargement des routines dans AutoCAD, de tester des bouts de code dans la console, tu peux même avoir automatiquement les ;_ Fin de * (Outils -> Options d'environnement -> Options de formatage VisualLISP)

hormis un "nil" à la fin

Pour éviter qu'une routine retourne le résultat de la dernière évéluation sur la ligne commande (nil pour les (command ...), il faut faire un (princ) à la fin de la routine, avant la paranthèse qui ferme le defun.

Tramber · le 11 avril 2006

Moi j'ai a=7.

Mort de rire, tu sais même pas compter :cool:

Je comprends mieux pourquoi tu ne sais pas programmer

(pince sans rire le Tramber).

Tu as un éditeur de lisp. Tu double-clique devant ou dérrière une parenthèse et aussi tu tapes CTRL+MAJ+E pour évaluer ton code qui sort dans la fenêtre CONSOLE (voyenne, le compte est bon).

DenisHen · le 11 avril 2006

Merci à toi Gile, mais je l'utilise l'éditeur AutoLisp... Même qu'il écrit çà à la fin du code :

;|«Visual LISP© Format Options»
(200 2 20 1 T "Fin de " 100 100 0 0 1 nil T nil T)
;*** NE PAS AJOUTER de texte au-dessous du commentaire! ***|;

Je ne sais pas si ce format donne une bonne vision du code...

Mais le oup du double-clic et des parenthèses, c'est génial, je viens de le faire, et c'est génial...

Merci

Avec ce truc, j'espère faire moins de conneries.... ;)

Denis...

DenisHen · le 11 avril 2006

Merci à tous les deux ! !

Je vois que je peux aisément faire mieux ! ! Le coup du double clique m'aide à 200% ! !

Bon, je vais me coucher, car cette nuit, j'ai épongé une canalisation de flotte jusquà 4 heure du matin ! ! J'ai donc dormis une petite heure...

Là, j'ai les yeux fermés...

Merci encore...

Denis....

( Là, je dors...)

DenisHen · le 11 avril 2006

Alors si je comprend bien (ce qui me semble de moins en moins évident) Si une condition est rempli, il exécute le ce qui suit, puis il sort de cond ?

Alors cond serait comme un "Super IF"" ?

Pffffff, je régresse ou bien ?

Merci à vous...

Denis...

(gile) · le 11 avril 2006

T'es pas au lit ?! ;)

Alors cond serait comme un "Super IF"" ?

Pas vraiment, mais effectivement, on peut toujours remplacer un (if ... par un (cond ... et l'inverse n'est pas vrai.

bonuscad · le 11 avril 2006

Il me semblait avoir évoquer le fonctionnement. :mad:

un exemple alors, colle ce qui suit en ligne de commande et observe les résultats.

(foreach arg '(7 6 5 4 3 2 1 0 -1 -2)

(cond

((> arg 5) (print arg) (princ " -> l'argument est > à 5."))

((> arg 4) (print arg) (princ " -> l'argument est > à 4."))

((> arg 3) (print arg) (princ " -> l'argument est > à 3."))

((> arg 2) (print arg) (princ " -> l'argument est > à 2."))

((> arg 1) (print arg) (princ " -> l'argument est > à 1."))

((>= arg 0) (print arg) (princ " -> l'argument est > ou = à 0."))

(T (print arg) (princ " -> l'argument est négatif!"))

)

(princ)

)

Et pour parfaire l'exemple

(foreach arg '(7 6 5 4 3 2 1 0 -1 -2)

(cond

((>= arg 0) (print arg) (princ " -> l'argument est > ou = à 0."))

((> arg 1) (print arg) (princ " -> l'argument est > à 1."))

((> arg 2) (print arg) (princ " -> l'argument est > à 2."))

((> arg 3) (print arg) (princ " -> l'argument est > à 3."))

((> arg 4) (print arg) (princ " -> l'argument est > à 4."))

((> arg 5) (print arg) (princ " -> l'argument est > à 5."))

(T (print arg) (princ " -> l'argument est négatif!"))

)

(princ)

)

Alors !? que ce passe t-il?

[Edité le 11/4/2006 par bonuscad]

DenisHen · le 12 avril 2006

Merci à vous pour vos réponses...

Bon, pour être concis, je répondrais en 4 points :

1. Gile, non je ne dormais pas encore... "cond" me travail ! ! Mais le bout du tunel n'est peut-être pas très loin...

Si je comprend, cond serait une sorte de "IF" avec plusieurs conditions positives et une (T) aucune (s)condition(s) précédente(s) remplie(s)

on aurrait (sans syntax)

;(cond

; ((première condition) (si remplie première exécution) (si remplie deuxième exécution) (........)) ; Fin première condition

; ((deuxième condition) (si remplie 1) (si remplie 2) (...)); Fin deuxième

; (or

; (Troisième condition alpha)

; (Troisième condition beta)); Fin OR

; (première exécution si alpha et béta remplis)

; (deuxième --- -- -- -- )

; )Fin troisième condition

; (Exécution si rien n'a été rempli); Si T=nil non ?

; )Fin cond

2. BonusCAD, tes deux routines m'ont aidés à comprendre ce que je viens d'écrire pour Gile... Mais qu'à l'instar du "IF", si plusieurs conditions sont remplies, elles seront toutes exécutées... (le IF vérifie toutes les conditions, et, à la première positive, il exécute puis il sort du If ). Merci à toi...

3. Tramber, merci pour tes réponses... Mon problème, ce sont les ((())())()()()())()()())((.....

(cond ((= Coul "") (setq Coul "7")) ;_ Fin de cond POURQUOI LA FIN ?.....non, c'est juste le début
(or
(= TypLign "Communale")
(= TypLign "Bordurechaussee")
(= TypLign "Cloture-barbele")
) ; ICI ON CLOT LE OR
(command "-style" "Cloture2" "simplex.shx" "1" "1" "0" "N" "N" "N"); on lance la ou les commandes
) [surligneur] Mais tu ne me dis pas ce que ferme celle-là....[/surligneur] 
(or
(= TypLign "Communale2")
(= TypLign "Bordurechaussee2")
(= TypLign "Cloture-barbele2")
) ; ICI ON CLOT LE OR
commandes diverses
)   [surligneur] Ni celle-là....[/surligneur] 
.......
.....
(T ; pour le dernier
commandes diverses
)
)FIN du COND

Merci encore messieurs pour votre précieuse aide...

4. Si vous trouvez que je devrais retourner au VB, dite le moi... Je continurai seul.. :(

Bon, je nourrie ma famille et je reviens...

Mais ne vous énervez pas en me répondant ! ! Ce n'est pas mon but...

Merci encore...

Denis... ;)

DenisHen · le 12 avril 2006

NNNNOOOONNNN !! !! !! !! !!

2. BonusCAD, tes deux routines m'ont aidés à comprendre ce que je viens d'écrire pour Gile... Mais qu'à l'instar du "IF", si plusieurs conditions sont remplies, elles seront toutes exécutées... (le IF vérifie toutes les conditions, et, à la première positive, il exécute puis il sort du If ). Merci à toi...

C'est la commande [surligneur] foreach[/surligneur] qui m'a foutu dedans ! !

Cond ne lit pas toutes les condition, il s'arrête après la première vrai........

Parfois, je me demande si je ne devrais pas passer un scanner une un radio ! ! J'ai certainement des connection qu'on dûes chauffées.....

C'est sûr...

Merci BonusCAD....

Denis...

bonuscad · le 12 avril 2006

Cond ne lit pas toutes les condition, il s'arrête après la première vrai........

Ouff, ca y est il a compris le (cond :P

d'où l'importance de l'ordre des conditions dans certain cas comme le disais mon post en chinois :exclam:

DenisHen · le 12 avril 2006

Oui, je sais j'ai mis le temps.....

Merci des millions de fois à tous ! ! !

(gile) · le 12 avril 2006

;(cond
; ((première condition) (si remplie première exécution) (si remplie deuxième exécution) (........)) ; Fin première condition
; ((deuxième condition) (si remplie 1) (si remplie 2) (...)); Fin deuxième
; (or
; (Troisième condition alpha)
; (Troisième condition beta)); Fin OR
; (première exécution si alpha et béta remplis)
; (deuxième --- -- -- -- )
; )Fin troisième condition
; (Exécution si rien n'a été rempli); Si T=nil non ?
; )Fin cond

Effectivement tu as un problème avec les paranthèses !

À la troisième condition, il manque une paranthèse ouvrante. La condition - l'équivalent de (première condition) - c'est :

(or

(Troisième condition alpha)

(Troisième condition beta)

)

donc on écrit avec une double paranthèse avant or:

((or

(Troisième condition alpha)

(Troisième condition beta)

) ;_ Fin OR

(première exécution si alpha et béta remplis)

(deuxième --- -- -- -- )

) ;_Fin troisième condition

Si T=nil non ?

Non, T c'est True (vrai) nil c'est rien, vide.

Un test conditionnel : (= var 0) retourne T si var a la valeur 0, sinon nil.

Dans un (cond ... on peut finir par un dernier test (T (exécution1) (exécution2)) où T veut dire "dans tous les autres cas (si tous les test conditionnels précédent on retourné nil).

S'il n'y a rien à exécuter dans ce cas, écrire (T nil) est inutile puisque c'est ce qui se passe si rien n'est spécifié.

DenisHen · le 12 avril 2006

Merci à toi Gile. Donc, si j'ai tout compris (ce qui m'étonnerait de plus en plus au vu des mes facultés ;) ) Ma routine s'écrirait comme ça :

;; Création de Calque avec couleur et Type de ligne
(defun CreaCalq (Calq Coul TypLign /)
 (cond
   ((= Coul "") (setq Coul "7"))
   ((or (= TypLign "Communale")
        (= TypLign "Bordurechaussee")
        (= TypLign "Cloture-barbele")
        ) ;_ Fin de or
    (command "-style" "Cloture2" "simplex.shx" "1" "1" "0" "N" "N" "N")
    )
   ((or
      (= TypLign "EDF-FT")
      (= TypLign "EDF-FT-Cable")
      (= TypLign "EauPotable")
      (= TypLign "EauUsee")
      (= TypLign "EDF")
      (= TypLign "FranceTelecom")
      ) ;_ Fin de or
    (command "-style" "Reseau" "simplex.shx" "1" "1" "20" "N" "N" "N")
    )
   ((or
      (= TypLign "Cloture-beton-G")
      (= TypLign "Cloture-beton-C")
      (= TypLign "Cloture-beton-D")
      (= TypLign "Cloture-bois-G")
      (= TypLign "Cloture-bois-C")
      (= TypLign "Cloture-bois-D")
      (= TypLign "Vigne")
      ) ;_ Fin de or
    (command "-style" "Cloture1" "Phalene-Ligne.shx" "1" "1" "0" "N" "N" "N")
    )
   ((or
      (= TypLign "Cloture-fer-G")
      (= TypLign "Cloture-fer-D")
      ) ;_ Fin de or
    (command "-style" "Cloture3" "RomanD.shx" "1" "1" "0" "N" "N" "N")
    )
   ) ;_ Fin de cond
 (princ TypLign)
 (cond
   ((/= TypLign "")
    (command "-typeligne" "ch" TypLign "s:/config/phalène/phalène.lin" "")
    (command "-calque" "e" Calq "co" Coul "" "tl" TypLign "" "")
    )
   (T
    (command "-calque" "e" Calq "co" Coul "" "tl" "continuous" "" "")
    )
   ) ;_ Fin de cond
 ) ;_ Fin de defun


;|«Visual LISP© Format Options»
(200 2 20 1 T "Fin de " 100 100 0 0 1 nil T nil T)
;*** NE PAS AJOUTER de texte au-dessous du commentaire! ***|;

Si j'ai bon, je saut au plafond ! !

Merci...

Denis...

(gile) · le 12 avril 2006

Déjà, je ne vois plus d'erreur de syntaxe, un bon point. ;)

Comme je ne suis pas sûr de ce que tu veux faire exactement je ne peux juger du reste, mais une des chose qui me plaisent en LISP c'est la faciliter avec laquelle on peut s'auto-évaluer.

Teste toi-même ta routine, pour voir si elle répond à tes attentes, essaye de penser à toutes les possibilités pour les arguments Calq Coul et TypLign même de possibles arguments érronés pour voir si elle réagit comme tu le veux.

DenisHen · le 12 avril 2006

Merci Gile, j'e travaille dessus en ce moment même...

Mais elle ne réagit pas comme je le veux... Car elle tende de charger un type de ligne qui existe déjà, et là, BOUM...

Je tente pour le moment d'insérer le tri d'un type de ligne existant avec tblsearch...

Merci à toi....

Denis...

DenisHen · le 14 avril 2006

Je tente pour le moment d'insérer le tri d'un type de ligne existant avec tblsearch..

Non, un style de texte....

Mais bon...CadXP no doit être ouvert que pour moi.... ;)

Denis...

Connexion

Débutant demande corrections...

Messages recommandés

DenisHen

Tramber

DenisHen

Tramber

DenisHen

(gile)

Tramber

DenisHen

DenisHen

DenisHen

(gile)

bonuscad

DenisHen

DenisHen

bonuscad

DenisHen

(gile)

DenisHen

(gile)

DenisHen

DenisHen

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante