|
Hello List, I am hoping someone can help with this problem I cannot
figure out. I am trying to create a chart through mapbasic. This
chart is being created by using a new table and mapper and adding various text,
line and region objects to the table that are then mapped in the mapper
window. However, when I go to add various lines or texts, the code seems
to execute but nothing shows up on my screen. I do get a square box which
will be the extent of the graph, but any other lines or text I add do not
appear to show up. At this point I am not adding any data to the graph,
but just setting up the appearance of the graph or basically the graph
template. Can someone please point me in the right direction? Please
see code below: Create Table GRAPHPYR (Element
Char(10)) File
szTEMPDir + "GRAPHPYR" Create
Map For
GRAPHPYR Coordsys
NonEarth Units
"cm" Bounds
(-2,-2) (12, 8) Map
>From GRAPHPYR Position
(0,0) Width 1.45 Height 0.775 nWindowIDPYR
= WindowID(0) Set
Window nWindowIDPYR Title
"Pyropes" Scrollbars Off AutoScroll Off SysMenuClose Off Set
Map Window nWindowIDPYR CoordSys
Table GRAPHPYR Distance
Units "cm" XY
Units "cm" Layer
GRAPHPYR editable
on selectable
off Create
Region Into Variable ObjRegion 1
4
(0,0) (10,0) (10,16) (0,16) Brush
(01,black,white) Insert
Into GRAPHPYR (Object) Values (ObjRegion) Create
Region into Variable PYRG10Region 1 4
(0,16) (7.7,16) (3.85,2) (0,2) Brush
(16,black) Insert
Into GRAPHPYR (Object) Values (PYRG10Region) Create
Line Into Variable ObjLine (0,4)
(10,4) Insert
Into GRAPHPYR (Object) Values (ObjLine) Create
Line Into Variable ObjLine (0,2)
(10,2) Insert
Into GRAPHPYR (Object) Values (ObjLine) Create
Line Into Variable ObjLine (3.3,0)
(7.7,16) Insert
Into GRAPHPYR (Object) Values (ObjLine) Create
Line Into Variable ObjLine (3.1,4)
(6.4,16) Insert
Into GRAPHPYR (Object) Values (ObjLine) For
i = 0 to 10 Create
Line Into Variable ObjLine (i,0)
(i,.25) Insert
Into GRAPHPYR (object) Values (ObjLine) Create
Text Into Variable ObjText Str$(i)
((i-.05),-.7) ((i+0.45),-0.2) Font
("arial",1,8,black) Insert
Into GRAPHPYR (object) Values (ObjText) Next For
i = 1 to 16 Create
Line Into Variable ObjLine (0,i)
(0.1,i) Insert
Into GRAPHPYR (object) Values (ObjLine) Create
Text Into Variable ObjText Str$(i)
((-0.2),i-0.25) (-0.1,(i+0.25)) Font
("arial",1,8,black) Insert
Into GRAPHPYR (object) Values (ObjText) Next Create
Text Into Variable ObjText "CaO"
(4.70,-1.7) (7.70,-0.9) Font
("arial",1,14,black) Insert
Into GRAPHPYR (object) Values (ObjText) Create
Text Into Variable ObjText "Cr2O3"
(-0.6,7) (1.4,7.8) Font
("arial",1,14,black) Angle
90 Insert
Into GRAPHPYR (object) Values (ObjText) Create
Text Into Variable ObjText "G10"
(0.5,15) (1.5,15.8) Font
("arial",1,14,black) Insert
Into GRAPHPYR (object) Values (ObjText) Create
Text Into Variable ObjText "G9"
(9,15) (10,15.8) Font
("arial",1,14,black) Insert
Into GRAPHPYR (object) Values (ObjText) Thanks in advance for any input and help. Regards, Mike Mayer GIS Technician Strongbow Exploration Inc. (604)668-8370
|
_______________________________________________ MapInfo-L mailing list [email protected] http://www.directionsmag.com/mailman/listinfo/mapinfo-l
