Visual LISP, AutoLISP and General Customization
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

need a lisp

8 REPLIES 8
Reply
Message 1 of 9
Anonymous
238 Views, 8 Replies

need a lisp

I need a lisp that reads x,y,z coordinates by picking a point.
Thanx in advance.
8 REPLIES 8
Message 2 of 9
Anonymous
in reply to: Anonymous

(getpoint) - returns (1.0 1.0 1.0) or (x y z) in LIST format. To save the
point use (setq point1 (getpoint)). To access the different values use
(setq x (car point1)) or (setq y (cadr point1)) or (setq z (caddr point1)).

Here you go:

(defun c:pointlist ()
(setq point1 (getpoint "\nSelect point: "))
(setq x (car point1))
(setq y (cadr point1))
(setq z (caddr point1))
(prompt (strcat "\n\nSelected point is \(" (rtos x) "," (rtos y) "," (rtos
z) "\)."))
(princ)
)


Later,
AW




suky wrote in message <3BB9F3F2.CCAD60A9@hotmail.com>...
>I need a lisp that reads x,y,z coordinates by picking a point.
>Thanx in advance.
>
Message 3 of 9
Anonymous
in reply to: Anonymous

now that i think about it the command "ID" will dot he same thing that the
lisp will do but better it is built into acad.

AW


suky wrote in message <3BB9F3F2.CCAD60A9@hotmail.com>...
>I need a lisp that reads x,y,z coordinates by picking a point.
>Thanx in advance.
>
Message 4 of 9
Anonymous
in reply to: Anonymous

i should start reading ahead. looks like jason already answered your
questions.

aw


suky wrote in message <3BB9F3F2.CCAD60A9@hotmail.com>...
>I need a lisp that reads x,y,z coordinates by picking a point.
>Thanx in advance.
>
Message 5 of 9
Anonymous
in reply to: Anonymous

Yes he did,but thanx anyway.:)

AWeissner schreef:

> i should start reading ahead. looks like jason already answered your
> questions.
>
> aw
>
> suky wrote in message <3BB9F3F2.CCAD60A9@hotmail.com>...
> >I need a lisp that reads x,y,z coordinates by picking a point.
> >Thanx in advance.
> >
Message 6 of 9
Anonymous
in reply to: Anonymous

I am looking for a lisp that converts all selected lines to polyline.
Thankx in advance!
Message 7 of 9
Anonymous
in reply to: Anonymous

I am looking for a lisp that converts all selected lines to polylines.
Thanx in advance.
Message 8 of 9
Anonymous
in reply to: Anonymous

The following lisp out of our archive works for me.

(defun c:pe (/ ssTMP)
(setq ssTMP (ssget))
(command "pedit" PAUSE "y" "j" "p" "" ""))

"suky" wrote in message
news:3BC1FF76.7C9E4E54@hotmail.com...
> I am looking for a lisp that converts all selected lines to polylines.
> Thanx in advance.
>
Message 9 of 9
Anonymous
in reply to: Anonymous

Does anybody know where i can get a lisp file for drawing a walls,doors
and windows?
Thanx in advance.

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Forma Design Contest


Autodesk Design & Make Report