TTak's Office Excel AUTO CAD LTにn次曲線を描画(EXCEL2010)

　AUTO CAD LTにn次曲線
を描画　

　　
要VBA/サンプル有

○ポイントはSendKeyメソッド

　SendKeyメソッドは、キーボードのキーを押下したことと同じ動作をPC側に与えるメソッドです。これを利用して、他のアプリケーションにコマンドを送ることもできます。

　この例では、EXCELで計算させた二次関数の座標をAutoCAD LT 2000に転記して、自動描画させています。

(1) n次関数の座標を計算させる。
　（この例ではA6:A46にxの値、B6:B46にx^2の計算値を表示します）

(2) セルA6に -10 と入力

(3) セルA7に =A6+0.5 と入力して、セルA46までフィル
　（この例ではxの増分を0.5とします）

(4) セルB6に =A6^2 と入力して、B47までフィル
　（この例ではnを2（二次関数）とします）

(5) 下記コードを実行

(6) AotoCAD LTのウインドウで線（図1）を確認
office

（図1）二次関数の線

Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)

Sub AUTO_CAD_DRAW()
Dim cadXY As String
Dim i As Integer
On Error GoTo ErrorHandler
msgTitle = "AutoCAD書き込み"
Beep
 Msg = "注意事項" & Chr(13) & Chr(13) _
  & "1. AutoCAD LT 起動後 5 秒間は書き込みを保留します。" _
  & "操作せずにお待ちください。" & Chr(13) _
  & "2. 描画中はカーソルおよびキー操作は行わないでください。" _
  & Chr(13) _
  & "3. キーボードの[NumLock]が解除される場合があります。" _
  & "描画後のキー操作に注意してください。"
          Style = vbOKCancel + vbExclamation
          Response = MsgBox(Msg, Style, msgTitle)
          If Response = vbCancel Then Exit Sub
          
       'acadlt.exeまでのパスは適宜変更してください
       RetVal = Shell("C:\Program Files\Autodesk\AutoCAD LT 2011\acadlt.exe", _
            vbMaximizedFocus)
       On Error GoTo ErrorHandler
       Sleep 2000
       SendKeys "{ESC}"
       DoEvents
       Sleep 2000
START:
SendKeys "{F2}"
SendKeys "--Please wait--", True
DoEvents
Sleep 5000 '描画に失敗する場合はこの数値を増してください
SendKeys "{ESC}"
SendKeys "spline{ENTER}", False
'座標
For i = 6 To 46
    cadXY = Cells(i, 1).Value & "," & Cells(i, 2).Value
    SendKeys cadXY, False
    Sleep 10 '描画に失敗する場合はこの数値を増してください
    SendKeys "{ENTER}", False
Next i
SendKeys "{ENTER}", False
Sleep 1000
SendKeys "--Finish--", True
SendKeys "{ESC}"
Exit Sub
ErrorHandler:
MsgBox "書き込みエラーです"
End Sub

○こんな時に使える

・AutoCADに関数の曲線を描きたい
・AutoCADに自動で描画させたい

○関連情報・その他の方法

・EXCEL2000の場合はこちら
・この機能を使って、座標データベースなどを一気にCADで描画することもできます。
・この機能を使って、EXCEの計算結果から基本図面をCAD側に作図させることもできます。

○サンプル

・サンプルファイルはこちら（要解凍） 18KB

○注意

・パソコンによって動作が遅い場合があります。このときはSleep関数の値を増してください。
・AutoCAD側の自動描画中はキーボードやマウスを操作しないでください。
・描画後にキーボードの[NumLock]が解除される場合があります。