(20200512彩色版Release)_制作图片字典工具的试作

ly1316

vb net大大：

刚刚使了一下"画线版"，真的很好用！不似过往必须拉出范围，才可截图，只要界定出范围后，就可开始撷取图片。

问题是这个软件似乎只适用"两栏"的辞典，若是二栏以上（三栏）的排版方式，就无法支援......

, `  Y7 S  W  F' Q+ f8 W0 T0 d再者，它撷取图片时，会把一旁的＂留白处＂一同截下，是否有办法让留白处小一些呢？
! y& ?* W6 h7 _* L+ }6 d$ e5 p
最后还是老句话，真的很感谢您研发辞典工具造福同好，无私的精神令人可敬，亦可佩！

vbnet

ly1316 发表于 2016-5-28 12:46
vb net大大：

# b, U7 ]; ^* o8 x: h5 o0 I( q. y刚刚使了一下"画线版"，真的很好用！不似过往必须拉出范围，才可截图，只要界定出范围后， ...

9 Z1 L4 w% y5 D, G>会把一旁的＂留白处＂一同截下
& D& ]  u4 X3 i  O( L上下白边:可以画一线，让留白也是一矩形，不要存它就好了
- v+ k* H' [% T% |/ V4 m
# S+ k; Z4 S, \  [% ]4 d
$ O  O$ F/ S( g  l- V% k. M# D

- j( c% g, ~  `% S" @( \
试试
briss: pdf切白边
>三栏
发张我试试

ly1316

8 G8 G. @4 T, y
vb net大大：

: }1 M. _8 i8 e" A0 g) V! U1. 上下白边，我的确是多加一条线的方式加以区隔，但左右白边，不知是我不会操作，还是软件没提供这样的功能，擧凡撷图，就会把左右白边一起截下。
# [9 k: C! v+ c. ^* b7 i6 O
& G9 Q( Y; ]6 y* ^2.三栏辞典如下所示：
' M+ |" i6 A" F% n" r0 ?
4 s$ a+ T5 O- I4 |) W$ A9 r

vbnet

3 p) q: X% j+ j* x' _

ly1316 发表于 2016-5-28 13:36
: N7 H4 ], f  s! b- }' Kvb net大大：

1. 上下白边，我的确是多加一条线的方式加以区隔，但左右白边，不知是我不会操作，还是软 ...

& _& ]; s2 ~5 |: Z8 e1没有切边功能，试试briss
8 d/ S) P  L  I% z1 ?9 e6 T
) u! k  q* p  P/ y& U( m9 F2原图片发附件，大一点比较好

ly1316

. B( X4 L& f) @' S- svb net大大：

1. 好的，了解。

8 ?2 n' [1 L( o* y% q  K2.大一点的附件如下：

vbnet

ly1316 发表于 2016-5-28 14:15
vb net大大：
" |. q! p$ V. }9 X
1. 好的，了解。

) k$ S: [! ?, U5 H% K  g* s
完成画线
1,2,3栏都可以了
等更新
2 N* i& b0 P& l7 [$ P0 L8 r
/ b& P" v8 o0 }

vbnet

2016028_2更新
: |: ~" _5 Q- }% o9 s" ~& o
5 H0 k6 h! u+ o4 {" o+ M. P>>画线版单独版

5 O& j9 c9 n! s4 c, G# V- m' f页面有1栏，2栏，3栏选项

vbnet

fedor 发表于 2016-5-28 12:24
6 e6 |1 O* ]2 m: B6 l& X非常感谢大神！我先试试这个。
4 R  @& o* k7 n0 k$ A9 S我的理解是跳转指向生成的对照表，要自己拷贝出来放到txt中，查找替换 ...

2 a1 i5 N" q' F( E; u# ~7 p$ m
6 U2 r. a) T5 g+ S  q* y; `* v0 A菜单栏有save--->txt

zhu1234

更新不停，点赞不止。
划线版好方便。为了切除左右白边，建议能增加，“添加竖线”功能，这样就完美了。
2 {: g4 u) y2 e1 W! i: X) y. \
/ }2 Z" D9 a: X; d  M/ _5 C4 d不知另外一个“不切分页面、直接在图片跳转版”，进展如何？

vbnet

zhu1234 发表于 2016-5-28 16:15
更新不停，点赞不止。
划线版好方便。为了切除左右白边，建议能增加，“添加竖线”功能，这样就完美了。
9 Y+ ]+ L" a& R ...

>不切分页面、直接在图片跳转版
- ^; D& z7 \. H& |
% ]* L- ^: L  K( n1 l/ t不了解

fedor

vbnet 发表于 2016-5-28 15:26
2016028_2更新

>>画线版单独版

3栏情况下，右边的红线无法移动哦。

zhu1234

vbnet 发表于 2016-5-28 16:34
>不切分页面、直接在图片跳转版

! R+ f2 ]& Y- A& h1 Q不了解

+ \) o1 A% S* ?
2 H0 F7 ^. h- \* l; D1 Q这个工具： Picture_Capture(coordinates)_setup_20160524_2.zip
盼望完善，加入chigre3的模板，直接输出mdx源文件。

vbnet

fedor 发表于 2016-5-28 16:52
- [8 y. Z, A* E8 y, D3 z% v: o3栏情况下，右边的红线无法移动哦。

: [) k4 c; H, e" ~8 C
1 t9 b- t& Q0 Y5 ]2 ?' n7 `1 K3栏
" t7 O5 \" _1 R; Y% K8 i3 H右线
右左<---
右右 --->

' n1 X6 t4 Y+ A; X: t
左线
1 K. J  i6 l8 E6 k左左<---
左右 --->

vbnet

0 u* ?: \; G0 N* B. M* j

zhu1234 发表于 2016-5-28 16:15
更新不停，点赞不止。
划线版好方便。为了切除左右白边，建议能增加，“添加竖线”功能，这样就完美了。
...

>为了切除左右白边，建议能增加，“添加竖线”功能

切除上下左右白边
9 @5 a/ g! c" }2 Q已测试，下版更新
在主页面填入要切的数值
* {4 g% v* d3 l& b

: s4 R5 K, ^6 M! c" W$ t要切多少，移动鼠标测一测，看左上角就知道白边有多少
左右页通常不一样，最好取左右页通用值，改完数值，重开页面
- w% u+ D5 y4 j/ y1 T) S- ]
# B: E1 @: N" g+ W* `, n% O

zhu1234

vbnet 发表于 2016-5-28 18:40
>为了切除左右白边，建议能增加，“添加竖线”功能
+ w8 E0 C/ C. R* A- K8 U$ ~$ c9 Z" E) j
$ q/ o5 j- H$ `2 h% X' x切除上下左右白边

这效率。一天要点N次赞的节奏。。。。。

tsiank

vbnet 发表于 2016-5-28 14:39
. l% E: \$ B" R1 ^8 c& q9 X$ \: W8 |完成画线
" A" D+ p, Z  |% g8 L6 k$ U- W8 r) D2 G1,2,3栏都可以了
0 h3 b2 F9 I8 Y: i0 Z' a% N! |等更新

这个太强大了，如果设置好，程序能自动运行的话，照样可以把汉语大词典上的词条都切分出来，更方便图文对照了。

vbnet

2016028_3更新

' `% N9 X. U( U' T9 Q>>画线版单独版
( f3 m' v) ~3 z6 a; R( O. s
切除上下左右白边
) G- s+ }9 i* i5 v8 ?
! p. _9 W9 G2 p) Y% I2 @

zhu1234

) j1 W2 b. g4 R

vbnet 发表于 2016-5-28 18:40
>为了切除左右白边，建议能增加，“添加竖线”功能
- G8 ?6 ?/ G7 i
切除上下左右白边

$ L2 n1 `1 a/ c" {) Q# u
; }0 [7 {4 R/ E! O8 `已用，不错。。。。

vbnet

, Q+ J( ?0 X& s3 B2 i; ^/ h

zhu1234 发表于 2016-5-28 19:29
+ M; Z$ W& r- l; V, `. m' A奇数页和偶数页的左右边空白通常不一样。而且因为印刷装订原因，每一页还有些许不同。统一设置切边，不是 ...

briss
(pdf切白边)
% {8 l" I  L3 u- {效果很不错，自动侦测分左右调整

vbnet

% s0 g8 S9 b5 T( F$ H7 P; J) u1 ]
6 a' ~* X5 x# q, i6 x, M3 z推
briss
- Y& I6 H: x$ n0 C2 p: p! T
) y: ^- N# C7 ?pdf切白边

' X" X$ _4 @) F& C5 v* d! M( U链接：http://pan.baidu.com/s/1eSbObrs 密码：fh8h

zhu1234

更新一次，点赞N次。。。。。。。。

zhu1234

0 |6 W6 {, Q; |) Z' X# g有个201628_3有两个bug
* N7 b/ j+ G, n* ^! f0 V1、点保存时会，如下图：
1 k0 L6 V9 {* ~+ P! e
. j/ p5 t& f1 Z1 g0 k
2 B- f( a+ M; ^  c) |2、有切不开的情况，如下图：
0 ]: `" G3 `6 |0 m0 }  C

zhu1234

vbnet 发表于 2016-5-28 19:43
推
briss

多谢。。。。。。

vbnet

zhu1234 发表于 2016-5-28 19:54
9 @3 H2 A, Z. c# @7 j, u有个201628_3有两个bug
0 [' C" o$ z  h7 A2 _1、点保存时会，如下图：

目前必须 照顺序画线
& y4 T$ S8 W5 m1 K就是由上而下，由左而右
4 g$ O8 _( c% u  r如果补插入一线会乱了取矩形的顺序
最好重开图画线
' W  V7 _' j" C2 P2 ^
6 F& v& Q" C* d+ `# v这个会研究改进

zhu1234

vbnet 发表于 2016-5-28 20:05
目前必须 照顺序画线
就是由上而下，由左而右
如果补插入一线会乱了取矩形的顺序

原来是这样的。明白了。