需要对话框帮助。。。。

mr_nick · 发表于 2006-7-18 10:28:21

我是来自ODCL的众多难民之一，他们正试图掌握VBA，我似乎取得了合理的进展，但遇到了一个令人讨厌的障碍，我希望可以轻松克服。
我有一个现有的lisp例程，我想为它重新创建对话框控件。我已经把它们放在一起，它完全按照我想要的方式工作。该对话框从 lisp 例程中启动，以获取一些用户输入。用户输入的一个方面是GetDistance选择，这就是我的问题开始的地方。当我隐藏对话框以执行 GetDistance 时，将执行 lisp 例程的其余部分。然后，我的对话框在获得我的距离后重新出现，但是当我点击“确定”按钮时，由于之前执行了所有lisp，因此没有发生更多的事情。
如何让我的对话框隐藏起来，而不是向lisp例程发出信号，直到我点击对话框上的正确按钮？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

DaveW · 发表于 2006-7-18 12:16:36

你好，尼克，
不是很确定，但在VB中，您可以关闭窗体并将其隐藏
这里有一个类模块调用一个模块，然后模块调用表单，然后表单隐藏，然后表单卸载。如果不卸载表单，它仍将在mem中加载

copy

Option Explicit
'this allows the AcadApplication to be accessable from the form
Public AcadApp2 As AcadApplication

类模块

copy

Public Sub SLW1(AcadApp As AcadApplication)
   
   SLWal1c AcadApp
End Sub

模块

copy

Public Sub SLWal1c(AcadApp As AcadApplication)
Set AutoCAD_Application = AcadApp
Set thisdrawing = AutoCAD_Application.ActiveDocument
Set AcadApp2 = AcadApp
   frmW1.Show vbModal
End Sub

表单现在向用户开放，并显示
表单

copy

Private Sub cmdGO_Click()
Set AutoCAD_Application = AcadApp2
Set thisdrawing = AutoCAD_Application.ActiveDocument
    frmW1.Hide  'form hidden here
   msgbox "You form is hidden, but still loaded"
   msgbox "Now to unload the form..."
   Unload Me
End Sub

您可能需要做类似的事情<祝你好运，戴夫

mr_nick · 发表于 2006-7-19 03:11:37

嗯。这与我已经设置项目的方式非常相似。我一直在隐藏表单，而不是在执行GetDistance时卸载，并且仅在点击OK以关闭对话框时卸载。我原以为，虽然对话只是隐藏而不是卸载，但lisp不会认为这是在继续点头。不幸的是，似乎一旦对话框从屏幕中删除，lisp就会假设它很好。
我想我只需要继续插上插头，看看我是否可以偶然发现一些东西

jbuzbee · 发表于 2006-7-19 11:18:57

尼克先生，
你在ObjectDCL论坛上关注过VBA吗？在我看来，您需要首先获取用户输入，将其设置为AutoLISP变量，然后运行lisp例程。我首先让VBA表单独立运行（就像ObjectDCL一样），设置“全局”变量，然后让“确定”按钮（通过sendcommand或EvalLispExpression[见下文]）利用所述变量执行lisp例程。这里有一个小的“偏移层”例程，可以让您开始。
jb

mr_nick · 发表于 2006-7-19 18:45:15

Lisp和VBA交互不太好，尤其是在你描述的方式上。几乎如果不是实际上不可能同步这两个串联运行的话。据我所知，JB向您展示的方法确实是唯一可行的来回方式。

mr_nick · 发表于 2006-7-20 09:07:22

有时候，我是只见树木不见森林！！
在花了一年时间查看我的例程以了解它为什么出问题后，我发现在关闭我的对话框后要运行的lisp包含一个命令调用——这是VLAX不支持的。我不知道我读过多少遍了，但是每次我扫描我的代码时，它都没有出现！！
无论如何，经过一点谨慎的调整和微调，我已经成功地将我的例程变成了一个全功能的混合怪物！！这当然不干净也不聪明，但至少这意味着我终于可以安全地开始向2007年过渡了，因为我知道我对ODCL的依赖已经被解除了

jbuzbee · 发表于 2006-7-20 09:09:34

好买卖

需要对话框帮助。。。。

发表回复

精选推荐