[求助]如何调用幻灯片

ywzxmu

各位论坛的大哥们:

我试写了一个对话框.在研究了很久之后还是不能解决幻灯片显示的问题。

麻烦哪位大哥帮我看下问题出在哪里？

1.其中幻灯片是放在自动搜索路径下的。

ywzxmu

LiSP文件：

(defun c:JJZJ ()
(setq dcl_id (load_dialog "JJZJ.DCL"))
(if (not (new_dialog "jjzj" dcl_id))
(exit)
)
(start_dialog)
(start_image "aaa")
(setq x (dimx_tile "aaa")
y (dimy_tile "aaa"))
(fill_image 0 0 x y -2)
(slide_image 0 0 x y "test")
(end_image)

(unload_dialog dcl_id)
)

DCL对话框：

jjzj:dialog{
label="铰接柱脚";
:column{
:row{:image{key="aaa";height=30;width=50;color=0;}}
:row{
label="确认这是需要的节点吗？";fixed_width=true;fixed_height=true;
:edit_box{label="请输入图纸比例:";key=JJBL1;edit_width=4;edit_limit=4;}
:button{label="指定插入点& <";key=base1;alignment=centered;fixed_width=true;}
}
}
ok_cancel;}

ywzxmu

代码有什么问题吗？一直找不出来......

test 幻灯片在支持路径下

ywzxmu

谢谢大家 走过路过 帮忙看过。。。

totoro

(defun show ();图像按钮标准写法
    (setq x (dimx_tile "aaa"));在对话框中获取影像框的宽度
    (setq y (dimy_tile "aaa"));在对话框中获取影像框的高度
    (start_image "aaa");开始在组件中创建影像
    (fill_image 0 0 x y -2);在影像框中绘制一个填满的矩形(FILL_IMAGE X座标 Y座标 宽度 高度 颜色)-2是当前AutoCAD绘图屏幕的背景色
    (slide_image 0 0 x y "test");在组件中显示幻灯片(SLIDE_IMAGE X座标 Y座标 宽度 高度 幻灯片文件名)
    (end_image);结束组件的影像创建
  )