这是一个lisp文件，用于读取xyz点
- (setvar "menuecho" 0)
- (setvar "SNAPMODE" 0)
- (SETQ OLDSNAP (GETVAR "OSMODE"))
- (setvar "OSMODE" 0)
- (setq xyzfiles (getfiled "\nENTER CO-ORD File name " "" "" 4))
- (setq fopen (open xyzfiles "R"))
- (command "zoom" "E")
- (SETQ XX 1)
- (while (setq new_line (read-line fopen))
- (PRINC XX)
- (setq easting (substr new_line 1 )
-
- (setq northing (substr new_line 10 9))
- (setq height (substr new_line 20 5))
- (setq ptxyz (list (atof easting)(atof northing) (atof height)))
- (command "point" ptxyz)
- (SETQ XX (+ XX 1))
- ) ; end while
- (princ setsc )
- (SETVAR "OSMODE" OLDSNAP)
- (princ)
| 
