; error: too few arguments

[satishrajdev]

Please correct this routine...its showing ; error: too few arguments error

 

(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)
)

 

Thanks a lot

[pBe]

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

[satishrajdev]

thanks a lot pBE..... Problem solved

one more thing i want to ask you is,,, I want to put header on each column Just see attached image

[pBe]

(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)
 )

 

HTH

[satishrajdev]

thankx a lot pBE....problem totally solved

[pBe]

thankx a lot pBE....problem totally solved

 

Good for you.

 

Keep on coding satishrajdev, you'll get there