use di getpoint

[Angelo2449]

Hello everyone,
these few lines define the request to click a point.

(setq txt1 "1040")
(setq pointtoclick (strcat "point to click ("txt1 ")")))
(princ)
(princ pointdaclicking)
(setq spotted (getpoint "\nclick point"))

the result on the command line is this:
- select the point name: point to click (1310)
- click the point
How can I delete > select the point name : < ?
Thank you.

 

[Cristallo]

You put it on purpose.. .(princ pointdaclicking)Put yourself in front of us ; and you will see him disappear;;(princ pointtoclick)
trasformalo così:(setq txt1 "1040")
(setq pointtoclick (strcat "\npoint to click ("txt1 "): ")
(princ)

(setq pointclick (getpoint (princ pointdaclick)))