Обновление программы «Прокат» Василия Кондрата

Владимир М · 05.12.2006, 18:24

Вот обновил базу данных проката для швеллеров и уголков *.dat; но вот в чем проблема!
Для швеллеров гнутых ГОСТ 8278-83 и уголков гнутых равнополочного ГОСТ 19771-93 и неравнополочного ГОСТ 19771-93 меняется номенклатура профиля для обычной и качественной стали, т.е к обновленной базе добавил еще дополнительную svlrgk.dat; ugrgk.dat; ugngk.dat. И поменял диалоговое окно, добавив опцию «выбор стали»
И вот не как не получается связать выбор с этими кнопками!
[ATTACH]1165331931.JPG[/ATTACH]
===
Добавлено 13.02.2009:
К сожалению, автор ветки последнее время на ней не появляется. Последняя актуальная сборка находится здесь.
Просьба разработчикам: при изменении писать мне или Солидворкеру в личку с указанием поста, где выложена сборка.
/kpblc/

Последняя работающая версия от VVA : http://forum.dwg.ru/showpost.php?p=352714&postcount=458
Версия от gomer : http://forum.dwg.ru/showpost.php?p=637272&postcount=568
Версия для BricsCAD : http://forum.dwg.ru/showpost.php?p=621028&postcount=545

При некорректной работе попробуйте совет из #777

AleksOr · 21.12.2009, 19:34

VVA, Спасибо большое, все работает.

nik_mb · 03.01.2010, 16:37

Попробовал применить данную прогу. Отчасти от того, что попросили переделать толщину скрытых линий, при черчении «сверху». Не хотелось сильно вникать.
Ну и пошло, поехало… Во-первых, добавил строчку в каждом файле, определяющим выбранный профиль:

Код:

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

(setvar "celtype" (_kpblc-linetype-load_ "hidden" nil) ) ;; изменил тип линии на подходящий
         	(setvar "CELWEIGHT" 20) ;; добавлено
;;;        (command "_color" "1")
;;;        (command "_linetype" "_s" "dashed" "" "" "")
;;;        (command "_color" "2") ; цвет желтый

С последующим восстановлением:

Код:

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

…
      (setvar "CELTYPE" "bylayer")
      (setvar "CELWEIGHT" -1) ;; добавлено

В первом фрагменте заремлены строки изменяющие цвет линии. Это наверно осталось с тех времен, когда толщину линии при печати можно было назначить только по цвету. Цвет убрали, толщину внутренней линии похерили.
Кстати, пробовал назначить тип линии «dashedX2”, но не тут то было. Пока не заремил строчку в файле «_kpblc-linetype-load_.LSP»

Код:

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

;;	ltype-name (strcase ltype-name t)

В идеале можно было добавить настройку по типу, цвету и толщинам скрытых линий при черчениях видов.
Потом не понравилось, что вставка «вида сверху» происходит по краю полки, а не по наружней стенке швеллера. Изменил точки скрытой линии так:

Код:

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

;;	    pt5	(polar pt3 (/ (* pi 3) 2) hp3p)
;;	    pt6	(polar pt4 (/ (* pi 3) 2) hp3p)
	    pt5	(polar cpt (/ pi 2) hp3p)
	    pt6	(polar ept (/ pi 2) hp3p)

Правда, для полного «кайфа» надо изменить точку на картинке слайда.
Дальше.
Не понравилось, что «слетают»:
1) «Выбор вида для черчения», а из-за этого:
2) «Длина указанием» (если каждый следующий профиль надо другой длины) и соответственно при этом:
3) Привязка.
Когда программа подходит к этим строкам:

Код:

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

…	
(progn
  (if osmd (setvar "OSMODE" osmd))
(initget 1)
(setq cpt (getpoint "\n First point:"))
…

То, переменная osmd=nil. Просто она записана в локальные. Достаточно ее убрать, как локальную, из определения функций все «садится» на свои места. Так если определяется длина указанием, то и устанавливать профиль можно по указанным точкам.
И еще. Если присутствует отрисовка в масштабе (считаю это рудиментом устаревших методов черчения), то желательно бы изменять масштаб типа линии.
В общем «для себя» - убрал из диалогового окна упоминание о способе выбора длины – выбор только на экране. Переписал функцию «sn_def»

Код:

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

 	(defun sn_def ()
(if (not (or glv1 glvm1 vsz1 vszm1 vsv1 sec1)) ;;если первый раз запущена команда
      (setq glv1 "0"
	    glvm1 "0"
	    vsz1 "0"
	    vszm1 "0"
	    vsv1 "0"
	    sec1 "1"
      ) ;_ end of setq
   ); end if
 (cond
  	((= glv1 "1") (set_tile "glv" "1"))
  	((= glvm1 "1") (set_tile "glvm" "1"))
     	((= vsz1 "1") (set_tile "vsz" "1"))
     	((= vszm1 "1") (set_tile "vszm" "1"))
     	((= vsv1 "1") (set_tile "vsv" "1"))
     	((= sec1 "1") (set_tile "sec" "1"))
      ) ;; end cond
      ) ;_ end of defun

Правда функцию «sn_def» пришлось воспроизвести в первоначальном виде, назвав ее «sn_obn» и вставить ее запуск в функцию выбора типа профиля. Т.е. выбирая другой профиль программой переустановить в «Выборе вида для черчения» на тип «сечение»

Код:

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

(action_tile "prfl" (strcat "(progn (setq pr_fl (get_tile \"prfl\"))" "(sn_obn)"….

Заремил, все что относится к определению длин в диалоговом окне. И после нескольких удачных и неудачных экспериментов получил более-менее удобную, для себя, прогу. Мал-мало глючная (ведь сильно не хотел вникать), но пока так.
Измененная мною программа «Прокат» как бы предложение – «а если так?». Вносить окончательные изменения в очередную сборку могут те, кто достаточно хорошо понимает ее работу. Мне не все очевидно, например, непонятно зачем нужно в файлах “dat” столько не справочных данных - значит для того, что бы их внести надо было предварительно вычислить? Если это так, то не проще бы уйти от этого геморроя, предоставив программе их вычислять?
Дальнейшее усовершенствование данной проги возможно в связке ее с масштабом вывода. Так если виды профиля, кроме сечения, выводить в масштабе 1:20 и более близлежащие линии полок и стенок сливаются. Их надо отображать утрированно (не точно). Для этого необходимо ввести «интеллектуальное» отображение – если при выводе расстояние между линиями будет меньше 0,5мм, то необходимо «подвинуть» линии так, чтобы они не сливались на выведенном чертеже.

PS измененые файлы программы залил по новой. Теперь работает без сбоев (но по прежнему с глюками - сечение вставляется только блоком и "Функция отменена====", но пока не до них).

LSN · 04.01.2010, 10:43

Цитата:

Дальнейшее усовершенствование данной проги возможно в связке ее с масштабом вывода. Так если виды профиля, кроме сечения, выводить в масштабе 1:20 и более близлежащие линии полок и стенок сливаются. Их надо отображать утрированно (не точно). Для этого необходимо ввести «интеллектуальное» отображение – если при выводе расстояние между линиями будет меньше 0,5мм, то необходимо «подвинуть» линии так, чтобы они не сливались на выведенном чертеже.

Здесь я с вами не согласен. Если так делать, то:
1. В некоторых случаях придется размеры в ручную проставлять
2. Можно с определением длин стыкующихся "перпендикулярно" элементов ошибиться.

nik_mb · 04.01.2010, 12:59

Цитата:

Сообщение от LSN

Здесь я с вами не согласен. Если так делать, то:
1. В некоторых случаях придется размеры в ручную проставлять
2. Можно с определением длин стыкующихся "перпендикулярно" элементов ошибиться.

Это возможно обойти дополнительным черчением, "правильно расположенной", линии как непечатной. И доводить стыкуемый элемент до нее, в крупных масштабах вывода чертежа такое расхождение будет мало заметно.

hwd · 11.01.2010, 18:20

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

Alan · 11.01.2010, 19:24

Цитата:

Сообщение от hwd

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

Посмотри вначале посты 448-452

hwd · 11.01.2010, 22:18

Цитата:

Сообщение от Alan

Посмотри вначале посты 448-452

посмотрел, и?

вижу несколько похожий вопрос, но не более (в смысле реализации оного нет).

nik_mb · 12.01.2010, 07:02

Цитата:

Сообщение от hwd

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

В правильном направлении посылает вас Alan.
Начинайте. Welcome так сказать - код открыт. Если вы ждете готовые решения, то это в разделе "готовые программы", а здесь вам - не там

Alan · 12.01.2010, 14:48

Цитата:

Сообщение от nik_mb

В правильном направлении посылает вас Alan.
Начинайте. Welcome так сказать - код открыт. Если вы ждете готовые решения, то это в разделе "готовые программы", а здесь вам - не там

>hwd
На самом деле всё можно сделать отдельно от кода программы. Информация заложена в имени блока.
На примере Двутавр по ГОСТ 26020-83 с параллельными гранями в трёх видах. На главном виде длина 1500мм.
На виде сверху длина 500мм. Инфа в имени _100 - это масштаб изображения, для спецификации не нужна.

hwd · 12.01.2010, 15:48

Цитата:

Сообщение от Alan

Информация заложена в имени блока.
На примере Двутавр по ГОСТ 26020-83 с параллельными гранями в трёх видах. На главном виде длина 1500мм.
На виде сверху длина 500мм. Инфа в имени _100 - это масштаб изображения, для спецификации не нужна.

Из информации данного примера сложно получить все нужные данные, например приведённые ниже:
1. Тип конструкции (двутавр/швеллер/уголок или др.)
2. Материал (металл/железобетон/дерево)*
3. Марка
5. Наименование
6. Примечание
7. ГОСТ**
8. Учитывать при подсчёте (да/нет)***
9. Длина**
10. Высота**
11. Масса**

________________________________________________________
* - Помимо данных блоков в чертеже могут присутствовать и др. блоки с данными атрибутами. Возможность фильтрации по материалам необходима, дабы не размещать в одной таблице конструкции металлические и железобетонные (для металлов своя ведомость, для ж/б - своя).

** - Данный атрибут присутствует только у тех блоков, для которых он нужен.

*** - На чертеже одна деталь может быть показана как на виде сверху, так и на виде сбоку, но при подсчёте количества в данном случае одну деталь следует пропустить.

shnn · 13.01.2010, 07:01

Offtop: Небольшая просьба к активным участникам темы. А где взять последнюю сборку программы? Можно конечно перечитать всю тему... но если вначале предлагали просто заменить файл, то в последних постах предлагается править участки кода... Может периодически давать ссылку на пост где можно взять программу целиком? Или еще лучше просто в пост выкладывать новый архив с уже произведенными изменениями?

nik_mb · 13.01.2010, 09:27

Цитата:

Сообщение от shnn

Небольшая просьба к активным участникам темы. А где взять последнюю сборку программы?...

Рабочая программа в посте #458. Я лишь предлагаю ее модификацию. Сам не пользуюсь "прокатом", поэтому дорабатывать свои предложения до совершенства нет ни времени, ни желания.

ander · 22.03.2010, 11:26

как запустить прокат на акаде 2010?

//да, просто пользовался очень древней версией, там пути прописывать не надо было. Теперь все работает. Спасибо.

LSN · 22.03.2010, 13:08

как обычно. инструкция внутри.

getr · 15.08.2010, 16:48

программа почему то не заработала...(скачал последнюю версию,автокад 2005eng) автокад ругнулся таким образом:
Command: (LOAD "C:/DOVESKI/LISP/prokat/prokat.lsp")
URL http://forum.dwg.ru/showthread.php?t=9322&page=23
Программа ПРОКАТ (2d) загружена. Сборка 458 от 10.02.2009"\nПрограмма ПРОКАТ
(2d) загружена. Сборка 458 от 10.02.2009"

Command: prokat

Ошибка загрузки файла _kpblc-linetype-load_.lsp : bad argument type: stringp nil
Ошибка загрузки файла dvt_p.lsp : bad argument type: stringp nil
Ошибка загрузки файла dvt_r.lsp : bad argument type: stringp nil
Ошибка загрузки файла shv_r.lsp : bad argument type: stringp nil
Ошибка загрузки файла shv_rp.lsp : bad argument type: stringp nil
Ошибка загрузки файла shv_rg.lsp : bad argument type: stringp nil
Ошибка загрузки файла ug_rp.lsp : bad argument type: stringp nil
Ошибка загрузки файла ug_np.lsp : bad argument type: stringp nil
Ошибка загрузки файла ug_rg.lsp : bad argument type: stringp nil
Ошибка загрузки файла ug_ng.lsp : bad argument type: stringp nil
Ошибка загрузки файла tr_prf.lsp : bad argument type: stringp nilbad argument
type: stringp nil====17079
Command:

Alan · 15.08.2010, 17:17

Цитата:

Сообщение от getr

программа почему то не заработала...(скачал последнюю версию,автокад 2005eng) автокад ругнулся таким образом:
Command: (LOAD "C:/DOVESKI/LISP/prokat/prokat.lsp")
URL http://forum.dwg.ru/showthread.php?t=9322&page=23
Программа ПРОКАТ (2d) загружена. Сборка 458 от 10.02.2009"\nПрограмма ПРОКАТ
(2d) загружена. Сборка 458 от 10.02.2009"

Command: prokat

Ошибка загрузки файла _kpblc-linetype-load_.lsp : bad argument type: stringp nil
..........................
Ошибка загрузки файла tr_prf.lsp : bad argument type: stringp nilbad argument
type: stringp nil====17079
Command:

Читаю Read-Me.txt внутри архива.

Цитата:

---------(версия июль 2007г. Alan)----------------------------------
Инсталяция:
Папка с файлами копируется в любую папку,
и путь к ней описывается в "Путях доступа к вспомогательным файлам" Автокада.
например, если файлы скопировали в папку d:\MyLisp\prokat\, добавьте эту папку.
(Сервис-Настройка-Файлы-Путь доступа к вспомогательным файлам)
-------------------------------

Это сделано?

getr · 16.08.2010, 11:11

Да все вроде правильно сделал...вот сейчас в другом профиле(на всякий случай чтоб не путаться)прописал путь к папке на рабочем столе,создал кнопку с макросом из readme..результат:
Command: (if (= PROKAT nil)(Load(findfile "prokat.lsp")))

URL http://forum.dwg.ru/showthread.php?t=9322&page=23
Программа ПРОКАТ (2d) загружена. Сборка 458 от 10.02.2009"\nПрограмма ПРОКАТ
(2d) загружена. Сборка 458 от 10.02.2009"

Command: PROKAT
bad argument type: stringp nil====4133
Command:
P.S.
Вопрос снимаю,решение оказалось банальным-после слова load в макросе поставил пробел(он не стоит в файле readme)и все зарабо-о-о-о-тало!

getr · 03.09.2010, 21:23

Снова засада...при выборе двутавра с уклоном полок по ГОСТ8239 вылетает ошибка- bad argument type: stringp nil====55...как можно вылечить?

Alan · 03.09.2010, 23:04

Цитата:

Сообщение от getr

Снова засада...при выборе двутавра с уклоном полок по ГОСТ8239 вылетает ошибка- bad argument type: stringp nil====55...как можно вылечить?

Выполняю проверку по только что скачанной (для чистоты эксперимента) версии http://forum.dwg.ru/showpost.php?p=352714&postcount=458
У меня работает!

Прикладываю картинку диалогового окна.
Затем на кончике пера встал блок (сечения), который и вставил в чертеж.
Автокад2005 (рус) - без всяческих надстроек, только путь к папке с Прокатом прописан.
ИМХО. Тщательнее надо, товарисчЪ!

getr · 03.09.2010, 23:19

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