appeler une vue

[x_all]

bonjour

 

je tente une adaptation de vue-pavé de (gile)

 

comme d'ahabitude ça à l'air simple mais ça ne l'est pas...

;;; daptation pitoyable de vues-pave de (gile)


(mapcar
 '(lambda (f v)
    (eval (list 'defun-q
	 f
	 nil
	 (list 'command "-vue Rappel " v)
	 '(princ)
   )
    )
  )
 '(c:0 c:1 c:2 c:3 c:4 c:5 c:6 c:7 c:8 c:9)
 '("vue0"	"vue1"    "vue2"	"vue3"    "vue4"
   "vue5"	"vue6"    "vue7"	"vue8"	    "vue9"

 

je ne comprend pas pourquoi ça ne marche pas. Sans doute une subtilité dans la définition de la fonction? car je suis à peu près sur que si je défini 10 fonctions à la pogne ya pas de raison pour que ça marche pas...

 

mais une fois de plus le maitre m'a perdu...

bien sur les vues sont définies en amont...

[(gile)]

car je suis à peu près sur que si je défini 10 fonctions à la pogne ya pas de raison pour que ça marche pas...

Pas si sur...

 

L'erreur vient des arguments passés à command. En LISP, le nom de commande et chacune des options doivent être des arguments séparés.

 

(mapcar
 '(lambda (f v)
    (eval
      (list 'defun
     f
     nil
     (list 'command "_.view" "_restore" v)
     '(princ)
      )
    )
  )
 '(c:0 c:1 c:2 c:3 c:4 c:5 c:6 c:7 c:8 c:9)
 '("vue0" "vue1" "vue2" "vue3"	"vue4" "vue5" "vue6" "vue7" "vue8" "vue9")
)

[x_all]

harf pinaise...je le savais en plus... quel c...

 

merci beaucoup... ça va me rendre service :)

[philsogood]

hello

moi c encore plus bête!!

je n'arrive pas à faire fonctionner le lisp de (gile) vues_pavé

je charge le isp

tape un chiffre ett entrée et...

rien "commande inconnue" !!!

eRf!!

Phil