[求助]消除用VBA编程连续插入图块造成图形重叠的方法
<p><font color="#07519a">消除用VBA编程连续插入图块造成图形重叠的方法</font></p><p><font color="#07519a">请高手帮价绍一下</font></p> 网盘<a href="http://ljttjl.ys168.com">http://ljttjl.ys168.com</a> <a class="actuator" id="F567925_20091111删除完全重叠图元对象" href="javascript:">20091111目录下载 删除完全重叠图元对象</a>程序 <p>谢谢</p><p>我去看看</p> <p>我想知道怎么用代码去做</p><p>在我的代码中要多次插入图块</p><p></p> <p>不知道你到底是什么意思</p><p>你是不是每次都向块里添东西呀</p><p>块只需创建一次，用时向CAD里插入块参照就可以了</p><p>或者你改用匿名块</p> <p><br/>'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝图块名称、插入点坐标＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</p><p>Public Sub CAD_blk_exe(blk_name As String, Inpoint() As Double)<br/>'Dim obj_block As Object, Obj_blockref As Object '块对象、块参照<br/>Dim InsertionPoint(0 To 2) As Double '块的插入点</p><p>InsertionPoint(0) = Inpoint(0): InsertionPoint(1) = Inpoint(1): InsertionPoint(2) = 0<br/>Set Obj_block = Obj_Doc.Blocks.Add(InsertionPoint, blk_name)<br/>Block_bool = True</p><p>End Sub</p><p>这是第一个图块做完后</p><p>下面的这个图块里还要用到第一个图块里内容，如果能直接把现有已做好图块插入到第二个图块中，那不是省去不少事吗？</p><p>比如第一个图块名叫123，里面有5条线，第二个图块名叫234，234图块里还有这5条线再加点别的什么的，只是坐标不一样，如果能直接把123插入到234中形成新图块234，那不是省去不少事吧，还不用去重算坐标。不知这样说 说清没有？</p> <p>还是不明白你这样做是什么意思</p><p>总之块操作和对ModuleSpace的操作方法基本上是一样的，因为ModuleSpace本身就是块</p>
页:
[1]