Jw_cad 情報交換室−その3New

 JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その2をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。


  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1 / 75 ページ    前へ→

Re:不要な極小線の削除について
 sato  - 20/3/30(月) 19:44 -
卯之介さん

お返事ありがとうございました。
早速使わせて頂いたところ、見事に5万本きえました
jgawkで作れる方とは・・・。
先週はどうにかならないものかとネットで探していたのですが
かなり調べても存在していないと思います。
この掲示板にいるエキスパートの方々のすごさが改めて感じました。
これからもよろしくお願いします。
ありがとうございました。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; Touch; rv:11.0) like Gecko@110-130-108-231.rev.home.ne.jp>
・ツリー全体表示

Re:不要な極小線の削除について
 sato  - 20/3/30(月) 19:27 -
96sakaさん

ありがとうございました。
深夜なのに返事いただいていて恐縮しました。
昨夜は力尽きて寝てしまい今職場に戻ってきたところです。
結論から申し上げますと完璧に5万本の線が消えてくれました。
96sakaさんにご多幸がありますことを・・・
本当にありがとうございました。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; Touch; rv:11.0) like Gecko@110-130-108-231.rev.home.ne.jp>
・ツリー全体表示

Re:不要な極小線の削除について
 卯之介  - 20/3/30(月) 9:29 -
当時、コジマさんのに倣ってjgawkで自在じゃない線消を作ったのが出てきました。

http://www.kct.ne.jp/~unosuke/senkesi.zip
範囲選択は矩形ですが同じような事ができると思います。

引用なし

パスワード


<Lynx/2.8.9dev.16 libwww-FM/2.14FM SSL-MM/1.4.1 GNUTLS/2.10.1@124-47-113-193.cidr4.kct.ad.jp>
・ツリー全体表示

Re:不要な極小線の削除について
 96saka  - 20/3/30(月) 2:19 -
▼satoさん: すみません、検証不足でした。 過去ログでは他に 18行目、105行目、126行目もおかしくなっていたようです。 当時の記事からのオリジナルスクリプトを下記に記述します。 include Math;$max_l=50;$min_l=0 while ARGV.size>1 case argument=ARGV.pop when /\/a/ $max_l=argument[2..-1].to_f when /\/b/ $min_l=argument[2..-1].to_f end end def main hp=[];zukei=[] while ARGF.gets xy=split if xy[0]=~/^hp/ hp<<[xy[1].to_f,xy[2].to_f] end end hp<<hp[0] if hp.size>0 && hp[0] != hp[-1] 0.upto(hp.size-2){|i|zukei<<[hp[i][0],hp[i][1],hp[i+1][0],hp[i+1][1]]} puts "hd" open("temp.txt","r"){|f| while line=f.gets xy=split if xy[0]=~/^hq/ elsif xy[0]=~/^\d/ xy.collect!{|item|item.to_f} x,y=xy[2]-xy[0],xy[3]-xy[1] l=sqrt(x**2+y**2) if zukei.size>0 if area(zukei,[xy[0],xy[1]]) && area(zukei,[xy[2],xy[3]]) if $min_l==0 if l<$max_l else print $_ end else if l<$max_l && l>$min_l else print $_ end end else print $_ end else if $min_l ==0 if l<$max_l else print $_ end else if l<$max_l && l>$min_l else print $_ end end end else print $_ end end } end #線と線の交点を返す(延長線上は含まない) def sen_sen_kouten(sen1,sen2) sen1x=sen1[2]-sen1[0] sen1y=sen1[3]-sen1[1] sen1xy=sqrt(sen1x**2+sen1y**2) sen1_arg=atan2(sen1y,sen1x) x1_1=sen1[0] x1_2=sen1[0]+sen1xy y1_1=sen1[1] y1_2=sen1[1] x=sen2[0]-sen1[0] y=sen2[1]-sen1[1] xy=sqrt(x**2+y**2) arg=atan2(y,x) henkaku=arg-sen1_arg x2_1=sen1[0]+xy*cos(henkaku) y2_1=sen1[1]+xy*sin(henkaku) x=sen2[2]-sen1[0] y=sen2[3]-sen1[1] xy=sqrt(x**2+y**2) arg=atan2(y,x) henkaku=arg-sen1_arg x2_2=sen1[0]+xy*cos(henkaku) y2_2=sen1[1]+xy*sin(henkaku) x=x2_2-x2_1 y=y2_2-y2_1 delta=y/x if ika3(y2_1)>=ika3(y1_1) && ika3(y2_2)<ika3(y1_1) or ika3(y2_1)<ika3(y1_1) && ika3(y2_2)>=ika3(y1_1) y=y1_1-y2_1 dx=y/delta kouten_x=x2_1+dx kouten_y=y1_1 if kouten_x>=x1_1 && kouten_x<x1_2 or kouten_x>x1_1 && kouten_x<=x1_2 x=kouten_x-x1_1 y=kouten_y-y1_1 xy=sqrt(x**2+y**2) kouten_xt=x1_1+xy*cos(sen1_arg) kouten_yt=y1_1+xy*sin(sen1_arg) return [kouten_xt,kouten_yt] else nil end end end def ika3(x) a=(((x.to_f)*1000).to_i/1000.to_f) return a end #tenの位置がzukei(閉鎖図形)の内(true)か、外(false)かを判定 def area(zukei,ten) zahyo=[] zukei.each{|item|zahyo<<sen_sen_kouten(item,[0,0,ten].flatten) if sen_sen_kouten(item,[0,0,ten].flatten)} if zahyo.size==1 or zahyo.size>1 && zahyo.size%2==1 return true else return false end end main
引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.106 Safari/537.36 Sleipni...@i114-181-167-227.s41.a002.ap.plala.or.jp>
・ツリー全体表示

Re:不要な極小線の削除について
 sato  - 20/3/30(月) 1:11 -
96sakaさん
早速の返事ありがとうございました
98行目を変更してやってみたのですがうまくいかず
batにpause入れたところ
線消.rb:130: void value expression
線消.rb:131: syntax error
が出てきてしまい行き詰ってしまいました。

長文で申し訳ないのですが
線消.rbはこれでよろしいでしょうか
(130行目131行目は最終行から3行目と2行目のendです)

include Math;$max_l=50;$min_l=0
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
$max_l=argument[2..-1].to_f
when /\/b/
$min_l=argument[2..-1].to_f
end
end
def main
hp=[];zukei=[]
while ARGF.gets
xy=split
if xy[0]=~/^hp/
hp<<[xy[1].to_f,xy[2].to_f]
end
end
hp<0 && hp[0] != hp[-1]
0.upto(hp.size-2){|i|zukei<<[hp[i][0],hp[i][1],hp[i+1][0],hp[i+1][1]]}

puts "hd"
open("temp.txt","r"){|f|
while line=f.gets
xy=split
if xy[0]=~/^hq/
elsif xy[0]=~/^\d/
xy.collect!{|item|item.to_f}
x,y=xy[2]-xy[0],xy[3]-xy[1]
l=sqrt(x**2+y**2)

if zukei.size>0
if area(zukei,[xy[0],xy[1]]) && area(zukei,[xy[2],xy[3]])
if $min_l==0
if l<$max_l
else
print $_
end
else
if l<$max_l && l>$min_l
else
print $_
end
end
else
print $_
end
else
if $min_l ==0
if l<$max_l
else
print $_
end
else
if l<$max_l && l>$min_l
else
print $_
end
end
end
else
print $_
end
end
}
end
#線と線の交点を返す(延長線上は含まない)
def sen_sen_kouten(sen1,sen2)
sen1x=sen1[2]-sen1[0]
sen1y=sen1[3]-sen1[1]
sen1xy=sqrt(sen1x**2+sen1y**2)
sen1_arg=atan2(sen1y,sen1x)
x1_1=sen1[0]
x1_2=sen1[0]+sen1xy
y1_1=sen1[1]
y1_2=sen1[1]

x=sen2[0]-sen1[0]
y=sen2[1]-sen1[1]
xy=sqrt(x**2+y**2)
arg=atan2(y,x)
henkaku=arg-sen1_arg
x2_1=sen1[0]+xy*cos(henkaku)
y2_1=sen1[1]+xy*sin(henkaku)

x=sen2[2]-sen1[0]
y=sen2[3]-sen1[1]
xy=sqrt(x**2+y**2)
arg=atan2(y,x)
henkaku=arg-sen1_arg
x2_2=sen1[0]+xy*cos(henkaku)
y2_2=sen1[1]+xy*sin(henkaku)

x=x2_2-x2_1
y=y2_2-y2_1
delta=y/x

if ika3(y2_1)>=ika3(y1_1) &&
ika3(y2_2)<ika3(y1_1) or
ika3(y2_1)<ika3(y1_1) &&
ika3(y2_2)>=ika3(y1_1)
y=y1_1-y2_1
dx=y/delta
kouten_x=x2_1+dx
kouten_y=y1_1
if kouten_x>=x1_1 && kouten_xkouten_x>x1_1 && kouten_x<=x1_2
x=kouten_x-x1_1
y=kouten_y-y1_1
xy=sqrt(x**2+y**2)
kouten_xt=x1_1+xy*cos(sen1_arg)
kouten_yt=y1_1+xy*sin(sen1_arg)
return [kouten_xt,kouten_yt]
else
nil
end
end
end
def ika3(x)
a=(((x.to_f)*1000).to_i/1000.to_f)
return a
end
#tenの位置がzukei(閉鎖図形)の内(true)か、外(false)かを判定
def area(zukei,ten)

zahyo=[]
zukei.each{|item|zahyo<
if zahyo.size==1 or zahyo.size>1 && zahyo.size%2==1
return true
else
return false
end
end
main

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; Touch; rv:11.0) like Gecko@110-130-91-87.rev.home.ne.jp>
・ツリー全体表示

Re:不要な極小線の削除について
 96saka  - 20/3/29(日) 23:22 -
▼satoさん:

下記は如何でしょう。

過去ログ
http://www.jwcad.net/log/consult2/consult2-0701-03/title.htm#19040

注意点
スクリプトの98行目に当たる部分ですが
過去ログへ移る際にどうも改行が上手くいかないのだそうで、書き換えを要します。


この行 ↓ の記述を
ika3(y2_2)        ika3(y2_1)        ika3(y2_2)>=ika3(y1_1)

次の3行 ↓ に置き換える
ika3(y2_2)<ika3(y1_1) or
ika3(y2_1)<ika3(y1_1) &&
ika3(y2_2)>=ika3(y1_1)


これでいけると思います。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.106 Safari/537.36 Sleipni...@i114-181-167-227.s41.a002.ap.plala.or.jp>
・ツリー全体表示

不要な極小線の削除について
 sato  - 20/3/29(日) 20:52 -
satoと申します。
よろしくお願いします
先方から変換していただいたdxfデータをjwwに入れたところ
5万本以上の極小線データがあり、実寸で1mm以下の線が存在するようなのですが、これを一括で消す方法がありましたら教えていただけないでしょうか。
10年以上前にあった、Ruby 外部変形スクリプト集 自在消去(sugiさん作)でできるらしいのですが、リンク先きが見つからず確認できないです。
リンク先もしくは別の方法でも方法があればお願いします。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; Touch; rv:11.0) like Gecko@110-130-91-87.rev.home.ne.jp>
・ツリー全体表示

Re:文字ツール使用時の不具合について
 kubo  - 20/3/26(木) 23:16 -
▼Bissyさん:
>Jww_cadのversion8.03sを使用しております。文字ツールを使用していると何かのタイミングでAUTOツール(右クリック長押し)が勝手に起動して操作ができなくなります。その際、マウスでの拡大縮小の操作のみ使用でき、拡大か縮小を行うと不具合が解消されます。解消後は文字ツールで作業中の文字などが指定していない位置へ移動する場合があります。
>version8.10bでも同様の不具合が確認できました。PC複数台での不具合です。何かご存じの方いましたら情報のほどお願いいたします。


私も日本語変換に ATOK を使用しているので、そういう現象によくなります。
そうなり始めたときに色々調べてみました。Shiftキーを押すと、すぐ解消
するということは知りましたが、現象を起こさせない対処はわかりません。

とはいえ、長年使っている日本語変換なので、使い勝手や蓄積した個人辞書を
考えると、その都度、Shiftキーを押す方が楽だと、あきらめていますが。

ATOK がバージョンアップしたら、解決するかも・・・と。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko@76.38.81.116.megaegg.ne.jp>
・ツリー全体表示

Re:文字ツール使用時の不具合について
 markn  - 20/3/26(木) 17:25 -
↓関係していないですか?
文字をクリックするとクロックメニューが現れる
http://www.jwcad.net/bbs2/c-board.cgi?cmd=one;no=52360;id=004

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Trident/7.0; rv:11.0) like Gecko@61.199.214.184>
・ツリー全体表示

ディオール 偽物
 ディオール コピー E-MAIL  - 20/3/26(木) 10:10 -
ブランド レプリカ http://www.cibbuzz.com/ キュートな ディオール ピアス パールの登場です。艶やかな光りが耳元を照らし、パールのサイズ感が上品で大人らしいデザイン。主張しすぎない上品な輝きが女性らしい印象をプラスしてくれます!様々なシーンでお使いいただけるかわいらしいアイテムです。ディオール 偽物 http://www.cibbuzz.com/brand-9.html パーティーコーデもちろん、カジュアルコーデにもOKです。キャッチのパールを前にして楽しむのもおすすめです。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:74.0) Gecko/20100101 Firefox/74.0@47.244.59.124>
・ツリー全体表示

Re:寸法線と矢印・点色 を違えても
 Keiichi  - 20/3/22(日) 14:32 -
▼Hitさん:
Ver7.11までは矢印は変わりましたが、Ver8.00だったか8.03からだったか、点色は変わりますが矢印は寸法線色と同じになりますね
これが仕様変更ならば 3.矢印・点色の矢印の文字を消し忘れだろうし、不具合ならばいつかは直るかもしれません

Windows10の問題でもHitさんだけの問題でもありません

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.132 Safari/537.36 Ed...@37.120.154.82>
・ツリー全体表示

寸法線と矢印・点色 を違えても
 Hit  - 20/3/22(日) 0:03 -
Windows10 ですが
寸法を 選んで 端部を -> に設定
設定を選んで
矢印・点色を 寸法線と
違えても 同色となってしまいます
jw_win.jwf を変えても同様でした

# 1.寸法線色 2.引出線色 3.矢印・点色
# (1〜9) (1〜9) (1〜9)
# ↓ ↓ ↓ ↓ ↓
S_SET1 = 1 1 9

こうしても 同色になってしまいます

皆さんは いかがでしょうか

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.149 Safari/537.36 Ki...@118-86-16-204.ohta.j-cnet.jp>
・ツリー全体表示

「引用なし」にチェック
 _CAD  - 20/3/20(金) 18:01 -
▼HOさん:

質問内容とは関係ありませんが、返信のときの引用のやりかたがおかしいです。
レス内容を表示したくない場合は、「引用なし」にチェックいれてから書かれるといいですよ。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/75.0.3770.102 Safari/537.36 Vi...@113x42x194x118.ap113.ftth.ucom.ne.jp>
・ツリー全体表示

Re:連番書出
 HO  - 20/3/20(金) 17:25 -
▼HOさん:
>▼keiichiさん:
>操作方法を読取位置にクリップする事で階段状書出に
>連番できる洋になりました。
>今後又分からない事ができましたら宜しくお願いします。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko@211-9-82-70.ppp.bbiq.jp>
・ツリー全体表示

Re:連番書出
 LA  - 20/3/20(金) 15:50 -
▼HOさん:
こんにちは

定番ですが、最終行
rename temp.txt jwc_temp.txt
の次の行に
PAUSE
と入れて、外変実行し、何かエラーが出てないか確認してみて下さい。

それと、外変実行後、jwc_temp.txt の中身を確認し、エラーが出てないか確認してみて下さい

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.106 Safari/537.36 Sleipni...@ntngno109076.ngno.nt.ngn2.ppp.infoweb.ne.jp>
・ツリー全体表示

Re:設備図面外変
 うしわたりひろし WEB  - 20/3/20(金) 14:04 -
ハッチの 2線で描ける気がしますが、ピッチとかを
自動設定ってことなんでしょうか?

▼前田さん:
>スパイラルダクトの直管部分を2本斜め線を
>自動に入力できる外変はないでしょうか
>教えてください

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.132 Safari/537.36@softbank126074123172.bbtec.net>
・ツリー全体表示

Re:連番書出
 Keiichi  - 20/3/20(金) 12:33 -
▼HOさん:
レスされたBATファイルで試しましたが、縦も横も階段状の斜めも作図出来ました

縦・横のみ連番しないとは?
階段状の記入は出来るようになったけど、縦と横の連番が出来なくなったと言うことですか?

出来ないのは操作方法が間違ってるんじゃ無いですか?
色々試してみて下さい

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.132 Safari/537.36 Ed...@45.92.32.3>
・ツリー全体表示

Re:連番書出
 HO  - 20/3/20(金) 8:43 -
▼HOさん:
>▼keiichiさん:
JWW内に有り
BATファイル記述です。
@REM 連続書出し
echo off

goto %1
REM #jww
REM #cd
REM #hm 【連番文字入力】| 読取位置 | 他位置 |連文字書出|
REM #:1
REM #3ch 【サンプル文字の数字の先頭部分をクリック】
REM #4 【数字の終了部分をクリック】
REM #0 【基点を選択】
REM #1 【ピッチ選択】
REM #2 【終点を選択】
REM #c 【最 終 値(省略時終点迄)】/_/N
REM #c 【増 分 値(省略時 +1)】/_/Z
REM #k 【文字基点】| 左 | 中 | 右 |/_/K
REM k 【桁 上 り】|16進|10進|8進|/_/A
REM #e
REM #:2
REM #3ch 【サンプル文字の数字の先頭部分をクリック】
REM #4 【数字の終了部分をクリック】
REM #5 【基点を選択】
REM #0 【書出位置選択】
REM #1 【ピッチ選択】
REM #2 【終点を選択】
REM #f 【初 期 値(省略時サンプル)】/_/S
REM #c 【最 終 値(省略時終点迄)】/_/N
REM #c 【増 分 値(省略時 +1)】/_/Z
REM #k 【文字基点】| 左 | 中 | 右 |/_/K
REM k 【桁 上 り】|16進|10進|8進|/_/A
REM #e
REM #:3
REM #3ch 【対象文字をクリック】
REM #0 【基点を選択】
REM #1 【ピッチ選択】
REM #2 【終点を選択】
REM #c 【書出個数(省略時終点迄)】/_/N
REM #k 【文字基点】| 左 | 中 | 右 |/_/K
REM #e
REM
REM 16進数、8進数を選択する場合、Kの前に#を追加して、桁上り選択を有効にしてください
REM
REM 通常、縦,横どちらか一方にしか記入出来ませんが コマンドラインに /F1 を
REM 記入すると、斜めにも記入出来ます
REM 例)
REM jgawk -f 連番書出.awk jwc_temp.txt /F1 %2 %3 %4 %5 %6 %7 %8 > temp.txt
REM
REM 同様、コマンドラインに /F2 で、0 以下になっても記入を続けます
REM /F3 なら、斜め&0以下 両方有効に成ります
REM /F のみの場合、斜めのみ 有効
REM /F4 で 増分値が マイナスの場合に桁下がりした時、先頭に 0 を付けて桁数を同じにする
REM つまり、/F に続く数字は
REM 2^0:斜め書き有効
REM 2^1:増分値がマイナスの時、0 以下になっても続ける
REM 2^2:増分値がマイナスの時、桁下がりしたら 0 を追加して桁数をそろえる
REM の合計となります

:1
:2
jgawk -f 連番書出.awk jwc_temp.txt /F1 %2 %3 %4 %5 %6 %7 %8 > temp.txt
goto END
:3
jgawk -f 連字書出.awk jwc_temp.txt /F1 %2 %3 > temp.txt
goto END
平仮名、片仮名、半角カナ は、いろは・・・ の順に記入される
それぞれ コマンドラインで /H /K /M を記入すると あいうえお 順になる

それぞれ、データが終わるとそれ以上書けない
:END
del input.txt
rename jwc_temp.txt input.txt
rename temp.txt jwc_temp.txt

縦・横のみ連番しない
以上です。
返事を待っています。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko@211-9-82-70.ppp.bbiq.jp>
・ツリー全体表示

Re:連番書出
 Keiichi  - 20/3/20(金) 6:41 -
▼HOさん:
:1
:2
jgawk -f 連番書出.awk jwc_temp.txt /F1 A2 %2 %3 %4 %5 %6 %7 %8 > temp.txt
goto END

この記述で当方の環境では階段状に出来ています
https://imgur.com/xM6ZWbA

BATファイルへの記述内容も不明、操作手順も不明、環境も不明と、そちらから得られた情報は出来ないということだけ
これだけでの情報で何が不足しているかは私には推測できません。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.132 Safari/537.36 Ed...@45.92.32.3>
・ツリー全体表示

Re:連番書出
 HO  - 20/3/19(木) 15:01 -
▼HOさん:
>▼KEIICHIさん:
>早速の返事ありがとうございます。
>コマンドラインに /F1・F3記入してもできません。
>何が不足しているか?(JGAWKは有)
>再度返事をお願いします。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Trident/7.0; MANM; rv:11.0) like Gecko@211-9-82-70.ppp.bbiq.jp>
・ツリー全体表示

1 / 75 ページ    前へ→
  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
 1056970
ページ:  ┃  記事番号:  

C-BOARD Moyuku v1.03b3
Jw_cad Copyright (C)1997-2016 Jiro Shimizu & Yoshifumi Tanaka