custom getpoint

[Angelo2449]

Hello everyone,
I would like to perform a getpoint by dragging an object together with the cursor so that I can evaluate the insertion, for example, I would like to drag a rectangle or a predefined circle.
It should not be particularly difficult, I think of a > copy < with detection of the coordinates of the insertion point of the copied object, however it would be interesting to know other techniques to achieve the result.
Thank you in advance.

 

[Cristallo]

definitely there is a much more elegant and orthodox lisp street, but I suggest you a dirty but simple and effective way.
insert the object you want to a certain coordinate out of the display (say 100000,100000) and follow it from a
(command "_move" "_last" "100000,100000")
extemporaneous solution then maybe I think more in-depth

 

[Angelo2449]

thanks crystal,
I practically did the same thing.
I designed a polyline to coordinate 0.0 and with the open "_copy" command I copy the polyline to the clicked point.

 (if (= altezza 100)
(progn
(setq controllo 1)
(setq point 1s "0.000.0.000")
(setq point 2s "0.000,80,000")
(setq point 3s "110.000,80,000")
(setq point 4s "110.000.0.000")
(setq centro "55.000.40.000")
); progn
);if
......
......
(command "_pline" point1s point2s point3s point4s point1s")
(setq quadro (entlast))
(command "_change" "_last" "" "_p" "_layer" "g" "")
......
......
(bone setq (getvar "osmode"))
(setvar "osmode" 8)
(command "_move" quadro "" centro)
......
......

the thing works but during the "_move" the polyline is not shown, making the command vain.
I also tried with "_copy" but with the same result.
however the displacement line is shown that should not be shown.
Thank you.

 

[Cristallo]

probably you have the dragonmode variable set to off
put it on the car

 

[Angelo2449]

the dragonmode is set to 2.
I have observed something.
if they select an object directly and move it, while moving, the object is shown.
if they select the object from program with reference to a point of it, the object is not shown but the elastic line representing the shift is shown.
the object is however moved correctly both for the outlet point and for the deposit point.