求助！！！

leasson

在visual lisp中编制的对话框怎样才能显示出来？看得见

王咣生

看DCL对话框,可以用Visual Lisp中"Tools"菜单下的Interface Tools工具查看.

leasson

可是当我在我编写的对话框中输入数字后，一按按钮，不管什么按钮，就什么也没有了呢？按理想的结果，应该会看见我所要的结果才对呀？ 请问一下这是怎么回事！！！

davesnw

可以写几句程序!

leasson

我写了，一个是.dcl文件，另一个是.lsp驱动文件。可是不管我怎么样，还是出现上面的情况。

ZZXXQQ

把程序贴上来，这样大家才能帮你。

leasson

这是dcl文件：

pfb: dialog
{ label="平方表";
  :  edit_box
{
 label="输入数";
key="data";
value="";
}
: edit_box
{
label="平方值";
key="pfz";
value="";
}
: row {
: button  {
key="cacu";
label="计算";
}
:  button  {
key="clear";
label="清除";
}
:  ok_button  {
label="退出";
}
}
errtile;
}

这是lsp文件：

( defun dpfb()
  ( if ( < ( setq index ( load_dialog "pfb" )) 0) (exit))
  ( if ( not ( new_dialog "pfb" index )) (exit))
  (action_tile "clear" "(clear)")
  (action_tile "cacu" "(cacu)")
  ( start_dialog )
  ( unload_dialog index_value )
  )
( defun clear()
  ( set_tile "data"  "")
  (set_tile "pfz"  "")
  (set_tile "error"  "")
  (mode_tile "data" 2)
  )
( defun cacu ()
  (setq x (get_tile "data"))
  (setq x (read x))
  (set_tile "pfz" (rtos ( * x x )))
  )

程序虽然简单，但我想知道方法，怎样在cad中能够看见我的对话框，并能够计算相应的值，并显示出来。 有知者，请回帖，谢谢！！！

jtspirit

仔细研究下LISP的关于DCL的章节

你的LSP程序不能正确调用DCL

meflying

程序没有大问题...可以调用,将DCL内容存成pfb.dcl文件,并且放到CAD的搜索路径里面,将LSP内容存成*.lsp(文件名随便),使用appload命令加载*.lsp文件,然后在命令行输入(dpfb)就可以了(注意输入有括号),,,

程序有一个小小的问题,就是在退出的时候会出错,就是要将( unload_dialog index_value )改为 unload_dialog index)

以后这种抄来的,并且又看不懂的程序建议不要去折腾,等自己会用了再去找一些程序来研究

leasson

谢谢楼上的朋友们，我已经会了。我现在是一个初学者，所以我必须先把lisp中的基本用法弄懂，然后才能做其他的事啊。