Hi David,
To make this more flexible would require the use of Run Command.
Here is a (not complete?) example that shown you have to do it:
********************************
Dim szCmdStr, szTab, szCol As String,
i As Integer
szTab = SelectionInfo(SEL_INFO_TABLENAME)
szCmdStr = "Objects Combine Data "
For i = 1 To NumCols(szTab)
szCol = ColumnInfo(szTab, "COL" & i, COL_INFO_NAME)
If i = 1 Then
szCmdStr = szCmdStr & szCol & " = " & szCol
Else
szCmdStr = szCmdStr & ", " & szCol & " = " & szCol
End if
Next
Print szCmdStr
Run Command szCmdStr
********************************
Merry Christmas
Peter Horsb�ll M�ller
GIS Developer
Geographical Information & IT
COWI A/S
Odensevej 95
DK-5260 Odense S.
Denmark
Tel +45 6311 4900
Direct +45 6311 4908
Mob +45 5156 1045
Fax +45 6311 4949
E-mail [EMAIL PROTECTED]
http://www.cowi.dk/gis
-----Original Message-----
From: David Reid [mailto:[EMAIL PROTECTED]
Sent: Friday, December 24, 2004 2:46 AM
To: [email protected]
Subject: MI-L Combine objects programmatically
Greetings List,
I have an mbx that I use to combine all selected pline objects of a = street
layer. This is a simple combine using plain values (ie no sum() or other fancy
aggregates).
Objects Combine Data STREET=3DSTREET,FROMLEFT=3DFROMLEFT---etc etc
How can I make this more universal, that is, combine all selected = objects
irregardless of how many columns the table has? So I can use the mbx on = more
than one table.
Thanks,
David Reid
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.818 / Virus Database: 556 - Release Date: 12/17/2004
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com | To
unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 14697
