Use an Existing Power Cal During an SMC Cal

This example shows how to use an existing Source Power Cal instead of the power cal that is performed during an SMC calibration. To run this program without modification, you need the following:

Error Messages

See Also

Sens:Corr:Coll:Guid:SMC commands


This VBScript (*.vbs) program can be run as a macro in the PNA. To do this, copy the following code into a text editor file such as Notepad and save on the PNA hard drive as SMC.vbs. Learn how to setup and run the macro.

Dim app

Dim scpi

' Create / Get the PNA application.

Set app = CreateObject("AgilentPNA835x.Application")

Set scpi = app.ScpiStringParser

'---Create a Scalar Mixer Forward Measurement

'First, delete all measurements on the channel

scpi.Parse "CALC:PAR:DEL:ALL"

'Create a forward scalar mixer measurement and configure it in

'channel 1.  The first parameter is a unique

'identifying string (specified by the user) to allow subsequent

'commands to be directed at this specific measurement.

scpi.Parse "CALC:CUST:DEF 'My SC21', 'Scalar Mixer/Converter', 'SC21'"

'Setup the new measurement as the 2nd trace in the active window

scpi.Parse "DISP:WIND:TRAC2:FEED 'My SC21'"

'Make the new trace the active measurement

scpi.Parse "CALC:PAR:SEL 'My SC21'"

'The parameters of the mixer measurement can now be configured.

'This can be done by either using the individual SENS:MIX commands

'for each of the parameters or by loading a mixer setup file.  This

'example loads a mixer setup file. The path name

'for the mixer file may be loaded from other mapped drives

scpi.Parse "SENS:MIXer:Load ""C:/Program Files/Keysight/Network Analyzer/Documents/Mixer/MyMixer.mxr"""


'--------------Perform A Scalar Mixer Calibration----------------------

'Specify the connector types and the cal kits for each of the ports.

scpi.Parse "SENS:CORR:COLL:GUID:CONN:PORT1:SEL ""APC 3.5 male"""

scpi.Parse "SENS:CORR:COLL:GUID:CONN:PORT2:SEL ""APC 3.5 female"""

scpi.Parse "SENS:CORR:COLL:GUID:CKIT:PORT1:SEL ""N4691-60004 ECal"""

scpi.Parse "SENS:CORR:COLL:GUID:CKIT:PORT2:SEL ""N4691-60004 ECal"""

'Import power cal data from the existing SMC calset "MySMC"


'Specify the thru measurement method.  This applies to both ECal

'and mechanical calibrations.

'Always send the init command before the Thru method command



'Omit the isolation part of the 2-port cal (default behavior).


'Turn on auto orientation for the ECal (default behavior).


'Initialize an SMC guided calibration.


'Tell the wizard to generate and report the number of steps in this cal.

Dim steps

Dim desc

'Determine the number of steps required to complete the calibration.

steps = scpi.Parse ("SENS:CORR:COLL:GUID:STEP?")

  For i = 1 To steps

  'Display the prompt for each step

  desc = scpi.Parse ("SENS:CORR:COLL:GUID:DESC? " & CStr(i))

  MsgBox (desc)

  'Perform the measurement for each step

  scpi.Parse "SENS:CORR:COLL:GUID:ACQ STAN" & CStr(i)


Dim calset

'Finish the cal and save the calset

calset = scpi.Parse ("SENS:CORR:COLL:GUID:SAVE OFF")

Msgbox ("SMC cal saved to cal register")

Last Modified:


Added INIT before TMET


Added import command