<*** DCL面板設定+記憶功能+幻燈片(尺吋標註) ***>

paulpipi · 发表于 2023-12-18 20:56:24

感谢大神无私分享

lee50310 · 发表于 2023-12-19 05:35:26

本帖最后由 lee50310 于 2023-12-19 05:38 编辑

xyp1964 发表于 2023-12-18 12:38
;; 感觉代码越简单越好

院長程式代碼的確很簡潔,
若相關的子函數也能分享出來 ,那就更好了!

panliang9 · 发表于 2023-12-19 08:28:25

谢谢楼主分享！

hhh454 · 发表于 2023-12-19 10:16:25

感谢分享，学习了

tomonkey239 · 发表于 2023-12-20 11:40:21

好人啊，源码大放送

LYC688 · 发表于 2023-12-21 23:37:58

bai2000 发表于 2023-12-18 13:29
一直没找到院长的xyp-Dcl-Init子函数

(defun xyp-Dcl-Init ()
  (setq dclPath (findfile "mydialog.dcl"))
  (if dclPath
(progn
   (setq dclId (load_dialog dclPath))
   (if (new_dialog "mydialog" dclId)
      (progn
      (set_tile "tile1" "Hello, World!")
      (action_tile "button1" "(setq user-clicked t)")
      (start_dialog)
      )
   )
   (unload_dialog dclId)
)
(prompt "\nFailed to find or load the DCL file.")
  )
)

是不是这个

sjl_fyl · 发表于 2024-1-2 13:53:08

谢谢分享

账号		自动登录	找回密码
密码			注册

[源码] <*** DCL面板設定+記憶功能+幻燈片(尺吋標註) ***>

[源码] <* DCL面板設定+記憶功能+幻燈片(尺吋標註) *>