Tekeningen verplaatsen naar punt 0,0

[mrnoname]

Hallo medeforummers,

Ik heb een vraag hoe ik met een lisp routine een aantal tekeningen op punt 0,0 kan plaatsen
Voor de duidelijkheid, wij krijgen vaak tekeningen aangeleverd waarbij het punt linksonder niet op 0,0 staat maar op 10,10, 25,25, 5,5, etc.
Nu wil ik iets maken om dit variabele punt op 0,0 te krijgen maar ik ben een leek op het gebied van lisp en met een simpel scriptje lukt het niet i.v.m. de variabele positie van de diverse tekeningen.
Ik wil dus eerst het punt linksonderaan de tekening uitlezen en dan vervolgens de hele tekening naar 0,0 verplaatsen

Iemand een idee?
Alvast bedankt

[Joop]

Met de variabele EXTMIN roep je de het meest linksonder liggende punt op.
Dit hoeft niet op een element te liggen.
bv de zoom extents gebruikt deze variabele samen met EXTMAX.

[mrnoname]

bedankt voor je snelle reactie Joop,

Ik had niet aan EXTMIN gedacht, maar dit zou bruikbaar kunnen zijn...alleen...hoe verwerk ik dit in een lisproutine?

[De Grote Boze Wolf]

Je kan alles "moven" van EXTMIN naar 0,0.
(command "_move" "_all" "" (getvar "extmin") 0,0)

Je kan ook je UCS op het EXTMIN put leggen, wat iets eleganter is.
(command "_ucs" "_new" (getvar "extmin"))

Wil je nadien verschillende tekeningen gerefereerd op elkaar leggen let dan ook op de "insbase" veriabele.

[mrnoname]

Hartelijke dank Grote Boze Wolf ,

Het is gelukt!!!