CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2021 开发者帮助 › 查看内容

AutoCAD 2021 开发者帮助

GetRotation 方法（ActiveX）

2024-5-18 18:32| 发布者: admin| 查看: 258| 评论: 0|原作者: admin|来自: AutoCAD

获取单元格或单元格样式的旋转值。

支持的平台：仅限 Windows

签名 - 表格

VBA：

RetVal = object.GetRotation(nRow, nCol, nContent)

对象

类型： 表格

此方法应用到的对象。

nRow（n行）

访问：仅输入

类型：长

要设置的单元格的行号。

nCol （英语：nCol）

访问：仅输入

类型：长

要设置的单元格的列号。

n内容

访问：仅输入

类型：长

单元格的内容值。

签名 - TableStyle

VBA：

RetVal = object.GetRotation(StringCellStyle)

对象

类型：TableStyle

此方法应用到的对象。

StringCellStyle

访问：仅输入

类型：字符串

单元格样式名称。

返回值（RetVal）

类型：双

单元格或单元格样式的旋转值。

言论

没有其他评论。

例子

VBA：

Sub Example_CellClass()
    ' This example creates a TableStyle object and sets values for
    ' the style classes and formatting.
    
    Dim dictionaries As AcadDictionaries
    Set dictionaries = ThisDrawing.Database.dictionaries
  
    Dim dictObj As AcadDictionary
    Set dictObj = dictionaries.Item("acad_tablestyle")
  
    ' Create the custom TableStyle object in the dictionary
    Dim keyName As String
    Dim className As String
    Dim customObj As IAcadTableStyle
    keyName = "NewStyle"
    className = "AcDbTableStyle"
    Set customObj = dictObj.AddObject(keyName, className)
      
    customObj.Name = "NewStyle"
    customObj.Description = "New Style for My Tables"
  
    customObj.CreateCellStyle ("NewTestStyle")
    Dim cellTestFormat As String
      
    customObj.SetCellClass "NewTestStyle", 4
      
    customObj.SetRotation "NewTestStyle", 8.4
      
    MsgBox "The cell class is " & customObj.GetCellClass("NewTestStyle") & _
           " the cell rotation is " & customObj.GetRotation("NewTestStyle")
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_CellClass()
    ;; This example creates a TableStyle object and sets values for
    ;; the style classes and formatting.
    (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"))
  
    ;; Create the custom TableStyle object in the dictionary
    (setq keyName "NewStyle"
          className "AcDbTableStyle")
    (setq customObj (vla-AddObject dictObj keyName className))
      
    (vla-put-Name customObj "NewStyle")
    (vla-put-Description customObj "New Style for My Tables")
  
    (vla-CreateCellStyle customObj "NewTestStyle")

    (vla-SetCellClass customObj "NewTestStyle" 4)
    (vla-SetRotation customObj "NewTestStyle" 8.4)
      
    (alert (strcat "The cell class is " (itoa (vla-GetCellClass customObj "NewTestStyle"))
                   " and the cell rotation is " (rtos (vla-GetRotation customObj "NewTestStyle") 2) "."
           )
    )
)