- 博客(13)
- 收藏
- 关注
RSS订阅原创 cad vba 部分中文方法
A Activate 将指定的图面设成作用中。Add 建立一个成员物件并将它加入适当的集成中。 Add3DFace 以给定的四个顶点建立一个 3DFace 物件。Add3DMesh 以给定的 M 与 N 方向的点数以及点在 M 与 N 方向的座标值建立任意形式的 3D 网面。Add3DPoly 依给定的座标值阵列建立 3D 聚合线。AddArc 以给定的弧的中心点、半径、起始角度以及结束角度
2008-11-07 16:15:00
7234
原创 Autocad二次开发vba教程第二课
下面是源码：Sub c100()Dim cc(0 To 2) As Double 声明坐标变量cc(0) = 1000 定义圆心座标cc(1) = 1000cc(2) = 0For i = 1 To 1000 Step 10 开始循环Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) 画圆Next iEnd Sub先看第一行和最后一
2008-11-07 16:12:00
1429
原创 Autocad二次开发vba教程第一课
1.为什么要写这个教程市面上ACAD VBA的书不多，它的帮助是英文版的，很多人看不懂。其实我转行已经好几年了，而且手艺也慢慢生疏了，写个教程对自己来说也是一次复习。2.什么是Autocad VBA？VBA是Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD命令
2008-11-07 16:11:00
2013
1
原创 Autocad二次开发vba教程第三课
为了简化程序，这里用多条直线来代替多段线。以下是源码：Sub myl()Dim p1 As Variant 申明端点坐标Dim p2 As Variantp1 = ThisDrawing.Utility.GetPoint(, "输入点:") 获取点坐标z = ThisDrawing.Utility.GetReal("Z坐标:") 用户输入Z坐标值p1(2) = z 将Z坐标值赋予点坐
2008-11-07 16:09:00
7382
原创 Autocad二次开发vba教程第四课
第四课 程序的调试和保存 人非圣贤，孰能无过，初学者在编写复杂程序时往往会出现一些意想不到的错误，所以程序的调试显得尤为重要，随着学习的深入，以后我们需要经常进行程序调试。事实上，对于那些资深程序员来说，调试程序也是一项不可或缺的重要工作。首先，在程序输入阶段，应该充分利用VBA编辑器的智能功能。当你在写代码时，输入一些字母后，编辑器可以自动列出合适的语句、对象、函数供你选择，可以用
2008-11-07 16:08:00
1296
1
原创 Autocad二次开发vba教程第五课
第五课 画函数曲线 下面是源码：Sub myl()Dim p(0 To 49) As Double 定义点坐标Dim myl As Object 定义引用曲线对象变量co = 15 定义颜色For a = 0.01 To 1 Step 0.02 开始循环画抛物线For i = -24 To 24 Step 2 开始画多段线 j = i + 24 确定数组元素 p(j)
2008-11-07 16:07:00
1308
原创 Autocad二次开发vba教程第六课
第六课 数据类型的转换 上一节课我们用一个简单的公式把角度转化为弧度，这样做便于大家理解。不过VBA中有现成的方法可以转换数据类型。我们举例说明：jd = ThisDrawing.Utility.AngleToReal(30, 0)这个表达式把角度30度转化为弧度，结果是.523598775598299。AngleToReal需要两个参数，前面是表示要转换角度的数字，而后面一个参数可
2008-11-07 16:06:00
1267
原创 Autocad二次开发vba教程第八课
第八课:图层操作 先简单介绍两条命令：1、这条语句可以建立图层：ThisDrawing.Layers.Add("新建图层")在括号中填写图层的名称。2、设置为当前的图层ThisDrawing.ActiveLayer=图层对象注意，等号右边的变量不能用图层名称，必须使用一个有效的图层变量以下一些属性在图层比较常用：LayerOn 打开关闭Freeze 冻结Lock锁定Color
2008-11-07 16:04:00
1325
原创 Autocad二次开发vba教程第九课
第九课:创建选择集 1.在创建对象的同时可以直接引用.以前的例程中已经做过多次了,现在复习一下,看例程:先随机画300个圆,在画圆时直接引用,然后再把这些圆根本大小修改颜色.Sub c300()Dim myselect(0 To 300) As AcadEntity 定义选择集数组Dim pp(0 To 2) As Double 圆心坐标For i = 0 To 300
2008-11-07 16:03:00
2561
原创 Autocad二次开发vba教程第十课
第十课:画多段线和样条线 画二维多段线语句这样写：set lobj= ThisDrawing.ModelSpace.AddLightweightPolyline(fitpoint)AddLightweightPolyline后面需一个参数，存放顶点坐标的数组画三维多段线语句这样写：Set lobj = ThisDrawing.ModelSpace.Add3DPoly(fitpoint
2008-11-07 16:00:00
1640
原创 Autocad二次开发vba教程第十一课
下面的例题是一个最简单的动画，由用户选择一个要移动的对象，然后定位起点和终点，程序会慢慢地把对象移动。 移动方法：object.move 起点坐标,端点坐标Sub testmove()Dim p0 As Variant 起点坐标Dim p1 As Variant 终点坐标Dim pc As Variant 移动时起点坐标Dim pe As
2008-11-07 15:57:00
1599
原创 C#命名空间详解
Microsoft.Csharp包含支持用C#语言进行编译的代码 Microsoft.Jscript包含支持用Jscript语言进行殡仪和代码生成的Jscript运行库和类 Microsoft.VisualBasic包含Visual Basic.NET运行库。此运行库于Visual Basic.NET语言一起使用。此命名空间包含支持Visual Basic.NET语言进行编译和代码生成类。
2008-10-21 14:55:00
1010
转载 Autocad VBA初级教程
为了简化程序，这里用多条直线来代替多段线。以下是源码：Sub myl()Dim p1 As Variant 申明端点坐标Dim p2 As Variantp1 = ThisDrawing.Utility.GetPoint(, "输入点:") 获取点坐标z = ThisDrawing.Utility.GetReal("Z坐标:") 用户输入Z坐标值p1(2) = z
2008-10-20 14:57:00
7821
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人