Доработать меню

 (defun c:myfun ()
    (setq dcl_id (load_dialog "e:\\myfun.dcl"))
    (if (not (new_dialog "myfun" dcl_id) ) (exit))
    (action_tile "accept" "(done_dialog)")
    (start_dialog)
 (unload_dialog dcl_id)
 
 
 
    (setq 
        nabor (ssget "X" '((0 . "LINE")))
        nline (sslength nabor)
        i 0
        fdx 10
        fdy 10
    )
    (repeat nline
        (setq currentline (ssname nabor i)
            ed (entget  currentline)
            t1 (assoc 10 ed)
            t2 (assoc 11 ed)
        )
        (setq x1 (nth 1 t1))
        (setq y1 (nth 2 t1))
        (setq x2 (nth 1 t2))
        (setq y2 (nth 2 t2))
        
        (setq fdx0 (abs (- x1 x2)))
        (setq fdy0 (abs (- y1 y2)))
        
        (if (/= x1 x2)
            (progn
                (if (<= fdx0 fdx)
                    (progn
                        (setq x (/ (+ x1 x2) 2))
                        (setq x1 x x2 x)
                    )
                )
            )
        )
    
        (if (/= y1 y2)
            (progn
                (if (<= fdy0 fdy)
                    (progn
                        (setq y (/ (+ y1 y2) 2))
                        (setq y1 y y2 y)
                    )
                )
            )
        )
    
        (setq ed (subst (list 10 x1 y1)(assoc 10 ed)ed))
        (setq ed (subst (list 11 x2 y2)(assoc 11 ed)ed))
    
        (setq i (+ 1 i))
    
        (entmod ed)
        (entupd currentline)
    )
)
(c:myfun)

myfun : dialog {label = "Sample Dialog Box";
    {label = "Hello, world";}
     :boxed_column{label = "Значения отклонений";
     :edit_box {label = "Maximum dx:";}
     :edit_box {label = "Maximum dy:";}}
    :button {key = "accept"; label = "OK"; is_default = true;}
 }