CASS51中方便画等高线小程序

hanyu_gis

;       =======================================

;       |            方便画等高线小程序       |

;       |               Ver: 1.0             　     |

;       =======================================

 

;此程序把用于在CASS中画等高线时不用输入高程值

;此程序仅在对等高线要求不严格时使用

;

;绘制首曲线

(defun c:drawsqx()………………………………………………………1

    (setvar "CMDECHO" 0)…………………………………………...2

    (setq dg (getreal"请首曲线的高程值<0>:"))…………….………..3

    (if (= nil dg)…………………………………………………………4

    (setq dg 0)…………………………………………………………...5

    )……………………………………………………………………..6

    (command "dd" "201101" dg)………………………………………7

)…………………………………………………………………………..8

;绘制计曲线

(defun c:drawjqx()

   (setvar "CMDECHO" 0)

   (setq dgx (getreal"请计曲线的高程值<0>:"))

   (if (= nil dgx)

   (setq dgx 0)

   )

   (command "dd" "201102" dgx)

)

 

 

下文没句号。

有人用过没，我07版不能用