说明:双击或选中下面任意单词,将显示该词的音标、读音、翻译等;选中中文或多个词,将显示翻译。
您的位置:首页 -> 词典 -> VB开发环境
1)  VB environment
VB开发环境
2)  VB
VB环境
1.
Algorithm Designing and Realizing of TIN in VB;
VB环境下不规则三角网的算法设计与实现
3)  VB exploitation
VB开发
4)  developing environment
开发环境
1.
CLIPS based realization method of fault diagnosis expert system developing environment
基于CLIPS的故障诊断专家系统开发环境
2.
Then the developing environment,key techniques and design methods for developing a network teaching system with B/S mode using JSP are described.
介绍了4种类型的网络课件的开发环境和制作方法,指出了它们的优势和局限性。
3.
A 3D solid modeling method as applied to the plane generated double enveloping hourglass worm gear pairs is presented and the developing environment, architecture and functions of the 3D modeling system are introduced.
提出了平面二次包络环面蜗轮副的三维实体造型方法,介绍了三维造型系统的开发环境、系统结构和功能,并以母平面倾角β对齿顶“变尖”的影响为例,说明了所开发的三维实体造型系统的应用,展示了三维实体造型在蜗杆传动研究中的广阔前景。
5)  development environment
开发环境
1.
Design and implementation of development environment for RTEMS;
RTEMS操作系统应用开发环境的设计与实现
2.
Comparison and choice about virtual instrument s development environment;
虚拟仪器开发环境的比较研究
3.
Design and Implementation of Development Environment of Fuzzy Intelligent System;
模糊智能系统开发环境的设计与实现
6)  Environmental development
环境开发
补充资料:在公路低级处理中VB对AutoCAD二次开发

在公路地基处理中可能会遇到钢钎加固的情况,在作图之中需要对上千个点逐一编号,重复工作量很大。如果通过编制程序可以提高工作效率,一天的工作量可以在几分钟之内解决,而且能够避免视觉疲劳而引起的错误。
AutoDesk公司提供了面向对象的编程接口ActiveXAutomation,它使用了OLE的Automation技术。AutoCAD被登录为一个其它Windows的应用程序可以操作的对象,用户可以用VB来访问AutoCAD的所有图形对象和非图形对象,进行二次开发,开发过程完全独立于AutoCAD本身。
有关VB开发AutoCAD的技术环节,在网上可以找到,特别是崔航的有关文章值得同行借鉴。下面给出程序以及简单的实现方法步骤。
程序用到的控件有:Command1点击可连接AutoCAD,并在其中标注钢钎编号;Command2点击以释放AutoCAD所占内存;txtX、txtY输入编号文字相对于钢钎点的相对坐标;Text1、Text2编号文字的高度和旋转角度。现在给出的程序很短而且并不难,就不再作过多注释。作图当中先打开钢钎(在图中体现为点对象)位置的图层,然后运行程序,遍历所有对象并逐一对点对象编号。为节约时间还可以在程序中声明一个"选择集"对象,只对选择集中的对象遍历。下面给出的程序运行后的结果按画点的顺序,而不是按坐标顺序编号,如果有特殊的需要,可以通过相应的排序算法实现。


PrivateSubCommand1_Click()
CallAcadConnect


DimacadUtilAsObject


SetacadUtil=AcadApp.ActiveDocument.Utility'设置Utility对象


DimstxAsDouble
DimstyAsDouble


DimstmStringAsString
stmString=acadUtil.GetString(0,"按任意键开始........")


DimiAsInteger
DimoBjAsAcadObject
DimstxxAsVariant


i=1
ForEachoBjInAcadApp.ActiveDocument.ModelSpace'遍历工作区中的实体


IfoBj.EntityName="AcDbPoint"Then
stxx=oBj.Coordinates
stx=stxx(0)
sty=stxx(1)
CallDrawTxt(stx+Val(txtX),sty+Val(txtY),Val(Text1),0.8,Val(Text2),str(i))
i=i+1
EndIf


NextoBj


EndSub


PrivateSubCommand2_Click()
CallAcadQuit
EndSub


文件模块



PublicAcadAppAsAcadApplication


PublicSubAcadConnect()'连接Cad
OnErrorResumeNext
SetAcadApp=GetObject(,"autocad.application")
IfErrThen
Err.Clear
SetAcadApp=CreateObject("autocad.application")
IfErrThen
MsgBox"不能运行AutoCAD,请检查是否安装!",vbOKCancel,"警告!"

说明:补充资料仅用于学习参考,请勿用于其它任何用途。
参考词条