Set drawing orientation/direction with 2 picks

Does anyone have code for setting the orientation for drawing an object or writing text with 2 picks? First pick for location or start pt and second pick for the direction or orientation.

Thanks in advance

Paul

 

ucs (enter)
z (enter)
pick first point
pick second point

?

This changes the ucs to the angle you pick with the two points.

Casey

writing text with 2 picks? First pick for location or start pt and second
pick for the direction or orientation.

 

Thanks Casey, but I guess I didn't define the situation clearly enough. I meant to say that I would have code draw an object, but before the code to draw the object executes the user would pick 2 points to define the 'direction' the object would 'point' in. The 2 picks would determine the angle say an arrow would point.

 

Untested, but should work.
;; Degrees to Radians, Radians to Degrees
(defun dtr (d) (* pi (/ d 180.0)))
(defun rtd (r) (* 180.0 (/ r pi)))

;; Function to get insertion angle.
;; call (getangle)
;; returns 'ang' angle in degrees e.g. 45.0
(defun getangle (/ orth osm pt1 pt2)
(setq orth (getvar "orthomode"))
(setq osm (getvar "osmode"))
(setvar "orthomode" 0)
(setvar "osmode" 0)
(setq pt1 (getpoint "\nPick first direction point"))
(setq pt2 (getpoint pt1 "\nPick Angle:"))
(setq ang (rtd (angle pt1 pt2)))
(setvar "orthomode" orth)
(setvar "osmode" osm)
(princ)
); end function

 

(setq ang1 (angle (getpoint) (getpoint))

(command "ucs" "z" (rtd ang1))

- note this uses a function "rtd" that converts radians to degrees.

meant to say that I would have code draw an object, but before the code to
draw the object executes the user would pick 2 points to define the
'direction' the object would 'point' in. The 2 picks would determine the
angle say an arrow would point.

 

To expand on what Casey said:

(if (and ; both picks must happen
(setq p1 (getpoinr "\nPick start point."))
(setq ang1 (getangle p1 "\nPick the angle."))
)
(progn
;; set the drawing angle
(command "ucs" "z" (* 180.0 (/ ang1 pi)))
;;=========================================
;; Draw you object or text
;;========================================
(command "ucs" "p") ; restore the drawing
)
)

 

Why all the fiddling with (ANGLE and (GETANGLE ?

The code below should rotate the UCS to the two selected points, shouldn't it?

(COMMAND ".UCS" "Z" (SETQ PT1 (GETPOINT)) (GETPOINT PT1))

 

Why all the fiddling with (ANGLE and (GETANGLE ?

Let me guess, so you can do some error checking?

If you want to go with your suggestion, Why all the fiddling with
(SETQ PT1 (GETPOINT)) (GETPOINT PT1))

Just use:

(COMMAND ".UCS" "Z" pause pause)

 

<<Let me guess, so you can do some error checking?
Gee, how much error checking is needed for 2 picks? ;-)


<< (COMMAND ".UCS" "Z" pause pause) >>

Hold over from R9, "pause pause" wouldn't "rubber band" from the first point.

 

Gee, how much error checking is needed for 2 picks? ;-)
Just being pickie, ..... Sorry

 

ahhh, if you can't take a little pickin', you'll never be a nose.