[求助]：如何设定ＤＣＬ中编辑框在下次启动时保持上次输入值作为默认值？

chinali001

本人在设计对话框程序时，遇到一个问题，就是运行程序时如何让编辑框上次输入值作为本次的默认值，这里上次是前一次运行程序，最好是前次启动ACAD。问题菜了点，但我真的很希望高手赐招，谢谢！！

lijiao

这里涉及到的实际上是默认值的保存问题。
如果只在当次命令调用中使用，可以用局部变量。
如果在同一文档的编辑过程中使用（下次打开该文档或别的文档时消失），可以用全局变量。
如果在同一文档的多次编辑中使用（不跨文档），可以使用XDATA、XRDATA或LDATA数据。
如果要在跨文档中使用，可以使用注册表。

mkhsj927

何必这么麻烦？
保存到一个文件，下次加载对话框前读出来不就行了？

haijiangl

同意楼上的，
数据储存为txt文件，每次运行时读取，运行完再次保存。
ODCL是个好东东，楼主可以试试啊

wangxj2002

感谢分享！！

sjylzf

不同情况要分别对待，否则可能会影响程序的速度

橄榄滋味

生成文件每次读取，对初学者来说的确是个好办法，我就是这么做的，但是仔细想想，这只能算是一种简单的方法，不能算是完善的，也不能算是很好的，原因如下：
不能加密。大家知道，现在lisp程序可以生成vlx，但是却不能带上txt文件，txt文件总是一个独立的可以编辑的文件，人人都可以改动里面的内容，然后会影响到默认值，另外因为不能和别的lisp生成vlx文件，使得软件看起来很松散，不成一个完善的系统

ydf7332462

最初由 haijiangl 发布
[B]同意楼上的，
数据储存为txt文件，每次运行时读取，运行完再次保存。
ODCL是个好东东，楼主可以试试啊 [/B]

ODCL好象acad外另加一个软件，是否有版本对应问题?

chinali001

[PHP]
(setq dcl_id (load_dialog "sxy1.dcl"))
  (if (not (new_dialog "sxy1" dcl_id))
    (exit)
  )
  (if (not (= r1 nil));变量不为空时保留为默认值设置
    (set_tile "r1" (rtos r1));隧道设计半径
  )

  (if (not (= rq1 nil))
    (set_tile "rq1" rq1);制图日期
  )

  (if (not (= th1 nil))
    (set_tile "th1" th1);图号
  )


  (if (not (= tm nil))
    (set_tile "tm" tm);图名
  )

  (if (not (= xmm nil))
    (set_tile "xmm" xmm);项目名
  )


  (if (not (= gs nil))
    (set_tile "gs" gs);施工单位
  );保留默认值为设置

  (action_tile "r1" "(setq r1 (atof $value))")
  (action_tile "qudian" "(done_dialog)");“取点”按钮键值“qudian”
  (start_dialog)
  (qd)
  (if (not (new_dialog "sxy1" dcl_id))
    (exit)
  )
  (set_tile "r1" (rtos r1));保留默认值为设置
  (if (not (= rq1 nil))
    (set_tile "rq1" rq1)
  )

  (if (not (= th1 nil))
    (set_tile "th1" th1)
  )


  (if (not (= tm nil))
    (set_tile "tm" tm)
  )

  (if (not (= xmm nil))
    (set_tile "xmm" xmm)
  )


  (if (not (= gs nil))
    (set_tile "gs" gs)
  );保留默认值为设置
  
  (action_tile "daoru" "(done_dialog)");“导入”按钮键值“daoru”
  (start_dialog)
  (daoru)
  (if (not (new_dialog "sxy1" dcl_id))
    (exit)
  )
  (set_tile "r1" (rtos r1));保留默认值为设置
  (if (not (= rq1 nil))
    (set_tile "rq1" rq1)
  )

  (if (not (= th1 nil))
    (set_tile "th1" th1)
  )


  (if (not (= tm nil))
    (set_tile "tm" tm)
  )

  (if (not (= xmm nil))
    (set_tile "xmm" xmm)
  )


  (if (not (= gs nil))
    (set_tile "gs" gs)
  );保留默认值为设置
  (action_tile "r1" "(setq r1 (atof $value))")
  (action_tile "cancel" "(exit)")

  (action_tile "rq1" "(setq rq1  $value)") ;取日期

  (action_tile "th1" "(setq th1  $value)") ;取图号

  (action_tile "tm" "(setq tm  $value)") ;取图名

  (action_tile "xmm" "(setq xmm  $value)") ;取项目名

  (action_tile "gs" "(setq gs  $value)") ;取公司名

  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
[/PHP]