[求助]识别图幅大小

雪山飞狐_lzh

1.        DataType(0) = 1001: Data(0) = "TLSCAD"
2.        DataType(1) = 1000: Data(1) = "BTL"
3.        DataType(2) = 1000: Data(2) = "A4"
4.        DataType(3) = 1000: Data(3) = "210"
5.        DataType(4) = 1000: Data(4) = "297"
6.        Set bobj = ThisDrawing.ModelSpace.InsertBlock(pnt, "BTL.dwg", 1, 1, 1, 0)
7.        bobj .SetXData DataType, Data

复制代码