[讨论] 编程修改

aiqingwu

; k
(defun k()
     (setq cj (strcat "e://zz"  kh  ".txt"))

     (setq f (open cj "r" ))

 (setq kd 10)
   (setq wz (list 292 -245 ))
   (setq ch 1)
   (setq sd 0)
 (setq zhlj 0) 
 (while  (setq ym (read-line f))      ;程序二
  (setq hd (atof (read-line f)))
  (if (= ym "黄金") (mei wz hd kd))
  (if (= ym "焦炭") (tianranjiao wz hd kd))
    (setq y (last wz))
     (setq wz (list 292 (- Y (* (/ hd 2000) 10000) )))
    (setq y (last wz))
      (command "line"
     (setq p (list  x  y))
     (setq p (list (+ x 14) y))
   )
   (command )
         (command "text"
    (setq p (list (+ x 10.3) (+ y 0.3)))
   "2"
   "0"
   ch
  )
 ;以下为根据IF语句要循环的程序段  （一）
   ;如果hd小于1并且ch1小于等于hd1时运行下列程序,并   返回到程序二（符合此条件时ch1，hd1初始为0）
   ;反之则Y加5，CH1+1，HD1=HD1+HD，在运行下列程序,并   返回到程序二
      ((command "line"  
     (setq p (list (+ x 16) y))
     (setq p (list (+ x 50) y))
   )  
  (command )
  
         (command "text"
     (setq p (list (+ x 16) (+ y 0.3)))
   "2"
   "0"
   ch
  )
         (command "text"
     (setq p (list (+ x 20.2) (+ y 0.3)))
   "5"
   "0"
   ym
  )
  
         (command "text"
     (setq p (list (+ x 30.2) (+ y 0.3)))
   "2.5"
   "0"
   (rtos  (setq sd (+ sd hd)) 2 2)
  )
         (command "text"
     (setq p (list (+ x 40.2) (+ y 0.3)))
   "2.5"
   "0"
   (rtos  hd 2 2)
  )
    (setq ch (+ ch 1))
  
    )
    ;;;;程序（一）结束
     )
      (close  f )
 
)

chcumt

顶一下     

tgrwooze

NIUBNIUBNIUB

风流少年时

修改什么鬼？啥都么有说，这叫人如何弄？