问一个objectdcl的问题?

yjrun

我更新了一下,不用if控制了,改用while来控制.

meflying

至于(Odcl_Form_Center "zhongxian" "DclForm1")这句其实并没有执行，因为你执行到show的时候，主程序就停止了，知道你使用close后，而使用close后再使用center，效果你当然就看不到了。。。


你可以使用vlisp编辑器跟踪一下程序的执行顺序

yjrun

我试了一下,我把 ;显示DclForm1对话框
(Odcl_Form_Center "zhongxian" "DclForm1")
(setq bFlag t) ; 设置一个变量来控制重新显示对话框,bFlag为控制变量
(while bFlag
(setq bFlag nil) ; 在选取中线程序没有执行前,将bFlag设为nil
(Odcl_Form_Show "zhongxian" "DclForm1") ; 显示对话框
) 把center放到前面了,效果也没有变,每次打开都是上次关闭对话框的位置