Topic: Problem with spaces in script file

[danglar]

I have a program for add file prefix "Xref-" and suffix as current date
and open modified XREF file with close and delete previous file (see attached lisp).
Program working properly until you have file name with spaces between words
(example: pump station.dwg) or you have a path with spaces between words
(example: c:\Pump station\example.dwg)
Can somebody fix it?

[ronjonp]

Try putting quotes around the text like so "c:\Pump station\example.dwg"

[danglar]

Part and name of file here is a variable (not constant) so I need to do it programmaticaly somehow...

[ronjonp]

Use a combination of vl-prin1-to-string & strcat:

Code - Auto/Visual Lisp: [Select]

1. (alert (vl-prin1-to-string (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)))))

[danglar]

..but this string

Code - Auto/Visual Lisp: [Select]

1. (alert (vl-prin1-to-string (strcat (getvar 'dwgprefix) "XREF-" (vl-filename-base (getvar 'dwgname) "-TPZ-" thedate ))))
2.  
3.  

returns an error: too many arguments

[ronjonp]

Your closing paren for vl-filename-base is in the wrong place.

[danglar]

right way is:

Code - Auto/Visual Lisp: [Select]

1.  
2. (setq www (vl-prin1-to-string (strcat (getvar 'dwgprefix) "XREF-" (vl-filename-base (getvar 'dwgname)) "-TPZ-" thedate )))
3.  
4.  

but now i have an eror in this strings

Code - Auto/Visual Lisp: [Select]

1. (write-line (strcat "open " www) fil1)
2. (write-line (strcat "(vl-file-delete www)") fil1)
3.  

[ronjonp]

Sorry Danglar, I don't have time right now to debug your code. You initial question was just about spaces & text strings.

[danglar]

Thank you ronjonp. Your help was very appreciated..

[ronjonp]

Thank you ronjonp. Your help was very appreciated..

You're welcome.

[Prickle Farmer]

Why make you life complicated with VL?

Code - Auto/Visual Lisp: [Select]

1. (setq www (strcat (getvar "DWGPREFIX") "XREF-" (substr (getvar "DWGNAME") 1 (- (strlen (getvar "DWGNAME")) 4)) "-TPZ-" (rtos (gevar "CDATE") 2 0)))

EDIT: Added code tags. - John

[ronjonp]

Why make you life complicated with VL?

(setq www (strcat (getvar "DWGPREFIX") "XREF-" (substr (getvar "DWGNAME") 1 (- (strlen (getvar "DWGNAME")) 4)) "-TPZ-" (rtos (gevar "CDATE") 2 0)))

What is complicated about VL ? Your solution seems more complicated to me.

[danglar]

Thank you
for your note, but I still have a problem with script ..
I have an error " error: no function definition: GEVAR"
when I invoke this string

Code - Auto/Visual Lisp: [Select]

1. (write-line  "open " www fil1)
2.  

[Kerry]

That's because you spelled it incorrectly.

Try GETVAR

http://help.autodesk.com/view/ACD/2016/ENU/?guid=GUID-9C56BEA8-D473-4305-9E17-BEF7630C334D

[danglar]

You are right:
correct string is:

Code - Auto/Visual Lisp: [Select]

1. (setq www (strcat (getvar "DWGPREFIX") "XREF-" (substr (getvar "DWGNAME") 1 (- (strlen (getvar "DWGNAME")) 4)) "-TPZ-" (rtos (getvar "CDATE") 2 0)))

but program now not working properly