【ごまかんぱちの挑戦】エクセルでAutoCADの自動作図（その11）

こんにちは。ごまかんぱちです。🐟

AutoCADの自動作図を目指して奮闘しています。
第11回の今回は 、歯車に挑戦します。

11-1. 歯車

まずは、エクセルで このようなシートをつくります。

セルC2 C3 C4には、緑四角の式を入力してください。

まずは 側面図。

円を3つ描いてみましょう。
歯先円、歯底円、軸穴 を描きます。

Print #1, "clayer Layer1"       '画層の指定
    
Print #1, "circle " & 0 & "," & 0 & " " & Range("C2") / 2        '歯先円
Print #1, "circle " & 0 & "," & 0 & " " & Range("C4") / 2        '歯底円
Print #1, "circle " & 0 & "," & 0 & " " & Range("C6") / 2        '軸穴円

円は 前回もやりましたが、一応 もう一度解説です。

実行結果は こうなりました。

画層を変えて、基準円と中心線を描きます。

Print #1, "clayer Layer0"       '画層の指定
    
Print #1, "circle " & 0 & "," & 0 & " " & 0 & "," & Range("C3") / 2       '基準円

'中心線
Print #1, "line " & -Range("C2") / 2 - 5 & "," & 0 & " " & Range("C2") / 2 + 5 & "," & 0 & " "
Print #1, "line " & 0 & "," & -Range("C2") / 2 - 5 & " " & 0 & "," & Range("C2") / 2 + 5 & " "

順調です。😊

続いて 主投影図を描きます。
まずは 外形です。

Print #1, "clayer Layer1"       '画層の指定

'歯先＋外形
Print #1, "rectang " & 0 & "," & -Range("C2") / 2 & " " & Range("C8") & "," & Range("C2") / 2

さりげなく 長方形が初登場です。

はい。ちゃんと長方形が描けました。😊

続いて 線をたくさん描いて…

'歯底
Print #1, "line " & 0 & "," & Range("C4") / 2 & " " & Range("C8") & "," & Range("C4") / 2 & " "
Print #1, "line " & 0 & "," & -Range("C4") / 2 & " " & Range("C8") & "," & -Range("C4") / 2 & " "

'軸穴
Print #1, "line " & 0 & "," & Range("C6") / 2 & " " & Range("C8") & "," & Range("C6") / 2 & " "
Print #1, "line " & 0 & "," & -Range("C6") / 2 & " " & Range("C8") & "," & -Range("C6") / 2 & " "


Print #1, "clayer Layer0"       '画層の指定

'基準線
Print #1, "line " & -5 & "," & Range("C3") / 2 & " " & Range("C8") + 5 & "," & Range("C3") / 2 & " "
Print #1, "line " & -5 & "," & -Range("C3") / 2 & " " & Range("C8") + 5 & "," & -Range("C3") / 2 & " "

'中心線
Print #1, "line " & -5 & "," & 0 & " " & Range("C8") + 5 & "," & 0 & " "

いいですね。😊
ハッチングを施してみましょうか。

'ハッチング
Print #1, "clayer Layer2"       '画層の指定
Print #1, "-hatch p ansi31 0.5 0 w n " & 0 & "," & Range("C6") / 2 & " " & Range("C8") & "," & Range("C6") / 2 & " " & Range("C8") & "," & Range("C4") / 2 & " " & 0 & "," & Range("C4") / 2 & " c  "
Print #1, "-hatch p ansi31 0.5 0 w n " & 0 & "," & -Range("C6") / 2 & " " & Range("C8") & "," & -Range("C6") / 2 & " " & Range("C8") & "," & -Range("C4") / 2 & " " & 0 & "," & -Range("C4") / 2 & " c  "

ハッチングの解説です。

何か パラメータがやたら多いですね。😥
頑張って 入力しましょう。

これで 主投影図のできあがりです。😊

側面図と主投影図を並べて…

できました～😊😊

これで完成です！
立派な歯車です！
歯車の図面ができましたー！！

・
・・
・・・ ギザギザ 描きます？
いばらの道に なりそうですが… 😢

頑張ります。
こんなことを やっていきましょう。

・ 歯車の歯を描く
・ 1つの歯が占める角度
・ for文で回転複写

きっと できるはず。
ぜひ 続きも読んでください。

11-2. アドバンス

・ 歯車の歯を描く

まず どんな 歯を描くかを決めます。

下図のような比率で 歯を描くことに決めました。