gowrite如何批量把sgf生成矢量图？

飞扬铁骑

gowrite如何批量把sgf生成矢量图？

哪位老大有经验？特别是做死活题

现在我是一个一个sgf生成矢量图，然后一个一个矢量图，插入word，再是一个一个矢量图，调整大小，版式、位置。实在是太痛苦了。

松涛入梦

找肥羊啊，他有经验。

天外肥羊

这个目前大毛，老冯是专家，俺已是昨日黄花了啦。

fbilo

GoWrite的打印和输出向导里允许你一次选择多个文件，成批生成diagram；然后输出的功能里面也支持选择多个文件的，这两个你只要注意一下其中的Files选项，应该是不难的。

向导成批生成的Diagram的问题，是Diagram所截取的棋盘的大小可能不好确定。如果你的sgf文件中，死活题所在的位置都在某个角上、或者某条边上，那么我自己写的一个软件也许能帮上点忙，它是直接成批操作sgf文件，在每个sgf中添加一个指定大小Diagram，然后再由你自己使用GoWrite的输出多个文件的功能来一次生成所有的图片。

至于Word里操作，这个似乎是莫有办法了，毕竟同时有文字有图片的文档，总是需要自己手工定位它们的环绕方式的，似乎写宏也不好使。

飞扬铁骑

好像要新版才有批量的功能吧

飞扬铁骑

旧话重提，这个批量，最新版，我捣鼓了半天还时没有找到批量的地方。可否详细说说，或上图？

hljqthqqyy

word中的图像大小和位置可以批量调整

飞扬铁骑

word中的图像大小和位置可以批量调整
hljqthqqyy 发表于 2012-2-26 19:17

    word中的矢量图可以批量调整？如何做到？我好像做不到

lhbmmx

word中的矢量图可以批量调整？如何做到？我好像做不到.

用以用宏来批量调整。
Sub setpicsize() '设置图片大小
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
End Sub

飞扬铁骑

牛啊。宏来处理。

huibian

矢量图批量调整大小，可以在gowrite文件--输出--输出图形设置--棋子间距，里改。原数应该是4.2，比如要把word里的图片都改成原大小的80%，就把4.2改成3.36就行（4.2*0.8=3.36），以后输出的图片大小都是原大小的80%，下一批图片如果是70%大小，可以再统一改。

飞扬铁骑

矢量图批量调整大小，可以在gowrite文件--输出--输出图形设置--棋子间距，里改。原数应该是4.2，比如要把wo ...
huibian 发表于 2012-2-26 21:49

    那么有n个sgf，如何批量导成矢量图呢？

huibian

gowrite文件--输出--文件，点选择文件，选完了点输出。你仔细看看4楼说的。