[Red Nova]

Если кто еще не знает, то тут VVA по моей просьбе создал программу для подсчета масс в спецификациях из мтекстов. Программой я очень доволен, все не нарадуюсь. Но как говорится аппетит приходит во время еды. И теперь хотелось бы пойти еще дальше и автоматизировать создание самой спецификации (которую уже потом можно рассчитывать лиспом от VVA). Ведь по большей части на чертеже всегда присутствуют выноски в которых уже есть информация по спецификации, или хотя бы ее часть. Что если одной командой собрать всю информацию из выносок и вписать в шаблон спецификации.
Суть такова.
Я пользуюсь СПДС. Для маркировки позиций использую выноски СПДС. Выноски СПДС имеют две строки, в верхней пишется номер позиции, в нижней данные о профиле.
Предполагаемый лисп должен выбирать все позиционные выноски СПДС имеющиеся в файле (можно и выбрать рамкой часть файла), создавать список из двух столбцов (номер позиции и профиль), затем многократно фильтровать ненужные данные и дублирующие позиции. Полученный список упорядочивается. Затем рамкой выбирается шаблон для спецификации (напомню он из мтекстов), в выбранные строки вписываются данные из упорядоченного списка.

Теперь попробую на конкретном файле объяснить алгоритм более подробно.
Запускаем лисп, создается список с данными из выносок. Затем фильтруем мусор. Для этого надо сперва ввести в лисп пояснение – как выбрать полезные выноски. Дадим определение пригодных для спецификации выносок.
Они должны удовлетворять следующим пунктам.
1. Обе строки выноски содержат информацию.
2. Верхняя строка выноски должна содержать информацию нумерационного характера, нумерация отсчитывается по цифрам и по буквам латинского и русского алфавитов. Можно использовать знак ‘ и “. Допускаемые записи могут иметь такой вид – 1, 2, 3, 4, // а, б, в, г, // a, b, c, d, // 1a, 1b, 1c, // 1, 1’, 1”, 2, 2’ // a1, a2, a3, b, b1, ... (Впрочем для первого приближения можно оставить только 1, 2, 3, 4)
3. Нижняя строка должна начинаться на определенные символы, вот их список
- Знак “-”, слова “Лист” и “Полоса”
- Слово “Труба”, “Тр.” и знак трубы из шрифтов СПДС
- Слово “Уголок” и аналогичные символы из шрифтов СПДС
- Слово “Двутавр” и аналогичные символы из шрифтов СПДС
- Слово “Швеллер” и аналогичные символы из шрифтов СПДС
- Слово “Фланец”, то же “Фл.”
- Стандартный знак диаметра и знак диаметра из шрифтов СПДС
4. Есть и другие критерии, но о них пока не стоит говорить.

Теперь необходимо отсеять дублирующие позиции, но делать это надо так, чтобы отсеять менее информативные выноски. Скажем имеем две выноски первая строка которых имеет тот же номер, а втора строка различается, предположим вотрые строки имеют следующее содержание:
“Тр. Ø89х3.5, L=2500”
“Тр. Ø89х3.5”
Из этих строк выбирается первая, как более информативная, вторая отбрасывается. Если по проще, то для дальнейших действий берем выноску с более длинной второй строкой.

Поскольку информация о профиле вписывается в двух столбцах (Профиль отдельно, длина отдельно) то нам теперь нам надо определится с ними.
Предположим верхняя строка выноски содержит цифру 25. Если нижняя строка выноски не содержит запятых, (на пример “Тр. Ø89х3.5”) то считаем что выноска не несет информацию о длине профиля, тогда в списке соответствующая строка записывается как
(25, Тр. Ø89х3.5, -). Если же запятая есть (на пример “Тр. 89х3.5, L=2500”) То считаем что выноска несет информацию о длине профиля, тогда в списке соответствующая строка записывается как (25, Тр. 89х3.5, L=2500). Если выноска содержит две и более запятых, (на пример “Тр. Ø89х3.5, L=2500, шаг 200”) то отбрасываем информацию идущую после второй запятой.
Далее упорядочиваем список (по номерам позиций).
Если все прошло как планировалось, то применительно к файлу примера список будет такой.
(1, -10х100x100, -)
(2, Тр. Ø89х3.5, L=2500)
(3, “знак уголка шрифта СПДС”75х5, L=800)
(4, “знак двутавра шрифта СПДС”20, -)
(5, “знак швеллера шрифта СПДС”12, L=960)
(6, Ø12 А500c, ΣL=24000)
(7, Ø20 А500c, L=980)

В спецификации есть также столбик с ГОСТ-ом. Чтобы он вписывался автоматически для каждого профиля надо заранее определится с ГОСТ-ом, и записать его в лисп. Так в нашем примере нужно записать следующие госты
Если обозначение профиля начинается на символ “-”, слово “Лист” то это соответствует ГОСТу “ГОСТ 19903-74”
Если обозначение профиля начинается на слова “Труба”или “Тр.” то это соответствует ГОСТу “ГОСТ 10704-91”
Если обозначение профиля начинается на cлово “Уголок” или аналогичные символы из шрифтов СПДС то это соответствует ГОСТу “ГОСТ 8509-93”
Если обозначение профиля начинается на cлово “Двутавр” или аналогичные символы из шрифтов СПДС
то это соответствует ГОСТу “ГОСТ 8239-89”
Если обозначение профиля начинается на слово “Швеллер” или аналогичные символы из шрифтов СПДС
то это соответствует “ГОСТ 8240-97”
Если обозначение профиля начинается на стандартный знак диаметра и знак диаметра из шрифтов СПДС то это соответствует ГОСТу “ГОСТ 5781-82”

Итак добавив ГОСТы к спискам они должны стать такими:
(ГОСТ 19903-74, 1, -10х100x100, -)
(ГОСТ 10704-91, 2, Тр. Ø89х3.5, L=2500)
(ГОСТ 8509-93, 3, “знак уголка шрифта СПДС”75х5, L=800)
(ГОСТ 8239-89, 4, “знак двутавра шрифта СПДС”20, -)
(ГОСТ 8240-97, 5, “знак швеллера шрифта СПДС”12, L=960)
(ГОСТ 5781-82, 6, Ø12 А500c, ΣL=24000)
(ГОСТ 5781-82, 7, Ø20 А500c, L=980)

Формирование списка законченно. Теперь нужно рамкой отметить шаблон спецификации, в которой 4 столбца и n-ное количество строк. Данные их списка вписываются в мтексы спецификации как указанно в файле примера. Если строк выбрано больше чем у списка, то в мтексты лишних строк вписываются символы ###, если строк выбрано меньше чем у списка, то выходит сообщение об ошибке.

Ну вот и все. Больно длинно у меня получилось для первых объяснений. Если вы дошли до этого предложения, то у вас железное терпение. Надеюсь что кому-то эта белиберда покажется интересной.

В конце скажу что крыс сделал первый шаг, и создал лисп формирующий список их строк выносок СПДС. Вот он.

Код:

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

(defun c:get-notes-activex (/ adoc lst)
;; Через ActiveX
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-StartUndoMark
  (vlax-for ent (vla-get-modelspace adoc)
    (if (= (vla-get-objectname ent) "mcsDbObjectNotePosition")
      (setq lst (cons ent lst))
      ) ;_ end of if
    ) ;_ end of vlax-for
  ;; Теперь делай со списком чего хотишь
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

(defun c:get-notes-ent (/ adoc lst _dwgru-conv-pickset-to-list)
;; Через ent*

  (defun _dwgru-conv-pickset-to-list (value / tab item)
    (repeat (setq tab  nil
                  item (sslength value)
                  ) ;_ end setq
      (setq tab (cons (ssname value (setq item (1- item))) tab))
      ) ;_ end repeat
    ) ;_ end defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-StartUndoMark
  (setq lst (vl-remove-if-not
              '(lambda (x) (= (cdr (assoc 0 (entget x))) "spdsNotePosition"))
              (_dwgru-conv-pickset-to-list (ssget "_X"))
              ) ;_ end of vl-remove-if-not
        ) ;_ end of setq
  ;; Теперь делай со списком чего хотишь
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[dextron3]

CB, этот лисп очень хороший! я сомтрю тут не всефорумчане учавствуют в разговоре, но все следят за изменениями и в курсе дела, могу показать мое ТЗ, если конечно я вовремя...

[Red Nova]

dextron3,

а куда подевались мои решеточки?

Какие решетки?
DEM,

все как то через одно место делается.

Может и так. Я не против того чтобы программа приняла более достойный вид. Так что, если хочешь, давай будем формулировать новое ТЗ, ты первый. СВ вроде не против все переделать.
ShaggyDoc,

Практического значения ноль, null или nil

Не согласен. Нужно учесть что ТЗ я сформулировал учитывая нужды нашего КБ. Конечно же это не для всех универсально. Но тут без помощи других участников форума не справиться. У нас программа уже используется, и все довольны. Так что практического значения уже не ноль.

[Рyslan]

а где сам лисп? никак не могу его найти среди ваших постов

[DEM]

Red Nova
Занимаюсь своей программкой думаю о структуре и связи данных.
Правда часть моих пожеланий Яков Коренев пообещал в следующем релизе СПДС-ки учесть.
Связь данных можно осуществить и с помощь данного лиспа, только проблема в том что обозначения позиций на чертеже, Я делаю нумерацией, а не как в вашем случае описывая деталь грубо говоря.

[ShaggyDoc]

практического значения уже не ноль

Я же писал "...null или nil". А null и nil это не ноль.

[Рyslan]

так где лисп то? дайте посмотреть то

[Red Nova]

Рyslan, #115 + Это и Это
ShaggyDoc, Издеваемся... ну как не Ай Ай Ай.
DEM, А что конкретнее планируют ввести разработчики СПДС в следующем релизе?

[ShaggyDoc]

ShaggyDoc, Издеваемся... ну как не Ай Ай Ай.

Ага. Пытаетесь решить задачу, чтобы в спецификацию попадали правильные данные. И придумали, что их надо из выносок копировать. А в выноски может попадать черт-те что, особенно если dextron3 возьмется. И пытаетесь программно перебирать все варианты, на которые способна "обезьяна с гранатой". Их будет бесконечное количество.

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

[Рyslan]

Red Nova
А одного этого нет? Выложи готовый вариант, которым сам пользуешься и описание что делает лисп, если не трудно

[Red Nova]

ShaggyDoc, Похоже вы не очень внимательно просмотрели лисп. Там присутствует многократная фильтрация лишней информации. Как раз чтобы "черт-те что" туда не попадало. Честно говоря не понимаю вашего недоумения. Этот лисп лично для меня (и не только) очень удобен. И я не претендую на то чтобы программа стала эталонной.

[Red Nova]

Рyslan, Я дал 3 ссылки. Сохрани коды как отдельные lsp файлы и загрузи. Описание работы на #52

[dextron3]

Red Nova, на счет болта L= не желательно бы,

хотябы прочерк вместо длины ставило, как в пластинах...

[dextron3]

Red Nova,

Принимай обновлениия:

Код:

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

"Анк.Болт*,ПВ1*,Сетка*,Чечев.*,Ромб.*,Шайба*,Гайка*,Болт*,\\U+E72E*,Труба*,Тр.*,Лист*,Полоса*,\\U+E720*,Уголок*,\\U+E725*,Швеллер*,\\U+E729*,Двутавр*,Фланец*,Фл.*,-*,%%c*,\\U+E712*,#%%c*,# %%c*,##%%c*,## %%c*,#\\U+E712*,# \\U+E712*,##\\U+E712*,## \\U+E712*"

Код:

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

(list (list "Лист -" "Лист-" "Фл")
                   (list "Лист чечевица" "Лист ромб")
                   (list "-")
                   (list "Полоса")
                   (list "Уголок" "\\U+E720")
                   (list "\\U+E72E")
                   (list "Тр")
		   (list "Двутавр*#*#[БКШ]" "\\U+E729*#*#[БКШ]")
		   (list "Двутавр*#*#[М]" "\\U+E729*#*#[М]")
                   (list "Двутавр" "\\U+E729")
                   (list "Швеллер" "\\U+E725")
                   (list "%%c" "\\U+E712")
                   (list "Анк.Болт")
                   (list "Болт")
                   (list "Гайка")
                   (list "Шайба")
                   (list "Ромб.")
                   (list "Чечев.")
                   (list "Сетка")
                   (list "ПВ1")

             ) ;_ end of list
             (list "ГОСТ 19903-74"
                   "ГОСТ 8568-77"
                   (list "ГОСТ 19903-74" "ГОСТ 103-76")
                   "ГОСТ 103-76"
                   (list "ГОСТ 8509-93" "ГОСТ 8510-86")
                   "ГОСТ 30245-03"
                   "ГОСТ 10704-91"
		   "СТО АСЧМ 20-93"
                   "ГОСТ 19425-74" 
                   "ГОСТ 8239-89"
                   "ГОСТ 8240-97"
                   "ГОСТ 5781-82"
                   "ГОСТ 28778-90"
                   "ГОСТ 7798-703"
                   "ГОСТ 5915-70"
                   "ГОСТ 11371-78"
                   "ГОСТ 8568-77"
                   "ГОСТ 8568-77"
                   "ГОСТ 5336-80"
                   "ТУ 36.26.11-5-89"


             ) ;_ end of list

Не работает только Анк.Болт, жду объяснения

[dextron3]

А возможно просто сделать такой лисп + к нему текстовый файл

тоесть СПДС ная выноска, делиться на три как бы составляющих

1. Позиция
2. Надпись
3. Длина, любое наименование, разделение происходит при помощи ЗАПЯТОЙ,

в текстовом файле запись к примеру

Ф______ГОСТ такойто
Швеллер_______ГОСТ такойто

лисп проверяет если есть в текстовом файле сочетание символов из выноски то соответсвующий гост вписывает в столбец для госта, если не находит то вписывает прочерк,

так бы был универсальный, а то сейчас сложно наполнять

Буду ждать помощи Red Nova, СВ и VVA

заранее балгодарен

[DEM]

dextron3
Че дурью маятся зачем повторять то что дано уже в спецификации.
Можно же просто использовать маркеры, там сделать не видимые свойства, и будет у тебя просто позиция на чертеже.
Короче ща времени нету, чуть позже поставлю 5-ку СПДС и разберу все по полочкам.

[Red Nova]

DEM, Уже 5-я вышла? Может действительно там все уже по спецификациям тип-топ. Надо посмотреть...

[dextron3]

Red Nova, вроде почти подогнал под себя не могу внедрить свое условие:

Код:

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

(if (wcmatch (cadr x) "\U+E722\U+E722\U+E722*")
                  (append x '("(м.кв.)"))
                  (append x '("L="))
                ) ;_ end of if

писалось только (м.кв.), а L= игнорировалось а не дублировалось

как это сделать?

[Red Nova]

Хм. Нашел кого спрашивать

[dextron3]

Я все понял!!!!!!!!!

Код:

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

(if (wcmatch (cadr x) "-*,Лист*,Фл*,Болт*,Гайка*,Шайба*")
                  (append x '("-"))
                  (append x '("(м.кв.)"))

Red Nova, я сделал такое условие если нет буквы L в выноске и это соответсвенно не -*,Лист*,Фл*,Болт*,Гайка*,Шайба*, то тогда будет проставляться (м.кв.), но проблема что хочется теперь п.м. вставить

[dextron3]

но приходится теперь в соновной спеке м.п. выражать так: