DCL通用函数（仿院长版）

微笑去爱

• 

  2. (setq int1 nil
     
  3.   int2 nil
     
  4.   tog1 nil
     
  5.   n1 nil
     
  6.   n2 nil
     
  7. )
     
  8. (defun main ()
     
  9.   (princ (list n1 n2 int1 int2 tog1 txt1))attach://130979.vlx
     
  10. )
      
  11. (setq allfile '("1" "2"))
      
  12. ;(if (null n1) (setq n1 "1"))
      
  13. ;(if (null n2) (setq n2 "2"))
      
  14. (setq dlst '(
      
  15.               ("row" "")
      
  16.               ("ima1"  "ima" "40" "排管断面图.sld");;  ima1参数，40宽度  
      
  17.               ("boxed_column" "参数")
      
  18.               ("n1" "参数0" "poplist" allfile "15")
      
  19.               ("n2"  "参数1" "list" allfile "15" "10")
      
  20.               ("int1" "参数2" "int" "200" "15") ;;200默认值，10宽度
      
  21.               ("int2" "参数3" "int" "300" "15") ;;300默认值，10宽度
      
  22.               ("tog1" "开启" "tog" 1)
      
  23.                ("开关" (mapcar 'mode_tile '("int1" "int2") (list tog1 tog1));;关闭int1 int2输入
      
  24.                       (action_tile "tog1" "(mode_tile "int1" (atoi $value))(mode_tile "int2" (atoi $value))");;点击tog1开关，开启int1、int2输入
      
  25.                )
      
  26.               ("txt1" "作者lea QQ:170272854" "text")
      
  27.               ("}") ;;boxed_column结束
      
  28.               ("}");;row结束
      
  29.               ("row" "")
      
  30.               ("spacer_1") ;;空一行
      
  31.               ("bu1"    "确定" "but" "1" "(main)" T);;button按钮 "2"代表动作(0是取消，1是确定)，"main"可以输入子函数如(lea-mkline)，t获取数据 nil不获取数据
      
  32.               ("cancel" "取消" "but");  ("accept" "确定" "but" )
      
  33.               ("}") ;;row结束
      
  34.             )
      
  35. )  
      
  36. (if (= (lea-dcl-int0 "排管断面图2023.11.30" dlst) T)
      
  37.   (progn
      
  38.     (princ "成功")
      
  39.   )
      
  40. )

  (setq int1 nil<br />   int2 nil<br />   tog1 nil<br />   n1 nil<br />   n2 nil<br /> )<br /> (defun main ()<br />   (princ (list n1 n2 int1 int2 tog1 txt1))attach://130979.vlx<br /> )<br /> (setq allfile '("1" "2"))<br /> ;(if (null n1) (setq n1 "1"))<br /> ;(if (null n2) (setq n2 "2"))<br /> (setq dlst '(<br />               ("row" "")<br />               ("ima1"  "ima" "40" "排管断面图.sld");;  ima1参数，40宽度  <br />               ("boxed_column" "参数")<br />               ("n1" "参数0" "poplist" allfile "15")<br />               ("n2"  "参数1" "list" allfile "15" "10")<br />               ("int1" "参数2" "int" "200" "15") ;;200默认值，10宽度<br />               ("int2" "参数3" "int" "300" "15") ;;300默认值，10宽度<br />               ("tog1" "开启" "tog" 1)<br />                ("开关" (mapcar 'mode_tile '("int1" "int2") (list tog1 tog1));;关闭int1 int2输入<br />                       (action_tile "tog1" "(mode_tile "int1" (atoi $value))(mode_tile "int2" (atoi $value))");;点击tog1开关，开启int1、int2输入<br />                )<br />               ("txt1" "作者lea QQ:170272854" "text")<br />               ("}") ;;boxed_column结束<br />               ("}");;row结束<br />               ("row" "")<br />               ("spacer_1") ;;空一行<br />               ("bu1"    "确定" "but" "1" "(main)" T);;button按钮 "2"代表动作(0是取消，1是确定)，"main"可以输入子函数如(lea-mkline)，t获取数据 nil不获取数据 <br />               ("cancel" "取消" "but");  ("accept" "确定" "but" )<br />               ("}") ;;row结束<br />             )<br /> )  <br /> (if (= (lea-dcl-int0 "排管断面图2023.11.30" dlst) T)<br />   (progn<br />     (princ "成功")<br />   )<br /> )
  
  
• 
  

仿院长版直接将DCL用lsp来表示。

xyp1964

1. (defun c:tt (/ Dlst ll1 ll2 lst1)
   
2.   (defun main-pro () (princ "ok"))
   
3.   (setq        ll1  '(po1 li1 d1 d2 bo1)
   
4.         ll2  '("0" "0" 200. 300. "1")
   
5.         lst1 '("1" "2")
   
6.   )
   
7.   (xyp-initSet ll1 ll2)
   
8.   (setq        Dlst '(":row{"
   
9.                ("k0" "" "ib" "-2" "36" "排管断面图.sld" "(princ)")
   
10.                ("" "参数" ":boxed_column{")
    
11.                "spacer;"
    
12.                ("po1" "类型" "poplist" "lst1" "8")
    
13.                ("li1" "方式" "list" "lst1" "8" "6")
    
14.                ("d1" "行间距" "real" "8")
    
15.                ("d2" "列间距" "real" "8")
    
16.                ("bo1" "标注" "bool")
    
17.                "spacer}"
    
18.                "}"
    
19.               )
    
20.   )
    
21.   (if (= (xyp-Dcl-Init Dlst "【排管DCL】" t) 1)
    
22.     (main-pro)
    
23.   )
    
24.   (princ)
    
25. )
    

(defun c:tt (/ Dlst ll1 ll2 lst1)<br />   (defun main-pro () (princ "ok"))<br />   (setq        ll1  '(po1 li1 d1 d2 bo1)<br />         ll2  '("0" "0" 200. 300. "1")<br />         lst1 '("1" "2")<br />   )<br />   (xyp-initSet ll1 ll2)<br />   (setq        Dlst '(":row{"<br />                ("k0" "" "ib" "-2" "36" "排管断面图.sld" "(princ)")<br />                ("" "参数" ":boxed_column{")<br />                "spacer;"<br />                ("po1" "类型" "poplist" "lst1" "8")<br />                ("li1" "方式" "list" "lst1" "8" "6")<br />                ("d1" "行间距" "real" "8")<br />                ("d2" "列间距" "real" "8")<br />                ("bo1" "标注" "bool")<br />                "spacer}"<br />                "}"<br />               )<br />   )<br />   (if (= (xyp-Dcl-Init Dlst "【排管DCL】" t) 1)<br />     (main-pro)<br />   )<br />   (princ)<br /> )<br />

xyp1964

微笑去爱 发表于 2024-2-1 11:52
院长你那个tog 开关放在哪？

("bo1" "全选" "tog")

微笑去爱

czb203 发表于 2023-12-1 09:00
大哥，要怎么操作呀，看起很厉害的样子

直接按照我这个格式就可以了啊

magicheno

太高级了吧

微笑去爱

magicheno 发表于 2023-11-30 16:09
太高级了吧

也是模仿。可能还不完善。

lea丶丶

不一样地设计

谢谢分享！

edsion24

怎么执行呢？

czb203

大哥，要怎么操作呀，看起很厉害的样子

微笑去爱

xyp1964 发表于 2023-12-1 09:09

院长竟然过来了。

ferious

微笑去爱 发表于 2023-12-1 11:06
院长竟然过来了。

给院长投票