Indexへ
(9232)//【9233】→(9592)
------------------------
【タイトル】ruby による JW_CAD 外部変形 汎用ライブラリ試作の報告
【記事番号】 9233 (*)
【 日時 】07/03/09 23:40
【 発言者 】Kazuo Miyake qqza3hq89@aioros.ocn.ne.jp
【 リンク 】http://www17.ocn.ne.jp/~lite/



　ruby による JW_CAD 外部変形用 ライブ
ラリ を 試作しました。作図の基本動作の
コマンド集です。

　なんとか動くようになった段階ですが、
簡単なプログラムなら利用できるようにな
ってきましたのでご報告します。

　ライブラリは jw.rb という ひとつのフ
ァイルにまとめました。表計算のマクロの
ように JW_CAD 外部変形を利用しようと試
みた ruby による補助プログラムです。

　簡単な使用例を紹介します。

２点を結ぶ線を引く１行プログラムです。

@rem 【 線を引く 】
@echo off
ruby -rjw -e "['1','2'].line" > seen
del jwc_temp.txt
ren seen jwc_temp.txt
exit

REM #jw
REM #1- 始点を指示してください
REM #2 終点を指示してください
REM #e

正３〜８角形を同時に描くプログラムです。

@rem 正多角形
@echo off
ruby -rjw -x %~f0 > > seen
del jwc_temp.txt
ren seen jwc_temp.txt
exit

REM #jw
REM #1○点を指示 (L)free (R)Read
REM #e

#!ruby
for n in 3..8
　　　　pt = '1'
　　　　r = 50.scale #１辺の長さ
　　　　d = 2*PI/n
　　　　e = $hk.rad - d/2
　　　　print "lc%s\n" % n
　　　　for i in 1..n+1
　　　　　　　　pt = polarto(pt.plot(""),r,d*i+e)
　　　　end
end

　jw.rb には自動読取機能があります。そ
のため 指示点１ の 座標データは '1' と
表現すれば使えるようにしています。
　軸角の値は $hk という変数に 格納され
るようにしています。

　jw.rb に どのような効能があるのか い
まのところはっきりしていないのですが、
実験プログラムをいくつかホームページで
紹介していますので、興味のある方はどう
ぞ。( 題名 : いろはに ruby 外部変形 )

　皆様方のご健康とご活躍をお祈り申し上
げます。

　Lite & Seen Lite の ホームページは
　http://www17.ocn.ne.jp/~lite/　です。


　　　　　　　記録 2007.03.09　三宅


Indexへ
(9233)←【9592】//(9234)
------------------------
【タイトル】Re(1):ruby による JW_CAD 外部変形 汎用ライブラリ試作の報告
【記事番号】 9592 (9233)
【 日時 】07/05/12 20:06
【 発言者 】Kazuo Miyake qqza3hq89@aioros.ocn.ne.jp

　標準入力を jwc_temp.txt に切り替える
とバッチファイルが簡潔になりますことを
報告します。

　使用例で説明します。

２点を結ぶ線を引く１行プログラムです。

@rem 【 線を引く 】
@echo off
ruby -rjw -e "$>=files; [1,2].line"
exit

REM #jw
REM #1- 始点を指示してください
REM #2 終点を指示してください
REM #e

$>=files を 追加しています。

ただし

$>=$stdout
files=open("jwc_temp.txt","w")

です。


正３〜８角形を同時に描くプログラムです。

@rem 正多角形
@echo off
ruby -rjw -x %~f0
exit

REM #jw
REM #1○点を指示 (L)free (R)Read
REM #e

#!ruby
$>=files
for n in 3..8
　　　　pt = '1'
　　　　r = 50.scale #１辺の長さ
　　　　d = 2*PI/n
　　　　e = $hk.rad - d/2
　　　　print "lc%s\n" % n
　　　　for i in 1..n+1
　　　　　　　　pt = polarto(pt.plot(""),r,d*i+e)
　　　　end
end


通常のプログラムでも 標準出力を画面から
jwc_temp.txt へ切り替えて利用したほうが
すれば便利なものもあるかとは思います。

　皆様方のご健康とご活躍をお祈り申し上
げます。

　Lite & Seen Lite の ホームページは
　http://www17.ocn.ne.jp/~lite/　です。


　　　　　　　記録 2007.05.12　三宅