Adding a Suffix to the drawing name

[ReachAndre]

Hello all,
I am trying to add a suffix to the drawing name and current layout.
I have started with the following but get drawings with names such as:

M001- LEGENDS,SYMBOLS AND ABBREVIATIONS.dwg_P1.dwg

My questions is how do i get rid of the first0 ".dwg"?

Thank you all in advance,
Andre

(defun c:test (/ olddwgname suf newdwgname dwgpath oldlayoutname)
  (setq olddwgname (getvar "dwgname"))
  (setq suf (getstring T"\enter suffix: "))
  (setq newdwgname (strcat odn suf))
  (setq dwgpath (getvar "dwgprefix"))
  (setq oldlayoutname (getvar "ctab"))
  (command "-layout" "rename" "" (strcat oldlayoutname suf ""))
  (command ".saveas" "2004" (strcat dwgpath newdwgname))
  (princ))

Thanks again,
Andre

[rkmcswain]

Replace:

(setq olddwgname (getvar "dwgname"))

with this:

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

[Opie]

If going with the vlisp functions as suggested, make sure (vl-load-com) is run beforehand. It should save at least one headache.

[rkmcswain]

If going with the vlisp functions as suggested, make sure (vl-load-com) is run beforehand. It should save at least one headache.

True.

Here is a vanilla lisp option.

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

[kennet.sjoberg]

If going with the vlisp functions as suggested, make sure (vl-load-com) is run beforehand. It should save at least one headache.

Not needed when using only vl- commands
but for the good sake, always load it ; )

: ) Happy Computing !

kennet