quick question

[d_m_hopper]

I want to add to a routine I already have, it is for elec ductwork...anyway most duct comes off equipment at an angle and then runs straight to closest wall. I want to start with obtaining the angle, then drawing the first line...lets say @24<angle...make sense?

I don't know how to get the @24<ang into my code..

Here is my code

(defun c:ga()
;;;  (setvar "angbase" 90)
    (setq ang (getangle)
	  )
  )
(setq pt1 (getpoint)
      )
(command "._line" pt1 "" )

[Jeff_M]

Here's one way. Needs to have error checking/trapping included in case the users cancels out of the command, but should give the idea.

(defun c:ga (/ ANG ANGVAR ORTHMODE PT1)
  (setq	ang	 (getangle "\nStart angle?: ")
	angvar	 (getvar 'snapang)
	orthmode (getvar 'orthomode)
  )
  (setq pt1 (getpoint "\nStart point: "))
  (setvar 'snapang ang)
  (setvar 'orthomode 1)
  (command "._line"
	   pt1
	   pause
	   ""
  )
  (setvar 'snapang angvar)
  (setvar 'orthomode orthmode)
  (princ)
)

[aaronic_abacus]

How about using POLAR ?

[CAB2k]

Another way:

(defun c:ga(/ pt1)
  (if (setq pt1 (getpoint "\nStart point: "))
    (vl-cmdf "._line" "_non" pt1 "<24" pause)
  )
  (princ)
)

[d_m_hopper]

Another way:

(defun c:ga(/ pt1)
  (if (setq pt1 (getpoint "\nStart point: "))
    (vl-cmdf "._line" "_non" pt1 "<24" pause)
  )
  (princ)
)

that is it, thanks Cab