(defun bz (el)
(setq ptlist nil)
(foreach n el
(if (= 10 (car n))
(setq ptlist (append ptlist (list (cdr n))))
)
)
(setq pt1 (car ptlist))
(setq pt2 (cadr ptlist))
(setq pt3 (caddr ptlist))
(setq pt4 (car (reverse ptlist)))
(command "dimaligned" pt1 pt2 pt2)
(command "dimaligned" pt2 pt3 pt3)
(command "dimaligned" pt3 pt4 pt4)
(command "dimaligned" pt4 pt1 pt1)
(command "dimaligned" pt1 pt3 pt3)
(command "dimaligned" pt2 pt4 pt4)
)
(setq en (ssget '((0 . "LWPOLYLINE"))))
(setq n (sslength en) i 0)
(repeat n
(progn
(setq el (ssname en i))
(setq ll (entget el))
(bz ll)
(setq i (+ 1 i))
)
)