[原创]：多个变量输入赋值的简便方法

wujimmy

当有多个变量须要用户输入时,
而又希望能够下次调用该命今时保存用户输入值
就可能采用以下方法.
[php]

  (setq bw 300.0;_宽mm
        hw 2650.0;_长mm
        fy 360.0;_主筋
        fyw 210.0;_箍筋1
        fc 16.7;_混凝土强度
        nf 2.0;_抗震等级
        Mw_mid  (* 4826.0 1);_弯矩
        Nw_mid (* 2225.7 1);_轴力
        Vw 300.0;_剪力.
        ρw 0.0025;_分布筋配筋率.
        )

(setq initlst (list
                (list "Mw_mid" "输入弯矩(kN*m)")
                (list "Nw_mid" "输入轴力(kN)")               
                (list "Vw" "输入剪力(kN)")
                (list "ρw" "分布筋配筋率")
                (list "bw" "输入墙宽(mm)")               
                (list "hw" "输入墙长(mm)")
                (list "fy" "输入主筋强度")
                (list "fyw" "输入箍筋强度")
                (list "fc" "输入混凝土强度")
                (list "nf" "输入抗震等级")
                ))
  (foreach initmid initlst
    (setq var (car initmid)
          promt (strcat "\""(cadr initmid)"\"" ))
    (eval
      (read(strcat "(if (setq mid (getreal (strcat " promt " \"<\" (if "var" (itoa (fix "var")) \"\") \">:\"))) (setq "var" mid))"))
      )
    )
[/php]

aeo

如果是这么多,应该弄个对话框了.

狂刀

同意，超过４个的提问，还是用对话框

wujimmy

这里只是提供一个方式,如何动态使用变量
同样,如果使用对话框的话,有很多变量的时候,你是不是也要一个一个赋值很麻烦.
如果定义一个函数,可以用一句话增加一个变量,不是很方便.
Add-Var("Mw_mid" "输入弯矩(kN*m)" )

(defun Add-Var(var-name var-promt var-init)
  (if (null (read var-name))
    (progn
      (set_tile var-name var-init)
      (set (read var-name) "1")
    )
;;;下面的还要改写
    (set_tile "wjm_focus_test" wjm_focus_test)
  )
  (action_tile
    "wjm_focus_test"
    "(setq wjm_focus_test $value)"
  )
)

这个函数还没有写好,只是示意一下,以后补上,今天喝了点萄TAO 酒,有点晕.

注一下set函数示例如下:

命令: (setq var-name "test")
"test"

命令: (setq var-name "test")
"test"

命令: (set (read var-name) "123")
"123"

命令: !var-name
"test"
命令: !test
"123"

命令: (setq (read var-name) "1231")

命令: !test
"123"

qjcpj

1楼的方法俺几年前就在用了。

aeo

名称一个表,对应的值一个表,不是更好,或干脆写一个点对表.
[php]
(setq $$a (list  "弯矩""轴力""剪力""分布筋配筋率")
       $$b (list    400   300   100    0.12)
)
(mapcar '(lambda(pro r)
      (if(setq temp(getreal(strcat"\n输入"pro"("(if r(rtos r 2 2)"")"):")))
               temp r
      )
)$$a $$b)
[/php]

狂刀

[php]

(setq a (list  'wj   'zl   'jl   'fl)
      b (list  "弯矩""轴力""剪力""分布筋配筋率")
      c (list    400   300   100    0.12)
)
(mapcar '(lambda(x y z)
        (print y)
        (if (setq old (eval x))
            (mapcar 'princ (list "<" old ">:"))
            (mapcar 'princ (list "<" z ">:"))
        )
        (or (and (setq $tmp (getdist))(set x $tmp))
            (set x old)
            (set x z)
        )
        (eval x)
        )
      a b c
)[/php]

xyz518mm

原来表的运用就是这样
真是方便阿
那如果是将选取物件的资料
做成表来判断
又该怎样做呢?

zb_lou

原来可以这样，，又学到了东西。