filenames

Could someone please tell me why line 4 below is not removing the (.dwg) suffix from dname.. I cant see what i'm doing wrong and im sure its something silly.

(Defun c:ext (/)
(setq sheetno (getstring "\nsheet number?: "))
(setq dname (getvar "dwgname"))
(substr dname 1 (- (strlen dname) 4))
(setq dpref (getvar "dwgprefix"))
(setq fname (strcat dpref dname " - " sheetno))
(setq pt1 (getpoint "\npick left hatd corner of sheet?: "))
(setq ss1 (ssget))
(command "-wblock" fname "" pt1 ss1 "")
)

thanks

Spencer

 

Change this line:
(substr dname 1 (- (strlen dname) 4))

to this one:
(setq dname (substr dname 1 (- (strlen dname) 4)))

 

Not to worry,, I was being dumb, ive worked it out for myself.. Duhh