[Владимир М]

Вот обновил базу данных проката для швеллеров и уголков *.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

[Nesamovytyj]

Установил последнюю сборку. Почему-то ставит 2Д профили в начало координат.( В более ранней версии работало нормально) Пишет:
PROKAT Ошибка Automation.

Попробывал функцию npz. Сначала запускается потом слетает при установки направления выноски.

Первая точка выноски <выход>:
Направление <выход>: Ошибка Automation.


Может кто-то подскажет в чем проблема???

[AleksOr]

При вставке профиля с указанием длинны, длинна профиля устанавливается в соответствии с масштабом, т.е. при масштабе 2:1 например длинна увеличивается в двое. А это не удобно, я ж указываю уже необходимую длинну. Подскажите пожалуйста, можно это исправить и как?

[Alan]

Извините, только заметил сообщение.

Сообщение от Nesamovytyj Установил последнюю сборку. Почему-то ставит 2Д профили в начало координат.( В более ранней версии работало нормально) Пишет: PROKAT Ошибка Automation. Попробывал функцию npz. Сначала запускается потом слетает при установки направления выноски. Первая точка выноски <выход>: Направление <выход>: Ошибка Automation. Может кто-то подскажет в чем проблема???

Необходимо написать версию Автокада и программы Прокат.

AleksOr

При вставке профиля с указанием длинны, длинна профиля устанавливается в соответствии с масштабом, т.е. при масштабе 2:1 например длинна увеличивается в двое. А это не удобно, я ж указываю уже необходимую длинну. Подскажите пожалуйста, можно это исправить и как?

Необходимо написать версию (№ сборки) программы Прокат.

[avg3]

[size=3]Програма очень понравилась. [/size]
[size=3]У меня есть кое-какие замечания (если это актуально)[/size]

[size=3]Для 2d:[/size]

1. [size=3]Думаю в блоки нужно добавить атрибуты с названием профиля, тогда (при необходимости) можно будет маркировать профиль на узлах.[/size]
2. [size=3]Добавить возможность изменять точку вставки профиля . На сечениях уголков и швеллеров (см. приложение). [/size]

[size=3]Для 3d:[/size]

1. [size=3]Дать возможность строить профиль по направляющей (отрезок).[/size]
2. [size=3]Информацию о профиле заносить в расширенные данные. Потом эту информацию можно собрать и обработать.[/size]

[AlexV]

Сообщение от avg3 Для 3d: Дать возможность строить профиль по направляющей (отрезок). Информацию о профиле заносить в расширенные данные. Потом эту информацию можно собрать и обработать.

Попробуй программу от Mikka vba.3d-сортамент

[LSN]

Сообщение от Alan Необходимо написать версию (№ сборки) программы Прокат.

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

Присоединяюсь к посту #504

[Nesamovytyj]

Моя версия автокада 2007. Версия программы Procat_N458 от 12.02.2009.rar

[VVA]

Сообщение от AleksOr При вставке профиля с указанием длинны, длинна профиля устанавливается в соответствии с масштабом, т.е. при масштабе 2:1 например длинна увеличивается в двое. А это не удобно, я ж указываю уже необходимую длинну. Подскажите пожалуйста, можно это исправить и как?

Функция clip_bl
строку

Код:

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

(command "_.-insert" edat3 "_S" m  pause)      ;_ Add 02.08.2007 VVA change VVA 28.09.2007

заменить на

Код:

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

      (command "_.-insert" edat3 "_X" 1 "_Y" m  pause)                       ;_ Add 02.08.2007 VVA change VVA 28.09.2007 change VVA 02.12.2009

Во вложении исправленный файл. Протестируй. Если нормально, то обновлю сборку.

Установил последнюю сборку. Почему-то ставит 2Д профили в начало координат.( В более ранней версии работало нормально) Пишет: PROKAT Ошибка Automation.

Я думаю, чот это что-то с Автокадом. У меня работает. Попробуй переустановить Автокад. Похожая тема с проблемой

Информацию о профиле заносить в расширенные данные.

Это делается. Найди в коде строчки

Код:

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

         (ldata-add (entlast) (list
				 (list "PTYP" (nth (atoi pr_fl) ptyp))  ;_тип проката L I [] [
				 (list "VTYP" (nth (atoi rr) aa))       ; Профиль I20Ш [18Ау и т.д.
				 (list "GOST" (nth (atoi pr_fl) sortam)); Название госта
				 )
	)

[Alan]

VVA, спасибо за оперативный отклик

[AleksOr]

VVA, Спасибо сейчас все нормально.
При вставке сечения масштабирует только по высоте. Помоему надо так: (command "_.-insert" edat3 "_X" m "_Y" m pause)

[LSN]

Сообщение от AleksOr Помоему надо так: (command "_.-insert" edat3 "_X" m "_Y" m pause)

1. так не работает. Все-таки надо как у VVA, только, скорее всего, необходимо проверять что мы рисуем?
2. При замене этой строки

(command "_.-insert" edat3 "_X" 1 "_Y" m pause)

сечение и виды рисуются отрезками, а не полилиниями.

добавлено

3. VVA, как сделать, что бы не отключались привязки. (отключаются при указании длины профиля)

[VVA]

Сообщение от LSN 2. При замене этой строки сечение и виды рисуются отрезками, а не полилиниями.

Обновил файл в #508. Тестируй

3. VVA, как сделать, что бы не отключались привязки. (отключаются при указании длины профиля)

Привязки не отключаются, а жестко устанавливаются
Синим выделено то что тебе нужно. Красным - строчка, которую правили

Код:

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

;;; объектная привязка - 51
  (setvar "osmode" 51)
  (prompt "\n Режим объектной привязки: ПЕР,КОН,СЕР,КВА ")
;;;------------------------------изменения 12.02.09   конец ------------------------------------------

;;;-------- Изменения 02.08.2007 VVA Начало --------------------  
;;;Вставка блока вынесена за if                                            ;_ Add 02.08.2007 VVA
      (setvar "clayer" *alan-layer-saved*)                                   ;_ Add 02.08.2007 VVA
      (princ "\nТочка вставки :")                                            ;_ Add 02.08.2007 VVA
      (setq m (mapcar 'atof(str-str-lst *ProcatMashtab* ":")))               ;_ Add 28.09.2007 VVA
      (if (VL-CATCH-ALL-ERROR-P                                              ;_ Add 28.09.2007 VVA
            (VL-CATCH-ALL-APPLY                                              ;_ Add 28.09.2007 VVA
              '(lambda()                                                     ;_ Add 28.09.2007 VVA
                 (setq m (apply '/ m)))))                                    ;_ Add 28.09.2007 VVA
        (setq m 1.0)                                                         ;_ Add 28.09.2007 VVA
        )                                                                    ;_ Add 28.09.2007 VVA
      (command "_.-insert" edat3 "_X" 1 "_Y" m  pause)                       ;_ Add 02.08.2007 VVA change VVA 28.09.2007 change VVA 02.12.2009

[LSN]

1. Что касается видов сверху и спереди, то все отлично.

2. Сечение опять трансформируется. Рисуется полилинией, но объединяется фрагментами. Я думаю это все из-за трансформации.

3. Привязки отключаются (или жестко устанавливаются в откл. все) при указании длины профиля при выборе Длина указанием и нажатии на ОК

[avg3]

Внутри prokat.lsp я нашел функцию C:npz

Код:

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

;;Номер позиции
;;Текст пишется текущей высотой шрифта
(defun C:NPZ ( / p1 p2 *error* osm ldata-get ss ent str1 str2)
;;Возвращает данные проката

1. Высота текста у меня почему-то ставится 0,25
2. Какой исползовать шрифт для правильного отображения символов проката?

[AleksOr]

При варианте - (command "_.-insert" edat3 "_X" 1 "_Y" m pause) сечение рисуется в масштабе только по "Y", а остальные виды правильно с указанием размера, а при варианте - (command "_.-insert" edat3 "_X" m "_Y" m pause) виды сверху и главный рисуются в выбранном масштабе, а не указанием размера.
И насчет привязки тоже.
VVA посмотрите пожалуйста, может можно исправить.

[E-degtyarev]

ИМХО править программу нужно не там где вставляется блок, а там где он формируется, т.е. в лиспах, создающих список объектов для отрисовки профиля. Там есть запрос типа "От точки" - "До точки". После этого полученную длину следует умножить (поделить) на масштаб.

[Jonas]

Сообщение от avg3 Дать возможность строить профиль по направляющей (отрезок).[/

Я написал макрос для вставки по двум точкам в любом направлении.

^C^Cорто;Откл;_cal;p1=cur;\_ucs;_o;@;_line;@;\'_cal;p2=@;\;_erase;@;;_erase;_last;;_ucs;_zaxis;0,0,0;'_Cal;p2;\орто;Вкл;_prokat;0,0,0;\_extrude;_last;;\_ucs;_w;

Одно условие, выбирайте вставку "полилинией" (в диалоговом окне выбора профиля).

[VVA]

Сообщение от AleksOr И насчет привязки тоже. VVA посмотрите пожалуйста, может можно исправить.

Постараюсь поправить, но чуть позднее. Пока большая загрузка.

1. Высота текста у меня почему-то ставится 0,25

Там же написано

;;Текст пишется текущей высотой шрифта

см. TEXTSIZE

2. Какой исползовать шрифт для правильного отображения символов проката?

можно этот Шрифт по ГОСТ 2.304-81 тип А

[VVA]

Сообщение от AleksOr При варианте - (command "_.-insert" edat3 "_X" 1 "_Y" m pause) сечение рисуется в масштабе только по "Y", а остальные виды правильно с указанием размера, а при варианте - (command "_.-insert" edat3 "_X" m "_Y" m pause) виды сверху и главный рисуются в выбранном масштабе, а не указанием размера. И насчет привязки тоже. VVA посмотрите пожалуйста, может можно исправить.

Обновил #458 Тестируйте

[LSN]

Все работает. Спасибо VVA