VB控制CAD画纵断面语句
同求。凑十五字!!!!!!!!!!!!!!!!!!!!!1
原来做过 cad设计 不过现在CAD被我卸载了···调试比较复杂···要不你加我扣扣
这个相对来说比较有难度 我做过 纵断的程序 基本是从零做起 做了将近半年 才完成 说明一下 我是业余的 VB和CAD都是业余的 公路施工是专业的这个就是定好起点和终点的坐标 再用画线语句画就可以了
我做的画线语句做成了 子程序每次调用 就行了
数据读出和写入都会吧
读出以后赋给变量 再画就行了
VB控制CAD画纵断面语句
答：这个就是定好起点和终点的坐标 再用画线语句画就可以了 我做的画线语句做成了 子程序每次调用 就行了 数据读出和写入都会吧 读出以后赋给变量 再画就行了
VB编程怎么控制CAD画图,我要用VB语言实现新建CAD图形,并画出图形 具体...
答：先在 工程－引用 里面增加 aucocad类型库然后写代码如下：Private Sub Command1_Click()Dim p1(2) As Double, p2(2) As Double, p3(2) As Double Dim acad As AcadApplication Dim adoc As AcadDocument Dim aline As acadline Dim dima As AcadDimAligned Set acad = CreateObject("autocad.ap...
如何使用vb.net调用cad进行绘图
答："AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可视 ...
vb怎么写“cad中用长度和角度画多段线”的程序?
答：Public Sub LineLQ(IStartx As Single, IStarty As Single, L As Single, Q As Single)Dim OutX As Single, OutY As Single Dim iQ As Single iQ = -Q / 180 * 3.1415926 OutX = Cos(iQ) * L + IStartx OutY = Sin(iQ) * L + IStarty Line (IStartx, IStarty)-(OutX,...
cad怎么用vb绘制桥梁
答：cad用vb绘制桥梁方法如下：1、打开CAD软件，在命令行输入vbaide并回车，打开VisualBasicEditor界面。2、在VisualBasicEditor界面中，点击菜单栏中的“项目”选项，选择“引用”，勾选“AutoCAD20xxTypeLibrary”，然后点击“确定”，将AutoCAD的类型库引入到VB项目中。3、在VB项目中，使用AutoCAD的API来编写...
谁能提供一段vb在CAD中绘制多段线的实例代码作参考!
答：绘制边框 Private Sub Command4_Click()Set acadDoc = acadApp.ActiveDocument link2 acadDoc.ActiveLayer = acadlay(0)With adoRes While Not .EOF pt1(0) = !X: pt1(1) = !Y: pt1(2) = !z: pt2(0) = !X1: pt2(1) = !Y1: pt2(2) = !z1 draw pt1, pt2 .MoveNext Wen...
vb问题: vb调用cad画线问题,总是出错,百思不得其解(本人小白,请大神帮 ...
答：If Err <> 0 Then '没有打开 Err.Clear Set myAcadApp = CreateObject("Autocad.Application") '打开CAD If Err Then MsgBox Err.Number & ":" & Err.Description '打开失败 Exit Sub End If End If On Error GoTo prcERR myAcadApp.Visible = True '显示CAD Set activeDoc = myAcadApp....
求助VB调用CAD画图,之前有好心人给贴的代码弄进VB后是AcTIVEX不能创建...
答：Command1_Click()On Error Resume Next Dim cad As AcadApplication Set cad = GetObject(, "autocad.application")If Err Then Err.Clear Set cad = CreateObject("autocad.application")End If cad.Visible = True End Sub 元宝就不需要了，这个试过2010CAD可以引用。至于画图，你要自己做了 ...
用VB编写CAD绘图插件
答：一、创建一个ACTIVEX DLL cadPro工程 二、添加一个模块命名为ModCad.代码如下 Public acadApp As Object Public acadDoc As Object (这里建立一个新块主要是为了以后在多个窗体、类或者多个工程中可以调用)二、添加一个类ClsTest代码如下：Public Function MenuMain(MenuIndex As Integer)'下面的判断在V...
vb 中调用 cad
答：If Err <> 0 Then '没有打开 Err.Clear Set myAcadApp = CreateObject("Autocad.Application") '打开CAD If Err Then MsgBox Err.Number & ":" & Err.Description '打开失败 Exit Sub End If End If On Error GoTo prcERR myAcadApp.Visible = True '显示CAD Set activeDoc = myAcadApp....
