moldbase._ls

plc设计编程软件

      )
      ((= "TP" MoldSysNum)
        (drawTPMoldView2)
      )
      ((= "PP" MoldSysNum)
        (drawPPMoldView2)
      )
    )
  )
  (if V3BasePt
    (cond
      ((= "SG" MoldSysNum)
        (drawSGMoldView3)
      )
      ((= "TP" MoldSysNum)
        (drawTPMoldView3)
      )
      ((= "PP" MoldSysNum)
        (drawPPMoldView3)
      )
    )
  )
  (if V4BasePt
    (cond
      ((= "SG" MoldSysNum)
        (drawSGMoldView4)
      )
      ((= "TP" MoldSysNum)
        (drawTPMoldView4)
      )
      ((= "PP" MoldSysNum)
        (drawPPMoldView4)
      )
    )
  )
  (princ "Done")
)

;*******************************************************************************************************;
;side Gate Mold Base System
;*******************************************************************************************************;
(defun drawSGMoldView1()
  (setq tpPT1 (polar (polar V1BasePt 0 tpX) (* pi 0.5) tpY)
	tpPT2 (polar tpPT1 pi (* tpX 2))
	tpPT3 (polar tpPT2 (* pi 1.5) (* tpY 2))
	tpPT4 (polar tpPT3 0 (* tpX 2))
  )
  (setq sbPT1 (polar (polar V1BasePt 0 sbX2) (* pi 0.5) sbY)
	sbPT2 (polar (polar V1BasePt 0 sbX1) (* pi 0.5) sbY)
        sbPT3 (polar sbPT2 (* pi 1.5) (* sbY 2))
        sbPT4 (polar sbPT1 (* pi 1.5) (* sbY 2))
	sbPT5 (polar (polar V1BasePt pi sbX1) (* pi 0.5) sbY)
	sbPT6 (polar (polar V1BasePt pi sbX2) (* pi 0.5) sbY)
        sbPT7 (polar sbPT6 (* pi 1.5) (* sbY 2))
        sbPT8 (polar sbPT5 (* pi 1.5) (* sbY 2))
  )
  (setq epPT1 (polar (polar V1BasePt 0 epX) (* pi 0.5) epY)
	epPT2 (polar epPT1 pi (* epX 2))
	epPT3 (polar epPT2 (* pi 1.5) (* epY 2))
	epPT4 (polar epPT3 0 (* epX 2))
  )
  (setq cPT1 (polar V1BasePt 0 (+ tpX 5))
	cPT2 (polar V1BasePt (* pi 0.5) (+ tpY 5))
	cPT3 (polar V1BasePt pi (+ tpX 5))
	cPT4 (polar V1BasePt (* pi 1.5) (+ tpY 5))
  )
  (setq gpnHD1 (nth (xh_get gpnD gpnHDLst) gpnHD1Lst)
	cgpnPT1 (polar (polar V1BasePt 0 gpnX) (* pi 0.5) gpnY)
	cgpnPT2 (polar cgpnPT1 pi (* gpnX 2))
	cgpnPT3 (polar cgpnPT2 (* pi 1.5) (* gpnY 2))
	cgpnPT4 (polar cgpnPT1 (* pi 1.5) (- (* gpnY 2) 2))
  )
  (cond 
    ((= 4 rpnNum)
      (setq crpnPT1 (polar (polar V1BasePt 0 rpnX) (* pi 0.5) rpnY)
	    crpnPT2 (polar crpnPT1 pi (* rpnX 2))
	    crpnPT3 (polar crpnPT2 (* pi 1.5) (* rpnY 2))
	    crpnPT4 (polar crpnPT1 (* pi 1.5) (* rpnY 2))
      )
    )
    ((= 6 rpnNum)
      (setq crpnPT1 (polar (polar V1BasePt 0 rpnX) (* pi 0.5) rpnY)
	    crpnPT2 (polar crpnPT1 pi (* rpnX 2))
	    crpnPT3 (polar crpnPT2 (* pi 1.5) (* rpnY 2))
	    crpnPT4 (polar crpnPT1 (* pi 1.5) (* rpnY 2))
	    crpnPT5 (polar V1BasePt 0 rpnX)
	    crpnPT6 (polar V1BasePt pi rpnX)
      )
    )
  )
  (cond
    ((= 4 scr1Num)
      (setq scr1PT1 (polar (polar V1BasePt 0 scr1X) (* pi 0.5) scr1Y)
	    scr1PT2 (polar scr1PT1 pi (* scr1X 2))
	    scr1PT3 (polar scr1PT2 (* pi 1.5) (* scr1Y 2))
	    scr1PT4 (polar scr1PT1 (* pi 1.5) (* scr1Y 2))
      )
    )
    ((= 6 scr1Num)
      (setq scr1PT1 (polar (polar V1BasePt 0 scr1X) (* pi 0.5) scr1Y)
	    scr1PT2 (polar scr1PT1 pi (* scr1X 2))
	    scr1PT3 (polar scr1PT2 (* pi 1.5) (* scr1Y 2))
	    scr1PT4 (polar scr1PT1 (* pi 1.5) (* scr1Y 2))
	    scr1PT5 (polar V1BasePt 0 scr1X)
	    scr1PT6 (polar V1BasePt pi scr1X)
      )
    )
  )
  (setq scr2PT1 (polar (polar V1BasePt 0 scr2X) (* pi 0.5) scr2Y)
	scr2PT2 (polar scr2PT1 pi (* scr2X 2))
	scr2PT3 (polar scr2PT2 (* pi 1.5) (* scr2Y 2))
	scr2PT4 (polar scr2PT1 (* pi 1.5) (* scr2Y 2))
  )
  (cond
    ((= 8 scr3Num)
      (setq scr3PT1 (polar (polar V1BasePt 0 scr3X) (* pi 0.5) scr3Y)
	    scr3PT2 (polar scr3PT1 pi (* scr3X 2))
	    scr3PT3 (polar scr3PT2 (* pi 1.5) (* scr3Y 2))
	    scr3PT4 (polar scr3PT1 (* pi 1.5) (* scr3Y 2))
      )
    )
    ((= 12 scr3Num)
      (setq scr3PT1 (polar (polar V1BasePt 0 scr3X) (* pi 0.5) scr3Y)
	    scr3PT2 (polar scr3PT1 pi (* scr3X 2))
	    scr3PT3 (polar scr3PT2 (* pi 1.5) (* scr3Y 2))
	    scr3PT4 (polar scr3PT1 (* pi 1.5) (* scr3Y 2))
	    scr3PT5 (polar V1BasePt 0 scr3X)
	    scr3PT6 (polar V1BasePt pi scr3X)
      )
    )
    ((= 16 scr3Num)
      (setq scr3PT1 (polar (polar V1BasePt 0 scr3X) (* pi 0.5) scr3Y)
	    scr3PT2 (polar scr3PT1 pi (* scr3X 2))
	    scr3PT3 (polar scr3PT2 (* pi 1.5) (* scr3Y 2))
	    scr3PT4 (polar scr3PT1 (* pi 1.5) (* scr3Y 2))
	    scr3PT5 (polar (polar V1BasePt 0 scr3X) (* pi 0.5) scr3Y2)
	    scr3PT6 (polar scr3PT5 pi (* scr3X 2))
	    scr3PT7 (polar scr3PT6 (* pi 1.5) (* scr3Y2 2))
	    scr3PT8 (polar scr3PT5 (* pi 1.5) (* scr3Y2 2))
      )
    )
  )
  (setq scr1D1 (nth (xh_get scr1D scrMLst) scrDLst)
	scr1D2 (nth (xh_get scr1D scrMLst) scrDdLst)
	scr2D1 (nth (xh_get scr2D scrMLst) scrDLst)
	scr2D2 (nth (xh_get scr2D scrMLst) scrDdLst)
	scr3D1 (nth (xh_get scr3D scrMLst) scrDLst)
	scr3D2 (nth (xh_get scr3D scrMLst) scrDdLst)
  )
;;LCA - WARNING: The OSMODE sysvar has changed.
;;LCA - WARNING: The OSMODE sysvar has changed.
;;LCA - WARNING: The OSMODE sysvar has changed.
;;LCA - WARNING: The OSMODE sysvar has changed.
;;LCA - WARNING: The OSMODE sysvar has changed.
;;LCA - WARNING: The OSMODE sysvar has changed.
  (setvar "osmode" 0)
  (setvar "cecolor" "bylayer")
  (setvar "celtype" "bylayer")
  (setvar "clayer" "continuous")
  (if (= "I" (substr MoldTypeNum 2 1))
    (progn
      (command "line" tpPT1 tpPt2 tpPT3 tpPT4 "c")
      (command "line" sbPT1 sbPT4 ""
	       "line" sbPT6 sbPT7 "")
    )
    (command "line" sbPT1 sbPT6 sbPT7 sbPT4 "c")
  )
  (command "circle" cgpnPT1 (/ gpnD   2.0)
           "circle" cgpnPT1 (/ gpnHD1 2.0)
	   "circle" cgpnPT2 (/ gpnD   2.0)
	   "circle" cgpnPT2 (/ gpnHD1 2.0)
	   "circle" cgpnPT3 (/ gpnD   2.0)
	   "circle" cgpnPT3 (/ gpnHD1 2.0)
	   "circle" cgpnPT4 (/ gpnD   2.0)
	   "circle" cgpnPT4 (/ gpnHD1 2.0)
  )
  (if (not IfAddSpg)
    (progn
      (command "circle" crpnPT1 (/ rpnD 2.0)
	       "circle" crpnPT2 (/ rpnD 2.0)
	       "circle" crpnPT3 (/ rpnD 2.0)
	       "circle" crpnPT4 (/ rpnD 2.0)
      )
      (if (= 6 rpnNum)
        (command "circle" crpnPT5 (/ rpnD 2.0)
	         "circle" crpnPT6 (/ rpnD 2.0)
        )
      )
    )
    (progn
      (load "MoldSpgZ")
      (setvar "clayer" "spring")
      (setq rep "S1")
      (MoldSpgZst crpnPT1 SpgOd SpgTyp SpgLen "1")
      (MoldSpgZst crpnPT2 SpgOd SpgTyp SpgLen "1")
      (MoldSpgZst crpnPT3 SpgOd SpgTyp SpgLen "1")
      (MoldSpgZst crpnPT4 SpgOd SpgTyp SpgLen "1")
      (if (= 6 rpnNum)
        (progn
          (MoldSpgZst crpnPT5 SpgOd SpgTyp SpgLen "1")
          (MoldSpgZst crpnPT6 SpgOd SpgTyp SpgLen "1")
        )
      )
    )
  )
  (setvar "clayer" "hidden")
  (command "line" sbPT2 sbPT3 ""
	   "line" sbPT5 sbPT8 ""
	   "line" epPT1 epPT4 ""
	   "line" epPT2 epPT3 ""
  )

  (if (and TapHaD TapHbD)
    (progn
      (setq aTapPt  (polar V1BasePt (* pi 0.5) cpY)
	    aTapPT1 (polar aTapPt pi (/ TapHaD 2.0))
	    aTapPT2 (polar aTapPt pi (/ (* 0.8 TapHaD) 2))
	    aTapPT4 (polar aTapPt 0  (/ TapHaD 2.0))
	    aTapPT3 (polar aTapPt 0  (/ (* 0.8 TapHaD) 2))
	    aTapPT5 (polar aTapPt (* pi 1.5) TapHaL)
	    aTapPT6 (polar aTapPT5 2.618  (/ (* TapHaD 0.4) (cos 0.5236)))
	    aTapPT7 (polar aTapPT5 0.5236 (/ (* TapHaD 0.4) (cos 0.5236)))

	    bTapPT  (polar V1BasePt (* pi 1.5) cpY)
	    bTapPT1 (polar bTapPt pi (/ TapHbD 2.0))
	    bTapPT2 (polar bTapPt pi (/ (* 0.8 TapHbD) 2))
	    bTapPT4 (polar bTapPt 0  (/ TapHbD 2.0))
	    bTapPT3 (polar bTapPt 0  (/ (* 0.8 TapHbD) 2))
	    bTapPT5 (polar bTapPt (* pi 0.5) TapHbL)
	    bTapPT6 (polar bTapPT5 3.6552  (/ (* TapHbD 0.4) (cos 0.5236)))
	    bTapPT7 (polar bTapPT5 -0.5236 (/ (* TapHbD 0.4) (cos 0.5236)))
      )
      (command "line" aTapPT1 (polar aTapPT1 (* pi 1.5) TapHaI) (polar aTapPT4 (* pi 1.5) TapHaI) aTapPT4 ""
	       "line" aTapPT2 aTapPT6 aTapPT5 aTapPT7 aTapPT3 ""
	       "line" aTapPT6 aTapPT7 ""
	       "line" bTapPT1 (polar bTapPT1 (* pi 0.5) TapHbI) (polar bTapPT4 (* pi 0.5) TapHbI) bTapPT4 ""
	       "line" bTapPT2 bTapPT6 bTapPT5 bTapPT7 bTapPT3 ""
	       "line" bTapPT6 bTapPT7 ""
      )
    )
  )
;------------------------------------------------
;Draw screw flat view
;------------------------------------------------
  (load "MoldCapZ")
  (setvar "clayer" "screw")
  (MoldCapZ (nth (xh_get scr1D scrMLst) scrMMlst) scr1PT1 "1")
  (MoldCapZ (nth (xh_get scr1D scrMLst) scrMMlst) scr1PT2 "1")
  (MoldCapZ (nth (xh_get scr1D scrMLst) scrMMlst) scr1PT3 "1")
  (MoldCapZ (nth (xh_get scr1D scrMLst) scrMMlst) scr1PT4 "1")
  (if (= 6 scr1Num)
    (progn
      (MoldCapZ (nth (xh_get scr1D scrMLst) scrMMlst) scr1PT5 "1")
      (MoldCapZ (nth (xh_get scr1D scrMLst) scrMMlst) scr1PT6 "1")
    )
  )

  (MoldCapZ (nth (xh_get scr2D scrMLst) scrMMlst) scr2PT1 "1")
  (MoldCapZ (nth (xh_get scr2D scrMLst) scrMMlst) scr2PT2 "1")
  (MoldCapZ (nth (xh_get scr2D scrMLst) scrMMlst) scr2PT3 "1")
  (MoldCapZ (nth (xh_get scr2D scrMLst) scrMMlst) scr2PT4 "1")

  (MoldCapZ (nth (xh_get scr3D scrMLst) scrMMlst) scr3PT1 "1")
  (MoldCapZ (nth (xh_get scr3D scrMLst) scrMMlst) scr3PT2 "1")
  (MoldCapZ (nth (xh_get scr3D scrMLst) scrMMlst) scr3PT3 "1")
  (MoldCapZ (nth (xh_get scr3D scrMLst) scrMMlst) scr3PT4 "1")
  (if (= 12 scr3Num)
    (progn
      (MoldCapZ (nth (xh_get scr3D scrMLst) scrMMlst) scr3PT5 "1")
      (MoldCapZ (nth (xh_get scr3D scrMLst) scrMMlst) scr3PT6 "1")
    )
  )
  (if (= 16 scr3Num)
    (progn
      (MoldCapZ (nth (xh_get scr3D scrMLst) scrMMlst) scr3PT5 "1")
      (MoldCapZ (nth (xh_get scr3D scrMLst) scrMMlst) scr3PT6 "1")
      (MoldCapZ (nth (xh_get scr3D scrMLst) scrMMlst) scr3PT7 "1")
      (MoldCapZ (nth (xh_get scr3D scrMLst) scrMMlst) scr3PT8 "1")
    )
  )

;--------------------------------------------------------
;Defun Extent Data
;--------------------------------------------------------
  (setvar "clayer" "center")
  (setq ExData1 (list (list -3 (list "V1X" (cons 1000 (strcat MoldTypeNum MoldSpecNum "A" aP "B" bP "C" sbP))))))
  (setq ExData2 (list (list -3 (list "V1Y" (cons 1000 (strcat (itoa bpZ) " " (itoa epZ) " " (itoa erpZ) " " (rtos sbPThk 2 2) " " (itoa spZ) " "
							      (rtos bPThk 2 2)  " " (itoa stZ) " " (rtos aPThk 2 2) " " (itoa rpZ) " " (itoa tpZ)))))))
  (command "line" cPT1 cPT3 "")
  (mxdata (entlast) ExData1)
  (command "line" cPT2 cPT4 "")
  (mxdata (entlast) ExData2)
;--------------------------------------------------------
  (command "line" (polar cgpnPT1 0          (+ (/ gpnHD1 2.0) 2)) (polar cgpnPT1 pi         (+ (/ gpnHD1 2.0) 2)) ""
	   "line" (polar cgpnPT1 (* pi 0.5) (+ (/ gpnHD1 2.0) 2)) (polar cgpnPT1 (* pi 1.5) (+ (/ gpnHD1 2.0) 2)) ""
           "line" (polar cgpnPT2 0          (+ (/ gpnHD1 2.0) 2)) (polar cgpnPT2 pi         (+ (/ gpnHD1 2.0) 2)) ""
	   "line" (polar cgpnPT2 (* pi 0.5) (+ (/ gpnHD1 2.0) 2)) (polar cgpnPT2 (* pi 1.5) (+ (/ gpnHD1 2.0) 2)) ""
           "line" (polar cgpnPT3 0          (+ (/ gpnHD1 2.0) 2)) (polar cgpnPT3 pi         (+ (/ gpnHD1 2.0) 2)) ""
	   "line" (polar cgpnPT3 (* pi 0.5) (+ (/ gpnHD1 2.0) 2)) (polar cgpnPT3 (* pi 1.5) (+ (/ gpnHD1 2.0) 2)) ""
           "line" (polar cgpnPT4 0          (+ (/ gpnHD1 2.0) 2)) (polar cgpnPT4 pi         (+ (/ gpnHD1 2.0) 2)) ""
	   "line" (polar cgpnPT4 (* pi 0.5) (+ (/ gpnHD1 2.0) 2)) (polar cgpnPT4 (* pi 1.5) (+ (/ gpnHD1 2.0) 2)) ""
  )
  (command "line" (polar crpnPT1 0          (+ (/ rpnD 2.0) 2)) (polar crpnPT1 pi         (+ (/ rpnD 2.0) 2)) ""
	   "line" (polar crpnPT1 (* pi 0.5) (+ (/ rpnD 2.0) 2)) (polar crpnPT1 (* pi 1.5) (+ (/ rpnD 2.0) 2)) ""
           "line" (polar crpnPT2 0          (+ (/ rpnD 2.0) 2)) (polar crpnPT2 pi         (+ (/ rpnD 2.0) 2)) ""
	   "line" (polar crpnPT2 (* pi 0.5) (+ (/ rpnD 2.0) 2)) (polar crpnPT2 (* pi 1.5) (+ (/ rpnD 2.0) 2)) ""
           "line" (polar crpnPT3 0          (+ (/ rpnD 2.0) 2)) (polar crpnPT3 pi         (+ (/ rpnD 2.0) 2)) ""
	   "line" (polar crpnPT3 (* pi 0.5) (+ (/ rpnD 2.0) 2)) (polar crpnPT3 (* pi 1.5) (+ (/ rpnD 2.0) 2)) ""
           "line" (polar crpnPT4 0          (+ (/ rpnD 2.0) 2)) (polar crpnPT4 pi         (+ (/ rpnD 2.0) 2)) ""
	   "line" (polar crpnPT4 (* pi 0.5) (+ (/ rpnD 2.0) 2)) (polar crpnPT4 (* pi 1.5) (+ (/ rpnD 2.0) 2)) ""
  )
  (if (and TapHaD TapHbD) 
    (command "line" (polar aTapPT (* pi 0.5) 5) (polar aTapPT5 (* pi 1.5) 4) ""
	     "line" (polar bTapPT (* pi 0.5) 5) (polar bTapPT5 (* pi 1.5) 4) ""
    )
  )
;------------------------------------
;Dim
;------------------------------------
  (setvar "clayer" "dim")
  (command "dim"
           "ver" (polar (polar V1BasePt (* pi 1.5) scr3Y) pi (+ 2 (/ scr3D2 2.0) scr3X)) (polar (polar V1BasePt (* pi 0.5) scr3Y) pi (+ 2 (/ scr3D2 2.0) scr3X))
	         (polar v1BasePt pi (+ tpX 17)) (strcat (itoa (* scr3Y 2)) " S.C.H.S")
           "ver" (polar (polar V1BasePt (* pi 1.5) gpnY) pi (+ 2 (/ gpnHD1 2.0) gpnX)) (polar (polar V1BasePt (* pi 0.5) gpnY) pi (+ 2 (/ gpnHD1 2.0) gpnX))
	         (polar v1BasePt pi (+ tpX 26)) (strcat (itoa (* gpnY 2)) " LEADER PIN")
           "ver" (polar (polar V1BasePt (* pi 1.5) scr1Y) pi (+ 2 (/ scr1D2 2.0) scr1X)) (polar (polar V1BasePt (* pi 0.5) scr1Y) pi (+ 2 (/ scr1D2 2.0) scr1X))
	         (polar v1BasePt pi (+ tpX 35)) (strcat (itoa (* scr1Y 2)) " S.C.H.S")
           "ver" tpPT2 tpPT3 (polar v1BasePt pi (+ tpX 44)) (itoa (* tpY 2))

           "ver" (polar (polar V1BasePt (* pi 1.5) rpnY) 0 (+ 2 (/ rpnD 2.0) rpnX)) (polar (polar V1BasePt (* pi 0.5) rpnY) 0 (+ 2 (/ rpnD 2.0) rpnX))
	         (polar v1BasePt 0 (+ tpX 17)) (strcat (itoa (* rpnY 2)) " RETURN PIN")
           "ver" (polar (polar V1BasePt (* pi 1.5) (- gpnY 2)) 0 (+ 2 (/ gpnHD1 2.0) gpnX)) (polar v1BasePt 0 (+ tpX 5)) 
    	         (polar (polar V1BasePt (* pi 1.5) (/ gpnY 2.0)) 0 (+ tpX 8)) (strcat (itoa (- gpnY 2)) " OFFSET")
           "ver" (polar (polar V1BasePt (* pi 0.5) gpnY) 0 (+ 2 (/ gpnHD1 2.0) gpnX)) (polar v1BasePt 0 (+ tpX 5)) 
    	         (polar (polar V1BasePt (* pi 0.5) (/ gpnY 2.0)) 0 (+ tpX 8)) (itoa gpnY)

           "hor" (polar (polar V1BasePt pi rpnX) (* pi 0.5) (+ 2 (/ rpnD 2.0) rpnY)) (polar (polar V1BasePt 0 rpnX) (* pi 0.5) (+ 2 (/ rpnD 2.0) rpnY))
	         (polar v1BasePt (* pi 0.5) (+ tpY 10)) (strcat (itoa (* rpnX 2)) " RETURN PIN")
           "hor" (polar (polar V1BasePt pi scr1X) (* pi 0.5) (+ 2 (/ scr1D2 2.0) scr1Y)) (polar (polar V1BasePt 0 scr1X) (* pi 0.5) (+ 2 (/ scr1D2 2.0) scr1Y))
	         (polar v1BasePt (* pi 0.5) (+ tpY 18)) (strcat (itoa (fix (* scr1X 2))) " S.C.H.S")

           "hor" (polar (polar V1BasePt pi gpnX) (* pi 0.5) (+ 2 (/ gpnHD1 2.0) gpnY)) (polar (polar V1BasePt 0 gpnX) (* pi 0.5) (+ 2 (/ gpnHD1 2.0) gpnY))
	         (polar v1BasePt (* pi 0.5) (+ tpY 26)) (strcat(itoa (* gpnX 2)) " LEADER PIN")
           "hor" (polar (polar V1BasePt pi scr2X) (* pi 0.5) (+ 2 (/ scr2D2 2.0) scr3Y)) (polar (polar V1BasePt 0 scr3X) (* pi 0.5) (+ 2 (/ scr2D2 2.0) scr2Y))
	         (polar v1BasePt (* pi 0.5) (+ tpY 34)) (strcat (itoa (fix (* scr2X 2))) " S.C.H.S")

           "hor" epPT3 epPT4 (polar v1BasePt (* pi 1.5) (+ tpY 10)) (itoa (* epX 2))
           "hor" sbPT3 sbPT4 (polar (polar sbPT3 0 (/ (- sbX2 sbX1) 2)) (* pi 1.5) 10) (itoa (- sbX2 sbX1))
           "hor" sbPT7 sbPT8 (polar (polar sbPT8 0 (/ (- sbX2 sbX1) 2)) (* pi 1.5) 10) (itoa (- sbX2 sbX1))
	   "exit"
  )
  (if (= scr3Num 16)
    (command "dim"
             "ver" (polar (polar V1BasePt (* pi 1.5) scr3Y2) pi (+ 2 (/ scr3D2 2.0) scr3X)) (polar (polar V1BasePt (* pi 0.5) scr3Y2) pi (+ 2 (/ scr3D2 2.0) scr3X))
	           (polar v1BasePt pi (+ tpX 8)) (strcat (itoa (* scr3Y2 2)) " S.C.H.S")
	     "exit"
    )
  )
  (if (> tpX cpX)
    (command "dim"
             "hor" tpPT1 tpPT2 (polar v1BasePt (* pi 0.5) (+ tpY 42)) (itoa (*