[编程交流] ; 错误：参数太少

(defun c:1 (/ file dta p i) ;POints to TeXT 
(setq file (open (getfiled "specify output file" "c:/" "csv" 1) "w"))
(setq dta (ssget '((0 . "text"))))
(repeat (setq i (sslength dta))
(ssname (setq i (1- i)))
(write-line
(strcat (rtos (car p) 2 3) ","
(rtos (cadr p) 2 3) ","
(rtos (caddr p) 2 3)
) file)
)
(close file)
(Princ)
)

[b](setq p (cdr (assoc 10 (entget[/b] (ssname [b]dta[/b] (setq i (1- i))))[b])))[/b]

(defun c:1 (/ file dta p i)                ;POints to TeXT 
[b] (if (and[/b]
(setq file (open (getfiled "specify output file" "c:/" "csv" 1) "w"))
         (setq dta (ssget '((0 . "text"))))[b])[/b]
  [b] (progn
           (write-line "EASTING,NORTHING,ELEVATION" file)[/b]
  (repeat (setq i (sslength dta))
    (setq p (cdr (assoc 10 (entget (ssname dta (setq i (1- i)))))))
    (write-line
      (strcat (rtos (car p) 2 3)
              ","
              (rtos (cadr p) 2 3)
              ","
              (rtos (caddr p) 2 3)
              )
      file
      )
    )
 (close file)
     [b])
   )[/b]
 (Princ)
 )