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

AutoCAD 2025 开发者帮助

GetCellDataType 方法（ActiveX）

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

获取给定行和列的单元格数据和单位类型。

支持的平台：仅限 Windows

签名

VBA：

object.GetCellDataType row, col, pDataType, pUnitType

对象

类型： 表格

此方法应用到的对象。

排

访问：仅输入

类型：长

要设置的单元格的行号。

山坳

访问：仅输入

类型：长

要设置的单元格的列号。

pDataType

访问：仅输出

类型：枚举AcValueDataType

单元格数据类型。

acBuffer
acDate
acDouble
acGeneral
acLong
acObjectId
acPoint2d
acPoint3d
acResbuf
acString
acUnknownDataType

pUnitType

访问：仅输出

类型：枚举AcValueUnitType

单元格单元类型。

acUnitAngle
acUnitArea
acUnitDistance
acUnitless
acUnitVolume

返回值（RetVal）

无返回值。

言论

没有其他评论。

例子

VBA：

Sub Example_CellManipulation()
    ' This example adds a table in model space and sets and gets a column name

    Dim MyModelSpace As AcadModelSpace
    Set MyModelSpace = ThisDrawing.modelSpace
    Dim pt(2) As Double
    Dim MyTable As AcadTable
    Dim cName As String
    Set MyTable = MyModelSpace.AddTable(pt, 5, 5, 10, 30)
    
    Call MyTable.SetCellDataType(2, 2, acLong, acUnitDistance)
    Call MyTable.SetCellFormat(1, 3, "testFormat")
    Call MyTable.SetCellState(4, 3, acCellStateContentLocked)
    Call MyTable.SetCellValue(1, 4, 5)
    
    MsgBox MyTable.GetCellValue(1, 4) & " is the test cell's value "

    ZoomExtents
    
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_CellManipulation()
    ;; This example adds a table in model space and sets and gets a column name
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    (setq pt (vlax-3d-point 0 0 0))
  
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq MyTable (vla-AddTable modelSpace pt 5 5 10 30))
    
    (vla-SetCellDataType MyTable 2 2 acLong acUnitDistance)
    (vla-SetCellFormat MyTable 1 3 "testFormat")
    (vla-SetCellState MyTable 4 3 acCellStateContentLocked)
    (vla-SetCellValue MyTable 1 4 5)
    
    (alert (strcat (itoa (vlax-variant-value (vla-GetCellValue MyTable 1 4))) " is the test cell's value."))

    (vla-ZoomExtents acadObj)
)