| このページについて | ||||||||||||||||||||||||||
|
このページは、mura's home の AutoCAD掲示板 で、当方の発言（書込み）がある以下の掲示板の内容です。
タイトルおよび質問内容は上記より引用しています。 引用した質問内容は、バックカラーが となっています。 当方の発言は、バックカラーが となっています。 その他の著作権者の掲載許可を得ていない発言内容は削除（リンクを除く）しています。 また、当方では、削除部分の正当な著作権保持者を判断出来ませんので、 ご連絡を頂いても、復活させることは出来ません。ご了承下さい。
|
||||||||||||||||||||||||||
あけましておめでとうございます。
ＡＣＡＤにてアルキメデス曲線（ｒ＝ａθ）を描きたいのですが、
どなた助けていただけないでしょうか？
著作権者の許可を得ていないため削除
先越された。
けど、せっかく書いたので貼付。
計算方法はご承知と思いますので、作図方法について。
微少直線（曲線）で近似しか出来ませんので、エクセルで座標計算後、
下記のような作図コマンド（文字列）を作成、コマンドラインに貼付で
ポリラインやスプラインを作成するのが最も簡単と思います。
ポリライン（微少直線で近似）
_pline 1.000,1.000 2.000,2.000 3.000,3.000 ・・・ 9.000,9.000 |
_spline 2.000,2.000 3.000,3.000 ・・・ 8.000,8.000 1.000,1.000 9.000,9.000 |
R=A*θ 条件：A=1,R(3度ピッチ,N=1〜721)=3*(<N>-1)/180*<PI> 手順：タブの (3) で頂点721のポリラインを作成後、そのポロラインを選択して Ｘ座標・Ｙ座標に下記の式を入力、 「すべて選択」、「選択した座標＆ふくらみ値を置換」、「適用」の順にクリック X = A*R*Cosθ = 1*(3*(<N>-1)/180*<PI>)*Cos(3*((<N>-1)/180*<PI>)) Y = A*R*Sinθ = 1*(3*(<N>-1)/180*<PI>)*Sin(3*((<N>-1)/180*<PI>)) |
早速訂正・・・
X = A*θ*Cosθ = 1*(3*(<N>-1)/180*<PI>)*Cos(3*((<N>-1)/180*<PI>)) Y = A*θ*Sinθ = 1*(3*(<N>-1)/180*<PI>)*Sin(3*((<N>-1)/180*<PI>)) |
またまた訂正（大汗）
日本画でなくて日本語です。
ポリラインエディタを使用する場合の手順に書き忘れがありました。
オプション
タブの「文字式に、以下の特殊文字以外も使用する」にチェックをつけて下さい。
著作権者の許可を得ていないため削除
http://www.prenhall.com/dixriley/pages.html
さらに書忘れ（汗）
オプション タブの「Excel
Evaluate関数」にもチェックをつけて下さい。
AutoCAD の Cal コマンドと Excel Evaluate
関数は単位が異なるので、
どちらで計算させるかによって計算ピッチが異なります。
＃「Excel
Evaluate関数」を使用する場合、
＃Excel オブジェクト
ライブラリの参照設定が必要です
＃[ツール]-[マクロ]-[Visual Basic
エディタ]を起動して、[ツール]-[参照設定]の、
＃"Microsoft Excel x.x
Object Library"にチェックをつける必要があります
＃（x.xはバージョンです）
＃当然エクセルがインストールされている必要があります
著作権者の許可を得ていないため削除