GetLayerInfo
説明
インデックス(1〜)を指定して画層の情報を知ることが出来ます。事前にacGetLayerListメソッドを実行しておく必要があります。
書式
Object.GetLayerInfo(LayerIndex,[LayerName],[ LayerVisible],[LayerFreezed],[LayerLocked],[LayerColor],[LType],[LWeight],[PrintOut],[PrintStyle]) As Boolean
引数 | 説明 |
---|---|
LayerIndex | 情報を取得したい画層のインデックスを指定します。 |
LayerName | 画層名を返す変数を指定します。 |
LayerVisible | 画層の表示状態を返す変数を指定します。表示されている場合はTrueを返します。 |
LayerFreezed | 画層のフリーズ状態を返す変数を指定します。フリーズされている場合はTrueを返します。 |
LayerLocked | 画層のロック状態を返す変数を指定します。ロックされている場合はTrueを返します。 |
LayerColor | 色番号を返す変数を指定します。 |
LType | 線種名を返す変数を指定します。 |
LWeight | 線の太さを返す変数を指定します。0〜2.11、または"Default"を返します。 |
PrintOut | 印刷の有無を返す変数を指定します。印刷ありの場合は"P"を、印刷なしの場合"N"を返します。 |
PrintStyle | 印刷スタイルを返す変数を指定します。 |
戻り値
戻り値 | 説明 |
---|---|
True | 正常終了しました。 |
False | 異常終了しました。エラーの詳しい内容はShowErrorメソッドで確認出来ます。 |
実行例
Set Acad = CreateObject("AcadRemocon.Body")
Acad.acGetLayerList LayerCount
Msg = "画層名" & vbTab & "表示" & vbTab & "フリーズ" & vbTab & "ロック" & vbTab
Msg = Msg & "色" & vbTab & "線種" & vbTab & "太さ" & vbTab & "印刷" & vbCrLf & vbCrLf
For i = 1 To LayerCount
Acad.GetLayerInfo i, LN, Vi, Fr, Lo, Co, LT, LW, PO
Msg = Msg & LN & vbTab & Vi & vbTab & Fr & vbTab & Lo & vbTab
Msg = Msg & Co & vbTab & LT & vbTab & LW & vbTab & PO & vbCrLf
Next
Acad.acShowMessage Msg, vbInformation, "画層一覧表示サンプル"