vb怎么写“cad中用长度和角度画多段线”的程序?

如题所述

推荐答案 2013-03-10

'以下为画一段：
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, OutY)
End Sub追问

谢谢！我试了下公式，好像还不是我想象的那种

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/sp9vpU99v.html

相似回答

"在CAD里粘贴excel数据自动画多段线"怎么用vb编程序?答：使用"MagicTable(魔法表格)"。.."MagicTable(魔法表格)"是一款AutoCAD表格提取到Excel软件。CAD中表格的表格线可由水平或垂向的直线或多段线组成，单元格的内容可以是单行文字或多行文字。且支持一个单元格内有多个文本的转换，支持已合并单元格的转换。

谁能提供一段vb在CAD中绘制多段线的实例代码作参考!答：Call rote1(acadtext, pt1)'在图中加入填挖高 pt1(0) = 1: pt1(1) = 33: pt1(2) = 0 Set acadtext = acadDoc.ModelSpace.AddText("填挖高", pt1, 3.2)Call rote1(acadtext, pt1)'在图中加入坡度/坡长 pt1(0) = 0: pt1(1) = 5.5: pt1(2) = 0 Set acadtext...

如何使用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 '界面可视 ...

cad怎么用vb绘制桥梁答：cad用vb绘制桥梁方法如下：1、打开CAD软件，在命令行输入vbaide并回车，打开VisualBasicEditor界面。2、在VisualBasicEditor界面中，点击菜单栏中的“项目”选项，选择“引用”，勾选“AutoCAD20xxTypeLibrary”，然后点击“确定”，将AutoCAD的类型库引入到VB项目中。3、在VB项目中，使用AutoCAD的API来编写...

vb问题: vb调用cad画线问题,总是出错,百思不得其解(本人小白,请大神帮 ...答：要分段线可以渐次画出。sub 划线（）'作为一模块 Dim myAcadApp As AutoCAD.AcadApplication Dim activeDoc As AutoCAD.AcadDocument Dim acMS As AutoCAD.AcadModelSpace On Error Resume Next Set myAcadApp = GetObject(, "Autocad.Application") '检查AutoCAD是否已经打开 If Err <> 0 Then '没...

vb中画CAD答：sub ddd中的 Dim myAcadApp As AutoCAD.AcadApplication 应该放到sub外面，是模块级变量 ThisDrawing.ModelSpace.AddLightWeightPolyline (p) '画多段线 应该是 myAcadApp.ActiveDocument.ModelSpace.AddLightWeightPolyline (p) '画多段线

大家正在搜

cad中怎么查看多段线的长度 cad怎么测量多段线长度总和 cad多段线长度求和 cad怎么看线的长度 cad多段线长度标注 cad多段线长度统计 cad多段线长度测量 cad多段线长度直接显示 cad多条线段总长度