求助，LISP 和DCL調用對話框的問題

zhanzhe

1.想了好幾天，我這問題還是沒有解決;

2.想附圖上去，但圖片無論如何也顯示不了，不知這次上傳會不會有顯示；

3.問題：我在DCL對話框中加入了多張SLD圖片，對話框不是很大，所以看得不是很清楚，現想在每個SLD上加入一個預覽功能，（我只想在DCL中設置一個DCL按鈕"預覽" 點擊不同的SLD，可以加載不同的放大的單獨的DCL對話框）

哪位好心的大哥幫幫我好嗎？我是一個LSP初學者，弄不出來心裡特難受，

zhanzhe

怎麼沒人說話呢？高手們都在休息嗎？

王咣生

不用每个sld都作个DCL对话框，只需要作一个大些的DCL,显示不同的sld就可以了..

zhanzhe

inblock:dialog{
       label="圖塊調用";
       spacer;
     :boxed_radio_row{
        label="圖塊類型";
            :radio_button{
          label="防火門";
          key="fanghuo";
            value=1;
        }
     
          :radio_button{
          label="密板門";
          key="miban";
        }
        :radio_button{
          label="(標准)中電牛房門";
          key="zhongdian";
        }
        :radio_button{
          label="(標准)港燈牛房門";
          key="GangDeng";
        }
        :radio_button{
          label="(標准)百葉窗";
          key="baiye";
        }
        :radio_button{
          label="杜生常做產品";
          key="Dusheng";
        }
        :radio_button{
          label="梁發記常做產品";
          key="LFJ";
        }
        :radio_button{
          label="常用標准件A";
          key="orther";
        }

      
     }
 
/*-----------&&&&&&&&&&------------*/
/*-----------1-1-------------*/
     :row{
       :image_button{
        key="slide11";
        is_default=true;
        allow_accept=true;
        width=11;
        aspect_ratio=2.4;
        color=84;
       }
/*-----------1-2-------------*/
       :image_button{
        key="slide12";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=114;
       }
/*----------1-3--------------*/
       :image_button{
        key="slide13";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=144;
       }
/*-----------1-4-------------*/
       :image_button{
        key="slide14";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=174;
       }
/*-----------1-5-------------*/
       :image_button{
        key="slide15";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=204;
       }
/*----------1-6--------------*/
       :image_button{
        key="slide16";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=234;
       }

     }
/*-----------2-1-------------*/
     :row{
       :image_button{
        key="slide21";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=2.4;
        color=0;
       }
/*-----------2-2-------------*/
       :image_button{
        key="slide22";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=0;
       }
/*----------2-3--------------*/
       :image_button{
        key="slide23";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=0;
       }
/*-----------2-4-------------*/
       :image_button{
        key="slide24";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=0;
       }
/*-----------2-5-------------*/
       :image_button{
        key="slide25";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=0;
       }
/*----------2-6--------------*/
       :image_button{
        key="slide26";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=0;
       }

     }
/*-----------3-1-------------*/
     :row{
       :image_button{
        key="slide31";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=2.4;
        color=123;
       }
/*-----------3-2-------------*/
       :image_button{
        key="slide32";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=153;
       }
/*----------3-3--------------*/
       :image_button{
        key="slide33";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=183;
       }
/*-----------3-4-------------*/
       :image_button{
        key="slide34";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=213;
       }
/*-----------3-5-------------*/
       :image_button{
        key="slide35";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=243;
       }
/*----------3-6--------------*/
       :image_button{
        key="slide36";
        is_default=true;
        allow_accept=true;
        width=10;
        aspect_ratio=0.8;
        color=255;
       }
     }
     spacer_1;
     
/*----------&&&&&&&&&-------*/
      :row{
:button{label="preview";key="zoomin";}
     ok_cancel;}
}

/*----------Zoomin-------*/
preview : dialog {
        label = "放大詳圖" ;
        :image_button {
            key = "kimage";
            height=45;
            aspect_ratio = 1.5;
            color = 0;
                    }
         ok_only;
                 }

zhanzhe

(defun C:N (/ dcl_id blockname x2 y2)
  (defun *error* ()
    (princ "Stop!Stop!Stop!Stop!")
  )
  (setvar "cmdecho" 0)
  (setq dcl_id (load_dialog "inblock.dcl"))
  (if (< dcl_id 0)
    (exit)
    (new_dialog "inblock" dcl_id)
  )
  (show_imagea)
  (action_tile "orther" "(show_imageh)")
  (action_tile "LFJ" "(show_imageg)")
  (action_tile "Dusheng" "(show_imagef)")
  (action_tile "baiye" "(show_imagee)")
  (action_tile "GangDeng" "(show_imaged)")
  (action_tile "zhongdian" "(show_imagec)")
  (action_tile "miban" "(show_imageb)")
  (action_tile "fanghuo" "(show_imagea)")
  (action_tile "1" "(show_imagea)")

  (action_tile "zoomin" "(load_preview)")
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq result (start_dialog))
  (unload_dialog dcl_id)
  (if (= result 1)
    (inbing)
  )
  (princ)
)

(defun load_preview()
   (setq dcl_id (load_dialog "inblock"))
   (new_dialog "preview" dcl_id)
   (zoomin_sld_111)
   (start_dialog)
 )

 (defun zoomin_sld_111 ()
  (setq x2 (dimx_tile "kimage"))
  (setq y2 (dimy_tile "kimage"))
  (start_image "kimage")
  (fill_image 0 0 x2 y2 -2)
  (slide_image 0 0 x2 y2 "C:/Inblock/Fang huo men/slide111")
  (end_image)
)

(defun zoomin_sld_112 ()
  (setq x2 (dimx_tile "kimage"))
  (setq y2 (dimy_tile "kimage"))
  (start_image "kimage")
  (fill_image 0 0 x2 y2 -2)
  (slide_image 0 0 x2 y2 "C:/Inblock/Fang huo men/slide112")
  (end_image)
)

我這樣做的效果，點擊一個SLD圖，可顯示的都是Slide111圖片，搞不懂為什麼會這樣，我就是想要點擊不同SLD來顯示不同的圖片，怎麼設置這個程式呢？謝謝！