Repeating dimaligned

[clint0577]

I have to 2 lisp routines that I need to Loop but I need some help. This is just so the user doesn't have to hit enter to return to the command.

 

; TIES TO BOUNDARY
(DEFUN C:DAT ()
(command ".osnap" "end,per")
(COMMAND "LAYER" "S" "BUILDING_LABELS" "")
(COMMAND "DIM" "RES" "HOUSE" "EXIT")
(COMMAND "DIMALIGNED")
(command ".osnap" "NOD,end,INT,CEN,mid")
)

; BUILDING DIMS
(DEFUN C:DAH ()
(command ".osnap" "mid")
(COMMAND "LAYER" "S" "BUILDING_LABELS" "")
(COMMAND "DIM" "RES" "WALLS" "EXIT")
(command ".osnap" "NOD,end,INT,CEN,mid")
(COMMAND "DIMALIGNED" "")
)

[Dadgad]

Might the use of DIMCONTINUE help?

[clint0577]

Well now I just want to go back to work and try it. Lol