画層編集は、なんとかできるようになったので、今回は線種追加。
まずソース。
━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─
'**********************************************
'線種ロード
'**********************************************
Public Sub 線種ロード()
Dim 線種ファイル名 As String
線種ファイル名 = "acadisoTEST.lin"
With gAcadDocs.Linetypes
Call .Load("JIS_08_11", 線種ファイル名)
Call .Load("JIS_02_0.7", 線種ファイル名)
Call .Load("JIS_09_08", 線種ファイル名)
End With
End Sub
━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─
これで、線種がロードされます。
ただし、ロード済みの線種をロードするとエラーとなります。
線種ファイル名を指定して、線種をロードするのですが、
ファイル指定がフルパスでなくてもいいようです。
となると、ファイルパスは、どこで管理してるのか？と疑問になります。
調べてみると、
オプションの、「サポートファイルの検索パス」に沿っているようです。
なので、今回のテストでは、「acadisoTEST.lin」ファイルを
C:\Program Files\AutoCAD 2010\Support\Colorフォルダに置いてみました。
この状態で実行した結果、ちゃんとロードされました。
↓３つロードされています。
今回は、特に困ることもなく終わりました。
でも、実運用となると、エラー処理を充実させないといかんね。
まぁ、テンプレート用意した方が、手っ取り早そうなんだけど