Topic: Stumped as usual

[Biscuits]

Trying to move an object based on the angle and distance from 2 selected points.
Could some one tell me what I'm doing wrong? I'm gettin' too old for this snit!

Code: [Select]


(defun C:doit  ()

(setq p1(getpoint))
(setq p2(getpoint))
(setq dis (distance p1 p2))
(setq ang (angle p1 p2))

(command "move" "all" "" dis ang)

)


[Lee Mac]

By default the MOVE command is expecting two points (a base point and a new point relative to such base point); for these prompts, you are supplying two numerical values (AutoCAD does not know that such numbers represent distances & angles).

Personally, I would suggest the following approach:

Code - Auto/Visual Lisp: [Select]

1. (defun c:doit ( / p1 p2 )
2.     (if
3.         (and
4.             (setq p1 (getpoint "\n1st point: "))
5.             (setq p2 (getpoint "\n2nd point: "))
6.         )
7.         (command "_.move" "_all" "" "_non" p1 "_non" p2)
8.     )
9.     (princ)
10. )

[Biscuits]

Once again I owe you a big thank you. Nothing like overthinking it!
Merry Christmas LM!!

[Lee Mac]

You're welcome!
Merry Christmas to you too! 

[MSTG007]

how does Lee make it look so simple? lol. We sometime come up tons of lines of code, then someone gets it down to a few lines.

Merry Christmas you guys.

[kdub_nz]

 

Practice, dedication and an inquiring mind , perhaps ?

[BIGAL]

I agree "how does Lee make it look so simple? " helped me many times.

Next issue is speed, 1st go for a task 35 minutes, current version 2 minutes.