mapinfo源程序(要者快下)

w804166940 · 发表于 2018-2-2 13:03

SUB DTJM
P$="R0300179" R=1
   FOR I=0 TO 8  STEP 4
   FOR J=0 TO 8 STEP 4
      P$="界面"+STR$(R)
      Open Table P$
      Map From P$
      PositIon (J,I) Units "in"
      Height 3 Units "in"    '窗口高度16最大
      Width 4 Units  "in"    ' 宽度12
      R=R+1 IF R>10 THEN R=1 END IF
   NEXT NEXT
END SUB

w804166940 · 发表于 2018-2-2 13:04

SUB DTJM P$="R0300179" R=1 FOR I=0 TO 8 STEP 4 FOR J=0 TO 8 STEP 4 P$="界面"+STR$(R) Open Table P$ Map From P$ PositIon (J,I) Units "in" Height 3 Units "in" '窗口高度16最大 Width 4 Units "in" ' 宽度12 R=R+1 IF R>10 THEN R=1 END IF NEXT NEXT END SUB