对话框如何加载本地图片

xiangjinglai

希望有大大能指点下。。。

自贡黄明儒

;;(dcl-image "RM" 5 5 "rough.slb")
(defun dcl-image (key x y file)
  (start_image key)
  (setq        max_x (dimx_tile key)
        max_y (dimy_tile key)
  )
  (slide_image x
               y
               (- max_x x)
               (- max_y y)
               (strcat (findfile file) "(" key ")")
  )
  (end_image)
)

illcyt

自贡黄明儒 发表于 2015-3-18 12:00
;;(dcl-image "RM" 5 5 "rough.slb")
(defun dcl-image (key x y file)
  (start_image key)

感谢分享，学习了