JW CAD情報局

// テストプログラム：円弧長指定の円弧作図
//
// =============================================
// (C)Copyright 2010 AFsoft All Rights Reserved.
// =============================================
#VAR
　r = 100　　　　;*半径[mm]
　// sa =　0　　　　;*開始角度[°]
　// ea = 90　　　　;*終了角度[°]
　//
　// sa =　0　　　　;*作図開始角度[°]
　// da = 90　　　　;*作図円弧角度[°]
　//
　sl = 　0　　　;*開始円弧長[mm]
　dl = 100　　　;*作図円弧長[mm]
　x
　y
　a1
　a2
　a3

#DRAW
　LAYER　SetLineLay1　　// 外径線
　PEN SetLineCol1,SetLineLtp1,SetLineWid1
　// ----- 入力した角度で円弧を作図するパターン
　// CAL　a1 = sa/180*PI
　// CAL　a2 = ea/180*PI
　// CAL　a3 = a1
　// ----- 入力した作図円弧角度で円弧を作図するパターン
　// CAL　a1 = sa/180*PI
　// CAL　a2 = (sa+da)/180*PI
　// CAL　a3 = a1
　// #IF (da < 0)
　// 　CAL　a1 = (sa+da)/180*PI
　// 　CAL　a2 = sa/180*PI
　// 　CAL　a3 = a2
　// #END
　// ----- 入力した作図円弧長で円弧を作図するパターン
　CAL　a1 = sl/r
　CAL　a2 = (sl+dl)/r
　CAL　a3 = a1
　#IF (dl < 0)
　　CAL　a1 = (sl+dl)/r
　　CAL　a2 = sl/r
　　CAL　a3 = a2
　#END

　// 原点＝中心
　// CAL　x = 0
　// CAL　y = 0
　// 原点＝開始点
　CAL　x =-r*Cos(a3)
　CAL　y =-r*Sin(a3)

　// 作図
　ARC　x,y,r,a1,a2

編集者: AFsoft World | このブログのURL |この記事のURL

半径を指定、たとえばR7000としまして円弧長1500の円弧をきっちりとした長さで描きたいとします。この円弧を簡単に描く方法をどなたかご存じありませんか？円周長を計算して角度で分割してみたり円周上に小さな円のピッチを描いて円弧長を出したりいろいろやってみましたが結構時間がかかります。皆さんは、どんな方法で作画されていますか？

編集者: AFsoft World | このブログのURL |この記事のURL

先程ホームページに「疑似線文字」の外部変形をアップしました。
http://homepage2.nifty.com/igus/starthp/gijisen/gijisen.html
>
本ソフトは Jw_cad for Windows において、文字を線で構成された図形に変換する外部変形です。JW_CAD(DOS版)の疑似線文字相当の機能を実現出来ます。本ソフトは Ruby で書かれているため、実行には別途 Ruby のインストールが必要です。
>
同様のソフトは既に古川 也寸志さんが 疑似線文字 for JWW として公開されています。これは joker さんが作成されたフォントを利用して変換していますが、これとは別のフォントで変換出来ないだろうかと思って探していたところ、Saka.N さんが公開されたフリーのストロークフォント KST32B を見つけました。こちらはフォント本体がテキスト形式なので、編集して自分好みのフォントに改造することも容易そうです。改変や再配布も自由ということなので、これを利用した外部変形を作成してみました。
>
本ソフトはフリーウェアですので無保証で、使用、配付改変、再配付等は自由ですが,使用した結果のいかなる影響についても責任及び賠償責任は一切負いかねます.

興味のある方は使ってみて下さい。制御文字や特殊文字は出来るだけ対応したつもりですが、動作確認はまだ十分ではありません。不具合の報告や要望、感想などありましたら、ここの掲示板でお願いします。

編集者: AFsoft World | このブログのURL |この記事のURL

<<(DWORD)m_pDataList->m_nNumber;//ポインタでなく通し番号を保存する

◆ 同梱画像ファイルのファイル名、サイズ、実体（Ver.7.00以降）
for(i=0 ;i //画像ファイル（事前に圧縮済み）オープン
CFile SrcFile;
if( !SrcFile.Open( aStrTempGazouName[i]
, CFile::modeRead | CFile::shareDenyNone ) ){
TRACE("Bitmap File が開けません(%s)//\/i/in",aStrTempGazouName[i]);
continue;
}
char buf[BUFLEN];
ar << aStrTempGazouName[i]; //ファイル名
ar << nSize; //ファイルのサイズ
while(1){
UINT n = SrcFile.Read(buf, BUFLEN );
ar.Write(buf, n);
if(n < BUFLEN) break;
}
SrcFile.Close();
}

編集者: AFsoft World | このブログのURL |この記事のURL

// テストプログラム：リフト（修正）
//
// =============================================
// (C)Copyright 2010 AFsoft All Rights Reserved.
// =============================================
#LIST
　ko = "左","中","右"
#VAR
　d1x = 1000　　　;*土台X
　d1y =　100　　　;*土台Y
　d2x = 1000　　　;*リフト台X
　d2y =　100　　　;*リフト台Y
　ko =　左　　　　;*リンク固定点
　l = 1200　　　　;*リンク長さ
　w =　100　　　　;*リンク太さ
　l1x = 50　　　　;*リンク土台端からのX(左/右の際に有効)
　l1y = 50　　　　;*リンク土台底辺からの高さ
　l2y = 50　　　　;*リンクリフト台底辺からの高さ
　h = 1000　　　　;*高さ

　ang
　iko
　kx
　ky
　x1
　y1
　x2
　y2
　cx1
　cy1
　cx2
　cy2
　w1
　w2
　wx1
　wy1
　wx2
　wy2
　wx3
　wy3
　wx4
　wy4
　
#DRAW
　// エラーチェック（最低限）
　// CAL　x1 = (d1y - l1y) + l2y　　// 土台の上にリフト台が乗る場合
　CAL　x1 = 0
　CAL　x2 = l
　#IF ( (h < x1) || (h > x2) )
　　BEEP
　　MESSAGE "入力エラー","高さの入力エラーです","値を再入力して下さい。",x1,x2
　　#EXIT
　#END
　CAL　x1 = Sqrt(l*l - h*h)
　CAL　x2 = d1x - l1x
　#IF (x1 > x2)
　　BEEP
　　MESSAGE "入力エラー","リンクが土台からはみ出てしまいます","値を再入力して下さい。",0,0
　　#EXIT
　#END
　CAL　x2 = d2x - l1x
　#IF (x1 > x2)
　　BEEP
　　MESSAGE "入力エラー","リンクがリフト台からはみ出てしまいます","値を再入力して下さい。",0,0
　　#EXIT
　#END

　GETANGLE　ang,x1,h
　CHKITEM iko,ko,ko
　CAL　ky = l1y + h - l2y　　// リフト台基準点
　CAL　kx = 0
　#IF (iko == 0)
　　CAL　kx =-d1x/2+Abs(l1x)
　#END
　#IF (iko == 2)
　　CAL　kx = d1x/2-Abs(l1x)
　　CAL　ang = PI - ang
　#END

　LAYER　SetLineLay4　　// 基準線
　PEN SetLineCol4,SetLineLtp4,SetLineWid4
　// 基準線
　CAL　x1 =-d1x/2 - SetZ1　　// 中心線はみ出し距離考慮
　CAL　y1 = l1y
　CAL　x2 = d1x/2 + SetZ1
　CAL　y2 = l1y
　LINE　x1,y1,x2,y2

　CAL　x1 =-d2x/2 - SetZ1
　CAL　y1 = ky + l2y
　CAL　x2 = d2x/2 + SetZ1
　CAL　y2 = ky + l2y
　LINE　x1,y1,x2,y2

　CAL　x1 = 0
　CAL　y1 = ky + d2y + SetZ1
　CAL　x2 = 0
　CAL　y2 =-SetZ1
　LINE　x1,y1,x2,y2

　LAYER　SetLineLay1　　// 外径線
　PEN SetLineCol1,SetLineLtp1,SetLineWid1
　// 土台
　CAL　x1 =-d1x / 2
　CAL　y1 = 0
　CAL　x2 = d1x / 2
　CAL　y2 = d1y
　BOX　x1,y1,x2,y2
　// リフト台
　CAL　x1 =-d2x / 2
　CAL　y1 = ky
　CAL　x2 = d2x / 2
　CAL　y2 = ky + d2y
　BOX　x1,y1,x2,y2

　// ----- リンク -----

　#IF (iko == 0)
　　CAL　cx1 = kx
　　CAL　cy1 = l1y
　　CAL　cx2 = cx1 + Sqrt(l*l - h*h)
　　CAL　cy2 = l1y + h
　#END
　#IF (iko == 1)
　　CAL　cx1 =-Sqrt(l*l - h*h) / 2
　　CAL　cy1 = l1y
　　CAL　cx2 = Sqrt(l*l - h*h) / 2
　　CAL　cy2 = l1y + h
　#END
　#IF (iko == 2)
　　CAL　cx1 = kx
　　CAL　cy1 = l1y
　　CAL　cx2 = cx1 - Sqrt(l*l - h*h)
　　CAL　cy2 = l1y + h
　#END

　LAYER　SetLineLay3　　// 中心線
　PEN SetLineCol3,SetLineLtp3,SetLineWid3
　// 中心線
　LINE　cx1,cy1,cx2,cy2
　LINE　cx1,cy2,cx2,cy1

　LAYER　SetLineLay1　　// 外径線
　PEN SetLineCol1,SetLineLtp1,SetLineWid1
　CAL　wx1 = cx1 + w/2*Cos(ang+0.5*PI)
　CAL　wy1 = cy1 + w/2*Sin(ang+0.5*PI)
　CAL　wx2 = cx2 + w/2*Cos(ang+0.5*PI)
　CAL　wy2 = cy2 + w/2*Sin(ang+0.5*PI)
　CAL　wx3 =-d1x/2
　CAL　wy3 = d1y
　CAL　wx4 = d1x/2
　CAL　wy4 = d1y
　GETCRSLL　w1,x1,y1,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　CAL　wx3 =-d2x/2
　CAL　wy3 = ky
　CAL　wx4 = d2x/2
　CAL　wy4 = ky
　GETCRSLL　w2,x2,y2,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　#IF ( (w1 == 1) && (w2 == 1) )
　　LINE　x1,y1,x2,y2
　#END
　
　CAL　wx1 = cx1 + w/2*Cos(ang-0.5*PI)
　CAL　wy1 = cy1 + w/2*Sin(ang-0.5*PI)
　CAL　wx2 = cx2 + w/2*Cos(ang-0.5*PI)
　CAL　wy2 = cy2 + w/2*Sin(ang-0.5*PI)
　CAL　wx3 =-d1x/2
　CAL　wy3 = d1y
　CAL　wx4 = d1x/2
　CAL　wy4 = d1y
　GETCRSLL　w1,x1,y1,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　CAL　wx3 =-d2x/2
　CAL　wy3 = ky
　CAL　wx4 = d2x/2
　CAL　wy4 = ky
　GETCRSLL　w2,x2,y2,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　#IF ( (w1 == 1) && (w2 == 1) )
　　LINE　x1,y1,x2,y2
　#END
　
　CAL　wx1 = cx1 + w/2*Cos(PI-ang+0.5*PI)
　CAL　wy1 = cy2 + w/2*Sin(PI-ang+0.5*PI)
　CAL　wx2 = cx2 + w/2*Cos(PI-ang+0.5*PI)
　CAL　wy2 = cy1 + w/2*Sin(PI-ang+0.5*PI)
　CAL　wx3 =-d1x/2
　CAL　wy3 = d1y
　CAL　wx4 = d1x/2
　CAL　wy4 = d1y
　GETCRSLL　w1,x1,y1,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　CAL　wx3 =-d2x/2
　CAL　wy3 = ky
　CAL　wx4 = d2x/2
　CAL　wy4 = ky
　GETCRSLL　w2,x2,y2,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　#IF ( (w1 == 1) && (w2 == 1) )
　　LINE　x1,y1,x2,y2
　#END
　
　CAL　wx1 = cx1 + w/2*Cos(PI-ang-0.5*PI)
　CAL　wy1 = cy2 + w/2*Sin(PI-ang-0.5*PI)
　CAL　wx2 = cx2 + w/2*Cos(PI-ang-0.5*PI)
　CAL　wy2 = cy1 + w/2*Sin(PI-ang-0.5*PI)
　CAL　wx3 =-d1x/2
　CAL　wy3 = d1y
　CAL　wx4 = d1x/2
　CAL　wy4 = d1y
　GETCRSLL　w1,x1,y1,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　CAL　wx3 =-d2x/2
　CAL　wy3 = ky
　CAL　wx4 = d2x/2
　CAL　wy4 = ky
　GETCRSLL　w2,x2,y2,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　#IF ( (w1 == 1) && (w2 == 1) )
　　LINE　x1,y1,x2,y2
　#END

編集者: AFsoft World | このブログのURL |この記事のURL

// テストプログラム：リフト
//
// =============================================
// (C)Copyright 2010 AFsoft All Rights Reserved.
// =============================================
#LIST
　ko = "左","中","右"
#VAR
　d1x = 1000　　　;*土台X
　d1y =　100　　　;*土台Y
　d2x = 1000　　　;*リフト台X
　d2y =　100　　　;*リフト台Y
　ko =　左　　　　;*リンク固定点
　l = 1200　　　　;*リンク長さ
　w =　100　　　　;*リンク太さ
　l1x = 50　　　　;*リンク土台端からのX(左/右の際に有効)
　l1y = 50　　　　;*リンク土台底辺からの高さ
　l2y = 50　　　　;*リンクリフト台底辺からの高さ
　h = 1000　　　　;*高さ

　ang
　iko
　kx
　ky
　x1
　y1
　x2
　y2
　cx1
　cy1
　cx2
　cy2
　w1
　wx1
　wy1
　wx2
　wy2
　wx3
　wy3
　wx4
　wy4
　
#DRAW
　// エラーチェック（最低限）
　#IF (h >= l)
　　BEEP
　　MESSAGE "入力エラー","リンク長さよりも高さの方が大きくなってます","値を再入力して下さい。",0,0
　　#EXIT
　#END
　CAL　x1 = Sqrt(l*l - h*h)
　CAL　x2 = d1x - l1x
　#IF (x1 > x2)
　　BEEP
　　MESSAGE "入力エラー","リンクが土台からはみ出てしまいます","値を再入力して下さい。",0,0
　　#EXIT
　#END
　CAL　x2 = d2x - l1x
　#IF (x1 > x2)
　　BEEP
　　MESSAGE "入力エラー","リンクがリフト台からはみ出てしまいます","値を再入力して下さい。",0,0
　　#EXIT
　#END

　GETANGLE　ang,x1,h
　CHKITEM iko,ko,ko
　CAL　ky = l1y + h - l2y　　// リフト台基準点
　CAL　kx = 0
　#IF (iko == 0)
　　CAL　kx =-d1x/2+Abs(l1x)
　#END
　#IF (iko == 2)
　　CAL　kx = d1x/2-Abs(l1x)
　　CAL　ang = PI - ang
　#END

　LAYER　SetLineLay4　　// 基準線
　PEN SetLineCol4,SetLineLtp4,SetLineWid4
　// 基準線
　CAL　x1 =-d1x/2 - SetZ1　　// 中心線はみ出し距離考慮
　CAL　y1 = l1y
　CAL　x2 = d1x/2 + SetZ1
　CAL　y2 = l1y
　LINE　x1,y1,x2,y2

　CAL　x1 =-d2x/2 - SetZ1
　CAL　y1 = ky + l2y
　CAL　x2 = d2x/2 + SetZ1
　CAL　y2 = ky + l2y
　LINE　x1,y1,x2,y2

　CAL　x1 = 0
　CAL　y1 = ky + d2y + SetZ1
　CAL　x2 = 0
　CAL　y2 =-SetZ1
　LINE　x1,y1,x2,y2

　LAYER　SetLineLay1　　// 外径線
　PEN SetLineCol1,SetLineLtp1,SetLineWid1
　// 土台
　CAL　x1 =-d1x / 2
　CAL　y1 = 0
　CAL　x2 = d1x / 2
　CAL　y2 = d1y
　BOX　x1,y1,x2,y2
　// リフト台
　CAL　x1 =-d2x / 2
　CAL　y1 = ky
　CAL　x2 = d2x / 2
　CAL　y2 = ky + d2y
　BOX　x1,y1,x2,y2

　// ----- リンク -----

　#IF (iko == 0)
　　CAL　cx1 = kx
　　CAL　cy1 = l1y
　　CAL　cx2 = cx1 + Sqrt(l*l - h*h)
　　CAL　cy2 = l1y + h
　#END
　#IF (iko == 1)
　　CAL　cx1 =-Sqrt(l*l - h*h) / 2
　　CAL　cy1 = l1y
　　CAL　cx2 = Sqrt(l*l - h*h) / 2
　　CAL　cy2 = l1y + h
　#END
　#IF (iko == 2)
　　CAL　cx1 = kx
　　CAL　cy1 = l1y
　　CAL　cx2 = cx1 - Sqrt(l*l - h*h)
　　CAL　cy2 = l1y + h
　#END

　LAYER　SetLineLay3　　// 中心線
　PEN SetLineCol3,SetLineLtp3,SetLineWid3
　// 中心線
　LINE　cx1,cy1,cx2,cy2
　LINE　cx1,cy2,cx2,cy1

　LAYER　SetLineLay1　　// 外径線
　PEN SetLineCol1,SetLineLtp1,SetLineWid1
　CAL　wx1 = cx1 + w/2*Cos(ang+0.5*PI)
　CAL　wy1 = cy1 + w/2*Sin(ang+0.5*PI)
　CAL　wx2 = cx2 + w/2*Cos(ang+0.5*PI)
　CAL　wy2 = cy2 + w/2*Sin(ang+0.5*PI)
　CAL　wx3 =-d1x/2
　CAL　wy3 = d1y
　CAL　wx4 = d1x/2
　CAL　wy4 = d1y
　GETCRSLL　w1,x1,y1,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　CAL　wx3 =-d2x/2
　CAL　wy3 = ky
　CAL　wx4 = d2x/2
　CAL　wy4 = ky
　GETCRSLL　w1,x2,y2,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　LINE　x1,y1,x2,y2
　
　CAL　wx1 = cx1 + w/2*Cos(ang-0.5*PI)
　CAL　wy1 = cy1 + w/2*Sin(ang-0.5*PI)
　CAL　wx2 = cx2 + w/2*Cos(ang-0.5*PI)
　CAL　wy2 = cy2 + w/2*Sin(ang-0.5*PI)
　CAL　wx3 =-d1x/2
　CAL　wy3 = d1y
　CAL　wx4 = d1x/2
　CAL　wy4 = d1y
　GETCRSLL　w1,x1,y1,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　CAL　wx3 =-d2x/2
　CAL　wy3 = ky
　CAL　wx4 = d2x/2
　CAL　wy4 = ky
　GETCRSLL　w1,x2,y2,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　LINE　x1,y1,x2,y2
　
　CAL　wx1 = cx1 + w/2*Cos(PI-ang+0.5*PI)
　CAL　wy1 = cy2 + w/2*Sin(PI-ang+0.5*PI)
　CAL　wx2 = cx2 + w/2*Cos(PI-ang+0.5*PI)
　CAL　wy2 = cy1 + w/2*Sin(PI-ang+0.5*PI)
　CAL　wx3 =-d1x/2
　CAL　wy3 = d1y
　CAL　wx4 = d1x/2
　CAL　wy4 = d1y
　GETCRSLL　w1,x1,y1,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　CAL　wx3 =-d2x/2
　CAL　wy3 = ky
　CAL　wx4 = d2x/2
　CAL　wy4 = ky
　GETCRSLL　w1,x2,y2,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　LINE　x1,y1,x2,y2
　
　CAL　wx1 = cx1 + w/2*Cos(PI-ang-0.5*PI)
　CAL　wy1 = cy2 + w/2*Sin(PI-ang-0.5*PI)
　CAL　wx2 = cx2 + w/2*Cos(PI-ang-0.5*PI)
　CAL　wy2 = cy1 + w/2*Sin(PI-ang-0.5*PI)
　CAL　wx3 =-d1x/2
　CAL　wy3 = d1y
　CAL　wx4 = d1x/2
　CAL　wy4 = d1y
　GETCRSLL　w1,x1,y1,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　CAL　wx3 =-d2x/2
　CAL　wy3 = ky
　CAL　wx4 = d2x/2
　CAL　wy4 = ky
　GETCRSLL　w1,x2,y2,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
　LINE　x1,y1,x2,y2

編集者: AFsoft World | このブログのURL |この記事のURL

いろんな方が文字サイズを設定し作図されていますが私のJWWに複写すると文字の大きさが私の設定になります　どうすれば前の文字サイズをそのままで使えるでしょうか

編集者: AFsoft World | このブログのURL |この記事のURL

例えば、X線とY線を結ぶRがあります。そこで、移動又は複写するさい、このX線とY線の延長線上の交点を選択したいのですが、簡単に素早く選択する方法を教えて下さい。

編集者: AFsoft World | このブログのURL |この記事のURL

Ｘ型リフターとか、Ｘ型伸縮の門などのようなものを自在に変形表示できないかと、いろいろ探しています。外部変形で対応できないものかと、ただいま勉強中ですがなかなかいい方法が見つかりません。よいアドバイスがありましたら、どなたかご教授願います。

編集者: AFsoft World | このブログのURL |この記事のURL

作図時間を手を止めたままでもすすむやり方ありますか？

?作図時間の変更（0:変更不可 1:変更可）
（環境設定ファイルでのみ指定可）

編集者: AFsoft World | このブログのURL |この記事のURL