pldpart.bas

来自「ORCAD 绿色版」· BAS 代码 · 共 51 行

'*******************************************************************
' PLDPART.BAS Version 8/22/97
' OrCAD Express Version 7.10
'
' This macro will let you assign OrCAD part/symbol properties to
' parts in the Express schematic editor.  Select the part and then
' run the macro to add the properties for OrCAD Express PAL/GAL/PROM fitter.
'
'*******************************************************************
SUB OrCADPLDPartProps1
	'MACROMENU Set OrCAD PLD Part Properties
	'MACROKEY Ctrl+F1
	'MACRODESCRIPTION Set OrCAD Part Properties

Begin Dialog OrCADPLDPartProps1Dlg 16, 10, 275, 64, "Set OrCAD Part Properties"

	Text 8, 8, 56, 8, "CVALUE"
	TextBox 70, 8, 144, 12, .CVALUE

	Text 8, 24, 56, 8, "&SVALUE"
	TextBox 70, 24, 144, 12, .SVALUE

	OKButton 224, 8, 40, 14
	CancelButton 224, 28, 40, 14

End Dialog

'************************************
' Show the dialog
'************************************
Dim OrCADdlg1 As OrCADPLDPartProps1Dlg
Status = Dialog(OrCADdlg1)

'************************************
' User hit OK ---> set properties
'************************************
IF Status = -1 THEN
	IF Len(OrCADdlg1.CVALUE) > 0 THEN
		SetProperty "GENERIC=CVALUE", OrCADdlg1.CVALUE
		DisplayProperty "GENERIC=CVALUE", "", 0, FALSE, FALSE, 48, 0
	END IF

	IF Len(OrCADdlg1.SVALUE) > 0 THEN
		SetProperty "GENERIC=SVALUE", OrCADdlg1.SVALUE
		DisplayProperty "GENERIC=SVALUE", "", 0, FALSE, FALSE, 48, 0
	END IF

END IF

END SUB