*** 2維DCL 動態行列控制 ***

lee50310 · 发表于 2022-7-19 10:03:00

2維DCL 動態行列控制
此程式修改自不死貓老師自動編碼範例-多條件處理
來源出處:
修改的地方: 動態dcl生成部分原本的寫法只適用在1維 ,不利於2維生成
將原本DCL這部分寫法改採用 WRITE-LINE 指令來生成
執行指令:sab
執行效果如動態圖

簡體版

繁體版
2維DCL 動態行列控制

y5jbbuwykch.gif

lee50310 · 发表于 2022-7-19 10:04:00

這是改良版 V1.2版 (未釋出)
自動新增行列項目標籤
V1.2版

v52tx2qpfhj.gif

20060510412 · 发表于 2022-7-19 10:23:00

长见识了，多谢楼主分享。

嘉伟钢结构 · 发表于 2022-7-19 10:28:00

老师：这是做什么用的？

tigcat · 发表于 2022-7-19 10:41:00

感觉挺好玩的，对话框还动态调用了

lee50310 · 发表于 2022-7-19 11:10:00

行業應用可做成輸入式的對話視窗做統計及計算,計算完後可轉為CAD表格插入圖面
例: 這是電氣開關箱配線回路局部圖可做成依負載迴路的負載值及數量 ,使用的電壓分別填寫如(圖一)(圖二)
然後計算出各迴路的負載值及最後的總負載,電流值將他轉換為cad表格插入圖面如圖(三)
但(圖三)只能做一維
若是換成(圖四) (垂直列)負載名稱有7項配電盤(橫向行)有5戶 (1A ,2B...5B) 要填入每項負載值
就必須採用2 維來做成統計對話窗
(圖一)

oxp2q2upjcx.jpg

(圖二)

qfpwzarqils.jpg

(圖三)

jpsblqqsgcu.jpg

(圖四)

qfd2ksyao51.jpg

czb203 · 发表于 2022-7-19 15:54:00

台湾同胞又一力作，感谢分享～

菜卷鱼 · 发表于 2022-7-19 18:29:00

这个东西有个缺点，就是只适合在高分辨率显示器使用，
遇到14寸笔记本，施展不开拳脚

wzg356 · 发表于 2022-7-19 21:59:00

提供另一种思路---常用的
;(autodcl+- '("a" "b" "c"))
(defun autodcl+- (lst / ff f i n key keys id dd)
      (setq ff (vl-filename-mktemp "temp.dcl") f (open ff "w"))
      (write-line "MY_SS: dialog{label=\"dcl+-\";" f)
      (setq n(length lst))
      (repeat (setq i n)
            (setq keys(cons(setq key(strcat "KEY"  (rtos(setq i(1- i)))))keys))
            (write-line (strcat ":edit_box{label=\"\";key=" (vl-prin1-to-string key) ";}")f)
)
(write-line ":row{: button{label = \"+1\";key = \"kk+\";}" f)
(write-line "    : button{label = \"-1\";key = \"kk-\";}}" f)
(write-line "          ok_only;}" f)
(close f)
(setq keys(reverse keys))
(setq id (load_dialog ff))
(new_dialog "MY_SS" id)
(mapcar '(lambda(x y)(set_tile x y))keys lst)
(action_tile "kk+" "(if( n 1)(progn(setq lst(reverse(cdr(reverse lst))))(done_dialog 3))(alert \"非法\"))")
(action_tile "accept" "(setq lst(mapcar 'get_tile keys))(done_dialog 1)")
(setq dd(start_dialog))
(unload_dialog Id)(vl-file-delete ff)
(cond
         ((> dd 1)(autodcl+- lst))
         ((= dd 1)lst)
         (t nil)
)
)