The Hurricane Forum

The Hurricane Forum

All Forums

Hurricane for AutoCAD

Tips and Tricks

Ending each file changed *without* saving?

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

Screensize:

UserName:

Password:

Format Mode:

Format:

Message:

* HTML is OFF
* Forum Code is ON

Smilies

[quote][i]Originally posted by Cadapult[/i]
[br]Here's what I'd like to do:
Open a file, change the color of all the entities to "byblock",
WBLOCK the file over itself, get out of the drawing without saving, open the next drawing, change the color..., etc.

Why do I want to WBLOCK the file over itself without saving, you ask?  Because doing this reduces the files to their absolute minimum size, giving us part files 40-60% smaller than the same files saved normally. I have thousands of files I need to update and shrink, and it would be nice to use Hurricane to do it.

Here is the script file so far:

[blue];;CHANGES THE COLOR OF ALL ENTITIES TO 'BYBLOCK'
;;
CHANGE
ALL

P
C
BYBLOCK

_REDRAW
(LOAD "D:/DEPT/ENGINEERING/CAD/UBERPURGE.LSP")
UBERPURGE[/blue]

Here's the purge LISP called by the script routine:

[maroon](defun C:UBERPURGE ()
(setvar"tilemode" 1)
(command ".ucs" "W" "zoom" "e")
(command "wblock" (strcat(getvar"dwgprefix")(getvar"dwgname")) "Y" "" "non" "0,0" "w" (getvar"vsmin") (getvar"vsmax") "")
);end UBERPURGE[/maroon]

The change color and WBLOCK parts are cake, it's getting out of the file without saving it or breaking the script that's got me baffled. So, does anyone have an idea how this might be accomplished?

Thanks,

Mike
[/quote]

Attach a File
Check here to include your profile signature.
Check here to subscribe to this topic.

T O P I C R E V I E W
Cadapult	Posted - January 04 2010 : 11:34:52 AM Here's what I'd like to do: Open a file, change the color of all the entities to "byblock", WBLOCK the file over itself, get out of the drawing without saving, open the next drawing, change the color..., etc. Why do I want to WBLOCK the file over itself without saving, you ask? Because doing this reduces the files to their absolute minimum size, giving us part files 40-60% smaller than the same files saved normally. I have thousands of files I need to update and shrink, and it would be nice to use Hurricane to do it. Here is the script file so far: ;;CHANGES THE COLOR OF ALL ENTITIES TO 'BYBLOCK' ;; CHANGE ALL P C BYBLOCK _REDRAW (LOAD "D:/DEPT/ENGINEERING/CAD/UBERPURGE.LSP") UBERPURGE Here's the purge LISP called by the script routine: (defun C:UBERPURGE () (setvar"tilemode" 1) (command ".ucs" "W" "zoom" "e") (command "wblock" (strcat(getvar"dwgprefix")(getvar"dwgname")) "Y" "" "non" "0,0" "w" (getvar"vsmin") (getvar"vsmax") "") );end UBERPURGE The change color and WBLOCK parts are cake, it's getting out of the file without saving it or breaking the script that's got me baffled. So, does anyone have an idea how this might be accomplished? Thanks, Mike
3 L A T E S T R E P L I E S (Newest First)
Admin	Posted - January 04 2010 : 4:52:08 PM No problem... and thanks for sharing the "how to" above. There are many users that will find that most helpful!
Cadapult	Posted - January 04 2010 : 2:34:39 PM "Test Run"? Never even thought of it. I just tried it out on a test folder and (woohoo!) it worked like a charm! Thanks very much for the suggestion. That was the first time in the 5 or 6 years I've been using Hurricane that I couldn't figure out how to do something. Well, I should be good now for another 5 or 6 years Mike
Admin	Posted - January 04 2010 : 12:56:46 PM Have you tried the "Test Run" checkbox...? (It suppresses the QSAVE command)

The Hurricane Forum

This page was generated in 0.14 seconds.

Snitz Forums 2000