有病多吃饭 发表于 2015-11-16 15:08:00

求助,AddTable出现问题

Sub Test()
    Dim MyModelSpace As IAcadModelSpace
    Set MyModelSpace = ThisDrawing.ModelSpace
    Dim pt(0 To 2) As Double
    Dim MyTable As AcadTable
    Set MyTable = MyModelSpace.AddTable(pt, 12, 1, 804, 2431)
    MyTable.SetRowHeight(7, 2412) ‘这行编译的时候语法错误
End Sub
为什么呢,SetRowHeight,的提示就是(row as long, height as double)

有病多吃饭 发表于 2015-11-16 18:41:00

MyTable.SetRowHeight row:=6, Height:=1608
自问自答了,逛别的论坛看到的,小菜鸟,没见过这样赋值的语句

zzyong00 发表于 2015-11-17 22:00:00


和那没关系,改成这样:MyTable.SetRowHeight 7, 2412 '即去括号
你没明白vb中函数(function)和过程(sub)或方法(method)的区别
页: [1]
查看完整版本: 求助,AddTable出现问题