<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>晓东CAD家园-论坛 - VBA、COM-ActiveX</title>
    <link>http://bbs.xdcad.net/forum-80-1.html</link>
    <description>Latest 20 threads of VBA、COM-ActiveX</description>
    <copyright>Copyright(C) 晓东CAD家园-论坛</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Wed, 10 Jun 2026 08:50:00 +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>vla-sendcommand处理后的对象怎么获取，然后改变颜色？</title>
      <link>http://bbs.xdcad.net/thread-730249-1-1.html</link>
      <description><![CDATA[想实现所选的文字“合并，同时修改颜色”，合并LJchz+改颜色change

(defun c:zza( )
    (setq ss1 (ssget))  
    (setq ss (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) \&quot;_.LJchz !ss1 \&quot;) )
    (command \&quot;change\&quot; ss\&quot;\&quot; \&quot;p\&quot;  \&quot;c\&quot;  1 \&quot;\&quot; )
 
   ...]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>WongFoling</author>
      <pubDate>Fri, 22 Nov 2024 04:04:27 +0000</pubDate>
    </item>
    <item>
      <title>cad表格公式批量更新</title>
      <link>http://bbs.xdcad.net/thread-729923-1-1.html</link>
      <description><![CDATA[如图为cad钢筋工程量计算表，带背景的cad单元格中含有计算公式，更改其他单元格数值时，公式单元格的显示结果经常不会自动更新，使用该程序可以批量更新cad表格公式单元格的显示结果。

Sub cad表格公式更新xdcad()
  On Error GoTo ErrorHandler
  AppActivate Applica ...]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>striver</author>
      <pubDate>Wed, 20 Dec 2023 01:27:54 +0000</pubDate>
    </item>
    <item>
      <title>使用VBA来创建动态块</title>
      <link>http://bbs.xdcad.net/thread-728858-1-1.html</link>
      <description><![CDATA[论坛的各位大拿，我想咨询下，使用VBA是否能实现，创建 动态块，而不仅仅只是 修改动态块的参数值，
能否提供一些思路，谢谢]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>roypk</author>
      <pubDate>Sat, 30 Apr 2022 10:47:26 +0000</pubDate>
    </item>
    <item>
      <title>CAD获取模型空间所有对象包围盒BoundingBox</title>
      <link>http://bbs.xdcad.net/thread-728641-1-1.html</link>
      <description><![CDATA[假设模型空间中有若干图形，如何用VBA获取到这些图形的BoundingBox]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>ddx_2002</author>
      <pubDate>Wed, 20 Oct 2021 09:31:28 +0000</pubDate>
    </item>
    <item>
      <title>VBA 如何生成块的边界线,</title>
      <link>http://bbs.xdcad.net/thread-728613-1-1.html</link>
      <description><![CDATA[VBA 如何生成块的边界线,]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>ShaoRui</author>
      <pubDate>Fri, 15 Oct 2021 10:43:41 +0000</pubDate>
    </item>
    <item>
      <title>如何统一修改cad表格中文字高度</title>
      <link>http://bbs.xdcad.net/thread-728412-1-1.html</link>
      <description><![CDATA[如何用vba修改cad表格中的文字高度，一次性全部修改为统一高度。]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>lingyv</author>
      <pubDate>Fri, 13 Aug 2021 15:50:27 +0000</pubDate>
    </item>
    <item>
      <title>VBA如何求框选范围内直线交点坐标？</title>
      <link>http://bbs.xdcad.net/thread-727953-1-1.html</link>
      <description><![CDATA[请教各位前辈，VBA如何求框选范围内直线交点坐标？]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>lcj21</author>
      <pubDate>Tue, 20 Apr 2021 07:41:10 +0000</pubDate>
    </item>
    <item>
      <title>【电子书】AutoCAD 2014 二次开发 VBA 基础与实例（含课程代码）</title>
      <link>http://bbs.xdcad.net/thread-727429-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>Lisphk</author>
      <pubDate>Sat, 16 Jan 2021 08:20:42 +0000</pubDate>
    </item>
    <item>
      <title>Autocad VBA初级教程(2020修订版)</title>
      <link>http://bbs.xdcad.net/thread-727287-1-1.html</link>
      <description><![CDATA[视频教学将陆续传到B站]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>puqing</author>
      <pubDate>Wed, 06 Jan 2021 11:13:42 +0000</pubDate>
    </item>
    <item>
      <title>AutoCAD表格处理软件菠萝表格助手</title>
      <link>http://bbs.xdcad.net/thread-727192-1-1.html</link>
      <description><![CDATA[把以前编的一些表格功能合并打包，一些功能还没见过别的软件做过，有兴趣的可以试试看。
菠萝表格助手：
ACAD表格与EXCEL表格互转
支持单行文字多行文字以及混搭
支持单元格合并,支持上下标,支持粗线边框
支持字体大小按比例转化,支持文字对齐方式
支持表格文字对齐
支 ...]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>mikewolf2k</author>
      <pubDate>Mon, 21 Dec 2020 06:15:31 +0000</pubDate>
    </item>
    <item>
      <title>选择集</title>
      <link>http://bbs.xdcad.net/thread-727125-1-1.html</link>
      <description><![CDATA[如何实现选择集提示选择，选择后不用空格直接运行下一条]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>yz1223</author>
      <pubDate>Tue, 08 Dec 2020 02:56:33 +0000</pubDate>
    </item>
    <item>
      <title>批量将表格数据画在弧线上</title>
      <link>http://bbs.xdcad.net/thread-727066-1-1.html</link>
      <description><![CDATA[求大神们帮助
要求将表格数据按下面规则绘制到弧线上：
1）A、B 放到长方形内
2）A-B 放到环路文字
3）A1、A2...节点按顺序，平均布放到弧形上，]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>shenyaocan</author>
      <pubDate>Wed, 25 Nov 2020 03:30:36 +0000</pubDate>
    </item>
    <item>
      <title>有偿用VBA把属性块转换成普通块</title>
      <link>http://bbs.xdcad.net/thread-726987-1-1.html</link>
      <description><![CDATA[指定【图层一】下的所有块，如果块有可见的属性，删除原有属性，把文字转换成普通的文字，图层为【0】图层。文字样式，颜色，大小，旋转角度都不变。
有偿站内私信。]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>风筝那根线</author>
      <pubDate>Thu, 05 Nov 2020 11:18:03 +0000</pubDate>
    </item>
    <item>
      <title>求助，ActiveX如何加载现有dwg文件？</title>
      <link>http://bbs.xdcad.net/thread-726682-1-1.html</link>
      <description><![CDATA[求助各位大牛，ActiveX如何加载现有dwg文件？]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>zzbbz</author>
      <pubDate>Mon, 07 Sep 2020 12:07:58 +0000</pubDate>
    </item>
    <item>
      <title>求助各位大神，实例化CAD中的AcadAcCmColor对象，异常</title>
      <link>http://bbs.xdcad.net/thread-726661-1-1.html</link>
      <description><![CDATA[实例化CAD中的AcadAcCmColor对象，异常
说“检索 COM 类工厂中 CLSID 为 {AF2B061F-DE61-421E-A4C7-9DCC77B001F4} 的组件时失败，原因是出现以下错误: 8007007e”
但是我根据CLSID在注册表里找到了该组件，说明注册 没问题，我也修改了他的权限。还是未能解决问题 ...]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>zzbbz</author>
      <pubDate>Wed, 02 Sep 2020 14:03:11 +0000</pubDate>
    </item>
    <item>
      <title>关于二次开发如何学习？求教</title>
      <link>http://bbs.xdcad.net/thread-726276-1-1.html</link>
      <description><![CDATA[新手，未接触过任何编程软件。想请教一下怎么开始入门学习呢？主要结合excel的数据和在cad画图。]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>nckdkg</author>
      <pubDate>Wed, 08 Jul 2020 01:50:16 +0000</pubDate>
    </item>
    <item>
      <title>怎么样获取嵌套块引用的插入坐标? ( A-&gt;B-&gt;C-&gt;D,获取D在A里的坐标)</title>
      <link>http://bbs.xdcad.net/thread-726154-1-1.html</link>
      <description><![CDATA[各位大神,请教一个新手问题~ 十分感谢各位的阅读和回复
比如有4层嵌套块引用, A-&gt;B-&gt;C-&gt;D
A块引用 中有 B块引用
B块引用 中有 C块引用
C块引用 中有 D块引用
怎么获得D块引用在A块引用的位置坐标?
是通过一层层explode,把D打散到A块里, 再读坐标? 如果这样的话, 怎么用 ...]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>takeeasy</author>
      <pubDate>Wed, 24 Jun 2020 03:17:50 +0000</pubDate>
    </item>
    <item>
      <title>vba 如何删除属性块中的定义属性</title>
      <link>http://bbs.xdcad.net/thread-725677-1-1.html</link>
      <description><![CDATA[在cad中有一个定义好的属性块，我想把这个块的定义属性删除（删除Blockdef中的Attdef），变成一个没有属性的块，供后续绘图用。怎么用vba实现。下面是lisp程序代码。]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>lingyv</author>
      <pubDate>Tue, 21 Apr 2020 07:21:21 +0000</pubDate>
    </item>
    <item>
      <title>请问VBA如何设置文字的大小</title>
      <link>http://bbs.xdcad.net/thread-725659-1-1.html</link>
      <description><![CDATA[请问VBA如何设置设置文字的大小
Set TextStyle = ThisDrawing.TextStyles.Add(StyleName)
        TextStyle.SetFont FontName, False, False, 0, 0
        TextStyle.ObliqueAngle = \&quot;0\&quot;
        TextStyle.Height = \&quot;0\&quot;
        TextStyle.Width = Width
请问这里文 ...]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>xdcad9819</author>
      <pubDate>Sat, 18 Apr 2020 23:24:54 +0000</pubDate>
    </item>
    <item>
      <title>vba指定区域不在屏幕范围内时，不能选择？</title>
      <link>http://bbs.xdcad.net/thread-725377-1-1.html</link>
      <description><![CDATA[Set Sset = ThisDrawing.SelectionSets.Add(\&quot;mxb\&quot;)
 Sset.Select acSelectionSetWindow, P1, P2 \'选择指定区域的图元

 当P1到P2的范围不在电脑屏幕可见范围内时，Sset集是空
 将屏幕缩放后，使范围在屏幕内，Sset集有图元
 这怎么解决？ ...]]></description>
      <category>VBA、COM-ActiveX</category>
      <author>倒霉熊_H6ooh</author>
      <pubDate>Thu, 05 Mar 2020 02:38:49 +0000</pubDate>
    </item>
  </channel>
</rss>