(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)
页:
1
[2]