<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[IDLlanguage的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/IDLlanguage</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; IDLlanguage]]></copyright><item><title><![CDATA[cad vba 部分中文方法]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247633</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247633</guid><author>IDLlanguage</author><pubDate>Fri, 07 Nov 2008 16:15:00 +0800</pubDate><description><![CDATA[ A Activate 将指定的图面设成作用中。Add 建立一个成员物件并将它加入适当的集成中。 Add3DFace 以给定的四个顶点建立一个 3DFace 物件。Add3DMesh 以给定的 M 与 N 方向的点数以及点在 M 与 N 方向的座标值建立任意形式的 3D 网面。Add3DPoly 依给定的座标值阵列建立 3D 聚合线。AddArc 以给定的弧的中心点、半径、起始角度以及结束角度]]></description><category></category></item><item><title><![CDATA[Autocad二次开发vba教程第二课]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247610</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247610</guid><author>IDLlanguage</author><pubDate>Fri, 07 Nov 2008 16:12:00 +0800</pubDate><description><![CDATA[ 下面是源码：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先看第一行和最后一]]></description><category></category></item><item><title><![CDATA[Autocad二次开发vba教程第一课]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247599</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247599</guid><author>IDLlanguage</author><pubDate>Fri, 07 Nov 2008 16:11:00 +0800</pubDate><description><![CDATA[ 1.为什么要写这个教程市面上ACAD VBA的书不多，它的帮助是英文版的，很多人看不懂。其实我转行已经好几年了，而且手艺也慢慢生疏了，写个教程对自己来说也是一次复习。2.什么是Autocad VBA？VBA是Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD命令]]></description><category></category></item><item><title><![CDATA[Autocad二次开发vba教程第三课]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247581</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247581</guid><author>IDLlanguage</author><pubDate>Fri, 07 Nov 2008 16:09:00 +0800</pubDate><description><![CDATA[ 为了简化程序，这里用多条直线来代替多段线。以下是源码：Sub myl()Dim p1 As Variant 申明端点坐标Dim p2 As Variantp1 = ThisDrawing.Utility.GetPoint(, "输入点:") 获取点坐标z = ThisDrawing.Utility.GetReal("Z坐标:") 用户输入Z坐标值p1(2) = z 将Z坐标值赋予点坐]]></description><category></category></item><item><title><![CDATA[Autocad二次开发vba教程第四课]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247577</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247577</guid><author>IDLlanguage</author><pubDate>Fri, 07 Nov 2008 16:08:00 +0800</pubDate><description><![CDATA[ 第四课 程序的调试和保存 人非圣贤，孰能无过，初学者在编写复杂程序时往往会出现一些意想不到的错误，所以程序的调试显得尤为重要，随着学习的深入，以后我们需要经常进行程序调试。事实上，对于那些资深程序员来说，调试程序也是一项不可或缺的重要工作。首先，在程序输入阶段，应该充分利用VBA编辑器的智能功能。当你在写代码时，输入一些字母后，编辑器可以自动列出合适的语句、对象、函数供你选择，可以用]]></description><category></category></item><item><title><![CDATA[Autocad二次开发vba教程第五课]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247574</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247574</guid><author>IDLlanguage</author><pubDate>Fri, 07 Nov 2008 16:07:00 +0800</pubDate><description><![CDATA[ 第五课 画函数曲线 下面是源码：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)]]></description><category></category></item><item><title><![CDATA[Autocad二次开发vba教程第六课]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247563</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247563</guid><author>IDLlanguage</author><pubDate>Fri, 07 Nov 2008 16:06:00 +0800</pubDate><description><![CDATA[ 第六课 数据类型的转换 上一节课我们用一个简单的公式把角度转化为弧度，这样做便于大家理解。不过VBA中有现成的方法可以转换数据类型。我们举例说明：jd = ThisDrawing.Utility.AngleToReal(30, 0)这个表达式把角度30度转化为弧度，结果是.523598775598299。AngleToReal需要两个参数，前面是表示要转换角度的数字，而后面一个参数可]]></description><category></category></item><item><title><![CDATA[Autocad二次开发vba教程第八课]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247542</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247542</guid><author>IDLlanguage</author><pubDate>Fri, 07 Nov 2008 16:04:00 +0800</pubDate><description><![CDATA[ 第八课:图层操作 先简单介绍两条命令：1、这条语句可以建立图层：ThisDrawing.Layers.Add("新建图层")在括号中填写图层的名称。2、设置为当前的图层ThisDrawing.ActiveLayer=图层对象注意，等号右边的变量不能用图层名称，必须使用一个有效的图层变量以下一些属性在图层比较常用：LayerOn 打开关闭Freeze 冻结Lock锁定Color]]></description><category></category></item><item><title><![CDATA[Autocad二次开发vba教程第九课]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247532</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247532</guid><author>IDLlanguage</author><pubDate>Fri, 07 Nov 2008 16:03:00 +0800</pubDate><description><![CDATA[ 第九课:创建选择集 1.在创建对象的同时可以直接引用.以前的例程中已经做过多次了,现在复习一下,看例程:先随机画300个圆,在画圆时直接引用,然后再把这些圆根本大小修改颜色.Sub c300()Dim myselect(0 To 300) As AcadEntity 定义选择集数组Dim pp(0 To 2) As Double 圆心坐标For i = 0 To 300 ]]></description><category></category></item><item><title><![CDATA[Autocad二次开发vba教程第十课]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247498</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3247498</guid><author>IDLlanguage</author><pubDate>Fri, 07 Nov 2008 16:00:00 +0800</pubDate><description><![CDATA[ 第十课:画多段线和样条线 画二维多段线语句这样写：set lobj= ThisDrawing.ModelSpace.AddLightweightPolyline(fitpoint)AddLightweightPolyline后面需一个参数，存放顶点坐标的数组画三维多段线语句这样写：Set lobj = ThisDrawing.ModelSpace.Add3DPoly(fitpoint]]></description><category></category></item><item><title><![CDATA[Autocad二次开发vba教程第十一课]]></title><link>https://blog.youkuaiyun.com/idllanguage/article/details/3247458</link><guid>https://blog.youkuaiyun.com/idllanguage/article/details/3247458</guid><author>idllanguage</author><pubDate>Fri, 07 Nov 2008 15:57:00 +0800</pubDate><description><![CDATA[ 下面的例题是一个最简单的动画，由用户选择一个要移动的对象，然后定位起点和终点，程序会慢慢地把对象移动。    移动方法：object.move 起点坐标,端点坐标Sub testmove()Dim p0 As Variant       起点坐标Dim p1 As Variant       终点坐标Dim pc As Variant       移动时起点坐标Dim pe As ]]></description><category></category></item><item><title><![CDATA[C#命名空间详解]]></title><link>https://blog.youkuaiyun.com/idllanguage/article/details/3117780</link><guid>https://blog.youkuaiyun.com/idllanguage/article/details/3117780</guid><author>idllanguage</author><pubDate>Tue, 21 Oct 2008 14:55:00 +0800</pubDate><description><![CDATA[Microsoft.Csharp包含支持用C#语言进行编译的代码 Microsoft.Jscript包含支持用Jscript语言进行殡仪和代码生成的Jscript运行库和类 Microsoft.VisualBasic包含Visual Basic.NET运行库。此运行库于Visual Basic.NET语言一起使用。此命名空间包含支持Visual Basic.NET语言进行编译和代码生成类。 ]]></description><category></category></item><item><title><![CDATA[Autocad VBA初级教程]]></title><link>https://blog.youkuaiyun.com/IDLlanguage/article/details/3110498</link><guid>https://blog.youkuaiyun.com/IDLlanguage/article/details/3110498</guid><author>IDLlanguage</author><pubDate>Mon, 20 Oct 2008 14:57:00 +0800</pubDate><description><![CDATA[为了简化程序，这里用多条直线来代替多段线。以下是源码：Sub myl()Dim p1 As Variant 申明端点坐标Dim p2 As Variantp1 = ThisDrawing.Utility.GetPoint(, "输入点:") 获取点坐标z = ThisDrawing.Utility.GetReal("Z坐标:") 用户输入Z坐标值p1(2) = z ]]></description><category></category></item></channel></rss>