SaveAs with Properties in Vlisp

[jimpcfd]

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

[Lee Mac]

Something like this?

 

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

[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

[alanjt]

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

http://www.theswamp.org/index.php?topic=10370.0

 

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.

[jimpcfd]

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

[jimpcfd]

Hi Lee

 

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

 

Cheers

Jimpcfd

[Lee Mac]

Is the DWGPROPS command available on your system?

[jimpcfd]

Hi Lee

 

just typed Dwgprops, works fine .

 

cheers

Jimpcfd

[Lee Mac]

Maybe just this then:

 

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

[jimpcfd]

ok Lee that works well.

 

thanks again

[alanjt]

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

Whatever floats your boat. Why are you using such large text?

[jimpcfd]

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