[求助]对话框的初始参数怎么保存

kry

对话框的初始参数怎么保存？

caoyin

请把问题说得详细点。。。初始参数？？

kry

对话框程序A，子程序B，B调用A的参数设置~！例程序A设置 x=1 程序B调用x=1……

kry

感觉这样写很费，想优化下，我的第二个程序要用下面程序的参数   

   COLU-La "0"
   COLU-HLTRd "0"
   COLU-C "2"
   COLU-ZJRd "1"
   COLU-GJRd "0"
   COLU-ZJDia "2"
   COLU-GJDia "1"
   COLU-ZJDis "200"
   COLU-GJDis "200"
   COLU-SC "25"
   COLU-CJ "1"
   COLU-BZ "1"
   COLU-JJ "0"
   COLU-ZJRet "0"
   COLU-GJRet "0"
   COLU-GJLen "0"
   COLU-GJ-Mode "COLU-GJ"
   

程序,

(defun C:TT (/ &Dcl_id &LST &LST1 &LST2 &LST3 &LST4 &LST5)
  (if (null COLU-La)
    (setq COLU-La "0"
   COLU-HLTRd "0"
   COLU-C "2"
   COLU-ZJRd "1"
   COLU-GJRd "0"
   COLU-ZJDia "2"
   COLU-GJDia "1"
   COLU-ZJDis "200"
   COLU-GJDis "200"
   COLU-SC "25"
   COLU-CJ "1"
   COLU-BZ "1"
   COLU-JJ "0"
   COLU-ZJRet "0"
   COLU-GJRet "0"
   COLU-GJLen "0"
   COLU-GJ-Mode "COLU-GJ"
    )
  )
  (setq &Dcl_id (load_dialog "JLQ.dcl"))
  (if (new_dialog "colu" &Dcl_id)
    (Progn
      (Setq &LST  (DC-Get-ALLLay)
     &LST1 '("C25"    "C30"    "C35"    "C40"
      "C45"    "C50"    "C55"    "C60"
      "C65"    "C70"    "C75"    "C80"
     )
     &LST2 '("15" "20" "30" "50")
     &LST3 '("HRB235" "HRB335" "HRB400")
     &LST4 (Sky-Set-Rad COLU-ZJRd)
     &LST5 (Sky-Set-Rad COLU-GJRd)
      )
      (DCL-Add-List "COLU-La" &LST COLU-La)
      (DCL-Add-List "COLU-HLTRd" &LST1 COLU-HLTRd)
      (DCL-Add-List "COLU-C" &LST2 COLU-C)
      (DCL-Add-List "COLU-ZJRd" &LST3 COLU-ZJRd)
      (DCL-Add-List "COLU-GJRd" &LST3 COLU-GJRd)
      (DCL-Add-List "COLU-ZJDia" &LST4 COLU-ZJDia)
      (DCL-Add-List "COLU-GJDia" &LST5 COLU-GJDia)
      (SET_TILE "COLU-ZJDis" COLU-ZJDis)
      (SET_TILE "COLU-GJDis" COLU-GJDis)
      (SET_TILE "COLU-SC" COLU-SC)
      (SET_TILE "COLU-CJ" COLU-CJ)
      (SET_TILE "COLU-BZ" COLU-BZ)
      (SET_TILE "COLU-JJ" COLU-JJ)
      (SET_TILE "COLU-ZJRet" COLU-ZJRet)
      (SET_TILE "COLU-GJRet" COLU-GJRet)
      (SET_TILE "COLU-GJLen" COLU-GJLen)
      (SET_TILE "COLU-GJ-Mode" COLU-GJ-Mode)
      (action_tile "COLU-La" "(setq COLU-La $value)")
      (action_tile "COLU-HLTRd" "(setq COLU-HLTRd $value)")
      (action_tile "COLU-C" "(setq COLU-C $value)")
      (action_tile "COLU-ZJRd" "(setq COLU-ZJRd $value)")
      (action_tile "COLU-GJRd" "(setq COLU-GJRd $value)")
      (action_tile "COLU-ZJDia" "(setq COLU-ZJDia $value)")
      (action_tile "COLU-GJDia" "(setq COLU-GJDia $value)")
      (action_tile "COLU-ZJDis" "(setq COLU-ZJDis $value)")
      (action_tile "COLU-GJDis" "(setq COLU-GJDis $value)")
      (action_tile "COLU-SC" "(setq COLU-SC $value)")
      (action_tile "COLU-CJ" "(setq COLU-CJ $value)")
      (action_tile "COLU-BZ" "(setq COLU-BZ $value)")
      (action_tile "COLU-JJ" "(setq COLU-JJ $value)")
      (action_tile "COLU-ZJRet" "(setq COLU-ZJRet $value)")
      (action_tile "COLU-GJRet" "(setq COLU-GJRet $value)")
      (action_tile "COLU-GJLen" "(setq COLU-GJLen $value)")
      (action_tile
 "COLU-GJ-Mode"
 "(setq COLU-GJ-Mode $value)"
      )
      (start_dialog)
    )
  )
)

 

azjmjsj

用文本格式文件储存再调用即可