关于用VB在CAD中画直线的问题
初学者，现在急用VB在CAD中画图，调用CAD的代码我知道，但是不知道如何写画直线的代码。急求已知两点坐标画直线的代码
能说明一下这个是什么意思吗？
我已知得点如何赋值给变量呢？我急用，暂时还没有教材，所以麻烦您了！谢谢
set mspace = doc.modelspace
dim p1(2) as double ,p2(2) as double
p2(1)=10#
mspace.addline p1,p2
点在VBA是用三元素的Double数组表示
p1(0)-X
p1(1)-Y
p1(2)-Z
vb问题: vb调用cad画线问题,总是出错,百思不得其解(本人小白,请大神帮 ...
Set LineObj = activeDoc.ModelSpace.AddLine(startpoint, endpoint) '画线中的参数只需两个点，而你的数组是多点的，不匹配。要画多点连续线可用Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多段线 。要分段线可以渐次画出。sub 划线（）'作为一模块 Dim myAcadApp As AutoC...
如何用VB编程序绘cad图,比如利用vb编程在VB里画一个源,一条直线。谢谢...
先在 工程－引用 里面增加autocad类型库然后写以下代码 Private Sub Command1_Click()Dim p(2) As Double Dim acad As AcadApplication Dim mspace As AcadDocument Set acad = CreateObject("autocad.application.16")acad.Visible = True Set mspace = acad.Documents.Add For i = 1.5 To ...
如何使用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调用Autocad中的VBA,能不能像VB自己的函数一样有编写提示?
1、画直线的时候，经常会遇到过长过短的情况。此时可单击这条直线，这条直线便出现三个蓝色的小夹点。把鼠标移到两端的任意夹点上，点击并拖动夹点可对这直线进行拉长，或缩短。2、当已执行完任意一命令时，如果下一步想重复上一步的命令时，可按右键或Enter键确认，此时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....
怎样通过VB调用并操作AUTOCAD所绘
CAD直接就支持VBA的在CAD里 按下 ALT+F8建 就可以用VB写程序了你想获得CAD里的图形 很简单Dim Entry For Each Entry In ThisDrawing.ModelSpaceMsgbox TypeName(Entry)Next Entry就会依次显示CAD里所绘制的所有图元的类型,比如(圆啊,直线啊,什么的...)
求助VB调用CAD画图,之前有好心人给贴的代码弄进VB后是AcTIVEX不能创建...
Private Sub 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自动画图么
30: endPoint(1) = 20: endPoint(2) = 0 Set LineObj = activeDoc.ModelSpace.AddLine(startPoint, endPoint) '画线 prcExit:Set activeDoc = Nothing Set myAcadApp = Nothing Exit Sub prcERR:MsgBox Err.Number & ":" & Err.Description, vbCritical, "错误"Resume prcExit End Sub ...
本人小白一个请教大虾呀,VB调用CAD画图,比如矩形是啥命令,为什么线条可以...
cad 程序里没有acadrectang这个实体名称 用sendcommand的方法 object.SendCommand "Rectang " & x1 "," & y1 " " & x1 "," & y1 " "或者先定义四个点用多线段的方法画,s是四个坐标点 dim s(0 to 7) as double Dim lwp As AcadLWPolyline set lwp=object.AddLightWeightPolyline(s)
谁能帮我编一段用VB对CAD进行二次开发的程序代码啊
1.以(4,2)为圆心,画5个同心圆,其半径为1-5第三课 编程基础二绘制三维多段线时X、Y值在屏幕上用鼠标选取,Z值用键盘输入本课将讲解这个问题。为了简化程序,这里用多条直线来代替多段线。以下是源码:Sub myl()Dim p1 As Variant '申明端点坐标Dim p2 As Variantp1 = ThisDrawing.Utility.GetPoint(, "...
