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

Владимир М · 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

Владимир М · 13.02.2009, 12:43

Всем привет! Тут так все изменилось, пока меня не было. Долго придется разбираться, но времени пока нет.
А на счет поста #477.
Я работал по новым гостам, так к примеру ГОСТ 8240-97 (там везде «У», тем более он пополнен новыми сортаментами с другими профилями, с буквами «Э», «Л» и «С»), хотя я так понял старые инженеры привыкли к ГОСТ 8240-89 в котором пишутся швеллеры с уклоном без «У», там только где с прямыми полками указывается буква «П». Но он уже заменен! Пусть следят за ГОСТ и обновляют. Меня они сами заставляли в графе Материала не писать букву «У» в обозначение профиля по ГОСТ. Но считаю, они не правы. Пусть читают ГОСТ.
У меня все согласно ГОСТ 8240-97!
Прикрепляю ГОСТы, смотрите различия между ГОСТ 8240-97 и ГОСТ 8240-89.

vasyavip · 01.03.2009, 17:42

Цитата:

Сообщение от Рyslan

я вчера пробовал запустить лисп Prokat, выдает какую то ошибку

Команда: prokat
Ошибка загрузки файла _kpblc-linetype-load_.lsp : неверный тип аргумента:
stringp nil
Ошибка загрузки файла dvt_p.lsp : неверный тип аргумента: stringp nil
Ошибка загрузки файла dvt_r.lsp : неверный тип аргумента: stringp nil
Ошибка загрузки файла shv_r.lsp : неверный тип аргумента: stringp nil
Ошибка загрузки файла shv_rp.lsp : неверный тип аргумента: stringp nil
Ошибка загрузки файла shv_rg.lsp : неверный тип аргумента: stringp nil
Ошибка загрузки файла ug_rp.lsp : неверный тип аргумента: stringp nil
Ошибка загрузки файла ug_np.lsp : неверный тип аргумента: stringp nil
Ошибка загрузки файла ug_rg.lsp : неверный тип аргумента: stringp nil
Ошибка загрузки файла ug_ng.lsp : неверный тип аргумента: stringp nil
Ошибка загрузки файла tr_prf.lsp : неверный тип аргумента: stringp nilневерный
тип аргумента: stringp nil
Команда:

Я понял в чём проблема! Она заключается в том, что надо прописать путь доступа к самой папке с "прокатом", а не думать, что она лежит в корневой папке доступа ко всем дополнениям lisp-программ!

Рyslan · 01.03.2009, 21:48

vasyavip я уже точно не помню, но что-то я прописал в support и теперь вроде работает

склероз блин, хорошая болезнь, ничо не болит и каждый день новости

VVA · 01.03.2009, 22:25

Цитата:

Я понял в чём проблема! Она заключается в том, что надо прописать путь доступа к самой папке с "прокатом", а не думать, что она лежит в корневой папке доступа ко всем дополнениям lisp-программ!

vasyavip, А почитать Read-me.txt что мешает? Цитирую :

Цитата:

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

E-degtyarev · Регистрация: 27.03.2009

К сожалению, у Василия Николаевича Кондрата не реализована возможность добавления новых типоразмеров профилей самим ЮЗЕРОМ.
Не мучайтесь, возьмите лучше мою прогу на сайте http:/d-rilovo.by.ru и лепите по образу и подобию остальные профили.
С уважением, Евгений Дегтярев.

Кулик Алексей aka kpblc · 01.04.2009, 09:29

Вот только не надо ля-ля! Все обновляется, дополняется и расширяется - тему прочти! Коды, в отличие от твоего решения, открыты.

Владимир М · 08.04.2009, 10:37

E-degtyarev, со своими игрушками не лезь в наш огород!

E-degtyarev · 27.04.2009, 10:51

Уважаемый Владимир М.
Хотя на форуме я совсем недавно, но кажется начинаю понимать почему
Василий Кондрат здесь давно не появляется.
Мне довелось работать в одной конторе около 20-ти лет с его отцом
Николаем Васильевичем.
Знаю его как интеллигентного, хорошо воспитанного человека.
Полагаю, что сын унаследовал эти качества.

Дегтярев Евлений.

Alan · 27.04.2009, 11:17

Цитата:

Сообщение от E-degtyarev

Уважаемый Владимир М.
Хотя на форуме я совсем недавно, но кажется начинаю понимать почему
Василий Кондрат здесь давно не появляется.
Мне довелось работать в одной конторе около 20-ти лет с его отцом
Николаем Васильевичем.
Знаю его как интеллигентного, хорошо воспитанного человека.
Полагаю, что сын унаследовал эти качества.

Дегтярев Евлений.

Уважаемый, Евлений.
Мне, как одному из участников процесса процесса адаптации программы Василия Кондрата ПРОКАТ, доподлинно известны истинные причины его отсутствия на форуме.
И не надо никаких домыслов!
"Не надо лохматить бабушку!" - М.Задорнов
Он просто сейчас "сидит" на Инвенторе и не занимается Автокадом
С Василием я "познакомился" (имеется ввиду в Инете) еще в 2000 году, когда адаптировал его ПРОКАТ для своей программы ПАРКС.
Когда Владимир_М начал добавлять новые профили, я с Василием связывался.
Привожу отрывок из его письма мне 15-12-2006

Цитата:

[FONT=Arial]Правьте как Вам нужно.[/FONT]
[FONT=Arial]Успехов.[/FONT]
[FONT=Arial]Василий[/FONT]

Что касается Вашей программы. Ну опубликовали ссылку...
В теме, если Вы посмотрели, есть и другие, такие же, а м.б. и лучше Вашей...
Не надо обобщений, каких-то намеков...
Давайте уважительно относиться друг к другу.

Holon · 09.05.2009, 11:05

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

Код:

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

(defun C:NPZ ( / p1 p2 *error* osm ldata-get ss ent str1 str2)
(DEFUN ldata-get ( ENAME )
 (if (eq (type ENAME) 'ENAME)
   (setq ENAME (vlax-ename->vla-object ENAME)))
  (vlax-ldata-get ENAME "DwgRU Prokat")
  )			 
(defun *error* (msg)(princ msg)
  (if osm (setvar "OSMODE" osm))(princ)) ;_ end of defun
(defun _addleader (up-string low-string   start-point end-point /   lead_obj ann_obj point-list)
  (if (not low-string)(setq low-string "")) ;_ end of if
  (setq point-list (apply 'append (list start-point end-point)))
  (setq   ann_obj    (vla-addmtext
         (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
         (vlax-3d-point end-point)
         0
         (if (/= low-string "")(strcat up-string "\\P" low-string) up-string)))
  (if (vlax-property-available-p ann_obj 'BackgroundFill)
  (vla-put-BackgroundFill ann_obj :vlax-true))
  (setq lead_obj (vla-addleader
        (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
        (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble
             (cons 0 (1- (length point-list)))) point-list)) ann_obj  acLineNoArrow) ;_ end of vla-AddLeader
   ) ;_ end of setq
  
  (vla-put-attachmentpoint ann_obj
    (+ 4 (if (> (car end-point) (car start-point))
       0  2) ;_ end of if
       (if (/= low-string "")
           0 3) ;_ end of if
       ) ;_ end of +
    ) ;_ end of vla-put-AttachmentPoint
    
  (vla-put-insertionpoint ann_obj (vlax-3d-point end-point))
   (vla-put-attachmentpoint ann_obj 5)
  (vla-put-verticaltextposition lead_obj acOutside)
  (vla-put-ArrowheadSize lead_obj 0.5)
  (vla-put-coordinate lead_obj 1 (vlax-3d-point end-point)) lead_obj)
  (vl-load-com)
  (setq osm (getvar "OSMODE"))
(while
  (and
    (setvar "OSMODE" 512)
    (setq p1 (getpoint "\nÏåðâàÿ òî÷êà âûíîñêè <âûõîä>: "))
    (setvar "OSMODE" osm)
    (setq p2 (getpoint p1 "\nÍàïðàâëåíèå <âûõîä>: "))
    (setq osm (getvar "OSMODE"))
    )
  (if (and
	(setq ss nil ss (ssget p1))
	(setq ent (if ss (ssname ss 0) nil))
	(setq ss nil ss	(ldata-get ent))
	(setq str1 (cadr (assoc "PTYP" ss)))
	(setq str2 (cadr (assoc "VTYP" ss)))
	)
    (progn
      (setq str2 (strcat str1 " " str2))
      (setq str1 (getstring "\nÍîìåð ïîçèöèè (òåêñò íàä ïîëêîé) <íåò>:"))
      )
    (progn
      (setq str1 (getstring "\nÍîìåð ïîçèöèè (òåêñò íàä ïîëêîé) <íåò>:"))
      (setq str2 (getstring t "\nÏîÿñíåíèå (òåêñò ïîä ïîëêîé) <íåò>:"))
      )
  )
  (if (or (/= str1 "")
	   (/= str2 "")
	   )
    (_addleader
    (if (= str1 "") " " str1)
    str2
    (trans p1 1 0)(trans p2 1 0))(princ))
  )
  (setvar "OSMODE" osm)
  (princ)
  )

VVA · 09.05.2009, 21:17

Код:

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

;;Номер позиции
(defun C:NPZ ( / p1 p2 *error* osm ldata-get ss ent str1 str2 HTXT)
;;Возвращает данные проката
(DEFUN ldata-get ( ENAME )
 (if (eq (type ENAME) 'ENAME)
   (setq ENAME (vlax-ename->vla-object ENAME)))
  (vlax-ldata-get ENAME "DwgRU Prokat")
  )			 
(defun *error* (msg)(princ msg)
  (if osm (setvar "OSMODE" osm))(princ)) ;_ end of defun
(defun _addleader (up-string low-string   start-point end-point /   lead_obj ann_obj point-list)
  (if (not low-string)(setq low-string "")) ;_ end of if
  (setq point-list (apply 'append (list start-point end-point)))
  (setq   ann_obj    (vla-addmtext
         (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
         (vlax-3d-point end-point)
         0
         (if (/= low-string "")(strcat up-string "\\P" low-string) up-string)))
  (vla-put-Height ann_obj HTXT) ;;; Задаем всоту текста
  (if (vlax-property-available-p ann_obj 'BackgroundFill)
  (vla-put-BackgroundFill ann_obj :vlax-true))
  (setq lead_obj (vla-addleader
        (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
        (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble
             (cons 0 (1- (length point-list)))) point-list)) ann_obj  acLineNoArrow) ;_ end of vla-AddLeader
   ) ;_ end of setq
  
  (vla-put-attachmentpoint ann_obj
    (+ 4 (if (> (car end-point) (car start-point))
       0  2) ;_ end of if
       (if (/= low-string "")
           0 3) ;_ end of if
       ) ;_ end of +
    ) ;_ end of vla-put-AttachmentPoint
    
  (vla-put-insertionpoint ann_obj (vlax-3d-point end-point))
   (vla-put-attachmentpoint ann_obj 5)
  (vla-put-verticaltextposition lead_obj acOutside)
  (vla-put-ArrowheadSize lead_obj 0.5)
  (vla-put-coordinate lead_obj 1 (vlax-3d-point end-point)) lead_obj)
  (vl-load-com)
  (setq osm (getvar "OSMODE"))
  (princ "\nВысота текста <")(princ (getvar "TEXTSIZE"))
  (princ ">: ")
  (if (null (setq HTXT (getdist)))
    (set HTXT (getvar "TEXTSIZE"))
    )
(while
  (and
    (setvar "OSMODE" 512)
    (setq p1 (getpoint "\nПервая точка выноски <выход>: "))
    (setvar "OSMODE" osm)
    (setq p2 (getpoint p1 "\nНаправление <выход>: "))
    (setq osm (getvar "OSMODE"))
    )
  (if (and
	(setq ss nil ss (ssget p1))
	(setq ent (if ss (ssname ss 0) nil))
	(setq ss nil ss	(ldata-get ent))
	(setq str1 (cadr (assoc "PTYP" ss)))
	(setq str2 (cadr (assoc "VTYP" ss)))
	)
    (progn
      (setq str2 (strcat str1 " " str2))
      (setq str1 (getstring "\nНомер позиции (текст над полкой) <нет>:"))
      )
    (progn
      (setq str1 (getstring "\nНомер позиции (текст над полкой) <нет>:"))
      (setq str2 (getstring t "\nПояснение (текст под полкой) <нет>:"))
      )
  )
  (if (or (/= str1 "")
	   (/= str2 "")
	   )
    (_addleader
    (if (= str1 "") " " str1)
    str2
    (trans p1 1 0)(trans p2 1 0))(princ))
  )
  (setvar "OSMODE" osm)
  (princ)
  )

Holon · 09.05.2009, 21:44

Спасибо :-)

Рyslan · 30.06.2009, 20:35

всем привет! подскажите, прокат будет работать в 2009 акаде? на работе обновили акад, пробовал заново установить прокат- не работает

LSN · 02.07.2009, 08:35

Будет. Даже в 2010. Версия када у вас какая? Может на LT не будет работать.

Рyslan · 02.07.2009, 14:03

Aвтокад архитектура 2009

Alan · 02.07.2009, 18:04

Цитата:

Сообщение от Рyslan

Aвтокад архитектура 2009

Рyslan, читай Read-Me.txt и делай как там написано.
И будет всё работать, а тебе счастье.

Рyslan · 02.07.2009, 18:11

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

G.A.W. · 07.08.2009, 09:58

блин, вот есть ГОСТ на мелкие прямоугольные трубы 8645-68: Трубы стальные прямоугольные. Кто нить може т пополнить кллекцию проката? Я чо то один файл дат запарился делать. Мож кто как то это делает автоматизировано?

gipro · 07.08.2009, 11:27

С определением точек вставки профиля глухо?...

Евгений А. · 09.08.2009, 10:54

Цитата:

блин, вот есть ГОСТ на мелкие прямоугольные трубы 8645-68: Трубы стальные прямоугольные. Кто нить може т пополнить кллекцию проката?...

Если сильно надо, то возьми AD-Profil - там такой прокат есть.