Hallo
I'm a new lisp programmer
i need to create an application that meausure all my autocad file
to establish what kind of paper use in my plotter....
this aid me to print before all file width 600
then all file width 800 etc.etc
It's possible this?
how can I do so?
Thank's
--
MArco G.
-------------------------------------------------------------------
Questa comunicazione contiene informazioni confidenziali ed � riservata
esclusivamente ai destinatari. Se ritenete di
averla ricevuta per errore o di non essere il corretto destinatario, siete
pregati di eliminare il messaggio senza
stamparlo, copiarlo, distribuirlo o usare questa informazione in alcun
modo, e di notificare l'errore al mittente.
This communication contains confidential informations and is intended for
the named recipient(s) only. If you believe
that you have received it in error or not to be the intended recipient, do
not print, copy, disseminate or use this information
in any way, and notify this error to the sender.
> This communication contains confidential informations and is intended for
> the named recipient(s) only. If you believe
> that you have received it in error or not to be the intended recipient, do
> not print, copy, disseminate or use this information
> in any way, and notify this error to the sender.
I must notify you, that I think comp.lang.lisp received this posting in
error. :-)
"MArco G." <·············@libero.it> writes:
>
> I'm a new lisp programmer
Good luck! It's a fun language to use.
> i need to create an application that meausure all my autocad file
> to establish what kind of paper use in my plotter....
> this aid me to print before all file width 600
> then all file width 800 etc.etc
>
> It's possible this?
It should be, given the proper autocad primitives. It might even have
some sort of bounding box function which would very easily tell you.
Otherwise you might need to iterate over every object (crawling a tree
or graph of them?) and set {max,min}_{x,y} appropriately. Something
like this:
(let ((max-x 0)
(min-x MAXINT)
(max-y 0)
(min-y 0))
(dolist (object (get-all-objects))
(let ((x (x object))
(y (y object)))
(if (> x max-x)
(setf max-x x))
(if (< x min-x)
(setf min-x x))
(if (> y max-y)
(setf max-y y))
(if (y min-y)
(setf min-y y)))))
I don't know anythin about AutoCAD's Lisp, but it should have control
structures to do essentially the same as the above Common Lisp above.
If it has max and min functions, the ifs can be reduced to:
(setf max-x (max x max-x))
(setf min-x (min x min-x))
(setf max-y (max y max-y))
(setf min-y (max y min-y))
This group primarily discusses Common Lisp, but is also used for all
other Lisp dialects which don't have a specific newsgroup. I am not
aware of an AutoCAD-specific newsgroup, but if there is one then perhaps
you can get better help there.
--
Robert Uhl <http://public.xdi.org/=ruhl>
Buttercup: We'll never survive.
Westley: Nonsense. You're only saying that because no-one ever has.
--The Princess Bride
Robert Uhl <·········@NOSPAMgmail.com> writes:
> I am not aware of an AutoCAD-specific newsgroup, but if there
> is one then perhaps you can get better help there.
There seem to be both comp.cad.autocad and alt.cad.autocad.
Kent M Pitman <······@nhplace.com> writes:
>
>> I am not aware of an AutoCAD-specific newsgroup, but if there is one
>> then perhaps you can get better help there.
>
> There seem to be both comp.cad.autocad and alt.cad.autocad.
'Not aware of' in this case meant 'way too lazy to leave comp.lang.lisp
and check for autocad':-)
--
Robert Uhl <http://public.xdi.org/=ruhl>
If you are going to kill the man, at least give him a decent salute.
--A. Blansitt