![](source/plugin/imc_colorcode/images/loading.gif) - (defun abc ()
- (setq $HRSType $key)
- (WriteREGvalue "HRSECTION" "SelectedTYPE" $key)
- (HRS_READ_DATA)
- (HRS_FILL_Size_LIST)
- (HRS_FILL_DES_LIST)
- )
- (foreach a '("HR_H" "HR_I" "HR_QI" "HR_[" "HR_Q[" "HR_EQANG" "HR_UEQANG" "H" "HR_T" "HR_P" "HR_TUB")
- (action_tile a (abc))
- )
|