在LISP程序中显示幻灯片,我的程序仅安装在C:下可用,当安装在别的盘符下就不显示了。
具体的一个例子代码:
(if (<= (setq dcl_id (load_dialog "jc.dcl")) 0) (exit) )
(setq olderr *error* *error prepair_error)
(if (not (new_dialog "jc" dcl_id))(exit))
(setq width (dimx_tile "jc") height (dimy_tile "jc"))
(start_image "jc")
(slide_image 0 0 width height "/PDP/slide/dxzl/jc")
(end_image)
请高手指点一下。(我目前用的是autocad2004,早期版本AUTOCAD2000是可以的) |