Add ordinate dimension to linear dimension automatically

[accounts]

Hi All,

I am searching for a lisp that can do things as below:

1. set origin for linear and ordinate

2. continuously dimension the points I want with linear and ordinate dimension at same time.

the result I want to achieve would be like this: 

Thanks in advance

[accounts]

ADDITIONAL

If the ordinate dimension can be added without jog that will be great.

[ВeekeeCZ]

Like this using QDIM?

(defun c:QD ( / s)
  (if (setq s (ssget))
    (command-s "_.qdim" s "" "_p" pause "_o"))
  (princ)
  )

[accounts]

the result is similar, but not the same. I want to continuously dimension things point by point, not by selected geometry.