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

求助，AddTable出现问题

本帖最后由 有病多吃饭 于 2015-11-16 16:30 编辑

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:15

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

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

有病多吃饭 发表于 2015-11-16 18:41 static/image/common/back.gif
MyTable.SetRowHeight row:=6, Height:=1608
自问自答了，逛别的论坛看到的，小菜鸟，没见过这样赋值的语句 ...

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