罫線の線種と行タイプの罫線の太さを返します。
サポートされているプラットフォーム: Windows のみ
VBA:
RetVal = object.GetGridLineWeight(gridLineType, rowType)
タイプ: Table、TableStyle
このメソッドが適用されるオブジェクト。
アクセス: 入力のみ
タイプ: AcGridLineType 列挙型
確認する罫線のタイプ。
アクセス: 入力のみ
タイプ: AcRowType 列挙型
行タイプ。
タイプ: ACAD_LWEIGHT 列挙型
追加の注意はありません。
VBA:
Sub Example_GetGridColor() ' This example creates a TableStyle object and sets values for ' the style name and other attributes. Dim dictionaries As AcadDictionaries Set dictionaries = ThisDrawing.Database.dictionaries Dim dictObj As AcadDictionary Set dictObj = dictionaries.Item("acad_tablestyle") ' Get the current TableStyle object Dim tableStyle As AcadTableStyle Set tableStyle = dictObj.Item(ThisDrawing.GetVariable("CTABLESTYLE")) Dim colGridCurrent As AcadAcCmColor, lwGridCurrent As ACAD_LWEIGHT, visGridCurrent As Boolean Set colGridCurrent = tableStyle.GetGridColor(acHorzBottom, acTitleRow) lwGridCurrent = tableStyle.GetGridLineWeight(acHorzBottom, acTitleRow) visGridCurrent = tableStyle.GetGridVisibility(acHorzTop, acTitleRow) MsgBox "Grid settings " & vbLf & _ "nColor (Bottom) = " & colGridCurrent.ColorIndex & vbLf & _ "nLineweight (Bottom) = " & lwGridCurrent & vbLf & _ "Visibility (Top) = " & visGridCurrent Dim col As AcadAcCmColor Set col = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.20") col.SetRGB 0, 0, 255 tableStyle.SetGridColor acHorzBottom, acTitleRow, col tableStyle.SetGridLineWeight acHorzBottom, acTitleRow, acLnWt025 If visGridCurrent = False Then tableStyle.SetGridVisibility acHorzTop, acTitleRow, True Else tableStyle.SetGridVisibility acHorzTop, acTitleRow, False End If Dim colGridNew As AcadAcCmColor, lwGridNew As ACAD_LWEIGHT, visGridNew As Boolean Set colGridNew = tableStyle.GetGridColor(acHorzBottom, acTitleRow) lwGridNew = tableStyle.GetGridLineWeight(acHorzBottom, acTitleRow) visGridNew = tableStyle.GetGridVisibility(acHorzTop, acTitleRow) MsgBox "Grid settings " & vbLf & _ "nColor (Bottom) = " & colGridNew.ColorIndex & vbLf & _ "nLineweight (Bottom) = " & lwGridNew & vbLf & _ "Visibility (Top) = " & visGridNew tableStyle.SetGridColor acHorzBottom, acTitleRow, colGridCurrent tableStyle.SetGridLineWeight acHorzBottom, acTitleRow, lwGridCurrent tableStyle.SetGridVisibility acHorzTop, acTitleRow, visGridCurrent MsgBox "Reset the table style back to its original values." End Sub
Visual LISP:
(vl-load-com) (defun c:Example_GetGridLineWeight() ;; This example creates a TableStyle object and sets values for ;; the style name and other attributes. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) (setq dictionaries (vla-get-Dictionaries doc)) (setq dictObj (vla-Item dictionaries "acad_tablestyle")) ;; Get the current TableStyle object (setq tableStyle (vla-Item dictObj (vla-GetVariable doc "CTABLESTYLE"))) (setq colGridCurrent (vla-GetGridColor tableStyle acHorzBottom acTitleRow)) (setq lwGridCurrent (vla-GetGridLineWeight tableStyle acHorzBottom acTitleRow)) (setq visGridCurrent (vla-GetGridVisibility tableStyle acHorzTop acTitleRow)) (alert (strcat "Grid settings" "\nColor (Bottom) = " (itoa (vla-get-ColorIndex colGridCurrent)) "\nLineweight (Bottom) = " (itoa lwGridCurrent) "\nVisibility (Top)= " (if (= visGridCurrent :vlax-true) "True" "False"))) (setq col (vlax-create-object "AutoCAD.AcCmColor.20")) (vla-SetRGB col 0 0 255) (vla-SetGridColor tableStyle acHorzBottom acTitleRow col) (vla-SetGridLineWeight tableStyle acHorzBottom acTitleRow acLnWt025) (vla-SetGridVisibility tableStyle acHorzTop acTitleRow (if (= visGridCurrent :vlax-true) :vlax-false :vlax-true)) (setq colGridNew (vla-GetGridColor tableStyle acHorzBottom acTitleRow)) (setq lwGridNew (vla-GetGridLineWeight tableStyle acHorzBottom acTitleRow)) (setq visGridNew (vla-GetGridVisibility tableStyle acHorzTop acTitleRow)) (alert (strcat "Grid settings" "\nColor (Bottom) = " (itoa (vla-get-ColorIndex colGridNew)) "\nLineweight (Bottom) = " (itoa lwGridNew) "\nVisibility (Top)= " (if (= visGridNew :vlax-true) "True" "False"))) (vla-SetGridColor tableStyle acHorzBottom acTitleRow colGridCurrent) (vla-SetGridLineWeight tableStyle acHorzBottom acTitleRow lwGridCurrent) (vla-SetGridVisibility tableStyle acHorzBottom acTitleRow visGridCurrent) (alert "Reset the table style back to its original values.") (vlax-release-object col) )