Re: Drawing origin
- From: dveusa <dveusa@xxxxxxxxxxx>
- Date: Mon, 5 May 2008 01:51:09 -0700 (PDT)
On 3 mei, 17:54, strawberry <zac.ca...@xxxxxxxxx> wrote:
On Apr 30, 6:45 pm, dveusa <dve...@xxxxxxxxxxx> wrote:
On 30 apr, 17:54, strawberry <zac.ca...@xxxxxxxxx> wrote:
On 30 Apr, 12:34, dveusa <dve...@xxxxxxxxxxx> wrote:
On 28 apr, 17:26, strawberry <zac.ca...@xxxxxxxxx> wrote:
On 28 Apr, 10:46, dveusa <dve...@xxxxxxxxxxx> wrote:
We need to change about 2000 drawings from a company we just
acquired.
In orde to be able to do that automaticaly with a batch processor we
need to move the origin (0,0) to the left bottom of each drawing (or
the other way around).
I have been trying all kind of things but I can't get it done without
manual intervention for each drawing.
Is there a way to do this automatically with a lisp routine or
otherwise?
Thanks for any help.
Daniel
You must mean the other way round. You can't move the universe - but
you can move everything else relative to it!
What defines the 'bottom left of each drawing'?
Each drawing consists of a drawing with a title block . Bottom left is
the bottom left corner of the title block. At the moment the bottom
left corner is each time at a different location and we want to bring
this corner back to 0,0,0.- Hide quoted text -
- Show quoted text -
And just to clarify... these titleblocks are in modelspace, right?- Tekst uit oorspronkelijk bericht niet weergeven -
- Tekst uit oorspronkelijk bericht weergeven -
Yes they are in modelspace.
Assuming that castlebravo's right, and the bottom left hand corner of
the titleblock really is the minimum extent of the drawing then a
script like this should work:
(command ".-layer" "t" "*" "U" "*" "ON" "*" "")
(command ".move" "all" "" (getvar "extmin") "0,0,0")
(command "layerp")
(command "qsave")
You can use scriptpro (free from autodesk) to batch execute this
script on several files. ScriptPro is very old fashioned and the
interface is poisonously frustrating, but it will do the job. I
strongly suggest you make copies of the files before executing the
script - just in case I've done something wrong - and, at least to
begin with, only execute the script on a few files at a time.
Good luck, and let us know how you get on.- Tekst uit oorspronkelijk bericht niet weergeven -
- Tekst uit oorspronkelijk bericht weergeven -
Dear Strawberry,
The keyline is: move" "all" "" (getvar "extmin") "0,0,0"
I am using "Batch Script Processor v3.0.11" as a batch processor and I
had to adapt the script as follows:
-layer
t
*
U
*
ON
*
move
all
(getvar "extmin")
0,0,0
layerp
zoom
e
qsave
Now it works perfectly.
Thanks for your help
dveusa
.
- References:
- Re: Drawing origin
- From: strawberry
- Re: Drawing origin
- Prev by Date: how to change the background color of
- Next by Date: Re: how to change the background color of
- Previous by thread: Re: Drawing origin
- Next by thread: how to change the background color of
- Index(es):
Relevant Pages
|
