acGetLayerList
説明
現在の図面から画層情報の一覧を取得します。取得した画層情報はGetLayerInfoメソッドで知ることが出来ます。
書式
Object.acGetLayerList(retLayerCount) As Boolean
| 引数 | 説明 |
|---|---|
| retLayerCount | 画層数を返す変数を指定します。 |
戻り値
| 戻り値 | 説明 |
|---|---|
| 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, "画層一覧表示サンプル"
↓実行イメージ