[编程交流] 需要（书面）帮助

(write-line"SYSTEM       Leica SurveyOffice: Coordinate Editor 1.0
 SEPARATOR    ','
 TERMINATOR   ';'
 UNITS
   LINEAR     METRE
 END UNITS
 PROJECT
   NAME           boundary-points
   CREATION_DATE  21-07-2012/15:07:45.0
 END PROJECT
END HEADER
DATABASE "file) .......

HEADER
 VERSION      1.31
 SYSTEM       "Leica SurveyOffice: Coordinate Editor 1.0"
 SEPARATOR    ','
 TERMINATOR   ';'
 UNITS
   LINEAR     METRE
 END UNITS
 PROJECT
   NAME           "StarX"
   CREATION_DATE  21-07-2014/16:21:45.0
 END PROJECT
END HEADER
DATABASE
 POINTS (PointNo,PointID,Code,East,North,Elevation,CLASS)
    1,  "D",    "",  100.000,   10.000,  0.000,  FIX;
    2,  "P1",   "",   98.226,   20.444,  0.000,  FIX;
    3,  "P2",   "",   98.756,   38.444,  0.000,  FIX;
    4,  "P3",   "",   98.756,   56.944,  0.000,  FIX;
    5,  "P4",   "",   98.756,   74.444,  0.000,  FIX;
    6,  "P5",   "",  100.618,   90.858,  0.000,  FIX;
    7,  "P6",   "",  103.193,  108.673,  0.000,  FIX;
    8,  "P7",   "",   96.668,  126.065,  0.000,  FIX;
    9,  "P8",   "",   97.020,  128.500,  0.000,  FIX;
   10,  "P9",   "",  119.042,  125.317,  0.000,  FIX;
   11,  "P10",  "",  118.690,  122.882,  0.000,  FIX;
 END POINTS
END DATABASE

(vl-list->string (vl-string->list "','"))

(setq file(open "C:\\DEMO\\test.txt" "w"))
(mapcar ''(( x ) (write-line x file))
'("HEADER"
 "  VERSION      1.31"
 "  SYSTEM       "Leica SurveyOffice: Coordinate Editor 1.0""
 "  SEPARATOR    ','"
 "  TERMINATOR   ';'"
 "  UNITS"
 "    LINEAR     METRE"
 "  END UNITS"
 "  PROJECT"
 "    NAME           "StarX""
 "    CREATION_DATE  21-07-2014/16:21:45.0"
 "  END PROJECT"
 "END HEADER"
 ""
 ""
 "DATABASE")
)
(close file)

(defun c:cc(/ in ndp ip serial file)
 (setvar "cmdecho" 0)
 (setq clyr(getvar"clayer"))
  (if(null txth)
   (setq txth 1.25))
(setq txthnew(getreal(strcat"\nchange enter text hieght or press enter to accept defualt " "<"(rtos txth 2 3)">:")))
   (if txthnew(setq txth txthnew))
   (setq file-name(getfiled "filename" "" "IDX" 1))
   (setq file (open file-name "a"))
(mapcar ''(( x ) (write-line x file))
'("HEADER"
 "  VERSION      1.31"
 "  SYSTEM       "Leica SurveyOffice: Coordinate Editor 1.0""
 "  SEPARATOR    ','"
 "  TERMINATOR   ';'"
 "  UNITS"
 "    LINEAR     METRE"
 "  END UNITS"
 "  PROJECT"
 "    NAME           "StarX""
 "    CREATION_DATE  21-07-2014/16:21:45.0"
 "  END PROJECT"
 "END HEADER"
 ""
 ""
 "DATABASE"
 "  POINTS (PointNo,PointID,Code,East,North,Elevation,CLASS\)")
)
 (setq serial 1)
 
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (setq in (getreal"\n enter first number:"));point number
 (initget 5) 
 (setq ndp (getint "\n Number of decimal places for co-ordinates (0,1,2,3):"))
 (setvar"dimadec"4)
   (while
 (setq osmd(getvar "osmode"))
 (setvar "osmode"0) 
 (initget 1)
 (setq ip (getpoint "\n enter a point to write its coordinate:"));pick individule point
 (if ip
   (progn
 (setq osmd(getvar "osmode"))
 (setvar "osmode"0)
 (setvar "angdir"1)
 (setvar "aunits"2)   
 (setvar "angbase"1.5708)
 (setvar "aunits"2)
 (command "layer" "m" "points num" "")
 (command "layer" "c" "7" "points num" "")
 (command "color""bylayer")
 (command "insert" "pcn.dwg" ip txth txth "" (rtos in 2 0))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
 (write-line(strcat"     "(rtos serial 2 0)","(rtos in 2 0)","(rtos(car ip)2 ndp)","(rtos(cadr ip)2 ndp)","(rtos(last ip)2 3)",") file)
 (setq serial(+ 1 serial))
 (setq in(+ 1 in))
)  
(close file)
    
 ))
(princ)
)