Jw_cad 相談室−その2 New

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

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

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


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

倍面積 rp 22/8/2(火) 9:19

Re:倍面積 ban 22/8/4(木) 10:44

Re:倍面積
 ban  - 22/8/4(木) 10:44 -
#================================================================= if waku_br.to_f < 0.5 or waku_br.to_f > 2.0 puts "he 番号枠半径補正値設定エラー。"; exit end msg0 = "区画の三斜データをClipboardにコピーしました。" datas,hens,all,lcs,lts,msg = [],[],[],[],[],"" while ARGF.gets datas << $_ end (datas.reverse).each{|data| if data =~ /^h#/ msg = data elsif data =~ /^\s[0-9-]/ hens << data else break end } datas -= hens datas.each{|data| all << data if data =~ /^ci/ en = data.split; en[3] = waku_br.to_f*en[3].to_f if en.size == 8 if waku_lc == "0" puts lcs[-1] else puts "lc"+waku_lc end if waku_lt == "0" puts lts[-1] else puts "lt"+waku_lt end if waku_en == "1" puts en[0,4].join("\s") elsif waku_en == "0" puts en.join("\s") elsif waku_en == "2" else puts "he 枠種類設定エラー"; exit end else if apex_lc == "0" puts lcs[-1] else puts "lc"+apex_lc end if apex_lt == "0" puts lts[-1] else puts "lt"+apex_lt end puts data end elsif data =~ /^pt/ if apex_pn != "0" puts "pn"+apex_pn end puts data elsif data =~ /^\s[0-9-]/ if all[-2] =~ /^z3/ if line_lc == "0" puts lcs[-1] else puts "lc"+line_lc end if line_lt == "0" puts lts[-1] else puts "lt"+line_lt end else if hyou_lc == "0" puts lcs[-1] else puts "lc"+hyou_lc end if hyou_lt == "0" puts lts[-1] else puts "lt"+hyou_lt end end puts data elsif data =~ /^lc/ puts data lcs << data elsif data =~ /^lt/ puts data lts << data else puts data end } if hens.size >= 3 if shen_lc != "0" puts "lc"+shen_lc end if shen_lt != "0" puts "lt"+shen_lt end hens.each{|hen| puts hen } end henms = []; ii,ll = 0,datas.size-1 for idx in ii .. ll if datas[idx] =~ /^cs/ iidx = idx + 1 ele = [] while datas[iidx] =~ /^ch/ no = datas[iidx].index(/\"/) ele << datas[iidx][no+1..-1].strip iidx += 1 end if ele.size == 5 henms << ele.join("\t") end ii = iidx end end setValue(henms.join("\n")) puts "h# #{henms.size} #{msg0}#{msg}\n" end def setValue(string) require &#39;Win32API&#39; openClipboard = Win32API.new(&#39;user32&#39;,&#39;OpenClipboard&#39;,[&#39;I&#39;],&#39;I&#39;) emptyClipboard = Win32API.new(&#39;user32&#39;,&#39;EmptyClipboard&#39;,[],&#39;I&#39;) setClipboardData = Win32API.new(&#39;user32&#39;,&#39;SetClipboardData&#39;,[&#39;I&#39;,&#39;I&#39;],&#39;I&#39;) closeClipboard = Win32API.new(&#39;user32&#39;,&#39;CloseClipboard&#39;,[],&#39;I&#39;) globalAlloc = Win32API.new(&#39;kernel32&#39;,&#39;GlobalAlloc&#39;,[&#39;I&#39;,&#39;I&#39;],&#39;I&#39;) globalLock = Win32API.new(&#39;kernel32&#39;,&#39;GlobalLock&#39;,[&#39;I&#39;],&#39;I&#39;) globalUnlock = Win32API.new(&#39;kernel32&#39;,&#39;GlobalUnlock&#39;,[&#39;I&#39;],&#39;I&#39;) lstrlen = Win32API.new(&#39;kernel32&#39;,&#39;lstrlenA&#39;,[&#39;P&#39;],&#39;I&#39;) lstrcpy = Win32API.new(&#39;kernel32&#39;,&#39;lstrcpyA&#39;,[&#39;I&#39;,&#39;P&#39;],&#39;P&#39;) if openClipboard.Call(0) != 0 emptyClipboard.Call() ll = lstrlen.Call(string) gMEM = globalAlloc.Call(0x2000, ll+1) pMEM = globalLock.Call(gMEM) lstrcpy.Call(pMEM, string) setClipboardData.Call(1, gMEM) globalUnlock.Call(gMEM) closeClipboard.Call end end main() __END__ :END
引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.5060.134 Safari/537.36 Edg/103.0.1264.77@p548238-ipngn2402morioka.iwate.ocn.ne.jp>
・ツリー全体表示

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

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