雪山飞狐_lzh 发表于 2004-5-17 11:10:00

       DataType(0) = 1001: Data(0) = "TLSCAD"
       DataType(1) = 1000: Data(1) = "BTL"
       DataType(2) = 1000: Data(2) = "A4"
       DataType(3) = 1000: Data(3) = "210"
       DataType(4) = 1000: Data(4) = "297"
       Set bobj = ThisDrawing.ModelSpace.InsertBlock(pnt, "BTL.dwg", 1, 1, 1, 0)
       bobj .SetXData DataType, Data
页: 1 [2]
查看完整版本: [求助]识别图幅大小