getpoint or getstring

Hi,

I'm creating a autolisp routine for drawing ducts.

i want to select a point or type in a string

with (setq x (getstring "/nPick second point or place transition[T]))

it does nothing when i pick a point on screen

with (setq p2 (getpoint "/nPick second point or place transition[T]))

it gives me

"Invalid point."

can i do something with this (error handeling)

or has anybody have a different work-around

When using getpoint, what are you entering at the prompt for the function to return 'Invalid point.'?

My english is not so good.

so I hope i understand your question correctly.

I type "T" but because autocad is expecting a point it returns "Invalid point"

(initget 1 "T")
(setq p2 (getpoint "/nPick second point or place transition[T]"))

??

Yes thanks

Yes thanks

Good for you,

Welcome to CADTutor

Maybe press enter then point is nil this way you do not mix variables as points or strings

(setq x (getpoint "/nPick second point or place transition <Cr>))
(if (= x nil) do something now

(setq sp (getpoint "\nGive startpoint: "))

(while

(initget "v t")

(setq np (getpoint sp"\nGive next point, transition(v) or tee(t)"))

(if

(= np "v")

(transition)

)

(if

(= np "t")

(tee)

)

(duct)

)

this piece of code works without the while loop.

with the while loop it stops on the initget function.

anybody knows why that is?

initget always returns nil, so (while is stop working.

Try

(while
  (progn
    (initget "v t")
    (setq np (getpoint sp"\nGive next point, transition(v) or tee(t)"))
  )
  ......