dcl1214 发表于 2022-8-18 23:29:43

已有 3 人购买  本主题需向作者支付 3 个明经币 才能浏览 购买主题

xyp1964 发表于 2022-8-19 13:30:44


(defun c:tt ()
(defun main-pro () (princ))
(xyp-initSet '(bo1 bo2 bo3 bo4 bo5 bo6 bo7 bo8) '("1" "0" "1" "0" "1" "0" "0" "0"))
(setq        Dlst '(":row{"
             ("bo1" "编码" "tog")
             ("bo2" "名称" "tog")
             ("bo4" "组码" "tog")
             ("bo3" "供应商" "tog")
             "}"
             ":row{"
             ("bo6" "颜色" "tog")
             ("bo7" "尺寸" "tog")
             ("bo8" "备注" "tog")
             ("bo5" "孔位数" "tog")
             "}"
              )
)
(if (= (xyp-Dcl-Init Dlst "【多选DCL】" t) 1)
    (main-pro)
)
(princ)
)

664571221 发表于 2024-6-26 15:40:48

这个是干嘛用

dcl1214 发表于 2024-6-26 16:31:22

664571221 发表于 2024-6-26 15:40
这个是干嘛用

好看的。你看看，好不好看？

664571221 发表于 2024-6-26 16:47:07

dcl1214 发表于 2024-6-26 16:31
好看的。你看看，好不好看？

看不懂，更本看不懂

被承包的东子 发表于 2024-6-26 18:06:47

看看杜总的作品
页: [1]
查看完整版本: 选项打勾