Hello friends , need help !

Hello friends.

(setq pt1 (cadr (entsel "\nPick the obj:")))

Above code can get point coordinates , is no pick anything will returns "nil"

I want , if no pick anything still returns the Pick Points coordinates , like function (getpoint) .

Any good idea ?

A more descriptive thread title would help too.

A more descriptive thread title would help too.

Thanks ReMark , But I don't know how describe it . I'm sorry.

Maybe this

(if (not (setq pt1 (cadr (entsel "\nPick the obj:"))))
 (setq pt1 (cadr (grread t 15 0)))
)

 

I want , if no pick anything still returns the Pick Points coordinates , like function (getpoint) .

 

Any good idea ?

Then why don't you use GETPOINT function.

Maybe this

 

(if (not (setq pt1 (cadr (entsel "\nPick the obj:"))))
 (setq pt1 (cadr (grread t 15 0)))
)

Thank you very much , Tharwat. very good !

Thank you very much , Tharwat. very good !

You are most welcome .

You are most welcome .

Hi Mr.Tharwat.

(setq pt1 (cadr (entsel "\nPick the obj:"))),

above code have a small defects.

coordinate precision is constraints by ZOOM

eg.

one horizontal line , x coordinate is "0.0" , I use (setq pt1 (cadr (entsel "\nPick the obj:"))) pick on this line :

result: (18.8774 -0.00995981 0.0)

Zoom Out...

test again ,the result is: (20.8111 0.0871873 0.0)

Is there a way to solve ?

Use a combination of getpoint/nentselp

Use a combination of getpoint/nentselp

Thanks Lee,

you mean like this :

(if	(and (setq p (getpoint "\nSelect: "))
(setq e (cadr(nentselp p)))
)
e
p
)

But I fell do it like this , No difference with

only (setq p (getpoint "\nSelect: "))

I'm not sure what you are trying to achieve -

getpoint will allow the user to accurately specify a point with Object Snaps available; you can then use the selected point to obtain the entity located at point using either nentselp or ssget.

If you want an inaccurate point specification, but a point which lies on a selected entity, use the vlax-curve-getclosestpointto function in conjunction with the point & entity returned by entsel. This will return a point on the selected entity which is nearest to the center of the pickbox aperture.

If you want an inaccurate point specification, but a point which lies on a selected entity, use the vlax-curve-getclosestpointto function in conjunction with the point & entity returned by entsel. This will return a point on the selected entity which is nearest to the center of the pickbox aperture.

Many Thanks ! Lee, can you give an example ?

For example:

(if (setq sel (entsel))
   (list (car sel) (vlax-curve-getclosestpointto (car sel) (trans (cadr sel) 1 0)))
)

Or:

(if (setq pnt (getpoint "\nPick a point: "))
   (if (setq sel (nentselp pnt))
       (list (car sel) (vlax-curve-getclosestpointto (car sel) (trans (cadr sel) 1 0)))
       pnt
   )
)

For example:

(if (setq sel (entsel))
   (list (car sel) (vlax-curve-getclosestpointto (car sel) (trans (cadr sel) 1 0)))
)

Or:

(if (setq pnt (getpoint "\nPick a point: "))
   (if (setq sel (nentselp pnt))
       (list (car sel) (vlax-curve-getclosestpointto (car sel) (trans (cadr sel) 1 0)))
       pnt
   )
)

Thanks Lee, very useful!

Thanks Lee, very useful!

You're welcome!