[求助]消除用VBA编程连续插入图块造成图形重叠的方法

yuliang2477

消除用VBA编程连续插入图块造成图形重叠的方法

请高手帮价绍一下

ljttjl

网盘http://ljttjl.ys168.com   20091111目录下载 删除完全重叠图元对象程序

yuliang2477

谢谢

我去看看

yuliang2477

我想知道怎么用代码去做

在我的代码中要多次插入图块

wuyunpeng888

不知道你到底是什么意思

你是不是每次都向块里添东西呀

块只需创建一次，用时向CAD里插入块参照就可以了

或者你改用匿名块

yuliang2477

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝图块名称、插入点坐标＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Public Sub CAD_blk_exe(blk_name As String, Inpoint() As Double)
'Dim obj_block As Object, Obj_blockref As Object     '块对象、块参照
Dim InsertionPoint(0 To 2) As Double        '块的插入点

InsertionPoint(0) = Inpoint(0): InsertionPoint(1) = Inpoint(1): InsertionPoint(2) = 0
Set Obj_block = Obj_Doc.Blocks.Add(InsertionPoint, blk_name)
Block_bool = True

End Sub

这是第一个图块做完后

下面的这个图块里还要用到第一个图块里内容，如果能直接把现有已做好图块插入到第二个图块中，那不是省去不少事吗？

比如第一个图块名叫123，里面有5条线，第二个图块名叫234，234图块里还有这5条线再加点别的什么的，只是坐标不一样，如果能直接把123插入到234中形成新图块234，那不是省去不少事吧，还不用去重算坐标。不知这样说 说清没有？

wuyunpeng888

还是不明白你这样做是什么意思

总之块操作和对ModuleSpace的操作方法基本上是一样的，因为ModuleSpace本身就是块