Topic: Problem with spaces in script file

[Kerry]

The new one is already open because of the saveas.

Delete the original the same way you did previously if you really want to.

eg
(vl-file-delete ArchiveFileName)

Personally I'd leave it in the Temp folder for a while


ahhh I see what you mean ... just a sec

[Kerry]

Have a play now

[danglar]

now it's works more efficient, but in some cases i need to reduce "wight" of cleaned file and I prefere to do it via "wblock" command. In your program I have a little problem with it because in wblock case i have an existing file and I need to overwrite it

[Kerry]

Sounds like a Personal Problem.
I'm sure you can resolve it.

I don't see a problem.

[danglar]

thank you I'll try to find a solution

[Kerry]

When are you wblocking ?
How are you wblocking ?
Which drawing are you wblocking ?
What is the name of the new drawing ?

I shouldn't need to ask these questions ... they should be part of your question.

.

[danglar]

you are right about the questions and time to ask it..
I need:
1. wblock from current file with new name, like you did it
2. open new file (created by wblock command)
3. close previous file
4. delete previous file

[Kerry]

Do you want to do this ALL the time or only sometimes  ?

That is : will you need 2 functions or one ?

[Kerry]

I have an old memory of there being problems wblocking and re-opening a drawing .... not sure about it

Personally I'd
set layer 0
Zoom Extents
Purge 3 times
Audit with repair.
Save.

Do the above in one function.

Then run the renamer we've been playing with.

I'm off to bed.

[danglar]

I need to do wblocking All the times.. in my old program i did it without any problem except for spaces between words in path and name of file

[Kerry]

This seems to work OK for me.
Please Test thoroughly.

Code - Auto/Visual Lisp: [Select]

1. (defun c:doit (/ *error*)                              ; TODO add local variables
2.   ;;-----------
3.   (defun *error* (msg) (myDefault*error* msg))
4.   ;;-----------
5.   (vl-cmdf "_qsave")
6.   (setq dwgprefix     (getvar "dwgprefix")
7.         dwgname       (getvar "dwgname")
8.         filename-base (vl-filename-base dwgname)
9.         tempprefix    (getvar "tempprefix")
10.         thedate       (rtos (getvar "CDATE") 2 0)
11.   )
12.   (setq OriginalFileName (strcat dwgprefix dwgname)
13.         ArchiveFileName  (strcat tempprefix
14.                                  dwgname
15.                                  "-"
16.                                  (rtos (* (getvar "cdate") 1000000) 2 0)
17.                          )
18.         newFileName      (strcat dwgprefix    "XREF-"
19.                                  filename-base
20.                                  "-TPZ-"      thedate
21.                                  ".Dwg"
22.                                 )
23.   )
24.   ;;--
25.   (setq expert (getvar "expert"))
26.   (setvar "expert" 5)
27.   ;;---------- wblock  
28.   (vl-cmdf "-layer" "set" "0" "")
29.   (vl-cmdf ".ucs" "W")
30.   (vl-cmdf "Zoom" "E")
31.   (vl-cmdf "_Saveas" "2013" ArchiveFileName)
32.   (setq ss (ssget "X"))
33.   (vl-cmdf ".wblock" newFileName "" (getvar "insbase") ss "")
34.   (setvar "expert" expert)
35.   ;;---------- write script
36.   (setq fn (open (strcat tempprefix "sclean.scr") "w"))
37.   (write-line "close n" fn)
38.   (write-line
39.     (strcat "open "
40.             (strcat (vl-string-right-trim
41.                       "\""
42.                       (vl-prin1-to-string
43.                         (vl-string-translate "\\" "/" newFileName)
44.                       )
45.                     )
46.                     "\""
47.             )
48.     )
49.     fn
50.   )
51.   (write-line
52.     (strcat
53.       "(vl-file-delete "
54.       (vl-string-right-trim
55.         "\""
56.         (vl-prin1-to-string (vl-string-translate "\\" "/" dwgprefix))
57.       )
58.       filename-base
59.       ".dwg\")"
60.     )
61.     fn
62.   )
63.   (close fn)
64.   ;;----------
65.   (vl-cmdf "script" (strcat tempprefix "sclean.scr"))
66.   (princ)
67. )
68.  
69. (princ)
70.  
71.  
72.  
73.  
74. (defun myDefault*error* (msg)
75.   (while (< 0 (getvar 'cmdactive)) (command-s nil))
76.   (setvar 'menuecho 1)
77.   (cond ((not msg))
78.         ((member
79.            (strcase msg t)
80.            '("console break" "function cancelled" "quit / exit abort")
81.          )
82.          (princ "\nFunction Cancelled.")
83.         )
84.         ((princ (strcat "\nApplication Error: "
85.                         (itoa (getvar 'errno))
86.                         " :- "
87.                         msg
88.                 )
89.          )
90.          (vl-bt)
91.         )
92.   )
93.   (setvar 'errno 0)
94.   (princ)
95. )
96.  
97.   (princ)
98.  
99.  

[danglar]

As requested, i did a Test of your program thoroughly and find it's working properly!
In a same time I made the necessary changes for me.
For example I set the date in a convenient for the Europeans form and canceled backups because I have
automatical backup on my comp.
Now, I think, we have a final solution of the issue (see attached lisp)
Thank you very much for Great Help!

[Kerry]

Good to hear.

Personally I would keep the archive copy ... unless you have a backup immediately before you wblock it and erase the original.

If something weird happens with the wblock you will need to rely on your last backup, which may not be current.