VB应用程序中用DDE功能开发AutoCAD for Windows

　　 Resbuf.hResbuf = 0

　　 Apndll.apType = RTSTR　'说明链表类型为字符串

　　 Apndll.apString = "circle" Chr$(0)　'链表赋值

　　 ret% = ApndLLNode(Resbuf, Apndll) 　'增加链表到结果缓冲器

　　 Apndll.apType = RTPOINT

　　 Apndll.apPoint = pt

　　 ret% = ApndLLNode(Resbuf, Apndll)

　　 Apndll.apType = RTREAL

　　 Apndll.apReal = Radius

　　 ret% = ApndLLNode(Resbuf, Apndll)

　　 Apndll.apType = RTNONE 　 '链表结束值类型

　　 ret% = ApndLLNode(Resbuf, Apndll)

　　 ret% = ads_cmd(Resbuf) 　 '执行结果缓冲器的命令

　　 ret% = ads_relrb(Resbuf) 　 '释放结果缓冲器

　　 End Sub

Private Sub cmdExit_Click() 　 '退出过程

　　 End

　 End Sub

　　 在应用程序运行前，必须首先运行AutoCAD，并用命令(XLOAD "DDEBAS")加载DDEBAS. EXE。在上面的应用程序中，除语句DDE_TimeOut＝-1外，没有其它涉及建立DDE通道的语句，因为应用程序与AutoCAD间建立DDE通道所需要的代码已保存在VB ADS 函数库中，打开支撑文件adsfuncs.bas，可以发现Sub OPENDDE()过程，它负责VB应用程序与AutoCAD间DDE通道的建立，所以用户在开发应用程序时，只管调用VB ADS函数即可。例子中的cmdCircle_Click()过程，是在VB 4.0编程环境通过调用VB ADS函数开发的，运行程序后在文本框中输入半径和圆心的值，单击“画图”按扭，即可在AutoCAD中得到所需的圆。

上一篇： AutoCAD R14与VB
下一篇： 利用API函数播放Wav声音文件

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!