moldbase.lsp

plc设计编程软件

;****************************************;
;*this is MoldBase.lsp program		*;
;*completely complied in 03/30/99	*;
;*last changed in 04/01/99		*;
;*ZX Mold Ltd   XY.Liao			*;
;****************************************;
;*******************************************************************************************************;



(defun MoldSys(/ IfExitMoldSys	MoldSysNext MoldSysLstItem)

;---------------------------------------------
;Shut off command echo and setq Undo Mark
;---------------------------------------------
  (setvar "cmdecho" 0)
  (command "undo" "m")
;---------------------------------------------
;Initializing layer
;---------------------------------------------
  (load "ini_lay")
  (IniLayer)
  (IniStyle)
  (IniDimStyle)
;---------------------------------------------
;Save old system variable
;---------------------------------------------
  (setq os_old (getvar "osmode")
	la_old (getvar "clayer")
	co_old (getvar "cecolor")
	lt_old (getvar "celtype")
	pw_old (getvar "plinewid")
        st_old (getvar "textstyle")
  )
;--------------------------------------------
;defun Mold Base system library
;--------------------------------------------
  (setq MoldSysLib '("1. Side Gate System" "2. Three Plate Type System" "3. Pin Point Gate System"))
;--------------------------------------------
;Initialize MoldSysNum as "SG"
;--------------------------------------------
  (setq IfExitMoldSys T)
  (setq MoldSysLstItem "0")
;--------------------------------------------
;Start dialog
;--------------------------------------------
  (setq MoldDclId (load_dialog "MoldBase.dcl"))
  (while (= IfExitMoldSys T)
    (if (not (new_dialog "mold1" MoldDclId))
      (exit)
    )
    (ini_list "MoldSysLst" MoldSysLib)
    (if MoldSysLstItem
      (progn
        (set_tile "MoldSysLst" MoldSysLstItem)
        (msLst_Click)
      )      
    ) 
    (action_tile "MoldSysLst" "(msLst_Click)")



;*************************************************
    (setq MoldSysNext (start_dialog))
    (cond
      ((= 1 MoldSysNext)
      ;-------------------------------------
      ;select "Next"
      ;-------------------------------------
        (cond
          ((= "0" MoldSysLstItem)
            (setq MoldSysNum "SG")
            (MoldTypeSG)
          ) 
          ((= "1" MoldSysLstItem)
            (setq MoldSysNum "TP")
            (MoldTypeTP)
          ) 
          ((= "2" MoldSysLstItem)
            (setq MoldSysNum "PP")
            (MoldTypePP)
          )
        )
      )
      ((= 0 MoldSysNext)
      ;-------------------------------------
      ;select "Exit"
      ;-------------------------------------
        (setq IfExitMoldSys nil)
      )
    )
  )
  (unload_dialog MoldDclId)
(ac_lxy_set)
  (prin1)
)

;-------------------------------------------
;Do action when click on Mold system List
;-------------------------------------------
(defun msLst_Click()
  ;----------------------------------------------
  ;Defun local function
  ;----------------------------------------------
  (defun ShowImage(ImageName)
    (start_image "MoldSysView")
    (fill_image 0 0 (dimx_tile "MoldSysView") (dimy_tile "MoldSysView") 0)
    (slide_image 0 0 (dimx_tile "MoldSysView") (dimy_tile "MoldSysView") (strcat "MoldBase(" ImageName ")"))
    (end_image)
  )
  ;-------------------------------------------
  (setq MoldSysLstItem (get_tile "MoldSysLst"))
  (cond 
    ((= "0" MoldSysLstItem)
      (ShowImage "SideGate")
    )
    ((= "1" MoldSysLstItem)
      (ShowImage "3thPlate")
    )
    ((= "2" MoldSysLstItem)
      (ShowImage "PinPoint")
    )
  )
)

;********************************************************************************************************
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;Get Side Gate System Mold Base Type Function
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
(defun MoldTypeSG( / LastView		CurView 	IfExitMoldType		ImageLst)

;--------------------------------------------------------
;Initialize Image list and set MoldTypeNum as "AI" first 
;--------------------------------------------------------
  (setq ImageLst '("AIV" "AHV" "ATV" "BIV" "BHV" "BTV" "CIV" "CHV" "CTV" "DIV" "DHV" "DTV"))
  (setq CurView 1)
;-------------------------------------
;Start dialog
;-------------------------------------
  (setq IfExitMoldType T)
  (while IfExitMoldType
    (if (not (new_dialog "mold21" MoldDclId))
      (exit)
    )
    (IniImage)
    (setq LastView nil)
    (Click CurView)
    (action_tile "AI" "(setq CurView 1) (Click CurView)")
    (action_tile "AH" "(setq CurView 2) (Click CurView)")
    (action_tile "AT" "(setq CurView 3) (Click CurView)")
    (action_tile "BI" "(setq CurView 4) (Click CurView)")
    (action_tile "BH" "(setq CurView 5) (Click CurView)")
    (action_tile "BT" "(setq CurView 6) (Click CurView)")
    (action_tile "CI" "(setq CurView 7) (Click CurView)")
    (action_tile "CH" "(setq CurView 8) (Click CurView)")
    (action_tile "CT" "(setq CurView 9) (Click CurView)")
    (action_tile "DI" "(setq CurView 10) (Click CurView)")
    (action_tile "DH" "(setq CurView 11) (Click CurView)")
    (action_tile "DT" "(setq CurView 12) (Click CurView)")
    (action_tile "back21" "(done_dialog 2)")
    (setq MoldTypeNext (start_dialog))
    (cond 
      ((= 0 MoldTypeNext)
      ;-------------------------------------------
      ;Select "Exit" and exit Program
      ;----------------------------- -------------
	(setq IfExitMoldType nil)
	(setq IfExitMoldSys nil)
      )
      ((= 1 MoldTypeNext)
      ;-------------------------------------------
      ;Select "Next" and call "MoldSpec" Function
      ;-------------------------------------------
	(MoldSpec)
      )
      ((= 2 MoldTypeNext)
      ;-------------------------------------------
      ;Select "Back" and go back "MoldSys" Function
      ;-------------------------------------------
	(setq IfExitMoldType nil)
      )
    )
  )
)

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;Get Three Plate Type System Mold Base Type Function
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
(defun MoldTypeTP( / LastView		CurView 	IfExitMoldType		ImageLst)
;----------------------------------------------------------
;Initialize Image list and set "MoldTypeNum" as "FAI" first
;----------------------------------------------------------
  (setq ImageLst '("FAIV" "FCIV" "GAIV" "GCIV" "FAHV" "FCHV" "GAHV" "GCHV"))
  (setq CurView 1)
;----------------------------
;Start dialog
;----------------------------
  (setq IfExitMoldType T)
  (while IfExitMoldType
    (if (not (new_dialog "mold22" MoldDclId))
      (exit)
    )
    (IniImage)
    (setq LastView nil)
    (Click CurView)
    (action_tile "FAI" "(setq CurView 1) (Click CurView)")
    (action_tile "FCI" "(setq CurView 2) (Click CurView)")
    (action_tile "GAI" "(setq CurView 3) (Click CurView)")
    (action_tile "GCI" "(setq CurView 4) (Click CurView)")
    (action_tile "FAH" "(setq CurView 5) (Click CurView)")
    (action_tile "FCH" "(setq CurView 6) (Click CurView)")
    (action_tile "GAH" "(setq CurView 7) (Click CurView)")
    (action_tile "GCH" "(setq CurView 8) (Click CurView)")
    (action_tile "back21" "(done_dialog 2)")
    (setq MoldTypeNext (start_dialog))
    (cond 
      ((= 0 MoldTypeNext)
      ;--------------------------------------------
      ;Select "Exit" and exit program
      ;--------------------------------------------
	(setq IfExitMoldType nil)
	(setq IfExitMoldSys nil)
      )
      ((= 1 MoldTypeNext)
      ;--------------------------------------------
      ;Select "Next" and Call "MoldSpec" function
      ;--------------------------------------------
	(MoldSpec)
      )
      ((= 2 MoldTypeNext)
      ;-----------------------------------------------
      ;Select "Back" and go back to "MoldSys" function
      ;-----------------------------------------------
	(setq IfExitMoldType nil)
      )
    )
  )
)

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;Get Pin Point Gate System Mold Base Type Function
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
(defun MoldTypePP( / LastView		CurView 	IfExitMoldType		ImageLst)
;----------------------------------------------------------
;Initialize Image list and set "MoldTypeNum" as "FAI" first
;----------------------------------------------------------
  (setq ImageLst '("DAIV" "DBIV" "DCIV" "DDIV" "EAIV" "EBIV" "ECIV" "EDIV"))
  (setq CurView 1)
;-----------------------------------
;Start dialog
;-----------------------------------
  (setq IfExitMoldType T)
  (while IfExitMoldType
    (if (not (new_dialog "mold23" MoldDclId))
      (exit)
    )
    (IniImage)
    (setq LastView nil)
    (Click CurView)
    (action_tile "DAI" "(setq CurView 1) (Click CurView)")
    (action_tile "DBI" "(setq CurView 2) (Click CurView)")
    (action_tile "DCI" "(setq CurView 3) (Click CurView)")
    (action_tile "DDI" "(setq CurView 4) (Click CurView)")
    (action_tile "EAI" "(setq CurView 5) (Click CurView)")
    (action_tile "EBI" "(setq CurView 6) (Click CurView)")
    (action_tile "ECI" "(setq CurView 7) (Click CurView)")
    (action_tile "EDI" "(setq CurView 8) (Click CurView)")
    (action_tile "back21" "(done_dialog 2)")
    (setq MoldTypeNext (start_dialog))
    (cond 
      ((= 0 MoldTypeNext)
	(setq IfExitMoldType nil)
	(setq IfExitMoldSys nil)
      )
      ((= 1 MoldTypeNext)
	(MoldSpec)
      )
      ((= 2 MoldTypeNext)
	(setq IfExitMoldType nil)
      )
    )
  )
)

(defun IniImage()
  (foreach Image ImageLst
    (progn
      (start_image Image)
      (slide_image 0 0 (dimx_tile Image) (dimy_tile Image) (strcat "MoldBase(" Image ")"))
      (end_image)
    )
  )
)

(defun Click(ViewNumber / ViewTemp)
  ;--------------------------------
  ;Defun Local Function
  ;--------------------------------
  (defun ImageHighLight(Image)
    (if (/= LastView Image)
      (progn 
        (mode_tile Image 4)
        (if LastView
          (mode_tile LastView 4)
        )
        (setq LastView Image)
      )
    )
  )
  ;--------------------------------
  (setq ViewTemp (nth (- CurView 1) ImageLst))
  (setq MoldTypeNum (substr ViewTemp 1 (- (strlen ViewTemp) 1)))
  (ImageHighLight ViewTemp)
)
;********************************************************************************************************;

(defun MoldSpec(/ IfExitMoldSpec MoldSpecNext /*MoldSpecNum*/);	aPThk	bPThk	sbPThk	tpZ	tpX	tpY
			;sbX	sbY	sbZ	cpX	cpY	scr1X	scr1Y	scr1Num	scr1D	scr2X	scr2Y
			;scr2Num	scr2D	scr3X	scr3Y	scr3Y2	scr2Num	scr2D	gpnX	gpnY	gpnNum	gpnD
			;rpnX	rpnY	rpnNum	rpnD	bpZ	stZ	spZ	rpZ	erpZ	epZ	bpZ
			;epX	epY	TapHaD	TapHaI	TapHaL	TapHbD	TapHbI	TapHbL	tpZ	IfRpnNew
			;IfAddSpg	mb	SpgHolDep)
  (setq IfExitMoldSpec T)
  (while IfExitMoldSpec
    (if (not (new_dialog "mold3" MoldDclId))
      (exit)
    )
    (mode_tile "SpecSel" 2)
    (IniMoldSpec)
    (action_tile "SpecSel"    "(MoldSpecSel MoldSysNum)")
    (action_tile "aPlateSel"  "(PlateThkSel 1)")
    (action_tile "bPlateSel"  "(PlateThkSel 2)")
    (action_tile "sbPlateSel" "(PlateThkSel 3)")
    (action_tile "SpecValue"  "(setq SpecValidNum $reason) (SpecVerify)")
    (action_tile "aPlateThk"  "(setq aPTValidNum $reason)  (PTVerify 1)")
    (action_tile "bPlateThk"  "(setq bPTValidNum $reason)  (PTVerify 2)")
    (action_tile "sbPlateThk" "(setq sbPTValidNum $reason) (PTVerify 3)")
    (action_tile "option"     "(ResetRpn)")
    (action_tile "back32"     "(done_dialog 2)")
    (setq MoldSpecNext (start_dialog))
    (cond 
      ((= 0 MoldSpecNext)
        (setq IfExitMoldSpec nil)
        (setq IfExitMoldType nil)
        (setq IfExitMoldSys nil)
      )
      ((= 1 MoldSpecNext)
        (if (and MoldSpecNum aPThk bPThk sbPThk)
	  (progn
	    (setTapHoldSpec)
            (MoldPosition)
          )
        )
      )
      ((= 2 MoldSpecNext)
        (setq IfExitMoldSpec nil)
      )
    )
  )
)