Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swCnf             		As SldWorks.Configuration

    Dim vConfParam              As Variant

    Dim vConfValue              As Variant

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swCnf  = swModel.GetActiveConfiguration()

    swCnf.GetParameters(vConfParam, vConfValue)

End Sub

Configuration.GetParameters ( params, values)

Output:
 (VARIANT) params
 Array of the names of the parameters
 
Output:
 (VARIANT) values
 Array of the values of the parameters
 

	LOCAL m.lcCfgName

	m.lcValue = ''
	m.lcParams =''

	swApp = CreateObject("SldWorks.Application")
	swModel = swApp.ActiveDoc
	swCfgMng = swModel.ConfigurationManager()
	swCfg = swModel.GetActiveConfiguration()
	swCfg.GetParameters(@m.lcParams, @m.lcValue)

LOCAL ARRAY m.lcParams( 1 ) AS String, ;  
  		m.lcValue( 1 ) AS String  
    
  	swApp = CreateObject("SldWorks.Application")  
  	= COMARRAY(swApp,  10 )  
  	swModel = swApp.ActiveDoc  
  	swCfg = swModel.GetActiveConfiguration()  
    
  	swCfg.GetParameters(@m.lcParams, @m.lcValue)

Variant представляет собой специальный тип данных, который может содержать любой вид данных, за исключением строковых данных фиксированной длины. Тип данных Variant может быть иметь специальные значения Empty, Error и NULL. Этот тип данных используется внешними клиентами приложений Visual FoxPro, так как Visual FoxPro не является языком со строгой типизацией данных.

	

DIMENSION laParams( 2000 ) AS Variant, laValues( 2000 ) AS Variant

	FOR m.lnI =  1  TO  2000 
		laParams(m.lnI) = NULL
		laValues(m.lnI) = NULL
	ENDFOR

	swApp = CreateObject("SldWorks.Application")
	COMARRAY(swApp, 11 )
	swModel = swApp.ActiveDoc
	swCfg = swModel.GetActiveConfiguration()
	swCfg.GetParameters(@laParams, @laValues)

COMARRAY(@swApp, 11 )