[求助][分享]

HQ_2003

请教斑竹大人能否用vba编写一个在cad中求和的程序，程序要求：
1 用非模态对话框控制；
2 能自动识别各种数字（包括mtext,text,块文字等）；
3 可以自定义求和之后的数字 保留小数点位数（多位小数点，或取整）。
4 提供字体的各种“属性“（包括插入点，字高，所在图层，旋转角度，宽度比例因子等）
以下为我下载的用vlisp编写的求和程序，很可惜无法编辑。
以上程序要求就算是对它的改进吧！

mccad

HQ_2003

mccad

HQ_2003

HQ_2003

请教斑竹大人能否用vba编写一个在cad中求和的程序，程序要求：
1 用非模态对话框控制；
2 能自动识别各种数字（包括mtext,text,块文字等）；
3 可以自定义求和之后的数字 保留小数点位数（多位小数点，或取整）。
4 提供字体的各种“属性“（包括插入点，字高，所在图层，旋转角度，宽度比例因子等）

HQ_2003

efan2000

在“宏”里运行，加载后，提示选择文字对象，之后按右键取消，并出现操作界面，按“继续”按钮可继续进行相加的操作，按“确定”进行插入文字的操作。由于使用了选择集的技术，可避免重复选择的现象。

HQ_2003

能否解释一下“object.GetSubEntity Object, PickedPoint, TransMatrix, ContextData“中[br]能否解释一下“object.GetSubEntity Object, PickedPoint, TransMatrix, ContextData“中GetSubEntity方法的最后两个参数的含义？

奇怪！怎么cad2004中的“Autocad ActiveX and VBA reference"帮助内容全是英文的，有没有中文的？怎么越是好用的东西就越是英文的呢？烦人。

efan2000

TransMatrix        Variant (4x4 array of doubles); output-only
The translation matrix applied to this entity.
ContextData        Variant (array of longs); output-only
An array of object IDs for any nested objects in the selected object.

按它的意思，TransMatrix应该就是一个转换矩阵了，但是这种矩阵如何得来的，又有什么用途就不得而知了。而ContextData应该是与选中对象临近的所有对象的ID号的数组，对于选中块中的实体，我只知道ContextData(0)就是它所在块引用对象的ID号，用ObjectIdToObject可以返回块引用对象。