怎么做多重块（不是炸多重块）

shep2008

偶尔收到的图纸里面里有多重块，常规方法炸不开的那种
再说明一下，我不是要炸多重块，我是想要做多重块！
再补充一下也不是用minsert这个命令创建的，这个命令创建的块可以进入块编辑器里编辑，可以改名字，我是要那种连进块编辑器里都找不到名字的


有点说不清楚，正好有个这样的文件，上传大家看下，附件有点大，我发网盘链接（版主，可以链接吗？不可以的话请告知）
链接: https://pan.baidu.com/s/12TpS7zL9_jPsjN2dSwSj7w 密码: cymt






再说明一下，不要讨论怎么炸开，这个太简单，百度能搜索到！

mokson

http://blog.163.com/ldiamond%401 ... 131907201152710882/

dong20030432

shep2008 发表于 2018-4-24 00:18
还是有办法能炸开的了，但是，至少95%以上的人是炸不开了！

这是一段简单的匿名多重块代码，你可以参考一下。
acadapp.ActiveDocument.Utility.Prompt "请选择要建立块的对象"
sset.SelectOnScreen
BasePnt = acadapp.ActiveDocument.Utility.GetPoint(, "请拾取块基点")
Set NoNamBlo = acadapp.ActiveDocument.Blocks.Add(BasePnt, "*u")
ownName = NoNamBlo.Name
ReDim Ent(sset.Count - 1)
For i = 0 To sset.Count - 1
Set Ent(i) = sset.Item(i)
Next
acadapp.ActiveDocument.CopyObjects Ent, NoNamBlo
sset.Erase
sset.Delete
acadapp.ActiveDocument.ModelSpace.AddMInsertBlock BasePnt, NoNamBlo.Name, 1, 1, 1, 0, 1, 1, 0, 0[/code]

dong20030432

shep2008 发表于 2018-5-10 22:51
呀， 上次回复没有成功呀
这段怎么代码不会用
指导一下，谢谢

这是一段VB代码，如果需要VBA则把其中的acadapp.activedocument全部替换成thisdrawing就行了，其它语言我也不会。
但过程和方法都是通用的，哪个编程语言都差不多。
思路是先建立匿名块，然后将选择集中对象拷贝到块中，然后进行多重插入块。

mokson

楼主指的是以 *U 的开头的匿名块吧，匿名块通常由二次开发程序和软件生成，不能手工创建。

shep2008

对的,就是这个意思,有什么工具可以建

pengfei2010

做 匿名快这个不难呀，但是炸不开 有点难度

shep2008

pengfei2010 发表于 2018-4-20 14:20
做 匿名快这个不难呀，但是炸不开 有点难度

炸开的工具网上多的是..我现在用imini工具箱,可以强行改块名,改了块名就随便你操作了
相反没有类似做多重块的工具,你有办法的话就不要卖关子了

dong20030432

目前还没有哪一种块是能够实现你说的功能，不管是匿名块、多重块、匿名多重块、循环嵌套块，都是有办法炸开或者操作的，不能实现真正的防止修改。
也许只有用自定义对象可以实现，你向论坛里面的高手们请教看有没有人会做吧。我也不会

shep2008

dong20030432 发表于 2018-4-23 09:47
目前还没有哪一种块是能够实现你说的功能，不管是匿名块、多重块、匿名多重块、循环嵌套块，都是有办法炸开 ...

还是有办法能炸开的了，但是，至少95%以上的人是炸不开了！

dong20030432

shep2008 发表于 2018-4-24 00:18
还是有办法能炸开的了，但是，至少95%以上的人是炸不开了！

那你就用匿名多重块做吧，这个相对难炸开一些。