MB: Text invoeren en opslaan in tabel

[DenCop (NL)]

Ik wil graag text objecten invoeren en opslaan in een tabel. Nu is dit
niet zo heel erg moeilijk alleen wel wanneer ik de kolommen ook wil
vullen met een ID, de tekstinhoud en X/Y

Ik heb wel DM_Custom gevonden maar dit gaat niet op voor text.

Ideeen?

Toolbutton
ID 4004
Helpmsg "Tekst plaatsen \n Tekst plaatsen"
Calling M_TOOLS_TEXT
Icon 24

mvg dennis

[InterRob]

Ik geloof niet dat je vraag wordt begrepen; kun je je vraag iets
duidelijker stellen? Misschien met een voorbeeld?


Rob

[InterRob]

Ik begrijp je vraag niet; je maakt gebruik van een Dialog? Misschien
kun je je vraag nader toelichten?

Rob

On 16 jun, 11:30, "DenCop (NL)" <den...@gmail.com> wrote:

[taatuut]

Hoi Dennis,

Als je een Textobjecten TAB bestand maakt, heeft dit initieel maar één
kolom.

Je moet dan eerst via Table/Maintenance/Table Structure extra kolommen
toevoegen, bijv. 'label', 'x' en 'y'.

Vervolgens kun je deze kolommen vullen met 1) de label gegevens en 2)
de coordinaten.

Om dit proces makkelijker te maken kun gebruik maken van een tweetal
tools:

1) de label gegevens
Gebruik de MapCad - Text in Table tool

2) de coordinaten
Gebruik de Coordinate Extractor Tool, te vinden onder Tools menu
(indien niet aanwezig, laden met Tool Manager).

Groeten,

Emil

[DenCop (NL)]

Weer hallo,

Ik zal mijn vraag wat duidelijker stellen.

Ik ben bezig met een programma in MapBasic.

Hierin kan ik objecten plaatsen op de kaarten en deze objecten ook
draaien naar wens (pijlen enzo). Ook kan ik lijnen tekenen en hier
extra informatie aan toekennen.

Om een lijn in te voeren doe ik het volgende

Toolbutton
ID 4001
Helpmsg "Plaatsen van lijn"
DrawMode DM_CUSTOM_POLYLINE
Calling Add_Manual_Line
Icon 8009 File "Button.dll"

In de Sub die ik aanroep doe ik dan het volgende

Sub Add_Manual_Line
oLine = CommandInfo(CMD_INFO_CUSTOM_OBJ)
Insert Into tblLine (D_ID, Soort, Omschrijving, OBJ) Values (iD_ID,
sSoort_Line, sOmschrijving_Line, oLine)
End Sub

Ik schrijf hiermee en het object weg + extra informatie.

Nu zou ik dit dus ook graag willen voor Tekst.

Tekst schrijven
object opvangen
importeren in de juiste tabel met extra info

DM_CUSTOM_TEXT bestaat helaas niet

mvg

Dennis

[DenCop (NL)]

Ik heb het maar opgelost door de opslaan knop te gebruiken om de
ontbrekende gegevens toe te voegen.

Select * from tblLabels where ID = 0 into tmp_tblLabels
Update tmp_tblLabels Set ID = nummer
Update tmp_tblLabels Set Tekst = Objectinfo(obj,3)
Update tmp_tblLabels Set Xbegin = CentroidX(obj)
Update tmp_tblLabels Set Ybegin = CentroidY(obj)
Close table tmp_tblLabels

mvg

Dennis