TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: hudster on August 04, 2004, 06:01:31 AM

Title: Bind lisp needed
Post by: hudster on August 04, 2004, 06:01:31 AM

I'm looking for a lisp that will bind all xrefs in a drawing, purge it, audit it and then save it to a desired location.

I can manage the bind purge and audit bit, but it's the save as function i'm falling down on.

Can someone post a piece of code that will allow me to save a drawing with the same name to a specified folder.

Cheers In advance.
Andy

Title: Bind lisp needed
Post by: Fuccaro on August 04, 2004, 06:11:41 AM

I use AutoCAD 2004 and this form is working for me:

Code: [Select]

(command "saveas" "" "c:\\test.dwg") Sure, you will replace the TEST.DWG with something like

Code: [Select]

(strcat "c:\\my_folder\\" (getvar "dwgname")) (this is untested)

Title: Bind lisp needed
Post by: hudster on August 04, 2004, 06:49:05 AM

brilliant, thanks very much.

Title: Bind lisp needed
Post by: Fuccaro on August 04, 2004, 09:19:45 AM

:D

Title: Re: Bind lisp needed
Post by: burn1050 on June 22, 2017, 05:15:04 PM

did you ever make a lisp or code for this because if you did then that would be brilliant! would you mind sharing it if you did?

Title: Re: Bind lisp needed
Post by: ahsattarian on May 27, 2022, 03:58:48 AM

This might help u  :

Code - Auto/Visual Lisp: [Select]

1. (defun c:xrbi () (setvar "bindtype" 0) (command "xref" "bind" "*") (princ))