SaveAs with Properties in Vlisp

Hi All

does anyone know of a Vlisp routine (or VBA) that will do Save Properites and then do a SaveAs.

first it will need to prompt me for Properties ie info on the Drawing and then Prompt for a SaveAs (dwg) all in the same process.

cheers

Jimpcfd

Something like this?

(defun c:test nil
 (if (getcname "dwgprops") (command "_.dwgprops"))
 (initdia) (command "_.saveas")
)

yes thats just what i wanted.

Lee i have another request, which i was going to do through your wedsite, well if you don't mind i'll ask you here. i need a routine that will break all lines,arcs and circles that have intersections in them, so all is broken objects.

cheers

Jimpcfd

yes thats just what i wanted.

 

Lee i have another request, which i was going to do through your wedsite, well if you don't mind i'll ask you here. i need a routine that will break all lines,arcs and circles that have intersections in them, so all is broken objects.

 

cheers

Jimpcfd

This is a bundled function for Breaking Objects.

After writing the BreakAll function the rest was easy.

The following functions are a result.

 

c:BreakAll - Break all objects selected

c:BreakwObjects - Break many objects with a single object

c:BreakObject - Break a single object with many objects

c:BreakWith - Break selected objects with other selected objects

c:BreakTouching - Break objects touching the single Break object

c:BreakSelected - Break selected objects with any objects that touch it

c:MyBreak - Dialog with buttons to run three of the routines

;;; Revision 1.8 Added Option for Break Gap greater than zero

;;; NEW r1.9 c:BreakWlayer - Break objects with objects on a layer

;;; NEW r1.9 c:BreakWithTouching - Break touching objects with selected objects

;;; Revision 2.0 Fixed a bug when point to break is at the end of object

Revision 2.1 Fixed another bug when point to break is at the end of object

Note: Color in picture not by lisp, but added for clairity.

Alanjt , the only thing with that routine is that it's doing to much, i need it as simple as clicking a button and then it should break all object on the drawing without any prompts etc etc.

but of cause i will take a look at the routine.

cheers

jimpcfd

Hi Lee

just tried your code and it returns a nil, it prompts for file name but not for dwgprops.

Cheers

Jimpcfd

Is the DWGPROPS command available on your system?

Hi Lee

just typed Dwgprops, works fine .

cheers

Jimpcfd

Maybe just this then:

(defun c:test nil (command "_.dwgprops") (initdia) (command "_.saveas"))

ok Lee that works well.

thanks again

Alanjt , the only thing with that routine is that it's doing to much, i need it as simple as clicking a button and then it should break all object on the drawing without any prompts etc etc.

but of cause i will take a look at the routine.

 

cheers

jimpcfd

Not sure what happened there, must of touch something !!!