[求助]：对话框中的image控制要怎么使用啊？

hb198075

如何在image控件上显示想要的图形呢？比如我需要显示一个名为"植物"的图块。各位路过的请指点一下。。

zxq0220

(SETQ X (DIMX_TILE "image1") Y (DIMY_TILE "image1"))  
(START_IMAGE "image1")  
(FILL_IMAGE 0 0 X Y -2)  
(SLIDE_IMAGE 0 0 X Y "植物")
(END_IMAGE)

hb198075

好象还是不行啊，我用的是CAD2006，麻烦你帮我看看是不是哪写错了

下面是DCL文件

hbtmp1:dialog{
  label="测图";
  :row{
  :edit_box{
    label="图片";
    key="t_wz";
    }
  :image{
    key="t_tp";
    width=3;
    height=3;
    }
    }
  :spacer{width=1;}
  ok_cancel;
  }

下面是LSP文件

(defun c:hbcs( )
  (cs-dlg)
  (princ)
  )

(defun cs-dlg (/ dlgLoaded dlgShow id x y)
  (setq  dlgLoaded t
         dlgShow t)
  (if (= -1 (setq id (load_dialog "hb_tmp1.dcl")))
    (progn
      (princ "\hb_tmp1.dcl文件无法加载。")
      (setq dlgLoaded nil)
    )
  )
  (if (and dlgLoaded (not (new_dialog "hbtmp1" id)))
    (progn
      (princ "\n无法显示该对话框。")
      (setq dlgShow nil)
    )
  )
  (if (and dlgLoaded dlgShow)
    (progn
      (set_tile "t_wz" "显示图片")
      (setq x (dimx_tile "t_tp")
            y (dimy_tile "t_tp")
      )
      
      (start_image "t_tp")
      (fill_image 0 0 x y -2)
      (slide_image 0 0 x y "aaa")
      (end_image)

      (action_tile "cancel" "(done_dialog) ")

      (action_tile
        "accept"
        "(done_dialog)"
      )
      (start_dialog)
      (unload_dialog id)
    )
  )
)

zxq0220

这样试试：
[php]
(defun c:hbcs ()
(cs-dlg)
(princ)
)

(defun cs-dlg (/ dlgLoaded dlgShow id x y)
(setq dlgLoaded t dlgShow t)
(if (> (setq id (load_dialog "hb_tmp1")) 0) (progn
  (if (new_dialog "hbtmp1" id) (progn
   (set_tile "t_wz" "显示图片")
   (setq x (dimx_tile "t_tp")
         y (dimy_tile "t_tp"))
   (start_image "t_tp")
   (fill_image 0 0 x y 0)
   (slide_image 0 0 x y "aaa")
   (end_image)
   (action_tile "cancel" "(done_dialog 0)")
   (action_tile "accept" "(done_dialog 1)")
   (SETQ RE (start_dialog))
  )
   (princ "\n无法显示该对话框。")
  )
  (unload_dialog id)
)
  (princ "\hb_tmp1.dcl文件无法加载。")
)
(IF (= RE 1) (PROGN
;......
))
(PRINC)
)
[/php}

zxq0220

这样试试：
[php]
(defun c:hbcs ()
(cs-dlg)
(princ)
)

(defun cs-dlg (/ dlgLoaded dlgShow id x y)
(setq dlgLoaded t dlgShow t)
(if (> (setq id (load_dialog "hb_tmp1")) 0) (progn
  (if (new_dialog "hbtmp1" id) (progn
   (set_tile "t_wz" "显示图片")
   (setq x (dimx_tile "t_tp")
         y (dimy_tile "t_tp"))
   (start_image "t_tp")
   (fill_image 0 0 x y 0)
   (slide_image 0 0 x y "aaa")
   (end_image)
   (action_tile "cancel" "(done_dialog 0)")
   (action_tile "accept" "(done_dialog 1)")
   (SETQ RE (start_dialog))
  )
   (princ "\n无法显示该对话框。")
  )
  (unload_dialog id)
)
  (princ "\hb_tmp1.dcl文件无法加载。")
)
(IF (= RE 1) (PROGN
;......
))
(PRINC)
)
[/php}

zxq0220

这样试试：
[php]
(defun c:hbcs ()
(cs-dlg)
(princ)
)

(defun cs-dlg (/ dlgLoaded dlgShow id x y)
(setq dlgLoaded t dlgShow t)
(if (> (setq id (load_dialog "hb_tmp1")) 0) (progn
  (if (new_dialog "hbtmp1" id) (progn
   (set_tile "t_wz" "显示图片")
   (setq x (dimx_tile "t_tp")
         y (dimy_tile "t_tp"))
   (start_image "t_tp")
   (fill_image 0 0 x y 0)
   (slide_image 0 0 x y "aaa")
   (end_image)
   (action_tile "cancel" "(done_dialog 0)")
   (action_tile "accept" "(done_dialog 1)")
   (SETQ RE (start_dialog))
  )
   (princ "\n无法显示该对话框。")
  )
  (unload_dialog id)
)
  (princ "\hb_tmp1.dcl文件无法加载。")
)
(IF (= RE 1) (PROGN
;......
))
(PRINC)
)
[/php}