乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 103|回复: 6

需要对话框帮助。。。。

[复制链接]

55

主题

197

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
416
发表于 2006-7-18 10:28:21 | 显示全部楼层 |阅读模式
我是来自ODCL的许多难民之一,他们正在努力解决VBA问题,我似乎取得了合理的进展,但遇到了一个恼人的障碍,我希望可以轻松克服
我有一个现有的lisp例程,我想为其重新创建对话框控件。本人'我已经把它们放在一起了,它完全按照我想要的方式工作。该对话框是从lisp例程中启动的,以获得一些用户输入。用户输入的一个方面是GetDistance选择,这就是我的问题开始的地方。当我隐藏对话框以执行GetDistance时,lisp例程的其余部分将执行。我的对话框,然后重新出现后,我的距离,但当我点击确定按钮,没有更多的事情发生,因为所有的lisp执行之前
在我点击对话框上的正确按钮之前,我如何隐藏对话框而不向lisp例程发送信号?
回复

使用道具 举报

0

主题

11

帖子

5

银币

初来乍到

Rank: 1

铜币
11
发表于 2006-7-18 12:16:36 | 显示全部楼层
你好,尼克,我不是很确定,但在VB中你可以关闭一个窗体并将其隐藏
这里有一个类模块调用一个模块,然后模块调用表单,然后表单隐藏,然后表单卸载。如果不卸载表单,它仍会加载到mem中
  1. Option Explicit
  2. 'this allows the AcadApplication to be accessable from the form
  3. Public AcadApp2 As AcadApplication

&039''课堂模块
  1. Public Sub SLW1(AcadApp As AcadApplication)
  2.    
  3.    SLWal1c AcadApp
  4. End Sub
&039''模块
  1. Public Sub SLWal1c(AcadApp As AcadApplication)
  2. Set AutoCAD_Application = AcadApp
  3. Set thisdrawing = AutoCAD_Application.ActiveDocument
  4. Set AcadApp2 = AcadApp
  5.    frmW1.Show vbModal
  6. End Sub
表单现在对用户开放,并显示
&039''表单
  1. Private Sub cmdGO_Click()
  2. Set AutoCAD_Application = AcadApp2
  3. Set thisdrawing = AutoCAD_Application.ActiveDocument
  4.     frmW1.Hide  'form hidden here
  5.    msgbox "You form is hidden, but still loaded"
  6.    msgbox "Now to unload the form..."
  7.    Unload Me
  8. End Sub
你可能需要做类似的事情
祝你好运,戴夫
回复

使用道具 举报

0

主题

8

帖子

6

银币

初来乍到

Rank: 1

铜币
12
发表于 2006-7-19 03:11:37 | 显示全部楼层
嗯。这与我之前的项目设置非常相似。我一直在隐藏表单,而不是在执行GetDistance时卸载,并且只在点击OK关闭对话框时卸载。我曾假设,虽然对话框只是隐藏而不是卸载,但lisp不会将其视为继续点头。不幸的是,似乎一旦对话框从屏幕上删除,lisp就认为它可以继续了
我想我'我只需要继续努力,看看我是否能偶然发现什么;
回复

使用道具 举报

0

主题

9

帖子

6

银币

初来乍到

Rank: 1

铜币
11
发表于 2006-7-19 11:18:57 | 显示全部楼层
尼克先生,你在ObjectDCL论坛上关注过VBA吗 在我看来,您需要首先获取用户输入,将其设置为AutoLISP变量,然后运行lisp例程 我首先让VBA表单独立运行(就像ObjectDCL一样),并设置它;“全球”;变量,则具有;“ok”;按钮(通过sendcommand或EvalLispExpression[见下文])利用所述变量执行lisp例程 这里是#039;有点“s”;“偏移层”;让你开始的例行程序
jb
回复

使用道具 举报

0

主题

8

帖子

4

银币

初来乍到

Rank: 1

铜币
10
发表于 2006-7-19 18:45:15 | 显示全部楼层
Lisp和VBA don#039;t互动良好,尤其是在你描述的方式上 实际上,如果不是不可能的话,也几乎不可能同步两个串联运行的系统 JB向你们展示的方法确实是我所知道的唯一可行的往返方法。
回复

使用道具 举报

0

主题

7

帖子

6

银币

初来乍到

Rank: 1

铜币
9
发表于 2006-7-20 09:07:22 | 显示全部楼层
有时,我不'不要以貌取人
花了一段时间查看我的例程,看看它为什么会出问题,我发现在关闭对话框后要运行的lisp中包含一个命令调用,它不是't由VLAX支持。我不知道'我不知道我'我读过了,但它只是没有#039;我每次扫描代码时都不会注册
无论如何,经过一点谨慎的修剪和调整,我已经设法把我的日常生活变成了一个功能齐全的混合怪物!!当然不是'我不干净也不聪明,但至少这意味着我终于可以安全地开始过渡到2007年,因为我对ODCL的依赖现在已经严重了
回复

使用道具 举报

0

主题

10

帖子

5

银币

初来乍到

Rank: 1

铜币
11
发表于 2006-7-20 09:09:34 | 显示全部楼层
好交易
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-6 04:00 , Processed in 1.018473 second(s), 66 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表