MSasu 发表于 2022-7-6 00:37:02

That page contains some elements that you had ignored to copy - one is the header with credit to the autor (please be more careful next time!) and second is the missing WRITE-POINT function (I already noticed you on that above). However I had adjusted the code for lines support:

;; --------------------------------------------------​------------------;; WPOINT.LSP Copyright 1990-2000 Tony Tanzillo (defun C:WPOINT ( / ss fd file)(cond( (not (setq ss (ssget '((0 . "POINT,LINE"))))))( (not (setq file (getfiled "Export Points" "" "csv" 1))))( (not (setq fd (open file "w")))(alert "Unable to open file for output"))(t (repeat (setq i (sslength ss))(write-point(ssname ss (setq i (1- i)))fd6))(close fd)))(princ)) (defun write-point (e fd prec / p codeDXF) (foreach codeDXF '(10 11) (setq p (cdr (assoc codeDXF (entget e)))) (write-line(strcat (rtos (car p) 2 prec) "," (rtos (cadr p) 2 prec) "," (rtos (caddr p) 2 prec))fd ) ))

nithink55 发表于 2022-7-6 00:37:10

Thanks Mr. Msanuerror is coming.. "Select objects:; error: too few arguments" please help......

MSasu 发表于 2022-7-6 00:44:26

I had fixed the code; please test it again.
页: 1 [2]
查看完整版本: x,y,z extraction by selecting