在LISP中控制图像
你好，我正在使用。sld文件作为图像，但我无法控制其宽度和长度。每当我在DCL中增加宽度或长度时，背景窗口都在增加，但实际图像没有改变。
(defun input_dcl ( /what_next dcl_id )
(setq mySlideName "C:\\Documents and Settings\\subhodip.c1145\\Desktop\\image_cut_out1.sld")
(setq myKey "sld")
(defun upDateImage(sldName key)
(setq width (dimx_tile key))
(setq height (dimy_tile key))
(start_image key)
(fill_image 0 0 width height 0)
(slide_image 0 0 width height sldName)
(end_image)
) ;;defun
(defun stool_function (/)
(setq dcl_id2 (load_dialog "input.dcl"))
(if (not (new_dialog "stool" dcl_id2))
(exit)
) ; if
(upDateImage mySlideName myKey)
(action_tile "ok1" "(saveVers_stool)(done_dialog 1)")
(action_tile "cancel1" "(done_dialog)")
(start_dialog)
(unload_dialog dcl_id2)
) ;; defun
当做
苏波
加尔各答 尝试
(start_image "LabelName")
(setq width (dimx_tile myKey))
(setq height (dimy_tile myKey))(end_image)
(start_image myKey)
(slide_image 1 1 width height myKey)
示例：对话框{key=LabelName；label=；spacer；：image_按钮{key=“sld”；宽度=20；/
页:
[1]