Script file Help (text styles and file saving)

1) I would like to change all the text styles in the dwg to a textstyle that
is in my template. I don't have any idea where to begin.

3) I have a script coping and pasting everything from mspace into a new
file. After this happens, I would like to close the original file, and
overwrte it with the new one (with the same name as the first). I am at a
loss here as well.

 

; before close the original file

(if (setq f (open "c:\\dwgname.txt" "w"))
(progn (write-line (strcat (getvar "dwgprefix")(Getvar "dwgname")) f)(close f))
)
; then in the new file

(if (and (setq f (open "c:\\dwgname.txt" "r"))
(progn (setq dwgnm (read-line f))(close f)
(if dwgnm (command ".saveas" dwgnm "yes"))
)
)

; hope this helps

 

Question from somebody that knows nothing of Lisp: How can I assign a
command name to these code snippets?

 

you can do it in a script file or you can make a function that can called from the command line

example

make a file (with notepad or wordpad or within autocad vlisp)filename setname.lsp

put the next code in the file
(defun c:setname (/ dwgnm)
(setq dwgnm (strcat (getvar "dwgprefix")(getvar "dwgname")))
(vl-propagate 'dwgnm)
)

save the code
put the file in the searchpath of Autocad
and then load the file
(load"setname")

on the command line just type setname and ENTER
the variable dwgnm is now available in all the drawings opened in the same session

try it

go to the next drawing where you pasted the copied entities
type !dwgnm

and so you see the variable is set to the dwgname where you give the command setname
setname is the function that you created (in the setname.lsp)

good luck

 

Thanks - I will givw it a whirl...