找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 616|回复: 7

[求助]:如何将块炸成基本图元,并获得炸开后的图元?

[复制链接]
发表于 2004-5-21 10:29:39 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
如何用VBA将块炸成基本图元,并获得炸开后的图元?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2004-5-24 16:48:24 | 显示全部楼层
我懂,联系我。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-5-25 08:27:21 | 显示全部楼层

Re: [求助]:如何将块炸成基本图元,并获得炸开后的图元?

最初由 zkycds 发布
[B]如何用VBA将块炸成基本图元,并获得炸开后的图元? [/B]

严格地讲,不是块,而是块的引用。
块的引用:RetVal = object.Explode
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-5-25 23:12:14 | 显示全部楼层

Re: Re: [求助]:如何将块炸成基本图元,并获得炸开后的图元?

最初由 lijiao 发布
[B]
严格地讲,不是块,而是块的引用。
块的引用:RetVal = object.Explode [/B]

补充些:
对于不同复合对象的分解,有不同的结果产生。参照 AutoCAD 命令参考 中的 EXPLODE 命令主题以得到有关可分解对象及其结果详细列表。

不需要通过分解一个块来操纵其块内实体。所有的块定义都有了 Item 方法,它允许用户操纵块内部实体而不需分解块定义本身。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2004-5-26 08:51:45 | 显示全部楼层
谢谢各位!块的打散我已经会了,我本来想的是炸开CAD的标注,但是试验后发现标注不支持块炸开的Explode函数,在VBA中用什么函数炸开标注?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-5-26 11:42:01 | 显示全部楼层
和炸开MText相似,自己改改吧
Private Function MToS(MText As Variant) As Variant
'炸开MText并返回一个Text数组
    Dim i As Integer
    Dim ss As AcadSelectionSet
    Dim pTexts As New Collection
    ThisDrawing.ActiveSelectionSet.Clear
    ThisDrawing.SendCommand "Explode" & vbCr & "(handent " & Chr(34) _
                            & MText.Handle & Chr(34) & ")" & vbCr & vbCr
    Set ss = ThisDrawing.ActiveSelectionSet
    ReDim pTexts(ss.Count - 1) As AcadObject
    For i = 0 To ss.Count - 1
        If UCase(ss(i).ObjectName) = "ACDBTEXT" Then pTexts.Add ss(i)
    Next i
    MToS = pTexts
End Function
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2004-5-26 12:33:50 | 显示全部楼层
最初由 lzh741206 发布
[B]和炸开MText相似,自己改改吧
Private Function MToS(MText As Variant) As Variant
'炸开MText并返回一个Text数组
    Dim i As Integer
    Dim ss As AcadSelectionSet
    Dim pTexts As New Collection
... [/B]

谢谢!我已经做出了,思路和你的一样,都是用SendCommand。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-5-30 10:21:12 | 显示全部楼层
块炸开后的返回值是何类型
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-23 23:14 , Processed in 0.427458 second(s), 45 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表