菜鸟请教一个对话框问题??????

dwt2601

请教我想在CAD中运行RECT命令,弹出一个对话框.

//RECT.DCL文件  放在C盘根目录下
RECT:dialog 
{  label="Rectangle" ; 
 :text  //文字元件 
 {  label="Rectangle width :" ;  //元件的属性 
 } 
 ok_only; 
}

//运行程序
(DEFUN C:RECT()
  (SETQ DCL_ID (LOAD_DIALOG "c:\\RECT.dcl")) 
 (NEW_DIALOG "RECT" DCL_ID) 
 (START_DIALOG)
  (UNLOAD_DIALOG DCL_ID)
  (princ dcl_Id)
 )

运行结果为 -1 ,没有其它反应了

ZZXXQQ

UNLOAD_DIALOG后DCL_ID当然是-1了。你要什么样的返回值呢？

wzz1968

上述程序由下列问题:

1.需要由对话框输入任意数值时,应采用编辑框(edit_box控件),而不是文字(text)控件,前者可以双向交换数据,后者只能由程序向对话狂显示数据.

2.对话框执行过程中数据的获得通过对话框控件回调函数获得.上程序至少要定义OK按扭的回调函数.

3.对话框的正常结束,必须在回调函数中执行(done_dialog)函数.当然OK和CANCE两个标准控件是系统定义了缺省操作.

 

 

dwt2601

我想要运行时弹出一个对话框,,, 有点像alert 那样的.........

dwt2601

那程序应该怎么改呢,, 我昨天刚学的,,, 不太明白.............

MSITStore:C:\DOCUME~1\dwt\LOCALS~1\Temp\Rar$DI03.578\Autolisp、对话框基础.CHM::/对话框基础/images/dl-1a.gif" align=baseline>     我只是想要能用上面的程序弹出这样一个对话框,,,我和程序问题在哪???谁能帮我改改......................   不用alert命令

ZZXXQQ

dwt2601发表于2006-7-11 8:00:00 我想要运行时弹出一个对话框,,, 有点像alert 那样的.........

那就直接用alert不就行了？要返回值干什么用？

dwt2601

ALERT  只能有一个确定按钮,,我就想试试对话框应该怎么用,,比如说我要弹出时有两个按钮,"确定","取消"呢

hhc

(setq sys (vlax-get-or-create-object "WScript.Shell"))

(setq res (vlax-invoke-method sys 'popup "要继续吗？" 0 "问题" (+ 32 1)))

(vlax-release-object sys)  ;释放内存

这是刚从网上看来的,它能显示"确定" "取消" 按钮,改变参数,可得各种按钮,如:是,否,忽略,重试,等.就不知道能不能在所有机子上运行,如在Windows98下

dwt2601

谢谢了,,,,,

但是如果我想用对话框的方法做一个最简单的界面,,比如能输入文本的..应该怎么做....哪位大侠给个例子,,,/........谢谢/..........