Jeff's Notes

procedure(formFieldDynamic()
let( (fieldHeight addField fieldBase)
	fieldHeight = 20
	addField = list(
		hiCreateButton(
			?name 'addField 
			?buttonText "ADD ITEM" 
			?callback "formFieldDynamic_add()" 
		)
		0:0 500:fieldHeight)
	fieldBase = list(
		hiCreateScrollRegion(
			?name 'fieldBase
			?scrollBars 'dynamic
		)
		0:50 500:100)

	hiCreateAppForm(
		?name 'formTest
		?formTitle "fomrTest"
		?fields list(
			addField
			fieldBase
		)
		?formType 'nonoptions
		?buttonLayout 'OKCancel
	) ; hiCreateAppForm

	formTest->idx = 1
	formTest->fieldHeight = fieldHeight
	hiDisplayForm(formTest)
)
)

procedure(formFieldDynamic_add()
let( (fieldHeight yLoc newField)
	fieldHeight = formTest->fieldHeight
	yLoc = length(formTest->fieldBase->fieldList) / 2 * fieldHeight
			
	newField = list(
		list(
			hiCreateButton(
				?name concat("field" formTest->idx)
				?buttonText sprintf(nil "field %d" formTest->idx)
				?callback sprintf(nil "printf(\"field%d clicked\n\")" formTest->idx) 
			)
			0:yLoc 200:fieldHeight)
		list(
			hiCreateButton(
				?name concat("delete" formTest->idx)
				?buttonText sprintf(nil "Delete %d" formTest->idx)
				?callback sprintf(nil "formFieldDynamic_delete(hiGetCurrentForm() %d)" formTest->idx)
			)
			220:yLoc 100:fieldHeight)
	)
	
	formTest->idx = formTest->idx + 1
	hiAddFields(formTest->fieldBase newField)
)
)

procedure(formFieldDynamic_delete(theForm idx)
let( ()
	hiDeleteFields(theForm->fieldBase list(concat("field" idx) concat("delete" idx)))
	
	formFieldDynamic_repositionFields(theForm->fieldBase)
)
)

procedure(formFieldDynamic_repositionFields(field @optional (fieldHeight 20))
let( (i idx maxIdx)
	i = 0
	idx = 0
	maxIdx = length(field->fieldList) - 1
	while(i <= maxIdx
		hiMoveField(field nth(i field->fieldList) 0:fieldHeight*idx)
		hiMoveField(field nth(i+1 field->fieldList) 220:fieldHeight*idx)
		idx++
		i = i + 2
	)
)
)

hiGetViewBBox()

윈도우에서 보여지는 영역의 좌표를 알고 싶은 경우 사용 할 수 있는 함수

dbGetAnyInstSwitchMaster()

instance의 master cell에 존재하는 view의 cellview을 얻을 때 유용하다. 쉽게 schematic에서 instance를 선택해서 schematic view의 cellview를 받아 올 때 유용.

schCV = dbGetAnyInstSwitchMaster(d_inst "schematic")

dbOpenCellViewByType() 함수를 사용 하는 것보다 수행시간이 더 빠름.

time = measureTime(
	d_inst = car(geGetSelSet())
	for(i 1 100000
		; Elapsed time : 2.356523 sec
		schCV = dbOpenCellViewByType(d_inst~>libName d_inst~>cellName d_inst~>viewName "" "r")
		
		; Elapsed time : 0.47401 sec
		;schCV = dbGetAnyInstSwitchMaster(d_inst "schematic")
	)
)

printf("Elapsed time : %L sec\n" nth(2 time))