Yes, DIMCONTINUE off an Aligned Dimension makes Rotated ones at the direction of the Aligned one, not more Aligned ones.
Try this [lightly tested]:
(defun C:DIMALIcont (/ pt1 pt2)
(command "_.dimaligned" pause (setq pt1 (getpoint (getvar 'lastpoint))) pause)
(while (setq pt2 (getpoint pt1 "\nNext point in continued DIMALIGNED or <exit>: "))
(command "_.dimaligned" "non" pt1 "non" pt2 pause)
(setq pt1 pt2)
); while
(princ)
); defun
It does require you to pick the dimension-line location for each. Presumably [with a fair amount more code] it could be made to calculate that for you, the same distance from the definition points and on the same side, but I imagine you would get some clashes in some situations.
Kent Cooper, AIA