VBA操作CAD画一条直线

   Sub AddLine()'定义起点   Define the start pointDim ptStr(0 To 2) As DoubleptStr(0) = 5: ptStr(1) = 5: ptStr(2) = 0#'定义终点 Define the end pointDim ptEnd(0 To 2) As DoubleptEnd(0) = 12: ptEnd(1) = 3: ptEnd(2) = 0#'在模型空间中创建直线  Create a Line object in model spaceDim lineObj As AcadLineSet lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(ptStr, ptEnd)AcadApp.ActiveDocument.Application.ZoomAll
End Sub

VBA操作CAD画一条直线相关推荐

VBA操作CAD画300个大小不同颜色不同的圆圈
Private Sub Form_Load() On Error Resume Next Set acadapp = GetObject(, "autocad.application&quo ...
画直线_在鸡面前画一条直线，为什么它会晕？西瓜视频这知识好冷告诉答案
为什么世界有那么多的未解之谜,我们无从而知,今天我们来探讨一下在鸡面前画条直线为什么会晕?你们知道吗?今天西瓜视频这知识好冷告诉你们答案,帮助你们掌握生活中所不知道的涨知识,增加我们的知识库. 优秀创 ...
android 动态画直线,Android使用自定义view在指定时间内匀速画一条直线的实例代码...
本文讲述了Android使用自定义view在指定时间内匀速画一条直线的实例代码.分享给大家供大家参考,具体如下: 1.效果图: 2.自定义view实现 public class UniformLine ...
android 动态生成直线,Android使用自定义view在指定时间内匀速画一条直线的实例代码...
本文讲述了Android使用自定义view在指定时间内匀速画一条直线的实例代码.分享给大家供大家参考,具体如下: 1.效果图: 2.自定义view实现 public class UniformLine ...
html5两条直线,Html5新特性用canvas标签画多条直线附效果截图
下面例子为用canvas标签画多条直线复制代码代码如下: index_three 您的浏览器不支持canvas标签. //获取Canvas对象(画布) var canvas = document.g ...
java画板中画直线_java实现画图板上画一条直线
目标:在画图板上画一条直线,供大家参考,具体内容如下一.首先需要建立一个界面过程:1.创建界面对象(Java语言中已经有,可直接创建对象来使用). 2.对于一个界面,我们需要设置它的大小.居中.界 ...
html画布直线代码,图文详解如何用html5 canvas画一条直线
是HTML5 中新增的元素,它可以结合JavaScript脚本绘制出各种各样的图形,对于canvas你了解多少?你会用canvas画直线吗?这篇文章就和大家讲讲如何用canvas画一条直线,有一定的参 ...
在9个点上画10条直线，要求每条直线上有3个点
在9个点上画10条直线,要求每条直线上有3个点,其示意图大体如下所示,红色代表点:
Unity 中用LineRender来实现画多条直线的方法
Unity 中用LineRender来实现画多条直线的方法: 直接上代码: public class Testline : MonoBehaviour { //LineRenderer privat ...
Matplotlib 画图：如何用python 画一条直线
Python 学习日志设备:MacBook Air 开发环境:Jupyter Matplotlib 画图:如何用python 画一条直线加粗样式

VBA操作CAD画一条直线

VBA操作CAD画一条直线相关推荐

最新文章

热门文章