[LISP函数]：生成简单的武汉1：500结合表

wkq004

;**************************************************************
;这是一个简单的测量图幅结合表自动生成程序.
;QQ:278416560 QQ004QQ@163.com
;**************************************************************

(defun c:jhb (/ a ah av th thh thv zxj)
  (setq
    zsj         '(536000 382000)                ;左上角坐标
    zzsjx (car zsj)                        ;左上角X坐标
    zzsjy (cadr zsj)                        ;左上角Y坐标
    a         250
    ahv         20
    scpx (1+ ahv)
  )
;;;绘制图幅线
  (setq i 0)
  (repeat scpx
    (command "line"
             (list zzsjx (- zzsjy (* i a)))
             (list (+ zzsjx (* ahv a)) (- zzsjy (* i a)))
             ""
    )
    (command "line"
             (list (+ zzsjx (* i a)) zzsjy)
             (list (+ zzsjx (* i a)) (- zzsjy (* ahv a)))
             ""
    )
    (setq i (1+ i))
  ) ;_repeat
  ;计算图号文本坐标
  (setq glv 0)
  (repeat 11
    (setq zsjy (- zzsjy (* 1000 glv))
          glh 0
          )
  
  (repeat 11
    (setq zsjx (+ zzsjx (* 1000 glh))
          
          )
               
  (setq pfi 0
        pfvi 0)
  (repeat 4
    (setq
          
          pfhi 0
    )
    (repeat 4
      (setq
            wbx         (+ zsjx (/ a 2) (* a pfhi))
            wby         (- zsjy (/ a 2) (* a pfvi))
      )
      
      (setq thy        (- (/ zsjy 1000) 1)
            thx        (/ zsjx 1000)
            th        (+ (* thy 100000) (* thx 100) pfi 1)
            tth        (itoa th)
      )
      (command "text" "j" "mc" (list wbx wby) "5" "0" tth)
      (setq pfhi (+ pfhi 1)
            pfi         (+ pfi 1)
      )
    )
    (setq pfvi (1+ pfvi))
  )
(setq glh (+ glh 1))

)

(setq glv (+ glv 1))
  )
         )