x,y,z extraction by selecting

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:

copy

;; --------------------------------------------------------------------;; WPOINT.LSP Copyright 1990-2000 Tony Tanzillo (defun C:WPOINT ( / ss fd file)(cond( (not (setq ss (ssget '((0 . "POINT[color=magenta],LINE[/color]"))))))( (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 [color=magenta]codeDXF[/color])[color=magenta] (foreach codeDXF '(10 11)[/color] (setq p (cdr (assoc [color=magenta]codeDXF[/color] (entget e)))) (write-line  (strcat (rtos (car p) 2 prec) "," (rtos (cadr p) 2 prec) "," (rtos (caddr p) 2 prec))  fd [color=black])[/color][color=magenta] )[/color])

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

Thanks Mr. Msanu error 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.

[编程交流] x,y,z extraction by selecting

发表回复

精选推荐