[VBA]Wblock保存的块太小了
我做了一个把大图（尺寸大，图块多）的所有图块分别保存成单个文件的程序，用Wblock保存的。但是，保存后打开发现：图块离坐标原点比较远，图块也太小（只有一个点），就算用zoom all命令也不像平常一样居中显示（估计是插入点的问题，不清楚）。请问：
如何使得 保存后的块，能够显示不至于太小。<br>
谢谢，谢谢。 <br> 是不是我问的不够明白啊？ 怎么每人帮我啊<br> wblock方法因为没有提供插入点项，所以默认插入点都是在原点。如果你的图形离原点很远，那么就会出现这样的问题。<BR>解决的方法只能是把要生成块的图形移动到原点附近再生成块，生成后再移回原来位置。 试试看看<br> 谢谢
<a name="50946"><font color="#990000"><b>mccad了。<br>
我是根据块的insertionpoint移动到原点，但是，insertionoint经常也离块很远，虽然一定程度上解决了问题。但是我想：有没有办
法让块尽可能的Move到靠近原点。我有个想法：能不能先求处块的包络矩形（怎么求哦），再根据矩形的左下角移动到原点。
或者说有更好的办法呢？<br>
再次感谢 mccad。<br>
</b></font></a> 如果你知道了<FONT color=#990000>insertionpoint的值,你就可以使用move命令:thisdrawing.sendcommand "move" & vbcr & pp & vbcr "0,0" & vbcr & -insertionpoint(0),-insertionpoint(1) & vbcr;如果不想手选,那你就使用选择集了</FONT> 感谢楼上的，不过你可能误会我的意思了。<br>
insertionpoint离图块远了，就不用了<br> 想用GetBoundingBox，又因为block不是entity。 唉～<br>
页:
[1]