get object name from using getpoint?

[ShadyV]

This is what I am asking

 

user picks a point

(setq pt1 (getpoint "\npick point"))

 

I want to do this..

if pt1 is a line or poly line

save entity name as Blank

else

do nothing

 

Is this something simple that I just cant figure out the correct way to write it?

 

[ronjonp]

(nentselp (getpoint))

[ShadyV]

In case anyone wanted an answer on what I did...

originally I did this after Ron gave me the link.

  (setq pt1 (getpoint "\npick START point"))
(setq srt (nentselp pt1))

 

Then read a bit more and realized I only wanted it to save if it was a polyline and couldn't get nentselp to work right for me so went with

(setq pt1 (getpoint "\npick START point"))
(setq srt (ssget pt1 '((0 . "LWPOLYLINE")))

 

Thanks for the push down the right path Ron. So many different ways to do things is there ever a "right way"?

[ronjonp]

Why is it important to use a point as the pick?

[ShadyV]

 (if (= srt nil)
             (progn
              (command "pedit" "m" pl pl1 ar "" "y" "j" "" "");	joins all the segments!
             )
              (command "pedit" "m" pl pl1 ar srt "" "y" "j" "" "");	joins all the segments!
            )

for later on