[antonio_k]

помогите решить проблему: есть набор точек в автокаде,скажем с координатами х,у - можно ли как то вывести список этих точек в текстовый файл блокнота?
Заранее благодарен!

[VVA]

Экспорт координат выбранных точек в *.txt пост #7

[skif58]

antonio_k, вот хороший лисп для этого, может и в текстовый файл и в екселевский.

[Makson]

Или Tools->Inquiry->List

[VVA]

skif58, У тебя лишь одна команда (COORN) По ссылке есть еще две:
COOR и COORT

[skif58]

VVA, спасибо! Я посмотрел и скачал себе.

[antonio_k]

огромнейшее спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
так здорово что так быстро ответили!!!!!

[Sleekka]

Чесно говоря не смотрел предыдущие команды они наверняка лучше, просто выложу как вариант, кому-то может понравится, буду непротив конструктивной критики...

Код:

[Выделить все]

  (defun sl_write_csv_from_pts_ (/ ss lstLen sl_db_file_ sl_tmp_str_)
      (vl-load-com)
  


(setq sl_db_file_ (open "C:\\sl_pts.csv" "w"))

    

(setq ss (ssget  '((0 . "POINT"))));(66 . 1))))
  
  (setq lstLen (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(foreach sl_ent lstLen
  
(vl-catch-all-error-p
      (vl-catch-all-apply
	'(lambda (x)
	   (setq sl_tmp_str_ (strcat (rtos (cadr (assoc 10 (entget x))) 2 4) ","
				     (rtos (caddr (assoc 10 (entget x))) 2 4) ","
				     (rtos (- (* 1 (cadddr (assoc 10 (entget x)))) 0) 2 4)))
	(write-line sl_tmp_str_ sl_db_file_)
	   
	   )
	(list sl_ent)
	) ;_ end of VL-CATCH-ALL-APPLY
      )

  )

        (close sl_db_file_)
    (princ "\n")
    (princ "Все будет хорошо!")


  (princ)
  
)