376394482 发表于 2023-12-18 16:19:10

:handshake:handshake:handshake

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

:handshake谢谢分享
页: 1 [2]
查看完整版本: <*** DCL面板設定+記憶功能+幻燈片(尺吋標註) ***>