乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 75|回复: 4

关于炸开图块问题

[复制链接]

15

主题

38

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
98
发表于 2004-10-5 11:42:00 | 显示全部楼层 |阅读模式
我的MyBlock是DXF文件中一条线 &quotolyline",为什么用以下语句:
ExpObj = =MyBlock.Explode
炸开之后ExpObj(0).ObjectName不为"AcDbPolyline"?
回复

使用道具 举报

24

主题

83

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
179
发表于 2004-10-5 13:20:00 | 显示全部楼层
expObj(0).ObjectName="AcDbPolyline" 啊
如果你炸了两次,这时
expObj(0).ObjectName="AcDbLine"
回复

使用道具 举报

15

主题

38

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
98
发表于 2004-10-5 14:59:00 | 显示全部楼层
我把DXF保存为txt上传一下,图中实际有用的就是那三条线,别的没什么用,炸开后会有一些识别不了的汉字,但问题是有时我将这三条线用copyproject命令复制到一个新的dwg文件中,会少一条线,不知道为什么??3ku
        
回复

使用道具 举报

24

主题

83

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
179
发表于 2004-10-6 12:42:00 | 显示全部楼层

我测试了一下,你的块中添加了很多的属性(通过ATT命令加入的),故炸开以后,expobj是一根多段线和所有17个属性的集合。故只有一项是 expobj(i).objectname="AcDbPolyline"
其余17项
expobj(i).objectname="AcDbAttributeDefinition"
回复

使用道具 举报

24

主题

83

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
179
发表于 2004-10-6 12:51:00 | 显示全部楼层
下面的这段代码是版主 lzh741206前不久提供的,测试表明线条没有丢失。
Sub t7()
                                Dim Doc1 As AcadDocument, Doc2 As Object
                         Dim ssetObj As AcadSelectionSet
                         Dim objCollection() As AcadEntity
                         Set Doc1 = Application.ActiveDocument                          Set ssetObj = Doc1.ActiveSelectionSet
                         ssetObj.Select acSelectionSetAll
                                                                                                                 If ssetObj.Count > 0 Then
                                                                                                                                                         ReDim objCollection(ssetObj.Count - 1) As AcadEntity
                                                                                                                                                         For k = 0 To ssetObj.Count - 1
                                                                                                                                                                                         Set objCollection(k) = ssetObj(k)
                                                                                                                                                         Next k
                                                                                                                                                         
                                                                                                                                                         Set Doc2 = Documents.Add
                                                                                                                                                         Doc1.CopyObjects objCollection, Doc2.ModelSpace
                                                                                                                         End If
End Sub
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 05:30 , Processed in 0.340638 second(s), 62 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表