<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>晓东CAD家园-论坛 - VBA/ActiveX 函数库</title>
    <link>http://bbs.xdcad.net/forum-53-1.html</link>
    <description>Latest 20 threads of VBA/ActiveX 函数库</description>
    <copyright>Copyright(C) 晓东CAD家园-论坛</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Sun, 26 Apr 2026 23:47:06 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>http://bbs.xdcad.net/static/image/common/logo_88_31.gif</url>
      <title>晓东CAD家园-论坛</title>
      <link>http://bbs.xdcad.net/</link>
    </image>
    <item>
      <title>插入当前文档中的块</title>
      <link>http://bbs.xdcad.net/thread-668773-1-1.html</link>
      <description><![CDATA[CJ748插入当前文档中的块命令CRDQWDZDK20130602170145.dvb
可以很方便地插入当前文档中的块。
而且有很多效率极高的类模块、模块代码，是通用型的，这是本人数年的写作积累的结晶。]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>清风明月10</author>
      <pubDate>Tue, 11 Jun 2013 03:29:54 +0000</pubDate>
    </item>
    <item>
      <title>VBA二维数组按第二参数排序</title>
      <link>http://bbs.xdcad.net/thread-668045-1-1.html</link>
      <description><![CDATA[[sell=3][/sell]

\'自定义函数
Function [sell]二维数组按第二参数排序[/sell](将要排序的数组, 第2参数的第几列如果是一维填1即可, 升序1降序非1)    \'(将要排序的数组[将要排序的数组], 第2参数的第几列如果是一维填1即可[垂直数组(y,x)中x，像表格中的哪一列], 升序1 ...]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>清风明月10</author>
      <pubDate>Sun, 12 May 2013 23:41:22 +0000</pubDate>
    </item>
    <item>
      <title>VBA函数板块说明</title>
      <link>http://bbs.xdcad.net/thread-667688-1-1.html</link>
      <description><![CDATA[版主温馨提示:   此函数版块主要是希望大家自愿分享自己平时学习积累所得的各类VBA函数源代码贴在这里，或将其它版块的VBA函数转帖过来，以便于大家共同学习、交流，同时也方便大家今后根据自己的需求很快的查找到你要找的VBA函数。
 ...]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>ScmTools</author>
      <pubDate>Tue, 30 Apr 2013 13:03:44 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：怎么样解决VBA同CAD版本问题</title>
      <link>http://bbs.xdcad.net/thread-660072-1-1.html</link>
      <description><![CDATA[VBA编程时加载的是CAD2006版本，但在CAD2007里不能用，请问各位大师，有没有好的解决办法。]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>shenzhengwei</author>
      <pubDate>Sat, 21 Feb 2009 02:15:11 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：VBA 创建“匿名”组和“匿名”块</title>
      <link>http://bbs.xdcad.net/thread-649017-1-1.html</link>
      <description><![CDATA[我在写CAD创建块的时候，我不想指定它的名字，也不指定她的插入点，一个命令创建一个块或组多方便啊。

这其中我写了两个函数和大家分享一下。

\'创建匿名组，没有则创建，有则序号加一
Function NiMingZu(S As String) As String
    Dim G As AcadGroup
    Dim n As  ...]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>tiancao1001</author>
      <pubDate>Sun, 23 Mar 2008 10:15:00 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：返回 空间平面方程</title>
      <link>http://bbs.xdcad.net/thread-645064-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>tiancao1001</author>
      <pubDate>Sun, 02 Dec 2007 06:22:26 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：\'获取CAD坐标系统和屏幕像素的比值</title>
      <link>http://bbs.xdcad.net/thread-645063-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>tiancao1001</author>
      <pubDate>Sun, 02 Dec 2007 06:16:44 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：一个关于块参照的问题？</title>
      <link>http://bbs.xdcad.net/thread-643209-1-1.html</link>
      <description><![CDATA[请问怎样在VBA里面做块参照？？里面有文字属性，文字可以移动,块位置不变。
     
   如: (变压器用带属性的块参照表示; )
      变压器属性: 
      图号: 文本 
   名称: 文本 
   容量: 文本,如50KVA 
      规格: 文本 
   
   请知道的速回啊！！！ ...]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>左权</author>
      <pubDate>Fri, 19 Oct 2007 16:08:30 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：vba多段线循环</title>
      <link>http://bbs.xdcad.net/thread-612080-1-1.html</link>
      <description><![CDATA[我想用多段线做一关系曲线（库容曲线）怎么样做个循环？不必要像这样

points(0) =xlsheet.cells(8, 8).Value: points(1) =xlsheet.cells(8, 1).Value
points(2) =xlsheet.cells(9, 8).Value: points(3) =xlsheet.cells(9, 1).Value
points(4) =xlsheet.cells(10, 8).Va ...]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>sadney</author>
      <pubDate>Fri, 15 Dec 2006 10:34:37 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：在线上以一定的y值变化插点</title>
      <link>http://bbs.xdcad.net/thread-560441-1-1.html</link>
      <description><![CDATA[Type point2d
x As Double
y As Double
z As Double
End Type
Sub addpoint()
Dim pt1(2000) As point2d
Dim pl As AcadEntity
Dim dx As Double
Dim dy As Double
Dim dz As Double
Dim k As Double
Dim point(5000) As AcadPoint
Dim pt3() As Double
Dim mi]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>xiaodang123</author>
      <pubDate>Sun, 21 May 2006 01:21:18 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：标注桩号的小程序</title>
      <link>http://bbs.xdcad.net/thread-555090-1-1.html</link>
      <description><![CDATA[工具-加载宏-输入宏名称-运行宏-选中所要标注的桩（即圆对象），接下来按提示输入即可,可对二列的圆自动标注]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>guosheng3456</author>
      <pubDate>Tue, 09 May 2006 14:11:32 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：自己弄的一些小东西（程序）</title>
      <link>http://bbs.xdcad.net/thread-543201-1-1.html</link>
      <description><![CDATA[一些小东西 ，谨供参考，希望对各位能有所帮助！]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>xiaodang123</author>
      <pubDate>Tue, 11 Apr 2006 01:17:16 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：求助，如何在VBA中利用三点绘制圆弧？</title>
      <link>http://bbs.xdcad.net/thread-532421-1-1.html</link>
      <description><![CDATA[如何在VBA中利用三点，即起点、中点、终点绘制圆弧，并返回圆心坐标？
请高手指点！！！！]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>gzmkshjsh</author>
      <pubDate>Mon, 20 Mar 2006 00:35:49 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：利用VBA绘制圆弧并返回圆心坐标</title>
      <link>http://bbs.xdcad.net/thread-530361-1-1.html</link>
      <description><![CDATA[如何在VBA中利用三点，即起点、中点、终点绘制圆弧，并返回圆心坐标？
请高手指点！]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>gzmkshjsh</author>
      <pubDate>Wed, 15 Mar 2006 07:19:29 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：绘制三维螺旋线</title>
      <link>http://bbs.xdcad.net/thread-517993-1-1.html</link>
      <description><![CDATA[绘制三维螺旋线函数]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>yxljx</author>
      <pubDate>Thu, 19 Jan 2006 15:18:43 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：自动生成命令来自动加载及执行VBA程序</title>
      <link>http://bbs.xdcad.net/thread-517989-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>yxljx</author>
      <pubDate>Thu, 19 Jan 2006 15:06:44 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：有關LISP中如何控制標注精度</title>
      <link>http://bbs.xdcad.net/thread-485577-1-1.html</link>
      <description><![CDATA[這是一個對機械制圖很實用的程序,千萬別錯過*-*1]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>clyuyu</author>
      <pubDate>Tue, 08 Nov 2005 05:15:39 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：功能丰富的VBA宏!</title>
      <link>http://bbs.xdcad.net/thread-484758-1-1.html</link>
      <description><![CDATA[功能丰富的宏,建议高级用户可制作一个相应的菜单或工具栏以方便调用相应的宏!

使用方法:打开CAD-工具-加载应用程序-选择本文件-确定
再按Alt+F8(运行宏),选择相应的宏运行即可!]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>风雪大侠</author>
      <pubDate>Sat, 05 Nov 2005 07:44:25 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：vba中的timer控件问题??</title>
      <link>http://bbs.xdcad.net/thread-368232-1-1.html</link>
      <description><![CDATA[vba中怎么没有timer控件啊？

vb中的工具栏中有很好用，能不能在vba中用timer控件呢？、]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>quan2003</author>
      <pubDate>Tue, 19 Apr 2005 16:01:37 +0000</pubDate>
    </item>
    <item>
      <title>[VBA函数]：[VBA函数]：编程实用底层函数</title>
      <link>http://bbs.xdcad.net/thread-352124-1-1.html</link>
      <description><![CDATA[非常实用]]></description>
      <category>VBA/ActiveX 函数库</category>
      <author>redjiang</author>
      <pubDate>Mon, 28 Mar 2005 08:06:49 +0000</pubDate>
    </item>
  </channel>
</rss>