Lisp ne fonctionne plus

[hardyorock]

Bonjour les amis,

je voudrai savoir pourquoi ce lisp ne fonctionne plus sur AUTOCAD 2010?

merci les amis pour vos réponses.

(defun c:VP_prepa ()
 (setq avantdossier (substr (strcase (getvar "dwgprefix")) 1 30))
 (setq	dossiersil (strcat avantdossier "2_Silhouette\\" (getvar "dwgname"))
 )
 (setq	dossierdet
 (strcat avantdossier "3_Détail\\" (getvar "dwgname"))
 )
 (command "_saveas" "" dossiersil)
 (command "_saveas" "" dossierdet)
)

 

[Patrick_35]

Salut

 

Soit le répertoire n'existe pas ou le fichier est existant

 

@+

[hardyorock]

Merci Patrick_35, vous avez raison, j'ai dû faire une erreur, il faudra modifier le nombre de caractère de STRCASE a 16 :

(setq avantdossier (substr (strcase (getvar "dwgprefix")) 1 16)) 

 

merci encore

[didier]

coucou

 

comment çà ???

pourquoi changer la valeur de la longueur !!

tu veux tronquer le nom du répertoire ?

tu peux expliquer ?

 

amicalement