iCAx开思网

标题: 问题求解 [打印本页]

作者: wyz5151 时间: 2006-7-1 11:23
标题: 问题求解
我的代码如下:

DCL:
dcl_settings:default_dcl_settings {audit_level = 0;}
yhelp:dialog{
label="常用工具";
  :boxed_row{
label="常用工具";
:row{
  :button{
label="我的图表";
key="tb";
  }
  :button{
label="图层工具";
key="tc";
  }
  :button{
label="尺寸检查";
key="jc";
  }
  }
}

:row{
:image{
key="dgk";------------------SLD图片档名
height=10;
width=30;
color=0;
}

}
cancel_button;
}

_____________________________________________________

LSP:

;;**************** ☆★140★☆ 2006
(Defun c:yhelp ( / dcl_id what)
(warn)
(setq dcl_id (load_dialog "yhelp"))
(new_dialog "yhelp" dcl_id)
(action_tile "tb" "(done_dialog 1)")
(action_tile "tc" "(done_dialog 2)")
(action_tile "jc" "(done_dialog 3)")
(setq what (start_dialog))
(cond ((= 1 what)
      (c:tb)
   )
   ((= 2 what)
      (c:tc)
   )
   ((= 3 what)
      (c:jc)
   )
)
(princ)
)

___________________________________
请高手指点怎么样在LSP文件中写入语句后,在如下对话框中显示我的SLD文件.

作者: wyz5151 时间: 2006-7-3 12:31
标题: sa
wwwwww

欢迎光临 iCAx开思网 (https://www.icax.org/)