[Владимир М]

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

[Владимир М]

Спасибо VVA, попробую исправить. Пологаюсь на вас надеюсь будете помогать дельными советами.
И еще у вас есть ICQ?

[dextron3]

Сообщение от Владимир М Спасибо VVA, попробую исправить. Пологаюсь на вас надеюсь будете помогать дельными советами. И еще у вас есть ICQ?

Владимир, а можно сделать чтобы профиля вставлялись с базовой точкой по центру тяжести?

[p_sh]

можно если их предварительно вычислять (например из региона)
но приведите пример где это нужно

[Кулик Алексей aka kpblc]

Сообщение от p_sh можно если их предварительно вычислять (например из региона) но приведите пример где это нужно

Например, при прорисовке ферм из мет.уголков.

[Владимир М]

dextron3, но это опять дополнительное кнопки делать
И вообще это надо доп. меню делать, как сказал Кулик Алексей aka kpblc

[dextron3]

Сообщение от Владимир М dextron3, но это опять дополнительное кнопки делать И вообще это надо доп. меню делать, как сказал Кулик Алексей aka kpblc

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

очень нужная примочка

[Владимир М]

по постам 279 и 281 я думаю надо сделать так:

Код:

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

(setq LMashtab '((50 0.2) (40 0.25) (25 0.3) (20 0.4) (15 0.5) (10 0.5) (5 1) (4 1) (2.5 1) (2 1) (1 1) (0.5 1) (0.4 1) (0.25 1) (0.2 1) (0.1 2) (0.05 2.5) (0.025 4) (0.02 5)))

(if (< LMashtab 1)
(setq LMashtab (strcat "Масштаб " (vl-string-subst "" ".0" (rtos (/ 1 LMashtab) 2 2)) ":1"))
(setq LMashtab (strcat "Масштаб 1:" (vl-string-subst "" ".0" (rtos LMashtab 2 2)))))

Только как это прикрутить и поставить в prokat.lsp

[Владимир М]

А вот все коды пущенные вход в данную прогу плюс моя добавка пробовал не работает т.к. изменил не до конца, что менять пока не разобрался и что делать с itoa ума не приложу:

Код:

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

;;; изменения 02.08.2007 VVA
                 LMashtab                    ;_Список масштабов вставки блока и масштабов типа линии '((Масштаб Масштаб типа линии))
		 Mashtab                     ;_Переменная текущий масштаб
		 isblock                     ;_ t - вставка блоком nil - полилинией
		 sortam
		 sortam-hyp ;_Аналог sortam для гиперссылки
		 *error*



;;; Ф-ции добавлены как локальные 02.08.2007 VVA
  (vl-load-com) ;;; изменения 02.08.2007 VVA
  (vla-StartUndoMark (vla-get-activedocument (vlax-get-acad-object)))
;;;(setq LMashtab '((1 1) (2 1)(4 1)(5 1)(10 0.5)(15 0.5)(20 0.4)(25 0.3)(40 0.25)(50 0.2))) ;; VVA 02.08.2007 Список масштабов
;;; Начало 08.08.2007 Владимир М
(setq LMashtab '((50 0.2) (40 0.25) (25 0.3) (20 0.4) (15 0.5) (10 0.5) (5 1) (4 1) (2.5 1)
              (2 1) (1 1) (0.5 1) (0.4 1) (0.25 1) (0.2 1) (0.1 2) (0.05 2.5) (0.025 4) (0.02 5)))
;;; конец 08.08.2007 Владимир М





;;-------- VVA 02.08.2007 -- МАСШТАБ НАЧАЛО
  (start_list "mashtab")
  (mapcar 'add_list (mapcar 'itoa (mapcar 'car LMashtab)))
  (end_list)
  (if (null *ProcatMashtab*)(setq *ProcatMashtab* 1))
  (if (setq mashtab (vl-position *ProcatMashtab* (mapcar 'car LMashtab)))

;;; Начало 08.08.2007 Владимир М
(if (< LMashtab 1)
(setq LMashtab (strcat "Масштаб " (vl-string-subst "" ".0" (rtos (/ 1 LMashtab) 2 2)) ":1"))
(setq LMashtab (strcat "Масштаб 1:" (vl-string-subst "" ".0" (rtos LMashtab 2 2)))))
;;; конец 08.08.2007 Владимир М




    (progn
      (set_tile "mashtab" (itoa mashtab))
      (setq mashtab *ProcatMashtab*)
      )
    (progn
      (set_tile "mashtab" "0")
      (setq mashtab 1 *ProcatMashtab* 1)        
      )
    )
  (action_tile "mashtab" ;_Масштаб
      "(setq mashtab (nth (atoi $value) (mapcar 'car LMashtab)) *ProcatMashtab* mashtab)"
    )
  (if *ProcatDrawPline* ;_Инициализация вставки полилинией
    (progn
        (set_tile "insblock" "0")
        (set_tile "inspline" "1")
        (setq isblock nil)  

      )
    (progn
        (set_tile "insblock" "1")
        (set_tile "inspline" "0")
        (setq isblock t)  
      )
    )
  (action_tile "insblock" "(setq isblock t)") ;_Вставка Блоком
  (action_tile "inspline" "(setq isblock nil)") ;_Вставка Полилинией
;;-------- VVA 02.08.2007 -- КОНЕЦ


;;;--------------------------------------------------------------------------
;;; 	общее для всех профилей
;;;--------------------------------------------------------------------------
;;;	вставка блока
(defun clip_bl (name_fnc name_str / edat3 m mmark ptyp lst)
;;;  получим имя блока
  (setq edat3 (edat name_str))
;;;-------- Изменения 02.08.2007 VVA Начало --------------------
;;; Откорректируем имя блока с учетом масштаба
  (setq lst (mapcar 'car sortam-hyp))
  (setq ptyp (mapcar 'cadr sortam-hyp))
  (if (numberp *ProcatMashtab*)
    (setq edat3 (strcat edat3 "_" (vl-princ-to-string (abs(fix *ProcatMashtab*))))))
  (setq *ProcatDrawPline* (not isblock))         ;_ t - полилиния nil - блок
  (if (null (tblsearch "block" edat3))
    (progn
      (name_fnc)	      ;(ris_dvt)
      (setq mmark (entlast))
      (if (and (getvar "PEDITACCEPT") (= (getvar "PEDITACCEPT") 1))
	(vl-cmdf "_pedit" "_Multiple" sset "" "_Join" 0 "")
	(vl-cmdf "_pedit" "_Multiple" sset "" "_Y" "_Join" 0 "")
      ) ;_ конец if
      (setq sset nil sset (ssadd))
(while (setq mmark (entnext mmark))
 ;; Изменяем маштаб типа лии у объектов
    (if (and (cdr (assoc 6 (entget mmark)))
             (setq m (cadr(assoc *ProcatMashtab* LMashtab)))
	     )
      (vla-put-LinetypeScale (vlax-ename->vla-object mmark) m)
      )
      (ldata-add mmark (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)); Название госта
				 )
	)
	(mip-put-hyperlink mmark
	    (strcat (vl-princ-to-string(nth (atoi rr) aa))
		    " "
	          (vl-princ-to-string(nth (atoi pr_fl) lst))
		    )
	  )
	(ssadd mmark sset))
;;;-------- Изменения 01.08.2007 VVA Конец ---------------------

[VVA]

Попробуй так, вместо itoa здесь

Код:

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

;;-------- VVA 02.08.2007 -- МАСШТАБ НАЧАЛО 
  (start_list "mashtab") 
  (mapcar 'add_list (mapcar 'itoa (mapcar 'car LMashtab))) 
  (end_list)

Вставь vl-princ-to-string

Код:

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

;;-------- VVA 02.08.2007 -- МАСШТАБ НАЧАЛО 
  (start_list "mashtab") 
  (mapcar 'add_list (mapcar 'vl-princ-to-string (mapcar 'car LMashtab))) 
  (end_list)

[Владимир М]

Спасибо VVA. Вечером попробую сделать. И еще мне во всех местах менять где itoa?

[Кулик Алексей aka kpblc]

Я не зря написал отдельную функцию _kpblc-conv-value-to-string...
Не слушаете добрых советов...

Код:

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

(defun _kpblc-conv-value-to-string (value /)
                                   ;|
*    конвертация значения в строку.
|;
  (if value
    (vl-princ-to-string value)
    ""
    ) ;_ end of if
  ) ;_ end of defun

Вот написали бы такое, и вставляли вместо itoa или vl-princ-to-string куда надо - горя б не знали.

[Владимир М]

Что-то не вяжется в этом месте

Код:

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

  (if (< LMashtab 1)
(setq LMashtab (strcat "Масштаб " (vl-string-subst "" ".0" (rtos (/ 1 LMashtab) 2 2)) ":1"))
(setq LMashtab (strcat "Масштаб 1:" (vl-string-subst "" ".0" (rtos LMashtab 2 2)))))

Выдает ошибку PROKAT bad argument type: numberp: nil
Спасибо Кулик Алексей aka kpblc за код я его решил применить
А вот вся расстановка в котором выдает ошибку, что-то я намудрил:
[ATTACH]1186605777.rar[/ATTACH]

[Кулик Алексей aka kpblc]

Можно попробовать использовать еще и такую функцию:

Код:

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

(defun _kpblc-conv-value-to-string-prec (value prec)
                                        ;|
*    Преобразовывает значение в строку, добавляя 0 в конце до указанной точности.
*    Параметры вызова:
*	value	преобразовываемое значение. nil -> результат = ""
*	prec	необходимая точность. nil -> результат будет как при prec=0
*    В остальном поведение функции подобно _kpblc-conv-value-to-string
_$ (_kpblc-conv-value-to-string-prec 16 5)
"16.00000"
_$ (_kpblc-conv-value-to-string-prec 0.25 5)
"0.25000"
_$ (_kpblc-conv-value-to-string-prec 16.25 5)
"16.25000"
_$ (_kpblc-conv-value-to-string-prec (getpoint) 5)
"(37336.5 21011.2 0.0)"
_$ (_kpblc-conv-value-to-string-prec 16.25 nil)
"16.25"
|;
  (if prec
    (cond
      ((= (type value) 'str) value)
      ((= (type value) 'int)
       (_kpblc-conv-value-to-string-prec (atof (itoa value)) prec)
       )
      ((= (type value) 'real)
       (if
         (> (strlen (substr (vl-princ-to-string (abs (- (fix a) a))) 3)) prec)
          (vl-princ-to-string value)
          (strcat
            (vl-princ-to-string value)
            ((lambda (/ res)
               (setq res "")
               (repeat
                 (- prec
                    (strlen
                      (substr (vl-princ-to-string (abs (- (fix value) value))) 3)
                      ) ;_ end of strlen
                    ) ;_ end of -
                  (setq res (strcat res "0"))
                  ) ;_ end of repeat
               res
               ) ;_ end of lambda
             )
            ) ;_ end of strcat
          ) ;_ end of if
       )
      ((not value) "")
      (t (vl-princ-to-string value))
      ) ;_ end of cond
    (_kpblc-conv-value-to-string-prec value 0)
    ) ;_ end of if
  ) ;_ end of defun

По крайней мере в паре мест тебе точно такое надо.

[yax]

Сообщение от VVA Послендий (мой) вариант. Добавлена команда NPZ - номер позиции Считывает вычерченный PROKAT'ом профиль. Можно использовать просто как чертилку. По умолчанию настороена на использование шрифта http://dwg.ru/dnl/147 Если не надо, то переименовать файл prokat_V1.lsp в prokat.lsp *** Изменено: 03.08.2007 Полилиния на заданный слой [ATTACH]1186126077.rar[/ATTACH]

здравствуйте. Такая проблемма- установил сей девайс (вообще этой прогой пользуюсь где-то возле года), опробовал- работает, однако начало перед загрузкой чертежа выскакивать окно proxy grafic,по английски особо не рублю, посему разобраться тяжко- может кто сталкивался- подскажите,как его отключить. мелочь, а не приятно...

[G.A.W.]

Не знаю в чем проблема?
Создаю блок, потом мне его пришлось редактировать. Захожу в блок, давлю на прокат, выбираю нужный профиль, ОК. Вылетает следущее:

Код:

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

Точка вставки :_.-insert Имя блока или [?] <1>: APA00500_1
"APA00500_1.dwg": Не удается найти файл в указанной папке:
  C:\Documents and Settings\GortinskiyAV\Мои документы\Работа\Dobrjak\ (текущая 
папка)
  C:\Documents and Settings\GortinskiyAV\Application Data\Autodesk\AutoCAD 
2006\R16.2\rus\support\
  C:\Program Files\AutoCAD 2006\support\
  C:\Program Files\AutoCAD 2006\fonts\
  C:\Program Files\AutoCAD 2006\help\
  C:\Program Files\AutoCAD 2006\support\color\
  C:\Program Files\AutoCAD 2006\Штриховка\
  C:\Program Files\AutoCAD 2006\VetCAD++ v.3.3\
  C:\Program Files\AutoCAD 2006\Express2006Rus\Express\
  C:\Program Files\AutoCAD 2006\VetCAD\
  C:\Program Files\AutoCAD 2006\Для работы с полилиниями\
  C:\Program Files\AutoCAD 2006\prokat\
  C:\Program Files\AutoCAD 2006\Express\
  C:\Program Files\AutoCAD 2006\
*Неверно*
Функция отменена
Команда: *Прервано*

Т.е. это происходит внутри блока. Причем в некоторых блоках сечение отрисовывается, а вот виды - с выше приведенными последствиями. И еще - профиль все равно вставляется, только улетает черт знает куда и при этом отсутствует возможность его поворота, т.е. сразу вылетает данное сообщение!
В чем баг? Или так положено в даном "ПРОКАТЕ"? ("ПРОКАТ" от VVA от 03.08.2007 (замененный архив впосте №263))

[Alan]

>VVA
Предлагаю чуть откорректировать твой вариант "Сборка 258 от 02.08.2007" Конец текста prokat.lsp

Код:

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

;;;--------------------------------------------------------------------------
;;; 	общее для всех профилей
;;;--------------------------------------------------------------------------
;;;	вставка блока
(defun clip_bl (name_fnc name_str / edat3 m)
;;;  получим имя блока
  (setq edat3 (edat name_str))
;;;-------- Изменения 02.08.2007 VVA Начало --------------------
;;; Откорректируем имя блока с учетом масштаба  
;;;   (if (numberp *ProcatMashtab*) ;_Comment 18.08.2007 Alan
;;;     (setq edat3 (strcat edat3 "_" (vl-princ-to-string (abs(fix *ProcatMashtab*)))))) ;_Comment 18.08.2007 Alan
  (setq *procatdrawpline* (not isblock)) ;_ t - полилиния nil - блок
;;;-------- Изменения 02.08.2007 VVA Конец ---------------------
  (if (eq (tblsearch "block" edat3) nil)
    (progn
      (name_fnc)	      ;(ris_dvt)
;;;-------- Изменения 01.08.2007 VVA Начало --------------------
      (loc-mip:mark)
      (if (and (getvar "PEDITACCEPT") (= (getvar "PEDITACCEPT") 1))
	(vl-cmdf "_pedit" "_Multiple" sset "" "_Join" 0 "")
	(vl-cmdf "_pedit" "_Multiple" sset "" "_Y" "_Join" 0 "")
      ) ;_ конец if
      (setq sset (loc-mip:get-last-ss))
;;;-------- Изменения 01.08.2007 VVA Конец ---------------------
;;;-------- Изменения 02.08.2007 VVA Начало --------------------
      (command "._block" edat3 cpt sset "")
      (setvar "clayer" *alan-layer-saved*)
      ;;     (command "._insert" edat3 pause 1 1 pause)                            ;_Comment 02.08.2007 VVA
      (princ "\nТочка вставки :") ;_ Add 02.08.2007 VVA
      (command "_.-insert" edat3 "_S" (/ 1.0 *ProcatMashtab* ) pause) ;_ Add 02.08.2007 VVA
      (princ "\nУгол поворота :")
      (command pause) ;_ Add 02.08.2007 VVA
;;;      (if *procatdrawpline*                ;_Comment 18.08.2007 Alan
;;;	(command "_.Explode" (entlast))  ;_Comment 18.08.2007 Alan
;;;      ) ;_ Add 02.08.2007 VVA   ;_Comment 18.08.2007 Alan
    ) ;_ end of progn
    (progn
      (setvar "clayer" *alan-layer-saved*)
      ;;     (command "._insert" edat3 pause 1 1 pause)                             ;_Comment 02.08.2007 VVA
      (princ "\nТочка вставки :") ;_ Add 02.08.2007 VVA
      (command "_.-insert" edat3 "_S" (/ 1.0 *ProcatMashtab* ) pause) ;_ Add 02.08.2007 VVA
      (princ "\nУгол поворота :")
      (command pause) ;_ Add 02.08.2007 VVA
;;;      (if *procatdrawpline*  ;_Comment 18.08.2007 Alan
;;;	(command "_.Explode" (entlast))  ;_Comment 18.08.2007 Alan
;;;      ) ;_ Add 02.08.2007 VVA  ;_Comment 18.08.2007 Alan

    ) ;_ end of progn
  ) ;_end of if

>VVA см. сюда я перенес расчленение и перевод расчлененки в слой, выбранный при вставке.
>All Народ, я думаю примитивы должны быть не в слое "0"?
Далее:

Код:

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

 (if *procatdrawpline* (progn      (loc-mip:mark)

			   (command "_.Explode" (entlast))
      (setq sset (loc-mip:get-last-ss))
		  (command "_.CHANGE" sset ""  "_P" "_Layer" *alan-layer-saved* "")
			   )
     )

) ;_ end of defun CLIP_BL

>VVA имя блока определяем в одном месте
Далее:

Код:

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

;;;--------------------------------------------------------------------------
;;; составление имени блока
(defun edat (name_str / nmpr)
  (cond	((eq glv1 "1") (setq nmpr "A"))
	((eq glvm1 "1") (setq nmpr "B"))
	((eq vsz1 "1") (setq nmpr "C"))
	((eq vszm1 "1") (setq nmpr "D"))
	((eq vsv1 "1") (setq nmpr "E"))
	((eq sec1 "1") (setq nmpr "F"))
  ) ;_ конец cond
 ;_ конец cond
  (strcat
    name_str			   nmpr
    *alan-steel-saved-profile-type*
    *alan-steel-saved-profile-number*
    dlndt "_" (itoa *procatmashtab*) ;проверок уже достаточно выше ЯТД
   ) ;_ конец strcat

) ;_ end of defun

[G.A.W.]

Камрады здрасти!
Опять вопросы по прокату.
Поставил сие чудо на один из компов на работе, и впервые увидел следущее:
-при вставке некоторых профилей (причем поочередно может возникать в одном и том же профиле через некоторое время) в ком.строке пишет "Слишком много аргументов" и рисует какие то кракозябры. Иногда правда прорисовывается, но при следущей попытке выше описанная проблема. В чем может быть проблема?
Срочно нужно, помогите!

[ander]

yax, Tools->Options->Open and Save: (ObjectARX Applications), убрать галочку с "Show Proxy Information dialog box"

[Alan]

Сообщение от G.A.W. Камрады здрасти! Опять вопросы по прокату. Поставил сие чудо на один из компов на работе,

Вопросы как всегда: какая сборка Проката; какой Автокад; куда поставили... Поподробнее пжл.

и впервые увидел :shock: следущее: -при вставке некоторых профилей (причем поочередно может возникать в одном и том же профиле через некоторое время) в ком.строке пишет "Слишком много аргументов" и рисует какие то кракозябры. Иногда правда прорисовывается, но при следущей попытке выше описанная проблема. В чем может быть проблема? Срочно нужно, помогите!

Никто кроме Вас этого не видит, значит смотрите сами.
У Вас открытые тексты.
Запустите Vlisp. Поставьте точку останова F9 (или 2,3...) в начале текста того профиля на котором это происходит.
Дойдёт работа до этого места, и пошагово F8.
А вот тут и проявиться картинка ошибки. И будет Вам счастье!

[G.A.W.]

Если б я знал, что конкретно изменять при нахождении каких то ошибок, еще куда не шло, а так, результата думаю не будет.
А еще он часто пишет, если профиль не отрисовывается:

(*координаты X, Y,Z*) создание линии нулевой длины
*функция отменена*
Кстати сборка последняя от VVA:

Код:

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

URL http://dwg.ru/forum/viewtopic.php?t=10849&start=0
Программа ПРОКАТ (2d) загружена. Сборка 263 от 02.08.2007"\nПрограмма ПРОКАТ 
(2d) загружена. Сборка 263 от 02.08.2007"

AutoCAD 2006-Русский.
Поставил в корень Акада

Код:

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

C:\Program Files\AutoCAD 2006\prokat