选项打勾

xyp1964

1. (defun c:tt ()
   
2.   (defun main-pro () (princ))
   
3.   (xyp-initSet '(bo1 bo2 bo3 bo4 bo5 bo6 bo7 bo8) '("1" "0" "1" "0" "1" "0" "0" "0"))
   
4.   (setq        Dlst '(":row{"
   
5.                ("bo1" "编码" "tog")
   
6.                ("bo2" "名称" "tog")
   
7.                ("bo4" "组码" "tog")
   
8.                ("bo3" "供应商" "tog")
   
9.                "}"
   
10.                ":row{"
    
11.                ("bo6" "颜色" "tog")
    
12.                ("bo7" "尺寸" "tog")
    
13.                ("bo8" "备注" "tog")
    
14.                ("bo5" "孔位数" "tog")
    
15.                "}"
    
16.               )
    
17.   )
    
18.   (if (= (xyp-Dcl-Init Dlst "【多选DCL】" t) 1)
    
19.     (main-pro)
    
20.   )
    
21.   (princ)
    
22. )
    

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

664571221

这个是干嘛用

dcl1214

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

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

664571221

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

看不懂，更本看不懂

被承包的东子

看看杜总的作品