Jw_cad 相談室－その２

Jw_cad 相談室－その２ New

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

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

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

┃ ┃スレッド表示 ┃ ┃ ┃ ┃ ┃ ┃ ┃

1 / 14 ﾍﾟｰｼﾞ 前へ→

＜スレッド一覧＞

動かない外部変形を動かし...[10] / 面取りの一括処理[1] / 線分の長さが0です[3] / PDFの画像は変換ソフトで...[1] / 文字のグレー印刷[1] / Mac（Macintosh)os対応出...[5] / 取り込み画像を最背景に設...[2] / 【自動保存】ファイル名....[3] / 、[1] / フォルダが空かない[3] / 質問です[1] / 文字属性では取れるけど範...[10] / 動作環境等の確認[5] / DXFのペン番号を知りたい[3] / 線記号変形の追加[7] / プラダコピー靴[0] / JW操作について[1] / ◆に？マークが出る[8] / ショートカットからのタグ...[5] / ユーザー定義線種を一括変...[8] /

■▼

動かない外部変形を動かしたい。

hide - 23/12/7(木) 21:00 -

こんな外部変形を発見しましたが、動きません。使えるようにしたいです。お願いします。
作成者　コジマ　様

◎バッチファイル（ファイル名　‰.bat）
コピペ後、全角スペースを半角スペースに一括置換してください。

REM 勾配を‰表示
echo off
REM　#jww
REM　#cd
REM　#h0
REM　#c小数点以下有効桁数　無指定:2 /_/b
REM　#0測定値の記入位置を指示してください free(L)
REM　#1ln線を指示してください free(L)
REM　#e
copy jwc_temp.txt temp.txt > nul
ruby -Ks ‰.rb temp.txt %1 > jwc_temp.txt

◎スプリプトファイル（ファイル名　‰.rb）
コピペ後、全角スペースを半角スペースに一括置換してください。

include Math
$keta=2
while ARGV.size>1
　　　　case argument=ARGV.pop
　　　　　　　　when /\/b/
　　　　　　　　　　　　$keta=argument[2..-1].to_i
　　　　end
end
def ika(x)
　　　　a=((x.to_f*10**$keta).round).to_f/(10**$keta)
　　　　a=a.to_i if a.to_s =~/^0\.0$/
　　　　return a
end
while ARGF.gets
　　　　xy=split
　　　　if xy[0]=~/^\d|^-/
　　　　　　　　xy.collect!{|item|item.to_f}
　　　　　　　　if xy[0]>xy[2]
　　　　　　　　　　　　xy[2],xy[0],xy[3],xy[1]=xy[0],xy[2],xy[1],xy[3]
　　　　　　　　elsif xy[0]==xy[2]
　　　　　　　　　　　　xy[3],xy[1]=xy[1],xy[3] if xy[3]　　　　　　　　end
　　　　　　　　x,y=xy[2]-xy[0],xy[3]-xy[1]
　　　　　　　　l=sqrt(y**2+x**2)
　　　　　　　　kakudo=atan2(y,x)
　　　　　　　　koubai=y/x*1000

　　　　　　　　if koubai<0
　　　　　　　　　　　　koubai_moji= "i=#{ika(koubai).abs}‰ 右下り"

　　　　　　　　elsif koubai==0
　　　　　　　　　　　　koubai_moji= "i=#{ika(koubai).abs}‰"
　　　　　　　　else
　　　　　　　　　　　　koubai_moji= "i=#{ika(koubai).abs}‰ 右上り"
　　　　　　　　end
　　　　　　　　printf("ch %.10f %.10f %.10f %.10f \"%s\n",0,0,1,0,koubai_moji)
　　　　end
end
printf("h##{koubai_moji}\n")

data=[]
open($0,"r"){|f|
　　　　while line=f.gets
　　　　　　　　data<　　　　end
}

data.collect!{|item|item=~/^\$keta=/ ? item=$&+$keta.to_s : item=item}
open($0,"w"){|f|data.each{|item|f.puts item};}

data=[]
open("‰.bat","r"){|f|
　　　　while line=f.gets
　　　　　　　　data<　　　　end
}

data.collect!{|item|
　　　　if item=~/^REM　#c小数点以下有効桁数　無指定:/
　　　　　　　　item=$&+$'.gsub(/^\d+/,$keta.to_s)
　　　　else
　　　　　　　　item
　　　　end
}
open("‰.bat","w"){|f|data.each{|item|f.puts item};}

以下のようなエラーが出ます。

C:\JWW\外変寸法\勾配を‰表示>echo off
‰.rb:30: syntax error, unexpected tIDENTIFIER, expecting kEND
‰.rb:52: syntax error, unexpected kEND
‰.rb:71: syntax error, unexpected kEND
‰.rb:85: syntax error, unexpected $end, expecting kEND
open("‰.bat","w"){|f|data.each{|item|f.puts item};}
^
続行するには何かキーを押してください . . .

私の環境では、その他の外部変形は、ほぼ動作しています。

※【タイトル】Re(4):測定で角度を％表示（追伸）
【記事番号】 8634 (8615)
【日時】06/02/17 09:02
【発言者】コジマ

より、抜粋しています。

sugi

- 23/12/9(土) 18:27 -

puts "h##{koubai_moji}"
のところで koubai_moji なんて変数やメソッドは定義されてませんよって
怒られてるようですがすぐ上で koubai_moji のローカル変数に値を入力してるので
なんでこんなメッセージが出るのかちょっとよく分かりません

dos窓のメッセージが文字化けする問題が関係してるなら
CHCP 932
を先頭に持ってくれば直るかもしれないです
ただこれでは jwwから選択しようとした場合のコメントが
意味不明になりそうで２行目に控えさせてみました

R.N

- 23/12/9(土) 21:31 -

▼sugiさん：
>puts "h##{koubai_moji}"
>のところで koubai_moji なんて変数やメソッドは定義されてませんよって
>怒られてるようですがすぐ上で koubai_moji のローカル変数に値を入力してるので
>なんでこんなメッセージが出るのかちょっとよく分かりません

ご面倒お掛けして、すみません。
そうですよね---
教えて頂いた、「****.bat」そのままコピペして実行しても、
undefined local variable or method `koubai_moji' for main:Object (NameError)
"コメント表示なし"で、上記エラー出力されます。
なので、グローバル変数を使ってみた、ということです。
（エラーなしにはなりましたが）

>dos窓のメッセージが文字化けする問題が関係してるなら
>CHCP 932
>を先頭に持ってくれば直るかもしれないです
>ただこれでは jwwから選択しようとした場合のコメントが
>意味不明になりそうで２行目に控えさせてみました

１行目も２行目でも、同じでした--

文字コードもプロパティで確認してみましたが、
chcp 932 記述の有無に関係なく、「shift_jis」になってます。
https://pentan.info/program/cmd_chcp.html

ban

- 23/12/9(土) 21:39 -

$stderr=open("tmp_err.txt","w") と include Math の間に、 koubai_moji= "" を記述したらコメント文も表示されました。 $stderr=open("tmp_err.txt","w") koubai_moji= "" include Math

R.N

- 23/12/10(日) 2:43 -

▼hideさん：

こんばんは、

ブラウザUpに依る不具合かと思いますので、
私なりに、修正・変更して動作させることはできますが

私がそれをResすること自体僭越で、作者さんに失礼かと思いますので
作者さんのResを、待って頂くしかないような---
（作者さんと私では、思いも違いますので）