vb开发cad，用起点和终点画弧为啥不行？

jadjedhj 2020-04-09 09:05:43

Dim ArcObj As AcadArc
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
startPoint(0) = 10#: startPoint(1) = 10#: startPoint(2) = 0#
endPoint(0) = 10#: endPoint(1) = 15#: endPoint(2) = 0#

Set ArcObj = acadapp.ActiveDocument.ModelSpace.AddArc(startPoint, endPoint)

...全文

134 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

jadjedhj 2020-04-09

打赏
举报

回复

或者说这样为啥不行
Dim ArcObj As AcadArc
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim ra As Double
ra = 12.5
startPoint(0) = 10#: startPoint(1) = 10#: startPoint(2) = 0#
endPoint(0) = 10#: endPoint(1) = 15#: endPoint(2) = 0#
Set ArcObj = acadapp.ActiveDocument.ModelSpace.AddArc(startPoint, endPoint, ra)

有时工作中在CAD上一笔一划设计图纸的重复动作，为了提高设计效率，我闲暇之余经常自己搞弄CAD二次开发，现在整理了一些平时项目中常用到的程序供大家参考使用，基本都是手打哦。文章包含代码： CAD连通Excel数据面积统计图框替换 CAD连通Excel数据很多Excel中计算后的新成果需要与CAD上工程量、坐标信息等表格来回修改，数据都是有的，那么如何编写代码实现...

本文还有配套的精品资源，点击获取简介：本项目是一个使用Visual Basic (VB) 开发的交互式计算机辅助设计（CAD）系统，包括完整的源代码、毕业论文和答辩演示文件。VB作为一种面向对象的编程语言，特别适合于创建用户友好的CAD应用程序。该系统能够实现图形绘制编辑、参数化设计、交互操作、数据存储读取、用户界面设计、自定义函数和宏以及与其他软件集成等功能。毕业论文详...

Visual Basic (VB) 是一种广泛使用的编程语言，尤其在早期版本的AutoCAD软件中，通过Visual Basic for Applications (VBA) 提供了强大的脚本编写能力，使得自动化CAD操作成为可能。尽管现代CAD软件可能更多地依赖于.NET环境，但VB仍然是自动化和自定义任务不可或缺的一部分。CAD软件提供了丰富的API（应用程序编程接口）供VB脚本调用。这些API允许脚本与CAD软件内部的对象进行交互。

利用VB进行AutoCAD二次开发，首先应该将VB于CAD进行链接：在编写VB代码之前，在VB编程环境中引用CAD对象库，在编写VB程序代码时，创建CAD对象启动运行CAD程序。VB与CAD进行链接后，就可以利用AutoCAD对象及其下级对象的属性和方法，完成用VB语言在AutoCAD环境中的图形绘制和编辑操作，引用CAD对象库：在VB环境中选择“工程-引用”命令打开引用对话框，选中AutoCAD...

Dim acadapp As AcadApplication '在窗体代码声明段定义acadapp Private Sub Command1_Click() acadapp.Documents.Add '创建新的图形文件 End Sub Private Sub Command2_Click() Dim myfilename As String Me.CommonDialog1.ShowOp

1,453

社区成员

41,351

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章