Topic: Mmake LISP file to recreate selected objects in new File

[mailmaverick]

Few years ago I came across a LISP routine which will create a LISP or SCRIPT file to recreate all selected objects in a new file in respective layers, styles etc.

If anyone has it, please share it with me.

Thanks

[ribarm]

Maybe...

cp.lsp

Code: [Select]

(defun c:cp nil
  (ssget "_:L")
  (command "_.script" (findfile "cp.scr"))
  (princ)
)

cp.scr

Code: [Select]

(vl-load-com)
(setq fn (open "c:/doc.txt" "w"))
(setq k -1)
(while (not (equal (vla-get-activedocument (vlax-get-acad-object)) (vla-item (vla-get-documents (vlax-get-acad-object)) (setq k (1+ k))))))
(princ k fn)
(close fn)
(setq fn nil k nil)
_.copybase
0,0
P

_.new

_.pasteclip
0,0
(vl-load-com)
(setq fn (open "c:/doc.txt" "r"))
(setq k (read (read-line fn)))
(close fn)
(vla-activate (vla-item (vla-get-documents (vlax-get-acad-object)) k))
(defun doc nil
(if (findfile "c:\\doc.txt") (vl-file-delete "c:\\doc.txt"))
(setq doc nil fn nil k nil)
(princ)
)
(alert "Type (doc) at command prompt")
(princ)

Load cp.lsp in acaddoc.lsp and put cp.scr in SFSP of AutoCAD... It works for me, but you should test it...

HTH, M.R.

[mailmaverick]

Dear Marko

When I run the code, it copies the selected objects into a new file instantaneously.
However, I need a LISP / SCRIPT file to be formed when I select objects to be copied.
So that when I send the LISP / SCRIPT file by email to anybody, he can just drag/drop and recreate the objects.

[ronjonp]

Why not just send the DWG file ?

[mailmaverick]

Dear Ron

There is some specific reason for that.
And the reason why I am asking for such a file is routine is because I think I have seen i few years ago, which I am not able to find today.
So I though since I have seen it, maybe, other might have also seen it and kept in records.

[ronjonp]

This one?
http://www.theswamp.org/index.php?topic=4814.0

[CAB]

Make sure you get the latest revision of that routine here: http://www.theswamp.org/index.php?topic=31145

[mailmaverick]

Excellent CAB !!!

This is exactly what I was looking for.