[mamuk]

Доброго вечера всем! помогите разобраться с обработкой списка!
по порядку
1. создаю набор из полилиний

Код:

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

 (setq set_*POLYLINE (ssget "_X" (list  (cons 8 "Рельеф суши Л" )  (cons 0 "*POLYLINE"))))

2. Форимирую список

Код:

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

 (setq a_*POLYLINE -1)
(repeat (sslength set_*POLYLINE)
		  (setq a_*POLYLINE (1+ a_*POLYLINE))
		  (setq name_*POLYLINE  (ssname set_*POLYLINE a_*POLYLINE))
		  (setq list_coord_*POLYLINE (append list_coord_*POLYLINE (list (vl-remove-if-not '(lambda(x)(=(car x) 10))(entget name_*POLYLINE)))))
		  )

на выходе должен получится список групп списков по каждой полилинии (((10 294.69 183.127) (10 314.695 171.104)) ((10 300.428 188.302) (10 320.434 176.28)))
Далее хочу обработать список таким образом чтоб
по каждой полилинии в текством файле была создана запись ввиде
Pline 7
3551984.84 968727.36
3551998.69 968730.07
3552005.1 968723.92
3552017.35 968721.88
3552025.85 968733.46
3552008.43 968744.92
3552012.55 968749.41
Pen (14,2,11556864)
Pline 7
3551984.84 968727.36
3551998.69 968730.07
3552005.1 968723.92
3552017.35 968721.88
3552025.85 968733.46
3552008.43 968744.92
3552012.55 968749.41
Pen (14,2,11556864)
Честно непонимаю как это сделать. пробовал через foreach не получается. Просто ни как не соображу помогите пожалуйста!

[Олег (jr.)]

По-быстрому и без наворотов:

Код:

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

(setq ss (ssget	"_X"
		(list (cons 8 "Ðåëüåô ñóøè Ë") (cons 0 "*POLYLINE"))))
(while (setq pline (ssname ss 0))
  (setq	records	(append	records
			(list (vl-remove-if-not
				'(lambda (x) (= (car x) 10))
				(entget pline)))))
  (ssdel pline ss)
  )
(setq cnt 0)
(setq records (mapcar (function
			(lambda	(x)
			  (append
			    (append (list (strcat "Pline " (itoa (setq cnt (1+ cnt)))))
				    x
				    (list "Pen(1,2,3)")))))
		      records)
      )

[mamuk]

спасибо! я попробую ваш выриант

[Oliver_88]

Код:

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

 (defun test ( / bes-selectionset->list test1 ssl lst1)
  (defun bes-selectionset->list (ssl)
    (mapcar
      (function
	(lambda (x)
	  (cadr x)
	  )
	)
      (vl-remove-if
	(function
	  (lambda (x)
	    (listp (cadr x))
	    )
	  )
	(ssnamex ssl)
	)
      )
    )
  (defun test1 (lst)
    (cond
      (
       (= (caar lst) 10)
       (cons
	 (cdar lst)
	 (test1 (cdr lst))
	 )
       )
      (
       lst
       (test1 (cdr lst))
       )
      )
    )
  (setq ssl (ssget "_X" (list (cons 0 "*POLYLINE"))))
  (setq lst1 (bes-selectionset->list ssl))
  (mapcar
    (function
      (lambda (b)
	(cons
	  (strcat "Pline " (vl-princ-to-string
			     (1+ (vl-position b lst1))
			     )
		  )
	  (reverse
	    (cons
	      "Pen (14,2,11556864)"
	      (reverse (test1 (entget b)))
	      )
	    )
	  )
	)
      )
    lst1
    )
  )

[mamuk]

пробовал я обрабатывать список полученный в ваших кодах, но увы мозгов не хватает, что бы на выходе получить строки записанные в файл
Pline 7
3551984.84 968727.36
3551998.69 968730.07
3552005.1 968723.92
3552017.35 968721.88
3552025.85 968733.46
3552008.43 968744.92
3552012.55 968749.41
Pen (14,2,11556864)
как же все это можно осуществить!?
по решения не нашел......

[Oliver_88]

Обрати внимание на коментарий.

Код:

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

 (defun test ( / bes-selectionset->list ssl lst1 test1 f str1 str2)
  
  (defun bes-selectionset->list (ssl)
    (mapcar
      (function
	(lambda (x)
	  (cadr x)
	  )
	)
      (vl-remove-if
	(function
	  (lambda (x)
	    (listp (cadr x))
	    )
	  )
	(ssnamex ssl)
	)
      )
    )
  
  (defun test1 (lst)
    (cond
      (
       (= (caar lst) 10)
       (cons
	 (cdar lst)
	 (test1 (cdr lst))
	 )
       )
      (
       lst
       (test1 (cdr lst))
       )
      )
    )
  
  (setq ssl (ssget "_X" (list (cons 0 "*POLYLINE"))))
  (setq lst1 (bes-selectionset->list ssl))
  
  (setq f (open "D:\\doc\\имя_файла.txt" "W"));здесь вместо "D:\\doc\\файл.txt" напиши свои путь и имя файла. Путь должен быть существующим (диск, папки). При отсутствии файла имя_файла.txt он будет создан автоматом.
   
  (setq str1 "Pline 7"
	str2 "Pen (14,2,11556864)"
	)
  
  (mapcar
    (function
      (lambda (d)
	(princ "\n" f)
	(princ str1 f)
	(mapcar
	  (function
	    (lambda (s)
	      (princ "\n" f)
	      (princ
		(vl-string-trim "( )"
		  (vl-princ-to-string s)
		  )
		f
		)
	      )
	    )
	  d
	  )
	(princ "\n" f)
	(princ str2 f)
	)
      )
    (mapcar
      (function
	(lambda (b)
	  (test1 (entget b))
	  )
	)
      lst1
      )
    )

  ;;;  (mapcar
  ;;;    (function
  ;;;      (lambda (u)
  ;;;	(mapcar
  ;;;	  (function
  ;;;	    (lambda (e)
  ;;;	      (princ "\n" f)
  ;;;	      (princ e f)
  ;;;	      )
  ;;;	    )
  ;;;	  u
  ;;;	  )
  ;;;	)
  ;;;      )
  ;;;    (mapcar
  ;;;      (function
  ;;;	(lambda (b)
  ;;;	  (cons
  ;;;	    (strcat "Pline " (vl-princ-to-string
  ;;;			       (1+ (vl-position b lst1))
  ;;;			       )
  ;;;		    )
  ;;;	    (reverse
  ;;;	      (cons
  ;;;		"Pen (14,2,11556864)"
  ;;;		(reverse
  ;;;		  (mapcar
  ;;;		    (function
  ;;;		      (lambda (g)
  ;;;			(vl-string-trim "( )"
  ;;;			  (vl-princ-to-string g)
  ;;;			  )
  ;;;			)
  ;;;		      )
  ;;;		    (test1 (entget b))
  ;;;		    )
  ;;;		  )
  ;;;		)
  ;;;	      )
  ;;;	    )
  ;;;	  )
  ;;;	)
  ;;;      lst1
  ;;;      )
  ;;;    )
  
  (close f)
  
  )

[TararykovDG]

Сообщение от Oliver_88 Обрати внимание на коментарий. Код: [Выделить все] ... (setq f (open "D:\\doc\\имя_файла.txt" "W"));здесь вместо "D:\\doc\\файл.txt" напиши свои путь и имя файла. Путь должен быть существующим. ...

Необязательно, если аргумент <файл> указывает на несуществующий файл в режимах "W", "A", то он создается

[Do$]

Сообщение от TararykovDG то он создается

У меня под буквой "D" - DVD-привод... Интересно, создаст он в нем этот txt?

[Кулик Алексей aka kpblc]

Ну можно по-разному заморачиваться, вплоть до http://autolisp.ru/2011/04/07/drivetype_define/

[Елпанов Евгений]

Сообщение от TararykovDG Необязательно, если аргумент <файл> указывает на несуществующий файл в режимах "W", "A", то он создается

ты точно уверен, что создается полный путь, включая папки?
попробуй:

Код:

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

(setq f (open "c:\\1\\1\\1\\1.txt" "w"))
(close f)

[mamuk]

Oliver_88, спасибо!
но у меня только список формируется , а записи в файл не происходит! конструкция кода для меня честно сложновата я пока не могу понять как там все происходит.
Извиняюсь! получилось! Спасибо и буду разбираться как тут все работает!!!!

[TararykovDG]

Сообщение от Do$ Цитата: Сообщение от TararykovDG Посмотреть сообщение то он создается У меня под буквой "D" - DVD-привод... Интересно, создаст он в нем этот txt?

Сообщение от Елпанов Евгений ты точно уверен, что создается полный путь, включая папки? попробуй: Код: [Выделить все] (setq f (open "c:\\1\\1\\1\\1.txt" "w")) (close f)

Да елы-палы, понятно что не создаст ни папки, ни файл на DVD-приводе. Я же говорил, что файл может не существовать, а путь, конечно должен существовать и быть корректным.

[Кулик Алексей aka kpblc]

Сообщение от TararykovDG а путь, конечно должен существовать и быть корректным.

Даже если пути нет, никто не мешает его создать. Устал я чего-то читать, как вы спорите по поводу несоздания каталога

Линк - то, что лично у меня работает. По крайней мере, пока.