Find the extension .dwg!

[boyds86]

(defun c:TEST()
(setq A (getvar "dwgname"))
(setq B "dwg")
(if (equal (substr A (- (strlen A) 3)(strlen A)) B)
(command "QSAVE")(command "_.close" "y" ""))

(princ)
)

--------------

Hello,

I am trying to build a lisp that if filename extention is .dwg will be close without save (for any change). Otherwise, It will be saved (specify that filename is .dxf).

But the lisp above is not working. It alway (command "_.close" "y" "") for any .dwg&.dxf.

Does anybody know the reason why?

Thank you for yourtime!

[_gile · Accepted solution]

Hi

The substr function index is 1 based (i.e. the first character in the string is position 1).

You should write:

(if (equal (substr A (- (strlen A) 2) (strlen A)) B) ...)

Or, simply:

(if (= (vl-filename-extension A) ".dwg") ...)

[boyds86]

Wow! It is great, Thank you very much!

[WeTanks]

the address where the file is saved,
Can it be added as a fixed place?
For example, C:\1

(defun c:TEST()
(setq A (getvar "dwgname"))
(setq B "dwg")
(if 
(= (vl-filename-extension A) ".dwg")
(command "QSAVE")
(command "_.close" "y" "")
)
(princ)
)