command for multiple angle dims picking vertex and start point only once.

[Anonymous]

hi all,

Need help, got this to work for 1 dim, would like it to remember vertex and start point

and keep prompting for new dim angle

thanks for any help,

Steve

(defun c:ad1 ()
(setq pt1 (getpoint "\nPick Angle vertex: "))
(setq pt2 (getpoint "\nPick First Angle Endpoint: "))
(command "dimangular" "" pt1 pt2 pause)

)

[ВeekeeCZ]

Perhaps like this, but never used it so dunno...

(defun c:ad1 (/ pt1 pt2 pt3)
  
  (if (and (setq pt1 (getpoint "\nPick Angle vertex: "))
	   (setq pt2 (getpoint "\nPick First Angle Endpoint: "))
	   )
    (while (setq pt3 (getpoint "\nSpecify second angle endpoint: "))
      (command "dimangular" "" "_non" pt1 "_non" pt2 "_non" pt3 pause)))
  (princ)
)

[Kent1Cooper]

I don't think you need a routine.  There are two commands that will handle that after the initial DIMANGULAR -- at first I was thinking about what DIMCONTINUE will do on the left, but reading your description again, it sounds like you might want what DIMBASELINE will do on the right.  [In both cases the smaller angle starting up from the right was drawn with DIMANGULAR, and the rest with one running of the indicated command.]

[Anonymous]

that worked perfect! thank you!

[Anonymous]

I your idea, it will not do angles past 180 degrees 😞

thanks!