math.lsp

数学计算lisp程序

             (if (/= rowNumberInCal RowsPerPage)
               (progn
               (write-line "├───────────────────────────────┼──────────┤" calresult)
               (setq rowNumberInCal (+ rowNumberInCal 2))
               )(setq rowNumberInCal (+ rowNumberInCal 2))

             ) 
                   (if (= rowNumberInCal (+ RowsPerPage 2))
                     (progn
                       (write-line "└───────────────────────────────┴──────────┘" calresult)
                       (write-line (strcat "                                         Page:" (rtos NowPageNo 2 0)) calresult)
                       (write-line " " calresult) 
                       (write-line "┌───────────────────────────────┬──────────┐" calresult)
                       (setq rowNumberInCal 0)
                       (setq NowPageNo (+ NowPageNo 1))
                     )
                   )


           


          )(progn
           (write-line "└───────────────────────────────┴──────────┘" calresult)
           (write-line (strcat "                                         Page:" (rtos NowPageNo 2 0)) calresult)
           (write-line " " calresult)
           (write-line "┌───────────────────────────────┬──────────┐" calresult)
               (setq rowNumberInCal 0)
               (setq NowPageNo (+ NowPageNo 1))

           )
     ) 








        )
     ) 
  );end while
(write-line "│                                                              │                    │ " calresult)
(write-line "└───────────────────────────────┴──────────┘" calresult)
(write-line (strcat "                                         Page:" (rtos NowPageNo 2 0)) calresult)
(write-line " " calresult)
(write-line (strcat "Precision：" (rtos mm 2 0) " decimal(s)") calresult)
      (setq CurrentD (getvar "cdate"))
      (setq CurrentD (rtos CurrentD 2 0))
      (setq CurrentD (strcat (substr CurrentD 1 4) "-" (substr CurrentD 5 2) "-" (substr CurrentD 7 2) ))
(write-line (strcat "Date:" CurrentD)  calresult)
(write-line " " calresult)
;(write-line "                               <End>    QinDong (C)2000" calresult)
(close calresult)
                                                 ));end progn end if

(close Formulas)
(startapp (strcat "notepad" " " resultFilename)) 
));end if progn
;(write-line (strcat "(setq " "rowNumberInCal" " nil)") FreeMem)
;(write-line (strcat "(setq " "NowPageNo" " nil)") FreeMem)
;(write-line (strcat "(setq " "nowAzimathCal" " nil)") FreeMem)
;(write-line (strcat "(setq " "RowsPerPage" " nil)") FreeMem)
;(write-line (strcat "(setq " "TitleNMstr" " nil)") FreeMem)
;(write-line (strcat "(setq " "DegOrDMS" " nil)") FreeMem)
;(write-line (strcat "(setq " "beforeTitleNmSpaces" " nil)") FreeMem)
;(write-line (strcat "(setq " "lp" " nil)") FreeMem)
;(write-line (strcat "(setq " "lpstring" " nil)") FreeMem)
;(write-line (strcat "(setq " "halfTlNMlen" " nil)") FreeMem)
;(write-line (strcat "(setq " "QinDongFormula" " nil)") FreeMem)
;(write-line (strcat "(setq " "DongFormulalen" " nil)") FreeMem)
;(write-line (strcat "(setq " "inputvalue" " nil)") FreeMem)
;(write-line (strcat "(setq " "AzmthP" " nil)") FreeMem)
;(write-line (strcat "(setq " "AzmthP1" " nil)") FreeMem)
;(write-line (strcat "(setq " "AzmthP2" " nil)") FreeMem)
;(write-line (strcat "(setq " "AzmthP3" " nil)") FreeMem)
;(write-line (strcat "(setq " "AzmthP4" " nil)") FreeMem)
;(write-line (strcat "(setq " "QinDongFormulaOri" " nil)") FreeMem)
;(write-line (strcat "(setq " "nowAzimathCal" " nil)") FreeMem)
;(write-line (strcat "(setq " "distP" " nil)") FreeMem)
;(write-line (strcat "(setq " "distP1" " nil)") FreeMem)
;(write-line (strcat "(setq " "distP2" " nil)") FreeMem)
;(write-line (strcat "(setq " "distP3" " nil)") FreeMem)
;(write-line (strcat "(setq " "distP4" " nil)") FreeMem)
;(write-line (strcat "(setq " "Azimathpara" " nil)") FreeMem)
;(write-line (strcat "(setq " "restStr" " nil)") FreeMem)
;(write-line (strcat "(setq " "variblnm" " nil)") FreeMem)
;(write-line (strcat "(setq " "currentCalR" " nil)") FreeMem)
;(write-line (strcat "(setq " "spacenum" " nil)") FreeMem)
;(write-line (strcat "(setq " "Qspacenum2" " nil)") FreeMem)
;(write-line (strcat "(setq " "EdSpaceNumbers" " nil)") FreeMem)
;(write-line (strcat "(setq " "FormulaQinDong" " nil)") FreeMem)
;(write-line (strcat "(setq " "QinDongFormulac" " nil)") FreeMem)
;(write-line (strcat "(setq " "qdTotalLen" " nil)") FreeMem)
;(write-line (strcat "(setq " "rstSpcs" " nil)") FreeMem)
;(write-line (strcat "(setq " "outputStrFor" " nil)") FreeMem)
;(write-line (strcat "(setq " "NowPageNo" " nil)") FreeMem)
;(write-line (strcat "(setq " "commahindspc" " nil)") FreeMem)
;(write-line (strcat "(setq " "CurrentD" " nil)") FreeMem)
;(write-line (strcat "(setq " "sttlen" " nil)") FreeMem)
;(write-line (strcat "(setq " "posi" " nil)") FreeMem)
;(write-line (strcat "(setq " "chreql" " nil)") FreeMem)
;(write-line (strcat "(setq " "returnvalue" " nil)") FreeMem)
;(write-line (strcat "(setq " "oriStr" " nil)") FreeMem)
;(write-line (strcat "(setq " "SrcStr" " nil)") FreeMem)
;(write-line (strcat "(setq " "DesStr" " nil)") FreeMem)
;(write-line (strcat "(setq " "jug" " nil)") FreeMem)
;(write-line (strcat "(setq " "AngleInStrFormat" " nil)") FreeMem)
;(write-line (strcat "(setq " "secondAng" " nil)") FreeMem)
;(write-line (strcat "(setq " "IntMinAng" " nil)") FreeMem)
;(write-line (strcat "(setq " "minAng" " nil)") FreeMem)
;(write-line (strcat "(setq " "angInt" " nil)") FreeMem)
;(write-line (strcat "(setq " "Result" " nil)") FreeMem)
;(write-line (strcat "(setq " "sbS2" " nil)") FreeMem)
;(write-line (strcat "(setq " "sbS1" " nil)") FreeMem)
;(write-line (strcat "(setq " "indx" " nil)") FreeMem)
;(write-line (strcat "(setq " "oriStrLen" " nil)") FreeMem) 
(write-line "(princ)" FreeMem)
(write-line ")" FreeMem)
(close FreeMem)
(load "TempLisp.lsp")
(FREEMEMORY)
;(unload "TempLisp")
(grtext -1 "QinDong")
(princ)
)



(defun equalposition(stt)
(setq sttlen (strlen stt))
(setq posi 1)
(while (/= (setq chreql (substr stt posi 1)) "=")
(setq posi (+ posi 1))
)
(setq returnvalue  (substr stt 1 posi))
)

(defun Azimathpara(stt)
(setq sttlen (strlen stt))
(setq posi 1)
(while (/= (setq chreql (substr stt posi 1)) "(")
(setq posi (+ posi 1))
)
(setq returnvalue  (substr stt posi))
)


(defun depart(pStr1 pStr2 jug)
(setq sttlen (strlen pStr1))
(setq posi 1)
(while (/= (setq chreql (substr pStr1 posi 1)) pStr2)
(setq posi (+ posi 1))
)
(setq returnvalue  (substr pStr1 1 (- posi 1)))
(if (= jug 1)(setq restStr (substr pStr1 (+ (strlen returnvalue) 2))))
(setq returnvalue returnvalue)

)


;(setq w (convert "QINDONGINOPFGIN" "IN" "PPP"))


(defun convert(oriStr SrcStr DesStr)

(setq oriStr oriStr)
(setq SrcStr SrcStr)
(setq DesStr DesStr)

(setq oriStrLen (strlen oriStr))
(setq SrcStrLen (strlen SrcStr))
(setq indx 1)

(while (< indx oriStrLen)
   (setq sbStr (substr oriStr indx SrcStrLen))

    (if (= sbStr SrcStr)(progn

      (setq sbS1 (substr oriStr 1 (- indx 1)))
      (setq sbS2 (substr oriStr (+ indx SrcStrLen)))
 
      (setq oriStr (strcat sbS1 DesStr sbS2))
      (setq indx 1)
      (setq oriStrLen (strlen oriStr))
      
                             );end progn
    );end if
(setq indx (+ indx 1)) 
);end while

(setq Result oriStr)
)

        ;(setq QinDongFormula (convert QinDongFormula "tg" "tang"))
        ;(setq QinDongFormula (convert QinDongFormula "tan" "tang"))
        ;(setq QinDongFormula (convert QinDongFormula "arcsin" "asin"))
        ;(setq QinDongFormula (convert QinDongFormula "arccos" "acos"))
        ;(setq QinDongFormula (convert QinDongFormula "arctg" "atan"))

(defun QDangTstr(beproAng)
(setq angInt (fix beproAng))
(setq minAng (* (- beproAng angInt) 60.0))
(setq IntMinAng (fix minAng))
(setq secondAng (* (- minAng IntMinAng) 60.0))
(setq AngleInStrFormat (strcat (rtos angInt 2 0) "-" (rtos IntMinAng 2 0) "-" (rtos secondAng 2 1)))
)


(defun C:FORSETUP()
(alert "打印时，在记事本的页面设置\n中将左边距设为25mm，右边距\n设为10mm,上下边距设为20mm,\n纸张为A4纸，方向纵向, 字体\n宋体五号。\n  方位角函数:\nazimath(xa,ya,xb,yb)\n  求距离函数：\ndistance(xa,ya,xb,yb)")
(princ "Copyright (C) 2000-2010 QinDong")
(princ)
)