[4ertegn1k]

Добрый день.
Проблема есть такого плана. Есть готовый чертеж dwg , в котором есть много наборов text , вроде R1 C23 X3 и так далее.
Есть спецификация, в которой есть перечень тех же самых элементов.
Хочу сделать через LISP список из этого текста, чтобы потом его можно было бы сравнить с другим списком из спецификации и сказать, что они одинаковы. Или различаются в таких-то позициях.
Что скажете хорошего по этому поводу?

[Alan]

Теоретически набрать список из текстовых примитивов несложно.
Что касается сравнения его с другим списком, то тут задача сложнее, так как самое главное правила по которым эти списки составлялись, и по каким параметрам они будут сравниваться...
Я не знаю зачем Вы это хотите делать... Но наверное правильнее делать спецификации по информации чертежа...
Обычно вместо текстов употребляют атрибуты... как примитивы, имеющий более высокий коэффициент наполнения информацией и имеющие средства для извлечения их из чертежа.

[Дима_]

Сообщение от 4ertegn1k Хочу сделать через LISP список из этого текста...

Код:

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

 
(mapcar '(lambda (ent) 
           (cdr (assoc 1 (entget ent))))
        (vl-remove-if  'listp
          (mapcar 'cadr 
             (ssnamex (ssget (list (cons 0 "*text")))))))

[Disney]

А потом к списку можно применить

Код:

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

 (defun group-by-value (lst / ret tmp)
  (while (car lst)
    (setq tmp (list (vl-remove-if-not
		      (function	(lambda	(a)
				  (equal a (car lst) 1e-12)
				)
		      )
		      lst
		    )
	      )
    )
    (setq ret (cons (car tmp) ret))
    (setq lst (vl-remove-if
		(function (lambda (a)
			    (equal a (car lst) 1e-12)
			  )
		)
		lst
	      )
    )
    (setq tmp nil)
  )
  (setq	ret (mapcar (function (lambda (x)
				(list (car x) (length x))
			      )
		    )
		    (reverse ret)
	    )
  )
)

[Александр Ривилис]

Дима_, группы 3 для MTEXT'ов забыл.

[4ertegn1k]

Alan - согласен, что я бы сделал это немного по другому, но дело в том, что получаю в виде исходных данных чертеж и спецификацию, выполненных двумя разными людьми, и мне надо точно видеть, что одно соответствует другому. Чертежи есть маленькие, на 7-12 элементов, там несложно, но попадаются мастодонты на три с половиной сотни. Беру распечатанный чертеж и нахожу вручную по спецификации, для наглядности заштриховываю элемент за элементом. Долго и нудно. Вот и хочу это дело ускорить. С рутиной же надо бороться!

Dima_ и Disney - спасибо, буду разбираться, потому как хочу узнать, как оно работает. Позже расскажу, что получилось!

[4ertegn1k]

Пробую разобраться в предложенных листингах и написать свой.
Пока всё туманно....
Сделал такую программку, которая создаёт список всех имен примитивов, которые есть в чертеже. Работает, но на маленьких чертежах, как-то 3-5-7 примитивов. Когда запускаю её на более-менее серьёзные чертежи - просто виснет.
Интересно, почему?

(defun c:spisok ()

(setq s1 nil) ; Список, куда записываются имена примитивов
(setq x1 nil) ; Переменная

(setq x1 (entnext))
(while x1
(entget x1)
(setq s1 (cons x1 s1))
(setq x1 (entnext x1))

)

)

[Лиспер]

Код:

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

 (defun s:spisok(/ x1 s1)
(while (setq x1 (entnext))
(setq s1 (cons x1 s1)))
; <...>
(princ)
)

Как-то так... Только что ты хочешь с этим списком делать?

[4ertegn1k]

А из него надо извлечь все примитивы, которые есть text.
Только у меня так быстро не получается

[Лиспер]

А не проще будет в таком случае выполнить (ssget "_X" '((0 . "TEXT"))) и его преобразовывать в список? Или надо проходить еще и по составу блоков и внешних ссылок?

[4ertegn1k]

Лиспер - замечание принимается! Действительно, это будет логично.