Topic: Point "From" Last Point

[DanB]

I have a snipet of code I am trying to write into a routine and I would prefer to "suppress" some of the prompts on the screen.

Code: [Select]


(defun frm (pnt)
 (getpoint "from" pnt)
)


Code: [Select]


  (setvar "osmode" 512)
  (setq pnt1 (getpoint "\nFirst Point: "))
  (setvar "osmode" 128)
  (prompt "\nSecond Point: ")
  (setq pnt2 (frm pnt1))


The intent is to have the user select a point nearest on a line then point 2 is perpendicular to a parallel line from point 1 (is that clear?). I would prefer the "from" command was not displayed at the prompt after "Second Point:" Is this possible? Other suggestions?

Thanks,
Dan

[Mark]

I don't understand what you're try to do, could you perhaps make a small screenshot for us?

[daron]

try @

[DanB]

I think I have uploaded a screen shot to lily pond, under Danb, screen1.bmp. Sorry wasn't sure how else to show image.

[Crank]

(setq pnt2 (getpoint pnt1))

or

(setq pnt2 (getpoint "\nSecond Point: " pnt1))

 

[DanB]

Thanks Crank, just what I needed.

Dan