grread I think???

I am trying to do two things with one pick. I want to select an object, and then use the point that I picked to select the object in a getdist command.

So i set it up like this :

(setq pt1 (grread nil 2))
(setq l1 (ssget ":S"'((0 . "LINE"))))
(setq w1 (getdist pt1 "Side : "))

But it doesn't work...I don't know how the grread ting works at all...and the help file is pretty unhelpful...any suggestions?

 

Use ssnamex instead

 

could you give me a little more to go one than that? I don't know how to use ssnamex...

 

using the (entsel) will return the object picked and the point picked as
well, i don't think you can use this with grread though.... you can try
(nentselp) which i use with my grread commands to select an object that the
mouse is over eg.

(setq RESULT (grread T 4 2))
;;;gets the position of the cursor, can also get user input from keyboard
(while (= (car RESULT) 5)
;;; while the user hasn't clicked a mouse button do this
(setq DRAGPOINT (cadr RESULT))
;;; actual cordinate value

(setq obj (car (nentselp DRAGPOINT)))

(setq delaynum1 1)
;;; delay for somereason, i have no idea why, but it doesn't work without it
(while (< (setq delaynum1 (+ delaynum1 1)) 100) (princ))

(setq RESULT (grread T 4 2))
;;; duplicate code here

(setq obj (car (nentselp DRAGPOINT)))

(setq DRAGPOINT (cadr RESULT))
) ;while

hope this helps

cheers

mark

and then use the point that I picked to select the object in a getdist
command.

the help file is pretty unhelpful...any suggestions?