Author Topic: Bind lisp needed  (Read 2456 times)

0 Members and 1 Guest are viewing this topic.

hudster

  • Gator
  • Posts: 2848
Bind lisp needed
« 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
Revit BDS 2017, 2016, 2015, 2014, AutoCAD 2017, 2016, Navisworks 2017, 2016, BIM360 Glue

Fuccaro

  • Guest
Bind lisp needed
« Reply #1 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)

hudster

  • Gator
  • Posts: 2848
Bind lisp needed
« Reply #2 on: August 04, 2004, 06:49:05 AM »
brilliant, thanks very much.
Revit BDS 2017, 2016, 2015, 2014, AutoCAD 2017, 2016, Navisworks 2017, 2016, BIM360 Glue

Fuccaro

  • Guest
Bind lisp needed
« Reply #3 on: August 04, 2004, 09:19:45 AM »
:D

burn1050

  • Mosquito
  • Posts: 1
Re: Bind lisp needed
« Reply #4 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?

ahsattarian

  • Newt
  • Posts: 93
Re: Bind lisp needed
« Reply #5 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))