LISP对话框

ZXD111

lisp在编程过程中，编写对话框过程，为什么图像控件中的幻灯片显示不出来

uualice2020

明经上有好多关于dcl的，搜索一下

liuhe

是不是幻灯片文件地址问题？没有在支持搜索路径

llsheng_73

幻灯片文件使用绝对路径试试？

黄翔

有个bug,路径里面不能含有这两个"()"字符.

ZXD111

黄翔 发表于 2023-10-23 09:09
有个bug,路径里面不能含有这两个"()"字符.

你好，指的是对话框路径吗？

wzg356

(defun fillimage00(key)
        (start_image key)
        (fill_image 0 0(dimx_tile key)(dimy_tile key)15);清除/刷底色
        (slide_image 0 0 (dimx_tile key)  (dimy_tile key) "myhatch(writer)")
        ;"myhatch(writer)" "幻灯片-名称我以前这样写过"
        (end_image)
        (set_tile key (car(setq lst(reverse lst))));可以添加字
)
(defun c:btt( / f file lst id dd)
        (setq file (vl-filename-mktemp "temp.dcl") f (open file "w"))
        (write-line "btSSS: dialog{label=\"btt\";" f)
        (write-line(strcat ":image_button{key=\"key\";color=15;width =5;height =1.5;}") f)
        (write-line":button{label = \"取消\" ;key = \"cancel\";is_cancel = true;}}"f)
        (close f)
        (setq lst '("  AA" "  BB"))
        (setq id (load_dialog file))(vl-file-delete file)        
    (new_dialog "btSSS" id)
    (set_tile "key" (car lst))       
        (action_tile "key" "(fillimage00 \"key\")")
        (setq dd(start_dialog))
    (unload_dialog Id)
    aa
)

ZXD111

llsheng_73 发表于 2023-10-23 08:53
幻灯片文件使用绝对路径试试？

什么意思呢？