[原创] Vlisp 交互 VB 窗体

nonsmall

题目：Vlisp交互VB窗体

前言：在ACAD里面使用VB方面的知识很多，在此就不多述了。

    我尽量用最简单、不必修改的VB代码，剩下的都是Lisp的事情。

概述：本文将讨论如何通过Vlisp对VB窗体进行操作。

    实现非模态VB窗体向Vlisp提供数据绘制图形。

原理：Vlisp通过ActiveX操作VB窗体对象

说明：测试成功于AutoCAD 2004 2007 2008，2006似乎只能在调试时好用……

步骤：安装一套企业版的VB6，

{新建一个工程}-{ActiveX DLL}

在右侧修改工程名和类名，把代码复制进去，添加一个窗体，窗体上放置2个文本框

{文件}-{生成*****DLL}

VB代码（一共就6行）如下：

 [Post=1]

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Function ShowWnd(ByVal ACADhWnd As Long) As Object
    Form1.Show 0
    SetParent Form1.hWnd, ACADhWnd
    Set ShowWnd = Form1
End Function

[/Post]

然后就是Lisp的事情了

 

lea丶丶

(setq frm (Vlax-Invoke-Method nonsmall 'ShowWnd (Vlax-Get ACAD 'HWND )))程序一到这句话就卡死了

nonsmall

VB 代码

jxphklibin

呵呵，买了两个明经币啊！

淮上

jxphklibin发表于2009-9-29 10:16:00呵呵，买了两个明经币啊！

学到知识，花银子值啊！

wylong

下载学习学习

nonsmall

在线看图不大清楚

可以另存到本地查看。

关于VB窗体的属性，

可以参考MSDN或VBA帮助。

361210

好东东 花钱也值

hhh454

学习了，讲的很好呀，谢谢了

ghgh0130

讲的很好呀，

njcknfy

我在LISP里使用 (startapp "VB程序的路径和程序")  调用VB的程序,只调用一个时没问题,当连续调用两个时,第二个调用的程序不等第一个运行完就开始运行了,怎么才能控制一个运行完第二个再启动呢

程序大致结构如下:

(defun c:test()

  (startapp APP1) (startapp APP2))