chemin d un bloc

[FRED350]

Bonjour,

j'ai un problème sur le chemin de mon bloc (nombloc "C:\00-llisp\datej.dwg")

 

pouvez vous m'aider

;;;______________________________________
;;;Programme DATEJ.LSP
;;;______________________________________
(defun c:DATEJ ( / lmois jj mm aa datej rep echbloc nombloc )
 
;;;;; lmois = liste en clair des mois de l année
 (setq lmois ( list "janvier" "février" "Mars" "Avril" "Mai" "juin" "Juillet" "Aout" "Septembre" "Octobre" "Novembre" "Decembre" );list

datej 	(rtos (getvar "cdate")2 0) ;;;;20150505
jj	(substr datej 7 2 );;;;05
mm	(substr datej 5 2 );;;;05
aa	(substr datej 1 4 );;;;2015

rep	(getstring"\nFormat pour la date :1 04/05/2015 / 2 : 4 Mai 2015 <1>:")
echbloc	(getdist  "\nEchelle du bloc <1>:")
	
nombloc "C:\00-llisp\datej.dwg"
		
	);setq



 ;;;;;_________________________________________________________
 ;;;;; test de la condition

 (if (= rep "2")  ;;;;format de la date 4 Mai 2015
   	(setq datej (strcat jj " " (nth (- (atoi mm) 1) lmois) " " aa))
   	(setq datej (strcat jj "/" mm "/" aa))
   	);if


;;;; test la valeur de j echelle

(if(= echbloc nil)
	(setq echbloc 1 )
);if
(alert(vl-prin1-to-string nombloc))

(setvar "cmdecho" 0)
 (setvar "attdia" 0)
 (prompt "\nPosition de la DATE")
 (command "inserer" Nombloc pause echbloc echbloc 0 datej)
 (princ)
	);defun c:datej

[zebulon_]

Bonjour,

 

une barre oblique inverse (\) à l'intérieur d'une chaine de caractères permet d'inclure des caractères de contrôle ou des codes d'échappement.

 

Dans ton code, tu l'utilise d'ailleurs dans la ligne (prompt "\nPosition de la DATE") où le code \n signifie "nouvelle ligne".

 

Compte tenu que \ introduit un code de contrôle, il ne représente pas le caractère "\". Si on veut le caractère "\", il faut le code correspondant à savoir "\\"

 

Donc, le chemin serait plutôt "c:\\00-llisp\\datej.dwg"

 

Par ailleurs, si le répertoire 00-llisp est dans la liste des chemins de recherche des fichiers de support, on peut aussi utliser la fonction (findfile "datej.dwg") qui renverra le chemin complet.

 

Amicalement

Vincent