怎么用vb在cad里画图？？？ 求高手帮助，再给推荐点资料。谢谢！
你去查查书吧，书上挺详细的，在这说不好说，你先在项目里引用。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "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 '界面可视
不会
' 首先在工程里引用 AutoCAD 类型库，例如 CAD2004的 “AutoCAD 2004 Type Library”' 下面的代码在CAD里画一个圆，圆心在(100,100,0)处，半径为 50
Dim Acadapp As AcadApplication
On Error Resume Next
Set Acadapp = GetObject(, "AutoCAD.Application") ' 连接 CAD
If Err Then
Err.Clear
Set Acadapp = CreateObject("AutoCAD.Application") ' 如果CAD没有打开，则打开一个新的CAD
If Err Then
MsgBox Err.Description ' 如果打开CAD失败显示错误信息
Exit Sub
End If
End If
Dim circleObj As AcadCircle
Dim point1(0 To 2) As Double, dR As Double
point1(0) = 100#: point1(1) = 100#: point1(2) = 0# ' 定义圆心坐标
dR = 50# ' 定义圆半径
Set circleObj = Acadapp.ActiveDocument.ModelSpace.AddCircle(point1, dR) '按定义圆心和半径画出一个圆
想要更详细的学习，建议看CAD帮助里的 VBA 部分。
VB编程结合CAD画图
答：你需要引用autocad库，里面一大堆对象集合，慢慢看帮助文件吧，无非就是创建应用、文档对象，然后新建/打开文档，创建直线、圆弧、矩形等对象画你想要的图，然后调用应用或者文档的save/saveas方法存起来。
...调用CAD画三维长方实体 需要完整的步骤以及代码 包括VB里面...
答：'引用MicroSoft Excel 11 object Library，AutoCad 2004 Type Library 'Command1 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim acadObj As Object Dim AcadDoc As Object Dim moSpace As Object Private Sub Command1_Click()Dim inspnt(0 To 2...
vb问题: vb调用cad画线问题,总是出错,百思不得其解(本人小白,请大神帮 ...
答：myAcadApp.Visible = True '显示CAD Set activeDoc = myAcadApp.ActiveDocument Dim startpoint(0 To 2) As Double '12 改为2，AddLine首尾点坐标要3维的，平面z不用赋值，默认为0 Dim endpoint(0 To 2) As Double Dim LineObj As AcadLine For i = 0 To 5 startpoint(0 = 0 startpoin...
利用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调用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里指定的圆并填充
答：其实就是控制CAD的过程，思路如下：一、在VB中建一个窗体，在上面放上一个按钮A，放一个文本框，用来存放想要填充的图案名称（PAT文件名）二、按钮A的编程：1、调用API找到CAD类，2、向CAD发出指令，---选择图元的指令是UTILITY下边的GETENTITY，，然后用填充指令，在MODELSPACE下边的AddHatch，，3、...
如何在VB中调用AutoCAD的画图功能
答：你要先把AutoCad的对象模型搞懂 在Cad的帮助里有相关的内容 先打开Cad，然后运行下面的代码 Dim acadapp As Object Dim acaddoc As Object Dim mspace As Object Set acadapp = GetObject(, "autocad.application")Set acaddoc = acadapp.activedocument Set mspace = acaddoc.modelspace Dim pnt(2)...
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, ...
求用vb做一个画图工具的程序和步骤??
答：VB6成熟代码 实现功能：直线圆矩形等几何绘制，可修改已画好几何图形颜色、线宽、大小，可删除图形等简单CAD绘图功能；
谁能提供一段vb在CAD中绘制多段线的实例代码作参考!
答：'在图中加入地面高程 acadDoc.ActiveTextStyle = acadDoc.TextStyles.Add("楷体")pt1(0) = 1: pt1(1) = 13: pt1(2) = 0 Set acadtext = acadDoc.ModelSpace.AddText("地面高程", pt1, 3.2)Call rote1(acadtext, pt1)'在图中加入设计高程 Call rote1(acadtext, pt1)pt1(0) =...
