Perhaps this code fragment can help:
fetch first from sLayer
Do While Not EOT(sLayer)
aObj = sLayer + ".obj"
oObj = aObj
print "Objekt " & str$(i)
do case ObjectInfo(oObj ,OBJ_INFO_TYPE)
case OBJ_TYPE_LINE
p1x = objectgeography (oObj , OBJ_GEO_LINEBEGX) p1y =
objectgeography (oObj, OBJ_GEO_LINEBEGY)
p2x = objectgeography (oObj , OBJ_GEO_LINEENDX) p2y =
objectgeography (oObj, OBJ_GEO_LINEENDY)
case OBJ_TYPE_PLINE, OBJ_TYPE_REGION
xyEndsOfPline = TRUE
p1x = ObjectNodeX (oObj, 1, ObjectInfo(oObj, OBJ_INFO_NPNTS))
p1y = ObjectNodeY (oObj, 1, ObjectInfo(oObj, OBJ_INFO_NPNTS))
p2x = ObjectNodeX (oObj, 1, 1)
p2y = ObjectNodeY (oObj, 1, 1)
case OBJ_TYPE_POINT, OBJ_TYPE_ARC, OBJ_TYPE_ELLIPSE,
OBJ_TYPE_ROUNDRECT, OBJ_TYPE_TEXT
' nothing to do
end case
Fetch Next From sLayer
Loop
--
Regards
Franz-Josef Behr
------------------------------------------------------------------------
Dr. Franz-Josef Behr Phone: ++49 / 7243 / 5641-20
GIS-Consultant Fax: ++49 / 7243 / 5641-99
Graphservice GmbH EMail:
[EMAIL PROTECTED]
Im Ermlisgrund 18 D-76337 Waldbronn
WWW: http://www.graphservice.de
Personal Home Page: http://home.pages.de/~fjbehr und
http://www.gis-news.de
begin:vcard
n:Behr;Franz-Josef
tel;cell:0179 / 50 600 35
tel;fax:+49 (0) 7243 / 56412-99
tel;work:+49 (0) 7243 / 5641-20
x-mozilla-html:FALSE
url:www.graphservice.de
org:Graphservice GmbH;Beratung
adr:;;Im Ermlisgrund 18;Waldbronn;Baden-Württemberg;76337;Deutschland
version:2.1
email;internet:[EMAIL PROTECTED]
note;quoted-printable:Beratung=0D=0AKonzeptentwicklung=0D=0AGI-Schnittstellen=0D=0ADatenmodellierung=0D=0AMapInfo / MapBasic
x-mozilla-cpt:;-16896
fn:Dr. Franz-Josef Behr
end:vcard
