dwgname

[Infinicad]

Bonjour,

Comment faut-il faire pour recuperer le nom du fichier (DWGNAME) sans l'extension.

Merci a vous

 

Bon j'ai trouvé ça : (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4))

Quelqu"un peut me dire à quoi correspond le 1?

 

Merci re

[lovecraft]

Salut,

 

Tu peux le gérer comme ça

 

(substr (setq str (getvar "dwgname")) 1 (- (strlen str) 4))

 

Cordialement,

 

Laurent

[lovecraft]

Le 1 veut dire à partir du premier caractère de ta chaîne de texte

 

 

exemple: monfichier.dwg

 

(setq str (getvar "dwgname")) => monfichier.dwg

(strlen str) => 14 ; c'est le nombre de caractère du nom du fichier y compris l'extension

le - 4 c'est pour supprimer l'extension .dwg qui correspond à 4 caractères

[Infinicad]

Bonjour,

Comment faut-il faire pour recuperer le nom du fichier (DWGNAME) sans l'extension.

Merci a vous

 

Bon j'ai trouvé ça : (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4))

Quelqu"un peut me dire à quoi correspond le 1?

 

Merci re

MERCI A VOUS

[Patrick_35]

Salut

 

(vl-filename-base (getvar "dwgname"))

 

@+

[Infinicad]

Salut

 

(vl-filename-base (getvar "dwgname"))

 

@+

 

hA ben ouais c'est comme en musique y'a les stars et ya les autres....

merci bcp

[VDH-Bruno]

Bonsoir,

 

Autres variantes possible :

(vl-string-right-trim ".dwg" (getvar 'dwgname))

(vl-string-subst "" ".dwg" (getvar 'dwgname))

(substr (setq str (getvar 'dwgname)) 1 (vl-string-search ".dwg" str 1))

(substr (setq str (getvar 'dwgname)) 1 (vl-string-position (ascii ".") str nil t))

(substr (setq str (getvar 'dwgname)) 1 (vl-string-position (ascii ".") str))

 

A+

[lovecraft]

Bonsoir,

 

Autres variantes possible :

(vl-string-right-trim ".dwg" (getvar 'dwgname))

(vl-string-subst "" ".dwg" (getvar 'dwgname))

(substr (setq str (getvar 'dwgname)) 1 (vl-string-search ".dwg" str 1))

(substr (setq str (getvar 'dwgname)) 1 (vl-string-position (ascii ".") str nil t))

(substr (setq str (getvar 'dwgname)) 1 (vl-string-position (ascii ".") str))

 

A+

 

Franchement, moi j'adore ce partage de style ;)

 

@plus

 

 

[VDH-Bruno]

Re,

 

Franchement, moi j'adore ce partage de style ;)

 

@plus

 

Pour information la version la plus rapide et celle utilisant vl-string-right-trim, à délaisser car sur l’exemple suivant le résultat est erroné.

_$ (vl-string-right-trim ".dwg" "totodwg.dwg")
"toto"

 

A mon avis (et après teste) la plus efficiente et celle utilisant vl-string-subst, mais elle nécessite de connaitre et spécifier l’extension du fichier (cas présent), contrairement à la solution vl-filename-base qui est plus confortable d’utilisation.

 

A+

[Patrick_35]

Salut

 

contrairement à la solution vl-filename-base qui est plus confortable d’utilisation.

Pas seulement.

Si tu ouvres un dxf, ta formule ne fonctionne plus.

Et il faut aussi songer que l'on peut avoir des extensions qui ont plus de 3 caractères (exemple avec les dwl2 d'autocad)

 

@+

[VDH-Bruno]

Bonjour Patrick_35,

Pas seulement.

Si tu ouvres un dxf, ta formule ne fonctionne plus.

Et il faut aussi songer que l'on peut avoir des extensions qui ont plus de 3 caractères (exemple avec les dwl2 d'autocad)

 

C’est un peu l’idée que je voulais exprimer avec la remarque suivante..

A mon avis (et après teste) la plus efficiente et celle utilisant vl-string-subst, mais elle nécessite de connaitre et spécifier l’extension du fichier (cas présent),

 

Amicalement Bruno