Sub 練習マクロ001()

練習マクロ001 Macro

Fname = "C:AutoCAD Lesson Lesson.scr"
Open Fname For Output As #1
Print #1, "osnap non"

***************************************************************************

Print #1, "line 100,100 200,200" & Chr(13) 直線を引くマクロ
Print #1, "circle 0,0 100" 円を描くマクロ
Print #1, "rectang 0,0 100,200" 長方形を描くマクロ
Print #1, "text 100,100 2.5 0 ExcelVBA" 『ExcelVBA』というテキストを入れるマクロ
Print #1, "text j mc 100,100 3.0 0 ExcelVBA" テキストの文字位置を指定するマクロ(文字の高さ2.5、角度0度、テキスト内容)
Print #1, "Clayer Line3" あらかじめ使う線種を登録しておいたファイルを使用し、線種を指定する。画層の名前は数字の連番で管理する。
Print #1, "line " & 100, 100; 200, 200 & Chr(13) 座標を決めて

ActiveCell.Range("A1:A15").Select
Selection.Copy
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

***************************************************************************
Print #1, "zoom e"
Print #1, "filedia 1"
Close #1
AppActivate "AutoCAD"
SendKeys "filedia 0" & Chr(13) & "script" & Chr(13) & Fname & Chr(13), True


End Sub