Indexへ
(18373)//【18378】→(18383)
------------------------
【タイトル】三斜計算の楕円付番号
【記事番号】 18378 (*)
【 日時 】07/01/20 14:32
【 発言者 】T課長

こんにちは皆さん。
外部変形の三斜計算で楕円付の番号を円に変えることはできるのでしょうか?
教えてくださいお願いします。


Indexへ
(18378)←【18383】→(18385)
------------------------
【タイトル】Re(1):三斜計算の楕円付番号
【記事番号】 18383 (18378)
【 日時 】07/01/20 16:34
【 発言者 】スター

▼T課長さん:
>こんにちは皆さん。
>外部変形の三斜計算で楕円付の番号を円に変えることはできるのでしょうか?
>教えてくださいお願いします。

三斜計算では円に変えられないようです。

実行後、下記にあるM.Hayashiさんの外部変形en_convertで変更してはいかがでしょうか?
http://f884leap.yh.land.to/


Indexへ
(18383)←【18385】→(18397)
------------------------
【タイトル】Re(2):三斜計算の楕円付番号
【記事番号】 18385 (18383)
【 日時 】07/01/20 17:36
【 発言者 】T課長

▼スターさん:
>▼T課長さん:
>>こんにちは皆さん。
>>外部変形の三斜計算で楕円付の番号を円に変えることはできるのでしょうか?
>>教えてくださいお願いします。
>
>三斜計算では円に変えられないようです。
>
>実行後、下記にあるM.Hayashiさんの外部変形en_convertで変更してはいかがでしょうか?
>http://f884leap.yh.land.to/


スターさんありがとうございます。
三斜計算で出来ないのは残念ですが、M.Hayashiさんの外部変形を試してみます。


Indexへ
(18385)←【18397】//(18379)
------------------------
【タイトル】Re(3):参考です。
【記事番号】 18397 (18385)
【 日時 】07/01/21 18:00
【 発言者 】菊水の旋風

既に解決されたと思いますがJWW_SMPL.EXEから直接番号枠を円に
変えるには下記の方法もありますので参考にして下さい。
また、gheron(ruby外変 作者 牛渡様)をご使用になれば細かい設定
による倍面積法またはヘロン公式に計算が可能となります。


この外部変形はmswin32ruby1.6系及び1.8系が前提です。
陽建築設計事務所様のJ_GARU Ver2.0というソフトで自動導入できます。
尚、導入する前にHPの説明を熟読して下さい。

下記、バッチファイルとmswin32rubyスクリプトをJWW_SMPL.EXEと
同じディレクトリ( 通常はC:\jww )に置いて下さい。
尚、エディタ(メモ帳等)に貼り付け後全角スペース→半角スペース
の置換を行なってください。

----補足です。-------------------------------------------------
新たにフォルダ(例 SMPLen)を作成して任意の場所から実行する場合
は其の中に JWW_SMPL.EXE, SMPLen.bat, en_filter.rb の3ファイル
をコピーして下さい。
---------------------------------------------------------------

##### 下記バッチファイルを SMPLen.bat として保存 ########

@REM 三 斜 計 算(円枠対応)
@echo off
goto do%1
REM #jww
REM #cd
REM #hm |三 斜 計 算|出力設定|BAT 編集|
REM #:1
REM #h1
REM #hc 【 三 斜 計 算 】 三角形を選択(三角形の辺 200 まで)
REM #g0      #g1 全 レイヤグループ選択        
REM #0 数値書き込み位置指示 (L)free (R)Read
REM #c 文字種類指定(1〜10 無指定:2): /_/M
REM #c 初期番号指定( 1〜8001 無指定:1 ) : /_/N
REM #c レイヤ指定( 0〜F 無指定:書込レイヤ ) : /_/L
REM #c 小数点以下有効桁数(0〜3 無指定:2): /_/K
REM #ht10
REM #ht20
REM #ht40
REM #hr
REM #e
REM
REM      三斜計算の場合の追加オプション(指定レイヤに作図)
REM      /T* :三角形頂点に点を作図、 「*」 は 点種類 No (無指定:1)
REM      /E*.*:三角形頂点に円を作図、 「*.*」 は円半径 mm (無指定:1.0)
REM      /H* :三角形の辺を作図、   「*」 は 線色  No (無指定:1)
REM
REM      /S  :敷地面積(小数点以下3桁を切り捨て)を作図
REM
REM #:2
REM #:3
REM #h0
REM #hr
REM #e
:do1
JWW_SMPL.EXE /S /E2.0 %1 %2 %3 %4 %5 %6 %7 %8
ruby -Ks en_filter.rb jwc_temp.txt > temp.txt
del jwc_temp.txt
rename temp.txt jwc_temp.txt
rem pause
goto END
:do2
start /w notepad.exe en_filter.rb > jwc_temp.txt
goto END
:do3
start /w notepad.exe SMPLen.bat > jwc_temp.txt
:END


#####下記スクリプトを en_filter.rbとして保存 ##########

#============= 設  定 ================================================
#
# 変更法 : " "の半角英数字を変更設定してファイルを上書き保存して下さい。
#
 waku_en = "en"  #番号枠種類  (円枠 → en : 楕円枠 → daen)
 waku_lc = "0"  #番号枠線色  (1〜9) 0の場合はSMPL.EXE既定線色
 line_lc = "0"  #線頂点線色  (1〜9) 0の場合はSMPL.EXE既定線色
#
#=======================================================================

 while ARGF.gets
  if $_ =~ /^ci/
   data = $_.split
   if data.size == 8 && data[6].to_f != 1
    data[6] = "1"
    en_kazari = data.join("\s")+"\n"
    if waku_lc != "0"
     print "lc"+waku_lc+"\n"
    end
    if waku_en == "en"
     print en_kazari
    else
     print
    end
   else
    print
   end
  elsif $_ =~ /^lc/
   if line_lc == "0"
    print
   else
    print "lc"+line_lc+"\n"
   end
  else
   print
  end
 end