tablo_01:dialog
{label="Tablo-1 Deneme01 ";
:image_button {key = "tbl-01" ; height = 5 ; width = 20 ;}
ok_cancel;}

tablo_02:dialog
{label="Tablo-2 Deneme02 ";
:text {label = "2NCİ TABLO AKTİF...";}
ok_cancel;}

(defun tablo-2-yukle ()
    (setq dcl_id1 (load_dialog "deneme.dcl"))
     (if (null (new_dialog "tablo_02" dcl_id1))(exit))
(if (= 1 (start_dialog))(princ "\nİşlem Tamam")))

 
(defun c:deneme ()
    (setq dcl_id (load_dialog "deneme.dcl"))
     (if (null (new_dialog "tablo_01" dcl_id))(exit))
  (action_tile "tbl-01" "(tablo-2-yukle)")
        (if (= 1 (start_dialog))
  (princ "\nİşlem Tamam"))
  (princ))

no_name : dialog {
    label="";
        : button {
            key        = "DCLButton1" ;
            label      = "KIR" ;
            width      = 20 ;
            height     =  4 ;
            alignment     = top ;
            is_tab_stop = false ;
        }
        : button {
            key        = "DCLButton2" ;
            label      = "UZAT" ;
            width      = 20 ;
            height     =  4 ;
            alignment     = top ;
            is_tab_stop = false ;
        }

ok_cancel_help;
}

(defun C:KES (/ *error* doc spc ss Objlst Obj iLst Altlst lst)
  (vl-load-com)

  (defun *error* (msg)
    (if doc (vla-EndUndoMark doc))
    (if ov (mapcar 'setvar vl ov))
    (if (not
          (wcmatch
            (strcase msg) "*BREAK,*EXIT*,*CANCEL*"))
      (princ
        (strcat "\n** Error: " msg " **")))
    (princ))

  (setq doc (vla-get-ActiveDocument
              (vlax-get-Acad-Object))
        spc (if (zerop (vla-get-activespace doc))
              (if (= (vla-get-mspace doc) :vlax-true)
                (vla-get-modelspace doc)
                (vla-get-paperspace doc))
              (vla-get-modelspace doc)))
 
  (setq vl '("CMDECHO" "OSMODE")
        ov (mapcar 'getvar vl))
 
  (vla-StartUndoMark doc)
  (or *brk$dis* (setq *brk$dis* 5.))
  (if (setq ss (ssget '((0 . "*LINE,ARC"))))
    (progn
      (or (not
            (setq tmp
              (getdist
                (strcat "\nSpecify Break Distance <" (rtos *brk$dis* 2 2) "> : "))))
          (setq *brk$dis* tmp))
      (setq Objlst
        (mapcar 'vlax-ename->vla-object
          (vl-remove-if 'listp
            (mapcar 'cadr (ssnamex ss)))))
      (while (setq Obj (car Objlst))
        (foreach iObj (setq Objlst (cdr Objlst))
          (setq iLst
            (cons
              (cons Obj
                (vlax-list->3D-point
                  (vlax-invoke Obj
                    'IntersectWith iObj acExtendNone))) iLst))))
      (mapcar 'setvar vl '(0 0))
      (foreach Int (vl-remove-if-not
                     (function
                       (lambda (x)
                         (vl-consp (cdr x)))) iLst)
        (setq Obj (car Int))
        (foreach Pt (cdr Int)
          (and Altlst (setq lst Altlst))
          (if (not (setq bDis (vlax-curve-getDistatPoint Obj Pt)))
            (while (and (not bDis) lst)
              (setq bDis (vlax-curve-getDistatPoint (setq Obj (car lst)) Pt)
                    lst (cdr lst))))
          (if bDis
            (progn
              (or (setq bPt1 (vlax-curve-getPointatDist Obj
                               (+ bDis (/ *brk$dis* 2.))))
                  (setq bPt1 (vlax-curve-getEndPoint Obj)))
              (or (setq bPt2 (vlax-curve-getPointatDist Obj
                               (- bDis (/ *brk$dis* 2.))))
                  (setq bPt2 (vlax-curve-getStartPoint Obj)))
              (command "_.Break"
                (list (vlax-vla-object->ename Obj) pt) "_F" bPt1 bPt2)
              (setq AltLst (cons (vlax-ename->vla-object (entlast)) AltLst)))))))
    (princ "\n** Nothing Selected **"))
  (vla-EndUndoMark doc)
  (mapcar 'setvar vl ov)
  (princ))
             

(defun vlax-list->3D-point (lst)
  (if lst
    (cons (list (car lst) (cadr lst) (caddr lst))
          (vlax-list->3D-point (cdddr lst)))))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 
(defun LoadDialog_no_name( / dcl_id)
   (defun init_handler()   ;Initialation_Code
       (princ)
   );End of Initial Function
   (defun set_data() ;Start Set function
       (princ)
   (action_tile "DCLButton1" "(KES)")
   );End of Set function
  (defun get_data() ;Start Get function
       (princ)
   
   );End of Get function
   (if (setq dcl_id (load_dialog "MENU.DCL"))
       (if (new_dialog "no_name" dcl_id)
           (progn
              (setq result nil)
             (init_handler)
             (set_data)
(action_tile "accept" "(get_data)(done_dialog)(setq result T)")
              (start_dialog)
              (unload_dialog dcl_id)
              result
            )
       )
    )
)
(LoadDialog_no_name)

(defun c:example (/ ex)
  ...
  ...
  (action_tile "butona_ait_key" "(done_dialog) (setq ex nil)")
  ...
  (if ex
    (progn ....
    )
  ) (princ)
)

(cond ((= flag 1) (c:komut01))
      ((= flag 2) (c:komut02)))