[LISP程序]：简单的测量图幅结合表生成程序

wkq004

;**************************************************************
;这是一个简单的测量图幅结合表自动生成程序.
;也是我做的一个练习题,随着学习进度更新.
;希望你能对语法问题作个更正.算法问题就不要提了,都是乱写的.
;QQ:278416560   QQ004QQ@163.com
;**************************************************************

(defun c:jhb(/ a ah av th thh thv zxj)
  (setq a 250
        ah 20
        av 15
        qsth 278416.0  ;把整型数转换成实型数；
        thh 1
        thv 1000
        zxj '(100 200)
        zxjx(car zxj)
        zxjy(cadr zxj)
        zsjx zxjx
        zsjy (+ zxjy (* a av))
        spx (1+ av)
        czx(1+ ah))            
  ;绘制水平图幅线
  (setq i 0)
  (repeat spx
    (command "line" (list zxjx (+ zxjy (* i a)))
             (list (+ zxjx (* ah a))  (+ zxjy (* i a))) "")
    (setq i(1+ i))
    );repeat
  
  ;绘制垂直图幅线
  (setq i 0)
  (repeat czx
    (command "line" (list (+ zxjx (* i a)) zxjy)
             (list (+ zsjx (* i a))  zsjy) "")
    (setq i(1+ i))
    );repeat
  
  ;写入文本

(setq wbg (/ a 9)
      vn 0
      lj 0
      cs (* ah av))
  (repeat cs
    (setq vn (fix(/(float lj) ah)))
    (setq hlj (- lj (* ah vn)))
    (setq wb1x (+ zsjx (/ a 2) (* a hlj))
          wb2x (+ zsjx (/ a 2) (* a hlj))
          wb3x (+ zsjx (/ a 2) (* a hlj))
          wb1y (-  zsjy (/ a 4) (* vn a))
          wb2y (-  zsjy (/ a 2) (* vn a))
          wb3y (-  zsjy (* a 0.8) (* vn a))
          th (fix(+ (* thh hlj) (+(* vn thv -1) qsth))))
        (command "text" "j" "mc" (list wb1x wb1y) wbg "0" th "0" "" "" "")
        (command "text" "j" "mc" (list wb2x wb2y) wbg "0" "良" "0" "" "" "")
        (command "text" "j" "mc" (list wb3x wb3y) wbg "" "作业员" "" "" "")
        (setq lj (1+ lj))
    );repeat
  );defun