Comment éviter command inconnu

[lovecraft]

Bonsoir,

 

Je viens de faire ce p'tit lisp (je sais qu'il n'est pas optimisé "mais je fais avec mes moyens)

 

cependant, il fonctionne, mais ce message m'embarrasse:

 

http://img11.hostingpics.net/pics/791614Capture.jpg

 

Comment l'éviter ?

 

Autrement voici le code:

 

(defun c:test (/)

(SETVAR "CMDECHO" 0)

(if  (tblsearch "LAYER" "OH_TXT")
(command "-calque" "E" "OH_TXT" "")
(command "-calque" "N" "OH_TXT" "co" 7 "OH_TXT" "")
);fin du if layer



(if(tblsearch "style" "TXTDZ")
 (command "-style" "TXTDZ" "ARIAL.ttf" "0" "1" "" "" "" "")
 (command "-style" "TXTDZ" "ARIAL.ttf" "0" "1" "" "" "" "")
 );fin du if style

(if (not (tblsearch "Dimstyle" "COTEDZ"))

(progn

(setvar "lunits" 2)
(setvar "DIMASSOC" 2)
(setvar "DIMBLK" "")
(setvar "DIMALT" 0)
(setvar "DIMSCALE" 1)
(setvar "DIMASZ" 0.25)
(setvar "DIMEXE" 0.20)
(setvar "DIMDLE" 0)
(setvar "DIMTIH" 0)
(setvar "DIMTOH" 0)
(setvar "DIMTAD" 1)
(setvar "DIMZIN" 8)
(setvar "DIMTXT" 0.25)
(setvar "DIMALTF" 0.0394)
(setvar "DIMGAP" 0.1)
(setvar "DIMALTD" 1)
(setvar "DIMTOFL" 0)
(setvar "DIMUNIT" 2)
(setvar "DIMDEC" 2)
(setvar "DIMALTU" 2)
(setvar "DIMAUNIT" 0)
(setvar "DIMJUST" 0)
(setvar "DIMALTTZ" 0)

(command "-DIMSTYLE" "S" "COTEDZ")
(setvar "DIMTXSTY" "TXTDZ")
(command "-DIMSTYLE" "S" "COTEDZ" "O")

)

);fin du if dimstyle

(command "-DIMSTYLE" "R" "COTEDZ" "")

)

 

 

Merci de votre aide,

 

Cordialement,

 

Laurent

[(gile)]

Salut,

 

En général, ce message est dû à un Enter ("") de trop dans une expression (command ...).

[lovecraft]

Merci Gile

 

Je viens de corriger le tire

 

Laurent

[philsogood]

Merci gile

dans mon cas il m'en manquait un!