ExcelマクロとAutoCADへの利用
▼マクロのページを参考にしてください。★マクロのページへリンク●エクセル→VBAマクロ→AutoCADの作図コマンドに利用'2)★★★’2)●測量座標X/Y(m単位)を数学座標X,Y(mm単位)に変換する。Public Function 測to数XY変換(X座標数, Y座標数) '●関数名(引数)’▼測量座標の(X)/(Y)座標→数学座標(X,Y)に変換(単位mm:小数点1桁)測to数XY変換 = Round(Y座標数 * 1000, 1) & "," & Round(X座標数 * 1000, 1)End Function '▲▲測量(X,Y)座標→AutoCAD入力座に利用できる。'A)★★★'3a)数学座標(mm単位)を測量座標(m単位)に座標に変換する。Public Function 数to測XY変換(X座標測, Y座標測)'●関数名(引数)’▼数学座標の(X)/(Y)座標→測量座標(X,Y)に変換(単位m:小数点4桁)数to測XY変換 = Round(Y座標測 / 1000, 4) & "," & Round(X座標測 / 1000, 4)End Function '▲▲測量(X,Y)座標→AutoCAD入力座に利用できる。'4)★★★'4)●座標を1セルX,Y(カンマ形式)に変換する。Public Function ア座標XY(X, Y) '●関数名(引数)'▼座標(X)/(Y)を1セル(X,Y)カンマ形式に変換する。 ア座標XY = X & "," & YEnd Function '▲▲'5)★★'5)ACADのコマンドラインへCOPY>PASTして2点の結線を作図する。Public Function 線作図2P(座標A, 座標B) '●関数名(引数)'▼座標A(X,Y)から座標B(X,Y)への線分作図AutoCADコマンド 線作図2P = "L " & 座標A & " " & 座標B & " "End Function '▲▲AutoCADのコマンド窓へ複写'6)★★'6)ACADのコマンドラインへCOPY>PASTして文字を作図する。Public Function 文字作図CAD(点, 文字, 角度) 文字作図CAD = "-text j bc " & 点 & " " & 角度 & " " & 文字End Function '▲▲AutoCADのコマンド窓へ複写'7)★★'7)ACADのコマンドラインへCOPY>PASTして点を作図する。Public Function 点作図AC(座標) 点作図AC = "PT " & 座標End Function '▲▲AutoCADのコマンド窓へ複写'8)★★'8)ACADのコマンドラインへCOPY>PASTして円を作図する。Public Function 円作図AC(座標, 半径) 円作図AC = "C " & 座標 & " " & 半径End Function '▲▲AutoCADのコマンド窓へ複写