This code currently allows to create a 1st dimension line (200m away from the object) and 2nd dimension line (100mm away from 1st dimension) by selecting 2 points. However, I wanted it to be a cross selection instead where it would automatically create dimension lines for any object that the cross-selection (when mouse is dragged from right to left) would touch.
(defun c:d200 ( / pt1 pt2)
(prompt "When asked points can be picked upside down to imply outward.")
(setq pt1 (getpoint "\nSelect 1st point on left "))
(setq pt2 (getpoint "\nSelect 2nd point on right "))
(setq ang (angle pt1 pt2))
(setq pt3 (polar pt1 (+ ang (/ pi 2.0)) 200))
(command "dim" "Align" pt1 pt2 pt3 "" "exit")
(setq pt3 (polar pt1 (+ ang (/ pi 2.0)) 300))
(command "dim" "Align" pt1 pt2 pt3 "" "exit")
(princ)
)
