HQ_2003 发表于 2003-5-3 13:17:00

[求助][分享]

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

mccad 发表于 2003-5-3 16:30:00

原来的程序怎么没有贴上？

HQ_2003 发表于 2003-5-3 19:33:00

怪！我在”文件上传： 项目中“浏览文件之后，点击上传。为何贴不上呢？

mccad 发表于 2003-5-3 19:52:00

点击上传后会在发言内容区显示出上传文件的链接，不要删除它

HQ_2003 发表于 2003-5-3 20:10:00

明白了，原来如此

HQ_2003 发表于 2003-5-4 20:40:00

斑竹大人能否用vba编写一个在cad中求和的程序

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

HQ_2003 发表于 2003-5-6 14:24:00

efan2000斑竹，麻烦你给我解决一下本目录的提问好吗？

efan2000 发表于 2003-5-6 21:44:00

上传一个例子吧，这是以前在晓东CAD空间做的文字编辑工具改写而成的。

本帖最后由 mccad 于 2003-5-6 21:44:32 编辑

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

HQ_2003 发表于 2003-5-7 20:03:00

能否解释一下“object.GetSubEntity Object, PickedPoint, TransMatrix, ContextDa

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

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

efan2000 发表于 2003-5-7 22:07:00

没有这方面的资料介绍

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可以返回块引用对象。
页: [1] 2
查看完整版本: [求助][分享]