如何创建DCL映像？

Tharwat · 发表于 2022-7-5 18:08:44

没错。。。。。。

MSasu · 发表于 2022-7-5 18:14:03

请参阅以下代码以了解在图像平铺上加载幻灯片的过程：


(start_image "MyImageTile")                                                               ;this will start image actions
(fill_image  "MyImageTile" 0 0 (dimx_tile "MyImageTile") (dimy_tile "MyImageTile") -15)   ;this will clear previous display
(slide_image "MyImageTile" 0 0 (dimx_tile "MyImageTile") PathOfSlideFile)                 ;this will load a slide image
(end_image)                                                                               ;this will close image actions

当做

Tharwat · 发表于 2022-7-5 18:17:13

谢谢msasu和Mitchell

这很好，而且更清楚。。。。。。。

我的问候。

塔瓦特

MSasu · 发表于 2022-7-5 18:18:51

不客气！

当做

Qonfire · 发表于 2022-7-5 18:21:42

你好
因为我在这个问题上挣扎了第三天，所以我决定问一下
为什么你认为它不起作用。。。黑色背景。。。

copy

;;;--- First we need a slide name 
(start_image "sld")
(slide_image  0 0 (dimx_tile "sld")(dimy_tile "sld")
"C:\Users\Noro\Desktop\lisp\q.sld") ;;;;;;;;;;;;;;;;looks like wrong file specification
(end_image)
////////////////////
: image { 
  key = "sld"; 
  height = 30; 
  width = 30;  
     
}