[VBA]Wblock保存的块太小了

uhuang · 发表于 2005-8-11 19:51:00

我做了一个把大图（尺寸大，图块多）的所有图块分别保存成单个文件的程序，用Wblock保存的。但是，保存后打开发现：图块离坐标原点比较远，图块也太小（只有一个点），就算用zoom all命令也不像平常一样居中显示（估计是插入点的问题，不清楚）。请问：如何使得保存后的块，能够显示不至于太小。
谢谢，谢谢。

uhuang · 发表于 2005-8-12 08:19:00

是不是我问的不够明白啊？怎么每人帮我啊

mccad · 发表于 2005-8-12 12:13:00

wblock方法因为没有提供插入点项，所以默认插入点都是在原点。如果你的图形离原点很远，那么就会出现这样的问题。
解决的方法只能是把要生成块的图形移动到原点附近再生成块，生成后再移回原来位置。

uhuang · 发表于 2005-8-12 19:57:00

试试看看

uhuang · 发表于 2005-8-13 08:20:00

谢谢 mccad了。
我是根据块的insertionpoint移动到原点，但是，insertionoint经常也离块很远，虽然一定程度上解决了问题。但是我想：有没有办法让块尽可能的Move到靠近原点。我有个想法：能不能先求处块的包络矩形（怎么求哦），再根据矩形的左下角移动到原点。或者说有更好的办法呢？
再次感谢 mccad。

czlj2008 · 发表于 2005-8-13 09:44:00

如果你知道了insertionpoint的值,你就可以使用move命令:thisdrawing.sendcommand "move" & vbcr & pp & vbcr "0,0" & vbcr & -insertionpoint(0),-insertionpoint(1) & vbcr;如果不想手选,那你就使用选择集了

uhuang · 发表于 2005-8-13 09:49:00

感谢楼上的，不过你可能误会我的意思了。
insertionpoint离图块远了，就不用了

uhuang · 发表于 2005-8-13 09:57:00

想用GetBoundingBox，又因为block不是entity。唉～

账号		自动登录	找回密码
密码			注册