[Владимир М]

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

[Владимир М]

Вот пример моей попытки к этому!
[ATTACH]1165332326.rar[/ATTACH]

[Владимир М]

А вот исходник!
[ATTACH]1165332400.rar[/ATTACH]
Поправьте меня, что не так!

[Alan]

Сообщение от Владимир М А вот исходник! [ATTACH]1165332400.rar[/ATTACH] Поправьте меня, что не так!

Владимир М, если никто не сделает раньше, посмотрю в выходные. Я в своё время эту программу слегка корректировал.
Собственно у PG последний текст кажется с моей корректировкой.

[Владимир М]

Спасибо Alan. Я тоже над этой проблемой бьюсь. и что то у меня невыходит. но сдаваться не буду, получится потом все выложу.

[Grant]

А автор программы, сам Василий Кондрат, собственно где :?:

[Alan]

Сообщение от Grant А автор программы, сам Василий Кондрат, собственно где :?:

Василий давно не появлялся в Инете, поэтому и курочим его тексты.

[Владимир М]

Да, Alan. И надеюсь он будет не против. А обновлятся надо!
ГОСТы понимаешь меняются, а дописывать, понимаешь надо!

[Никита В.]

ОФФ ТОПИК
А расскажите чего такого хорошего в программном создании профилей проката - не проше ли закатать все это в блоки и вставлять с тул палетс! :? :? :? :? :?

[Alan]

Сообщение от Никита В. ОФФ ТОПИК А расскажите чего такого хорошего в программном создании профилей проката - не проше ли закатать все это в блоки и вставлять с тул палетс! :? :? :? :? :?

>Никита В.
Вы (ты?) хоть и земляк, но истина дороже!
Прикидывали сколько блоков нужно сделать для этой библиотеки, как её организовать по параметрам сечений, как оттуда их выбирать?
Или у Вас есть готовое решение? В студию!
Програмное создание (тем более вставленные элементы собираются программно же в блоки), проще, чище, оперативнее и т.д. и т.п.
ЯТД

[Владимир М]

Тем более, хочу добавить, программным путем все это будет меньше весить - ведь это простой код, а не чертежи! А также можно задавать различные виды и вложенная информация весьма кстати!
Тем более быстрый поиск и удобный интерфейс :!:

[Владимир М]

Последне пока обновление Проката и Проката_3D
Макрос кнопки Проката: ^C^C^P(progn(if(= Crokat/prokat nil)(load "prokat/prokat")));prokat;
Макрос кнопки Проката_3D: ^C^C(if (eq crokat/prkt3d nil) (load "prokat/Prcat3d"));prkt3d;
[ATTACH]1165773926.rar[/ATTACH]

[Grant]

А в этом обовлении есть двутавры CTO АСЧМ ? :wink:

[Alan]

Сообщение от Grant А в этом обовлении есть двутавры CTO АСЧМ ? :wink:

Владимир М добавил "Двутавры по СТО АСЧМ 20-93"

[Владимир М]

Обновил procat_ru, были проблемы со вставкой видов швеллеров по ГОСТ 8240-97 с уклоном.
А что здесь выложено, проблем ни каких не заметил.
Прошу писать о замечаниях, что не так!

Итого здесь выложено:
"Двутавры по ГОСТ 26020-83 с параллельными гранями полок"
"Двутавры по СТО АСЧМ 20-93 с параллельными гранями полок"
"Двутавры по ГОСТ 8239-89 с уклоном внутренних граней полок"
"Швеллеры по ГОСТ 8240-97 с уклоном внутренних граней полок"
"Швеллеры по ГОСТ 8240-97 с параллельными гранями полок."
"Швеллеры гнутые по ГОСТ 8278-83 обыч. сталь"
"Швеллеры гнутые по ГОСТ 8278-83 кач. сталь"
"Уголок по ГОСТ 8509-93 равнополочный"
"Уголок по ГОСТ 8510-86 неравнополочный"
"Уголок гнутый по ГОСТ 19771-93 равнополочный обыч. сталь"
"Уголок гнутый по ГОСТ 19771-93 равнополочный кач. сталь"
"Уголок гнутый по ГОСТ 19772-93 неравнополочный обыч. сталь"
"Уголок гнутый по ГОСТ 19772-93 неравнополочный кач. сталь"

[Владимир М]

А как насчет труб? Нужны? Тогда какие? 8)

[Profan]

Я тоже занимался этим пакетом программ. В основном локализацией. Владимир М, как вы пропустили ляпсусы типа такого:

Код:

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

(command "_'layer" "m" "0" "c" "7" "" "")

И вообще, диалоговое окно на русском, а командная строка на английском.

[TuDim]

Сообщение от Владимир М Обновил procat_ru, были проблемы со вставкой видов швеллеров по ГОСТ 8240-97 с уклоном. А что здесь выложено, проблем ни каких не заметил. Прошу писать о замечаниях, что не так! "

как установить обновленный procat в ACAD2004?

[Владимир М]

Profan, программа не моя, и вообще я работаю чисто на английских версиях и русскую не признаю! Просто я ее заметил по ссылке http://www.kulichki.com/cadhlp/pgmake.htm переделанная Alanом и внедрил свои обновления в код. Я не стал ее руссифицировать полностью, но необходимость такая есть, так как многие английского совсем не знают! Вот Alan этим сейчас и занимается и скоро выложит подправленную, да еще и с линиями разберется...
:wink: Хочется чтобы никому обидно не было!

[TuDim]

как установить обновленный procat в ACAD2004?
Все способы, указанные в теме не работают

[Alan]

Сообщение от TuDim как установить обновленный procat в ACAD2004? Все способы, указанные в теме не работают

"Для правильной работы программы необходимо добавить путь к папке с программой Прокат:
Сервис-Настройка-Файлы-Путь доступа к вспомогательным файлам"
В procat_ru есть одна маленькая ошибка, Владимир М нашел - спасибо.
Могу выслать исправленный текст.

[TuDim]

To Alan
Путь указал, а дальше что?
Шли текст. Спасибо

[Геннадий aka PG]

Сообщение от TuDim To Alan Путь указал, а дальше что? Шли текст. Спасибо

http://www.cadhlp.kulichki.com/pdmnu.htm
посмотри тут

[Alan]

Сообщение от TuDim To Alan .... Шли текст. Спасибо

А куда слать, на деревню дедушке?
Напиши мне адрес, если не хочешь светить на форуме.

[Серг]

Когда пытаюсь вставить двутавры СТО программа вылетает. Также с профилями из качественной стали.
Пишет "PROKAT ; error: bad argument type: stringp nil".
Как быть?

[Alan]

Сообщение от Серг Когда пытаюсь вставить двутавры СТО программа вылетает. Также с профилями из качественной стали. Пишет "PROKAT ; error: bad argument type: stringp nil". Как быть?

У Вас какой Автокад, русский? Нет, вижу - ангельский.
Исправляю сообщение.
Поместите папку prokat куда-то в папку, описанную в путях Автокада.
Например в "D:\Program Files\AutoCAD 2006\support"

[vbunakov]

To Владимир М:
Спасибо за работу! А трубы коннечно хотелось бы увидеть (как в СПДС). Профилями и метизами пользуюсь постоянно.
Отчего примного благодарен (земляк)

[Владимир М]

Очень рад, что всем нравиться
Будем стараться....

[vbunakov]

Забыл, (то Владимир М) отдельное спасибо за двутавры по СТО АСЧМ 20-93 !!!

[Серг]

Все получилось. Спасибо Владимир М, спасибо Alan.

[Sleekka]

Извините пожалуйста, а оси к уголками добавили или нет?

[Alan]

>All пользователям программы ПРОКАТ
Сейчас подделываю программу чтобы работала под любым (рус или анг) Автокадом с добавленным Владимир"ом М сортаментом.
Вопрос 1) Нужно ли масштабирование блоков, т.е. предусматривать ли вычерчивание элементов в мм чертежа?
Вопрос 2) Можно ли для этого использовать сист.переменную USERI1?
P.S. Вопросы заданы только для использования бесплатной программы ПРОКАТ. Просьба на дискуссии не отправлять.
P.S.S. Автор программы ПРОКАТ Василий Кондрат нашелся,
передаёт всем привет и желает всяческих успехов.
Переделывать в разумных пределах разрешил.

[Владимир М]

Sleekka Извините пожалуйста, а оси к уголками добавили или нет?

Нет не добавлял и считаю не везде нужно, думаю при необходимости нарисовать самому, хотя хороший вопрос. Может быть и на будущее учту.

[Владимир М]

Alan P.S.S. Автор программы ПРОКАТ Василий Кондрат нашелся, передаёт всем привет и желает всяческих успехов. Переделывать в разумных пределах разрешил.

Как Василий Кондрат поживает, чем занимается?
Привет передавай ему Alan, и спасибо ему за основу! Будем двигаться дальше

[Владимир М]

Скоро выйдет еще одно обновление – квадратные трубы!
Исходный код получился, осталось создать базу данных для квадратных труб.
И тут такой вопрос – под какими ГОСТами сейчас выпускают трубы квадратного профиля. На сколько я помню Технические Условия (ТУ) уже отменены и уже не действуют.
Для квадратных труб думаю можно применить ГОСТ 8639-82 и ГОСТ 25577-83. Если не так поправьте.

[Lamer Inc..]

ГОСТ 30245-2003

[Геннадий aka PG]

[quote="AlanВопрос 1) Нужно ли масштабирование блоков, т.е. предусматривать ли вычерчивание элементов в мм чертежа?
Вопрос 2) Можно ли для этого использовать сист.переменную USERI1?
[/quote]

1- НЕТ
2- НЕТ соответственно

Василий Кондрат большей частю работает в Инвенторе, потребность в прикладных программах отпала, поэтому и не пишет.

> Владимир М
В свое время я испотльзовал ГОСТ 8639 для сортамента квадратных труб при записи в графу материал программы записи материала в графу штампа, dat-файл прилагаю может пригодится.
[ATTACH]1166423406.zip[/ATTACH]

[T-Yoke]

Сообщение от Владимир М А как насчет труб? Нужны? Тогда какие? 8)

Еще как нужны! Например вот эти:
ГОСТ30245-94.Профили для стрoительных конструкций
ГОСТ 3262-75 Трубы стальные водогазопроводные
Трубы стальные прямоугольные по ГОСТ 8645-68 / 13663-86
Трубы стальные квадратные (ГОСТ 8639-82, DIN 2395, ТУ 14-105-566-93)

[getr]

Когда-то выкладывалась в download программа "Профиль металлопроката"(ModSection) Алексея Дворака ([email protected]),там много всего ,-в том числе и трубы:квадратные,прямоугольные,круглые.Неплохо было-бы совместить эту программу с программой Василия,или использовать данные.Еще лучше-если бы сам А.Дворак подключился.

[Владимир М]

Спасибо за помощь, Геннадий aka PG, посмотрю.
Спасибо Lamer Inc.., спасибо за новый ГОСТ - его я тоже применю.
T-Yoke, вот насчет DIN - это не наш стандарт, а немецкий - вот пусть немцы и делают! Хотя хорошая идея использовать и зарубежный металл, только подумай как тебе обойдется доставка этого металла из-за граници
А круглые трубы это вообще другой разговор. DEM тут предлагает двойной выбор сделать - по диаметру и толщине стенки.
getr, спасибо за помощь, только дай ссылку на ModSection и что-то похожее, тоже можно взглянуть.
Тут можно и целую команду программистов набрать - спасибо огромное :wink:

[getr]

->Владимиру М
http://dwg.ru/dnl/213

[МВ]

Господа, а на 7-й акад кто-нибудь ставил7
У меня не получилось.

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

Кого? arx этот? И не получится - надо перекомпилировать. Без вариантов. Вопросы - к автору.

[Геннадий aka PG]

Сообщение от МВ Господа, а на 7-й акад кто-нибудь ставил7 У меня не получилось.

Что пишет?
Если разговор не о прокате Василия, то kpЫс прав.

[Sleekka]

Нет не добавлял и считаю не везде нужно, думаю при необходимости нарисовать самому, хотя хороший вопрос. Может быть и на будущее учту.

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

[Владимир М]

Могу сказать одно пишу обновление на профили стальные гнутые сварные - квадратные и прямоугольные по ГОСТ 30245-2003...
Думаю они актуальны!

[Владимир М]

Добавил для английских версий:
"Профиль гнутый замкнутый сварной квадратный по ГОСТ 30245-03"
"Профиль гнутый замкнутый сварной прямоугольный по ГОСТ 30245-03".
Для обновления скопируйте данные файлы и вложите их в папку prokat с заменой старых.
Рисует Прокат и Прокат3D
Пользуйтесь!
[ATTACH]1166956283.rar[/ATTACH]

[ppv]

Ну что сказать - молодец.
Теперь для русской версии.

Нужно (если уж пошло...):
- разбить сечения по главам (плохо скакать скролом по 20-30 значениям)
- добавить
тавры
гнутосварные трубы по всем ТУ и ГОСТам
профнастил

Ну это уж так... Все равно спасибо...

[Геннадий aka PG]

Сообщение от ppv Нужно (если уж пошло...): - разбить сечения по главам (плохо скакать скролом по 20-30 значениям) - добавить тавры гнутосварные трубы по всем ТУ и ГОСТам профнастил Ну это уж так... Все равно спасибо...

А по-моему увлекаться не стоит, а то монстр получиться.
Прокат он и есть прокат, а для остального может сделать другую и назвать "гнукат" ? .

[Владимир М]

ppv ... профнастил

Профнастил, говоришь? Это уже не прокат, а гнукат или гнулист какой-то. Согласен с Геннадий aka PG.
А ТУ уже отменен!
Ладно, квдратные по гОСТу можно и закончить, а круглые трубы нужны? Какие пишите...

[Геннадий aka PG]

Ну, уж 2 окружности нарисовать-то, я думаю, можно и без программы!
А то так докатимся, что и на обычную линию будем программы писать!

[Vova]

Сообщение от Alan Сообщение от Никита В. ОФФ ТОПИК А расскажите чего такого хорошего в программном создании профилей проката - не проше ли закатать все это в блоки и вставлять с тул палетс! :? :? :? :? :? >Никита В. Вы (ты?) хоть и земляк, но истина дороже! Прикидывали сколько блоков нужно сделать для этой библиотеки, как её организовать по параметрам сечений, как оттуда их выбирать? Или у Вас есть готовое решение? В студию! Програмное создание (тем более вставленные элементы собираются программно же в блоки), проще, чище, оперативнее и т.д. и т.п. ЯТД

Динамические блоки проката, которые есть в эталоне тул-палет 2006, могут ли они заменить то, что делает программа?

[Владимир М]

Вот и русская версия последних обновлений.
Если нужна полная загляните на http://dwg.ru/dnl/1825
Желаю удачи!
[ATTACH]1167167540.rar[/ATTACH]

[Владимир М]

Что нужно и как сделать чтобы при повторном выборе проката оставалось предыдущее сохранение выбора элемента проката :?:

[nikе]

2 Владимир М
Например использовать для хранения ini файл. Такая функция есть в DOSlib, но лучше использовать чистый лисп.
Например так:
;;; INI-EDIT.LSP contains functions to create and edit
;;; Windows-Style INI files, and to retrieve data from
;;; this files.
;;;
;;; INI-EDIT is freeware by
;;; Thomas Berger
;;; imago mundi CAD Systemhaus GmbH
;;;
;;; You may use and misuse this file
;;; and the included functions as you like.
;;; You may copy and distribute this file
;;; in whole or in parts freely.
;;; No warranties of course!
;;;
;;; If you like you may send me an email and tell me where
;;; you included this functions.
;;;
;;; CIS: Thomas Berger, 100326,2312
;;; Internet: [email protected]
;;; http://ourworld.compuserve.com/homepages/imago
;;;
;;;
;;; FUNCTIONS
;;;
;;; (INI_WRITEENTRY inifile section variable value)
;;; inifile - string, a valid filename
;;; section - string, a section name ("[" and "]" brackets will be added automatically!)
;;; variable - string, a name of a variable in a INI file section
;;; value - string, the value for the variable
;;;
;;; This function creates a new or modifies an existing section entry. If the INI
;;; file does not exist it will be craeted automatically.
;;; [section]
;;; variable=value
;;;
;;; Example:
;;; (ini_writeentry "c:/test.ini" "NEWSECTION" "NEWVALUE" "100")
;;; creates a new ini file with content:
;;; [NEWSECTION]
;;; NEWVALUE=100
;;;
;;;
;;; (INI_READENTRY inifile section variable)
;;; inifile - string, a valid filename
;;; section - string, a section name ("[" and "]" brackets will be added automatically!)
;;; variable - string, a name of an variable in a INI file section
;;;
;;; This function returns the value of an existing section entry as a string:
;;;
;;; Example:
;;; (ini_readentry "c:/test.ini" "NEWSECTION" "NEWVALUE")
;;; returns "100"
;;;
;;;
;;; (INI_READSECTION inifile section)
;;; inifile - string, a valid filename
;;; section - string, a section name ("[" and "]" brackets will be added automatically!)
;;;
;;; This function returns an assoc list with all variables and values of a complete
;;; ini file section
;;;
;;; Example:
;;; (ini_readsection "c:/test.ini" "NEWSECTION")
;;; returns (("NEWVALUE" "100") ("NEXTVALUE" "SAMPLE"))
;;;
;;;
;;; (INI_READINI inifile)
;;; inifile - string, a valid filename
;;;
;;; This function returns an assoc list of the complete ini file.
;;;
;;; Example:
;;; (ini_readini "c:/test.ini")
;;; returns (("[NEWSECTION]" ("NEWVALUE" "100") ("NEXTVALUE" "SAMPLE")) ("[NEXTSECTION]" ("INIPATH" "C:\\TEST.INI")))
;;;
;;;
;;; (INI_INILINE line separator)
;;; line - a string as delivered by (read-line ..)
;;; separator - a string of a single char
;;;
;;; Example:
;;; (ini_iniline "NEWVALUE=100" "=")
;;; returns ("NEWVALUE" "100")

(defun ini_readentry (inifile section entry )
(if (and (= 'STR (type section)) (/= "[" (substr section 1 1))) (setq section (strcat "[" section "]")))
(setq section (ini_readsection inifile section))
(cadr (assoc entry section))
)

(defun ini_writeentry (inifile section entry val / ofile ini sec)
(if (not (findfile inifile)) (progn (setq ofile (open inifile "w")) (close ofile)))
(if (and (= 'STR (type section)) (/= "[" (substr section 1 1))) (setq section (strcat "[" section "]")))
(if (setq ofile (findfile inifile))
(progn
(setq ini (ini_readini inifile))
(cond
((setq sec (assoc section ini))
(if (assoc entry (cdr sec))
(setq sec (cons section (subst (list entry val) (assoc entry (cdr sec)) (cdr sec))))
(setq sec (cons section (reverse (cons (list entry val) (reverse (cdr sec))))))
)
(setq ini (subst sec (assoc section ini) ini))
(setq ofile (open ofile "w"))
(if ofile (progn
(mapcar
'(lambda (x)
(write-line (car x) ofile)
(mapcar
'(lambda (x)
(write-line (strcat (car x) "=" (cadr x)) ofile)
)
(cdr x)
)
(write-line "" ofile)
)
ini
)
(close ofile)
))
)
(T
(setq ofile (open ofile "a"))
(if ofile
(progn
(write-line section ofile)
(write-line (strcat entry "=" val) ofile)
(close ofile)
)
)
)

)
)
)

)

(defun ini_readsection (inifile section / ofile line result )
(if (and (= 'STR (type section)) (/= "[" (substr section 1 1))) (setq section (strcat "[" section "]")))
(if (findfile inifile)
(cdr (assoc section (ini_readini (findfile inifile))))
(alert (STRCAT inifile "\nnicht gefunden!"))
)
)

(defun ini_readini (inifile / ofile line section result)
(if (findfile inifile)
(progn
(setq ofile (open (findfile inifile) "r"))
(if ofile (progn
(while (and (setq line (read-line ofile)) (/= "[" (substr line 1 1))))
(while (and line (= "[" (substr line 1 1)))
(setq section (list line))
(while (and (setq line (read-line ofile)) (/= "[" (substr line 1 1)))
(if (and (/= ";" (substr line 1 1)) (/= "" line))
(setq section (cons (ini_iniline line "=") section))
)
)
(setq result (cons (reverse section) result))
)
(close ofile)
))
)
(alert (STRCAT inifile "\nnicht gefunden!"))
)
(reverse result)
)

(defun ini_iniline (line sep / line str1 str2 )
(if (= 'STR (type line))
(progn
(setq str1 "" str2 "")
(while (and (/= "" line) (/= sep (substr line 1 1)))
(setq str1 (strcat str1 (substr line 1 1)) line (substr line 2))
)
(if (= sep (substr line 1 1))
(setq str2 (substr line 2))
)
)
)
(list str1 str2)
)

[nikе]

По-моему лучше файлы с данными прокатов хранить в стиле ini файлов. Пример баз данных см. VetCAD. Сейчас работаю над программой по составлению спецификаций и выборки стали по ней.На чистом лиспе для использования в IntelliCAD.Как допишу выложу. Но не знаю когда.Если хватит сил.Программы должны быть бесплатными.Нужно сделать народный сапр.Пора кончать со спекулянтами и ростовщиками всех мастей.

[Евгений А.]

Сообщение от nikе ...Программы должны быть бесплатными.Нужно сделать народный сапр.Пора кончать со спекулянтами и ростовщиками всех мастей.

Да что ты говоришь ?!! Тогда и проектировщики должны бесплатно проектировать, а строители бесплатно строить и колбаску в магазине нам будут давать бесплатно и в любых колличествах!!! Вы случайно не Владимир Ильич???
Если бы программы были бесплатными, то не было бы и Автокада. Была бы бумага и карандаши (и те не бесплатные!).

[nikе]

to Евгений А.
Недавно ехал в трамвае с одним программистиком. Его мечта написать программу однажды, и потом всю жизнь жить на процент от её продажи. Т.е. он , возможно, потом хотел перестать быть производителем благ, а являться только потребителем. Т.е. по установившейся практике такой возможный паразит сядет мне на шею. Это рабовладельческий строй в цивилизованной форме. Считаю, что должен оплачиваться только труд по факту, а не какие-то прежние “заслуги” и “права”. Если бы капиталисты достойно оплачивали труд пролетариата (проектировщиков в частности), то не нужны были бы ни льготы, ни их показушная благотворительность.
А если не будет ACADa, то буду работать на безплатном ProgeCAD LT.
А так , если критически посмотреть на ситуацию с авторскими правами, то тогда не нужно наказывать и мошенников – риэлтеров за продажу десятков ордеров на одну и ту же квартиру.
А что касается Ильича то таких людей я уважаю. Но все же мне хочется стать таким как отец-основатель СССР И.В.Сталин.

[Profan]

Для nikе.

Но все же мне хочется стать таким как отец-основатель СССР И.В.Сталин.

Значит, тебе уже сейчас надо забить осиновый кол в грудь, как упырю.

[nikе]

2 Profan
Интересно, кому надо меня замочить, да не просто пулей а каким-то древним "кошерным" способом? Хватит проливать кровь честных трудящихся! Хватит раскручивать известный маховик "Зуб за зуб".

Лучше бы помог нам - честным труженикам Русской многонациональной цивилизации написать бесплатный модуль к будущему Народному САПРу.
Знай что Бог на нашей стороне. Наше дело правое. Победа будет за нами.

[Владимир М]

nikе, спасибо конечно за труд, но столько много всего, а особенно скобок на отдельных строках. Мне бы принцип логический, как это сделать какие параметры нужно сохранять и как это лучше сделать.
Спасибо и за предложения с *.ini но с LISPом практичнее я с вами согласен...
А на счет бесплатного САПРа есть мнение у каждого. А когда человек учится этому, делать это нужно бесплатно, так как нужна помощь, в процессе которого ты получаешь знания, а так же мнения со стороны и варианты решения различных вопросов.

[nikе]

Привет, Владимир М. Выложенный мной лисп сохрани в файл INI-EDIT.LSP. Он содержит библиотечные функции для работы с ini файлами. Добавляешь в свою программу строку
(load "INI-EDIT.LSP" )
и эти функции доступны из твоей программы. В комментариях даны примеры использования этих функций.
Положим, что имеем файл sp.ini со следующим содержанием:
[poz_sec]
poz_vol=4e6613

[dl_sec]
dl_vol=4560

[kol_sec]
kol_vol=81

[nfas_sec]
nfas_vol=0

[rfas_sec]
rfas_vol=0

[fas_sec]
fas_vol=0

[armature_sec]
armature_vol=1

Например так можно записать в sp.ini новое значение nfas_vol, считывая его из текстового окошка диалогового окна.
(ini_writeentry "sp.ini" "nfas_sec" "nfas_vol" (get_tile "nfas"))
А так прочитать значение этой переменной

(setq nfas (ini_readentry "sp.ini" "nfas_sec" "nfas_vol"))
и установить это значение в в edit box диалогового окна
(set_tile "nfas" nfas)

[nikе]

2 Владимир М
Еще хотелось бы тебя попросить чтоб ты по возможности переделал библиотеку слайдов на отдельные файлы слайдов, т.к. IntelliCAD не поддерживает работу с библиотеками слайдов. Т.е. программа прокат работает но в диалоговом окне не отображаются картинки с профилями. В АСADе естественно все нормально, но для тех, кто работает в ACAD эта программа не нужна, тк могут работать например с ProjectStudio CS. А твоя программа больше нужна тем, кто работает с бесплатными или платными, но с разумной ценой в пределах 100-200 у.е. программами типа ProgeCAD ( a ProgeCAD LT вообще бесплатна, но поддерживает урезанный лисп без vl- функций и компилирующей функции function)

[Владимир М]

Спасибо, nikе. А аргументы которые писал как пример? Я так понял. А со слайдами я разделаюсь и выложу, только скажи куда. Тебе или здесь?

[Евгений А.]

Сообщение от nikе Знай что Бог на нашей стороне. Наше дело правое. Победа будет за нами.

Поддерживаю!!!

[Евгений А.]

Сообщение от Владимир М Что нужно и как сделать чтобы при повторном выборе проката оставалось предыдущее сохранение выбора элемента проката :?:

Не советую использовать вам новый файл, их итак в Прокате как собак нерезанных. Есть специально для этих целей созданный в виндовс РЕЕСТР. Сохраняйте в него значения всех TILE перед закрытием окна, а потом при открытии считывайте. Это очень легко, вот мой пример:

Код:

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

(setq spisok_tile '(tile1 tile2 tile3 ....));список всех tile которые сохраняем.
(setq reg_key "HKEY_CURRENT_USER\\Software\\ПРОКАТ");адрес в реестре.
(vl-load-com)
;====================================
(defun close_dlg (flag / tile);функция закрытия окна
   (foreach tile spisok_tile
      (VL-REGISTRY-WRITE reg_key tile (get_tile tile));считываем из tile и пишем в реестр
      )
   (DONE_DIALOG flag); закрываем окно
   )
;====================================
(defun open_dlg (dlgname dcl_id / tile x);функция открытия окна
   (new_dialog dlgname dcl_id)
   ....;заполнение списков
   (foreach tile spisok_tile
      (if (setq x (VL-REGISTRY-READ reg_key tile));чтение и реестра
         (SET_TILE tile x);если есть запись, то устанавливаем tile
         )
      )
  (setq flag  (START_DIALOG));активация окна 
   )

[Владимир М]

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

[Владимир М]

Спасибо большое тебе,Евгений А. Очень даже неплохо, постараюсь применить. Просто молодец! [sm2012]

[Alan]

>Евгений А.
Я бы ОЧЕНЬ не советовал Вам (и другим тоже) хранить в реестре какие-то локальные переменные.
Архинеправильно, батенка! Не для этого реестр предназначен!
Локальное значение прекрасно храниться самим Лиспом.
В одном варианте В.Кондрата, который он мне присылал,
так было и сделано.

[Евгений А.]

Сообщение от Alan >Евгений А. Я бы ОЧЕНЬ не советовал Вам (и другим тоже) хранить в реестре какие-то локальные переменные. Архинеправильно, батенка! Не для этого реестр предназначен!.. .

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

[Alan]

Сообщение от Евгений А. По моему вы просто не знаете для чего предназначен реестр. ... .

То что хорошо для Microsoft (Ford и т.д.) не есть хорошо (ЯТД) для простого смертного юзера, в простой прикладной проге.
О использовании реестра для прикладных программ можно прочитать в книге "САПР на базе..." стр.98-105
В моём (я писал выше) варианте ПРОКАТ работает сохранение состояния в Лиспе и без реестра, что есть значительно проще и чище.
ЯТД

[Евгений А.]

Хозяин - барин, но помоему мы спорим о совершенно разных вещах! А вот то что у вас проше - ой как сомневюсь...

[Alan]

>Евгений А.

А вот то что у вас проше - ой как сомневюсь...

Достаточно и ПРОСТО одну переменную (номер строки профиля RR, например)
перевести из локальной в глобальную и она будет храниться во время сеанса.

[Евгений А.]

Дружище, любой программист тебе скажет, что использовать глобальные переменные - это ОЧЕНЬ-ОЧЕНЬ плохо, не профессионально и неоправданно!!! Нет никакой гарантии, что другая программа написанная каким-нибудь юзером :shock: не будет использовать и изменять значение глобальной переменную под именем (к примеру) RR!
А попробуй теперь представить, что в программе несколько окон и в каждом окне хотя бы с десяток пунктов которые надо сохранять!!! И что??? Под сотню глобальных переменных? Очень удобно! А в моём примере, достаточно только вбить в SPISOK_TILE только все сохраняемые ключи (key), и значения таким же макаром можно скидывать в локальный список и потом его использовать вместо переменных. Помоему проще уже некуда!

[Alan]

>Евгений А.

Дружище, любой программист тебе скажет, что использовать глобальные переменные - это ОЧЕНЬ-ОЧЕНЬ плохо, не профессионально и неоправданно!!! Нет никакой гарантии, что другая программа написанная каким-нибудь юзером не будет использовать и изменять значение глобальной переменную под именем (к примеру) RR! А попробуй теперь представить, что в программе несколько окон и в каждом окне хотя бы с десяток пунктов которые надо сохранять!!! И что??? Под сотню глобальных переменных?

Всё что ты сказал совершенно справедливо для ПРОГРАММ, а не для маленькой проги Прокат (Василий, извини), распространяемой в открытых кодах.
Дружище, любой программист тебе скажет, что бо'льшая свалка мусора чем Интернет, это только реестр Widows.
И использовать его надо очень аккуратно, без излишеств, т.е. без ненужных записей.
Вот, например, прописать туда путь к какой-то большой программе, к которому можно пристёгивать все остальные пути, это ИМХО самый раз!
Сохранение же локальных переменных, имеющих смысл только в этом чертеже и этом сеансе,
в реестре - это ОЧЕНЬ-ОЧЕНЬ плохо, не профессионально и неоправданно!!!
Для этого можно (и нужно в достаточно больших программах) использовать другие средства, например, INI-файлы, словари, расширенные данные и т.д..

[Евгений А.]

... что бо'льшая свалка мусора чем Интернет

извини, но это слова юзера, которому плохо всё то, чего он не понимает... программист так не скажет.

Сохранение же локальных переменных, имеющих смысл только в этом чертеже и этом сеансе,

, а где ЭТО в моём примере? Есть конкретная задача - сохранять состояние окна. В моём примере это и сделано, причём всё сохраняется независимо от сеанса, чертежа или Автокада. Мы опять спорим о разных вещах.
А на счёт "свалки" лучше сами рассудите: если записей много и все серьёзные программы (соответственно программисты) используют реестр, то наверно не потому, что там приятно мусорить, а потому, что ОЧЕНЬ легко и удобно!!!

[Владимир М]

Думаю по этому спорить особо не надо. Я думаю, реестр нужен не только для этих целей. Можно контролировать на наличие использование программы в целях авторских прав. Даже при наличии удалении программы необходимо оставить инфо о пользовании программы. Но наша программа бесплатная, так что не чего туда и лесть в этот реестр.
Если программа серьезная и написанная, например на C++, то это другой разговор.
Так что лезть туда пока не собираюсь.
А вот с Лиспом пока не получается, вроде логику понял, но что-то не выходит, может кто-то поможет ... или выложить код?

[Евгений А.]

->Владимир М
Вообще-то для авторской защиты программ реестр не подойдёт, очень легко всё прослеживается, ну да ладно, я ни на чём не настаиваю.
А что у вас конкретно-то не получается с Лиспом?

[Владимир М]

Знаю что все значения нужно сохранить и записать, а потом прочитать с Лиспа и что то пока видать что то упускаю - додумаюсь напишу...

[Alan]

Сообщение от Владимир М Знаю что все значения нужно сохранить и записать, а потом прочитать с Лиспа и что то пока видать что то упускаю - додумаюсь напишу...

>Владимир М
Не все значения нужно сохранять, а только номера: списка профилей и профиля. Всё это можно записать в строку ИНИ-файла в папке Procat (а лучше и чище в рабочей папке).
Здесь я могу помочь, если тебе не понятно как. Но для меня гораздо интереснее добавить радио-кнопки для стали. Я почти это сделал.
Поэтому, я тебя прошу. Проверь/протестируй те тексты, которые я прислал 1.01.2007.
Дай сигнал ПГ на опубликование объединительной (единой для рус/анг Акада) версии.

[Владимир М]

Все хорошо Alan, можно выкладывать, но думаю надо погонять ее на руском Akade
Хочу сказать что скоро выложу обновления для спец профиля БАЛКИ ДВУТАВРОВЫЕ И ШВЕЛЛЕРЫ СТАЛЬНЫЕ СПЕЦИАЛЬНЫЕ ГОСТ 19425-74

[Владимир М]

Alan, буду рад елси ты мне поможешь, тем более ты эту прогу хорошо знаешь, а я в этом еще юзер...

[Владимир М]

Х...м, сижу спокойно программирую и как раз разбираюсь с внутренними уклонами двутавров по ГОСТ 19425-74
и вижу примечание в ГОСТе:

Уклон внутренних граней полок должен быть не более: для балок М-12 %, для балок С-16 %.

Но обычно написано не более 12%, ну думаю ну да ладно и эту проблемку тоже можно разрешить.
И тут вспомнил присылали мне С.-Петербурга чертежи с этими балками
Люди работают там в СПДС-график, ни хочу конечно обижать, но в этой программе программисты вместо 12% (7 градусов) залепили 12 градусов, а вместо 16% (9 градусов) - соответственно 16 градусов. Какая-то безграмотность творится!
Ладно у меня по ГОСТ 8239-89 Написано:

Примечание. Уклон внутренних граней полок должен быть 6—12 %.

Так у нас тут среднее значение 9%, т.е. 5 градусов.
А тут как мне быть принимать по максимум значение уклона для ГОСТ 19425-74, если интервала такового не имею?

[semvb]

Может немного не в тему, но есть вопрос по программе.Давно использую программу Василия Кондрата, все работало без проблем.
После установки обновленной версии перестали рисоваться профили с использованием пунктирной линии, создание слоев и загрузка дополнительных линий не помогают. Подскажите пожалуйста причину?

[Alan]

Сообщение от semvb Может немного не в тему, но есть вопрос по программе.Давно использую программу Василия Кондрата, все работало без проблем. После установки обновленной версии перестали рисоваться профили с использованием пунктирной линии, создание слоев и загрузка дополнительных линий не помогают. Подскажите пожалуйста причину?

Какое обновление Вы поставили, где взяли, от какого числа?
Какой у Вас Автокад: версия; локализация (рус/анг)?
Всего два вопроса, которые можно было не задавать!

[semvb]

Обновление со страницы http://dwg.ru/dnl/1825
prokat_ru от 27.12.06
ACAD2006eng, руссифицирован интерфейс.
Первоначальная версия проката работала начиная с ACAD2000.

[Alan]

semvb, см. почту.
Высылал тебе интернациональную версию для отладки.
Сообщи результат.

[semvb]

Большое спасибо Alan!
Но после выполнения всех манипуляций (путь поиска, загрузка) командная строка выдает
Command: prokat
; error: bad argument type: stringp nil

[Alan]

Сообщение от semvb Большое спасибо Alan! Но после выполнения всех манипуляций (путь поиска, загрузка) командная строка выдает Command: prokat ; error: bad argument type: stringp nil

Диагноз - поставил в неописанную директорию.
См. моё сообщение №26

Поместите папку prokat куда-то в папку, описанную в путях Автокада. Например в "D:\Program Files\AutoCAD 2006\support"

[semvb]

Вообще-то в ACADе не новичок и немного сам пишу в lispе, но все же:
1. Папка prokat2007 установлена в C:\Program Files\AutoCAD 2006\Support\prokat2007;
2. В опциях ACAD указан путь доступа к файлам поддержки C:\Program Files\AutoCAD 2006\Support\prokat2007;
3. Загрузить приложение (appload) prokat.lsp (а для пробы и все сразу)
4. Command: prokat
; error: bad argument type: stringp nil

[Alan]

Сообщение от semvb Вообще-то в ACADе не новичок и немного сам пишу в lispе, но все же: 1. Папка prokat2007 установлена в C:\Program Files\AutoCAD 2006\Support\prokat2007; 2. В опциях ACAD указан путь доступа к файлам поддержки C:\Program Files\AutoCAD 2006\Support\prokat2007; 3. Загрузить приложение (appload) prokat.lsp (а для пробы и все сразу) 4. Command: prokat ; error: bad argument type: stringp nil

Шел разговор, повторяю еще раз!

Поместите папку PROKAT (а не prokat2007) куда-то в папку, описанную в путях Автокада. Например в "D:\Program Files\AutoCAD 2006\support"

Потому что в текстах сделано не совсем правильно, я об этом Владимиру говорил (см ниже код), но сделано так!

Код:

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

(setq dvtp  (findfile "prokat/dvt_p.lsp")	
        dvt   (findfile "prokat/dvt_r.lsp")
	shr   (findfile "prokat/shv_r.lsp")
	shp   (findfile "prokat/shv_rp.lsp")
	shg   (findfile "prokat/shv_rg.lsp")
	ugr   (findfile "prokat/ug_rp.lsp")
	ugn   (findfile "prokat/ug_np.lsp")
	ugrg  (findfile "prokat/ug_rg.lsp")
	ugng  (findfile "prokat/ug_ng.lsp")
        trprf  (findfile "prokat/tr_prf.lsp")                                               
	dvcl  (findfile "prokat/d_vtr.dcl")
	lib   (findfile "prokat/procat.slb")
	dvdp  (findfile "prokat/dvtp.dat")
        dvdpas  (findfile "prokat/dvtpas.dat")
	dvd   (findfile "prokat/dvtr.dat")
	svrd  (findfile "prokat/svlr.dat")
	svpd  (findfile "prokat/svlrp.dat")
	svgd  (findfile "prokat/svlrg.dat")
        svgKd  (findfile "prokat/svlrgK.dat")
	ugrd  (findfile "prokat/ugrp.dat")
	uggrd (findfile "prokat/ugrg.dat")
        uggrKd (findfile "prokat/ugrgK.dat")
	uggnd (findfile "prokat/ugng.dat")
        uggnKd (findfile "prokat/ugngK.dat")
	ugnd  (findfile "prokat/ugnp.dat")
        trkvd  (findfile "prokat/trkv.dat")
        trpud  (findfile "prokat/trpu.dat")
  ) ;_ end of setq

Т.е. описание C:\Program Files\AutoCAD 2006\Support\prokat2007; не нужно!
Или меняйте тексты, что пока делать не надо.
Вот Владимир превратит эту прогу в программу, тогда и решим с правильным расположением.

[semvb]

Спасибо Alan! Именно это я и подозревал, только было лень разбираться в *.lsp. Хочу еще заметить что в текстах нашел отрисовку линий в слое "Штриховая2", надеюсь Владимир учтет и этот момент, лишние слои только мешают при проектировании.
Будем ждать выхода финального релиза.

[Alan]

Сообщение от semvb Хочу еще заметить что в текстах нашел отрисовку линий в слое "Штриховая2"...

Не может такого быть!
Где это было, в варианте от 26.12.2006 или в моих последних текстах?

[semvb]

Xoчется еще добавить для Владимира при доработке программы использовать системную переменную DIMSCALE для отрисовки пунктирных линий в соответствии с установленным глобальным масштабом.

[semvb]

Хочу еще заметить что в текстах нашел отрисовку линий в слое "Штриховая2"...

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

[Владимир М]

Alan, есть проблемы нужен acadiso.lin русской версии для проверки с типом линии, а то у меня ее нет. Выложи пожалуйста, что -то с типом линии не получается. Вместо "DASHED" не выводит "штриховая".
Специально удалял "DASHED" для проверки на выдачу типа линии "штриховая".

[Владимир М]

semvb Xoчется еще добавить для Владимира при доработке программы использовать системную переменную DIMSCALE для отрисовки пунктирных линий в соответствии с установленным глобальным масштабом.

Есть и такое используют у меня на работе, вот как раз под релиз -
Постараемся сделать
Вот сейчас поправил для двутавров и швеллеров с уклоном - отрисовка на виду сбоку будет осуществлятся по средней линии.
Хочу заметить полоки идут под скосом 5 градусов в AutoCAD.
У Асконцев уклон на всех 7 градусов.

semvb Спасибо Alan! Именно это я и подозревал, только было лень разбираться в *.lsp. Хочу еще заметить что в текстах нашел отрисовку линий в слое "Штриховая2", надеюсь Владимир учтет и этот момент, лишние слои только мешают при проектировании. Будем ждать выхода финального релиза.

Да есть такое

;;; (command "_linetype" "_s" "Штриховая2" "" "" "")

но ели читаешь код то внимательно посмотри перед ней знак такой стоит ";" - это чтобы команда на данной строке не работала, а следы надо оставлять...

[Владимир М]

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

[semvb]

[quote] ;;; (command "_linetype" "_s" "Штриховая2" "" "" "") [/quote
но ели читаешь код то внимательно посмотри перед ней знак такой стоит ";" - это чтобы команда на данной строке не работала, а следы надо оставлять...quote]
Владимир, прошу прощения, не заметил впопыхах точку с запятой, так как открывал в блокноте.
Для полного счастья хотелось бы, чтобы еще и толщина линий присутствовала для пунктирных линий. (ГОСТ 2.303-68, Линии невидимого контура от S/3 до S/2).

[Владимир М]

semvb Для полного счастья хотелось бы, чтобы еще и толщина линий присутствовала для пунктирных линий. (ГОСТ 2.303-68, Линии невидимого контура от S/3 до S/2).

Примитивы, входящие в рисунки-блоки отрисовываются на нулевом слое. т.е. программа не создает никаких новых слоев, как говорится, "со своим уставом" в чужие чертежи не лезет. (Вспомните девиз Василия Кондрата).
Вообще-то я то же раньше пользовался слоями для вывода на печать на старой работе.
А на новой пришлось все изменить. Теперь рисую в цветах и вывожу на печать по настройке на каждый цвет определенной толщины – мне даже такой вариант более нравится. И не забочусь, какая толщина у каждой линии, - главное цвет какой! Удобнее работать с блоками.
А если хотите слоями работать, кто знает AutoLISP, сами поправят – как говорится «хозяин барин», а девиз мы трогать не будем!

[Владимир М]

Кто ни будь, использует швеллеры серии Э, Л, С по ГОСТ 8240-97.
Если используете, то откликнитесь. Интересно где их применяют. Сам нигде их не применял. Но хочу добавить ГОСТ все-таки должен быть полным…

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

Может, тема уже ушла, но хотелось бы вставить свои 3 грошика (честно скажу, тему читал "по диагонали").
Грошик нумер раз. ИМХО: сделать локальную БД (на том же Access'e), и читать данные оттуда. Плюсы: все в одном файле; возможна сетевая работа; достаточно простое редактирование; для работы из-под acad'a установленный Access на машине не требуется. Минусы: для редактирования надо именно его; доступ к такой БД требует отдельный лисп (можно взять хоть с сайта Флемингов, хоть отсюда - я его как-то выкладывал).
Грошик нумер два. Хранить временные значения переменных нужно где угодно, но только не в реестре. Доступ туда, конечно, быстр, но... Есть одно ограничение, которое "кое-где у нас порой встречается": максимальный объем реестра. Если оно установлено в 32 метра, и осталось свободным только 2 байта, чего должен сделать пользователь, не обладающий админскими правами? ИМХО метод хранения определяется длительностью хранения: если только в текущей сессии acad'a, то делать black-board переменные, именованные "похитрее". Если я делаю глобальную переменную, например, с именем *dwg-ru-project-prokat-dcl-settings-saved*, какой больной фантазией надо обладать, чтоб все это повторить? И хранить в ней список ассоциативных пар типа '(("key" . "value") ("key" . "value")) ну или наподобие. И читать с него все данные и настраивать dcl-файл соответственно. Если данные в каждом файле свои, то можно поступить двояко: либо глобальные переменные, либо пользовательские словари.
Если же данные надо хранить "между сессиями", то ini-файл самое то (ИМХО). вариантов доступа - как у дурака фантиков. Начиная от doslib и заканчивая собственными сочинениями.
Грошик нумер три. ИМХО: должон быть инсталлер, который при установке запрашивает путь установки, пишет необходимые данные в реестр, прописывает меню в указанные версии ACAD'a, делает (при необходимости) отдельный профиль, а также отслеживает предыдущие версии. Более чем полезно, учитывая, что далеко не все слету смогут разобраться; а утилит фриварных для подобных задач полно.
---
Я пытался сделать нечто наподобие, но терпения и возможности попросту не хватило - прямой работы накидали

[Евгений А.]

->kpblc
Сказано красиво и достойно... вот только совершенно неуместно (даже не диагонально а параллельно ). Программой занимаются любители, а не программисты. Иначе бы не занимались ерундой (переделкой/доделкой/...), а написали бы всё с нуля (простительно - они учатся! :shock: ). Поэтому о реляционных базах данных (SQL/QBE) вспоминать не стоит.
Про то что в реестре не стоит хранить большие объёмы данных - и ежу понятно (хотя я не думаю, что лишние 5 - 10 метров как-то повлияют на реестр? А тут только состояние диалогового окна - небось и килобайта в жизни не понадобится).

Если же данные надо хранить "между сессиями", то ini-файл самое то (ИМХО).

Именно это провоцирует создание инсталятора, однако куда проще и удобнее использовать один VLX-файл (расположенный где угодно/удобно любому пользователю!!!!!) и использовать реестр - и не надо будет никаких инсталяторов, папок с кучей файлов (что при установке программы легко подкосит даже не самого зелёного юзера). И к тому же работать всё будет быстрее. Да и работать с файлом на порядок геморойней чем с реестром.
----
Я для себя написал программу-рисовалку трёхмерного проката - всё в одном VLX-файле не привязанного ни к каким папкам, а потом, когда увидел эту тему, попытался установить ПРОКАТ для сравнения и ... хрена с два - error !!! После третьей попытки пропало желание (и до сих пор не появилось).

[Геннадий aka PG]

Сообщение от Евгений А. ...а потом, когда увидел эту тему, попытался установить ПРОКАТ для сравнения и ... хрена с два - error !!! После третьей попытки пропало желание (и до сих пор не появилось).

Евгений А. , ты конечно извини,("зачем я (ты) так при Мишке") может просто знаний не хватило, там же все разжевано как устанавливать, или акад локализованный был, но нельзя же так резко отвергать столь широко используемую прогу!!

Ничего лично, извини если обидел чем!

[Sleekka]

Xoчется еще добавить для Владимира при доработке программы использовать системную переменную DIMSCALE для отрисовки пунктирных линий в соответствии с установленным глобальным масштабом.

Вот только этого ненадо, вы только что сами жаловались что не нравится то, что программа чертит на доп слое, хотя такого нету, но дело в том что эту программу дорабатывают так, чтобы она не лезла со своим уставом в чужой монастырь.
Дело в том что не все так чертят как вы, например я и небезызвестный Vova для всех объектов назначают linetype scale =1 а при помощи viewports добиваются нужных результатов отображения в зависимости от масштаба.
Вы же все равно назначаете тип линий потом, я боюсь предположить что у вас есть написаные реакторы чтобы чертя _line она сразу считывала dimscale и была в нужном масштабе.
Уважаемый автор программы просьба сохранить направление развития, в том плане чтобы программа не затрагивала тот самый пресловутый СТП.

[Владимир М]

Да, Sleekka, по идеи ты прав, "каждый камень точат по своему"
Нужно делать основу - "для всех", а если хочет под себя подстраивать - пусть сам это делает - я ведь стараюсь не только для себя но и для всего общества-инженеров!
Еще хочется сказать пишите все высказывание по прокату, - чего нет? или что-то не хватает или что добавить нужно?
Вот соберем большой сборник и буду сортировать по категориям (добавим маленькое падающее окошко сбоку)

[Геннадий aka PG]

Владимир М
Давай только брать уже локализованную версию для дальнейших модификаций и учитывать также локализацию в новых подпрограммах !
Alan мне прислал "локализованную" версию работает и в англ и русском акаде.
http://www.cadhlp.kulichki.com/pgmake.htm#prokat2007

[GarryPop]

А было бы не плохо если бы запрашивался масштаб отрисовки проката.

[Diman111]

Хотелось бы внести ряд предложений.
1. отрисовка проката полилинией а не блоком (блоку сменить цвет и тип линии сложнее)
Если не хотите убрать отрисовку блоком - то брать текуйщий цвет и внести в блок атирубы - гост типа проката и вес погонного метра.
2. запрашивать пользователя о масштабе отрисовываемого элемента а не рисовать 1-1 (типа потом пользователь сам решит что ему надо ). ИМХО проще вбить цифру 5 10 20 25 50 100 или кому что надо - как масштаб чем потом совершать шаманство над блоком.

[GarryPop]

PS.
Обновленный прокат 2007 не работает. Выдает ошибку. Пришлось вернуться к предыдущей версии. (; error: bad argument type: stringp nil)

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

Ххе, похоже, понадобится делать нормальное окно настроек, в которое и вносить последовательно все предложения
Нечто типа такого, я думаю:
[ATTACH]1168499342.jpg[/ATTACH]

[Геннадий aka PG]

Лично я против масштаба изображения, а цвет... Всё отрисовывается в текущем слое!
У меня все работает, цвет меняется с изменением цвета слоя, все корректно (конечно подробно все позиции сортаментов не проверял)

[Alan]

Сообщение от GarryPop PS. Обновленный прокат 2007 не работает. Выдает ошибку. Пришлось вернуться к предыдущей версии. (; error: bad argument type: stringp nil)

Боюсь, что Вы установили не в ту папку.
Посмотрите внимательно моё сообщение №91 и всё заработает!
Новая версия благодаря Владимиру М богаче по возможностям.
А благодаря kpblc"у может работать с линиями из любого (рус/анг) Автокада.

[Diman111]

kpblc
Все так - только не разбитым блоком вставка (при кторой я получаю кучу отрезков) а именно единой полилинией.
сие сделать не сложно а жить станет легче

Геннадий aka PG
Боюсь вы тем самым сделаете не универсальную программу а прогу чисто под себя - Крыс правильно расставил галки - хочешь меняй масштаб - хочешь нет.
цвет слоя одно а текущий цвет другое.
нашим СТП запрещено плодить свои слои а цвета меняй как хочешь - вот и вывод - надо брать текущий цвет а не цвет слоя. Хотя тоже можно регулировать сей момент - выставив галку в настройках

[Геннадий aka PG]

Сообщение от Diman111 Геннадий aka PG ...нашим СТП запрещено плодить свои слои а цвета меняй как хочешь - вот и вывод - надо брать текущий цвет а не цвет слоя. Хотя тоже можно регулировать сей момент - выставив галку в настройках

И кто из нас под себя.....?
Поубывал бы тех кто в слое еще и разными цветами рисует, зачем?
Елку новогоднюю не напоминает.
А рисовать в АКАДе в масштабе - наивреднейшее дело!

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

Ххе, щщас, "сделать полилинией проще"
Для полилинии будет более грустно - надо будет уже делать (entmake) либо (vla-addlightweight), то есть программно вычислять точки и закругления, на их основе строить полилинию, которую потом и вставлять в блок. Поскольку мне по ходу работы не приходилось сталкиваться со скругленными полилиниями, я и функцию на это не делал Ща попробую

[Геннадий aka PG]

Просто блок взрывать не надо - и проблем не будет.

[Diman111]

Геннадий aka PG
Если не ошибаюсь тут уже много веток по правилам ПРАВИЛЬНОГО черчения.
мне казалось эта ветка конкретно о программе - я внес лишь предложения которые прошу реализовать - не более чем.


Крыс
насчет полилинии - тут был набор лиспов по работе с полилиниями - в частности был лиспик по объединению линий в полилинию - так вот пологаю им можно воспользоваться дабы велосипед не изобретать и вставить тот код. Хотя - не мне Вас учить.

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

Иногда надо экструдировать полученные сечения. Там без взрывания блока не обойтись
Вот функции, вроде как работают - создают полилинию по указанным параметрам. Выдирал с мясом из имеющейся библиотеки, поэтому мог чего-то упустить. Если что, сообщите
[ATTACH]1168512834.rar[/ATTACH]

[Геннадий aka PG]

Сообщение от kpblc Иногда надо экструдировать полученные сечения. Там без взрывания блока не обойтись

Есть же 3D проакат !!!

[Геннадий aka PG]

Сообщение от Diman111 Геннадий aka PG Если не ошибаюсь тут уже много веток по правилам ПРАВИЛЬНОГО черчения. мне казалось эта ветка конкретно о программе - я внес лишь предложения которые прошу реализовать - не более чем.

А зачем включать в программу возможность "неправилного" проектирования ? Это если бы в алфавите буква "О" имела бы сноску "писать как слышаца-А"
Ну, что вы в самом деле.....

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

Есть же 3D проакат !!!

Я заработался... Напрочь про него забыл
Все, я заткнулся

[Геннадий aka PG]

Сообщение от kpblc ...Все, я заткнулся

Ну, зачем же так сразу !

[Diman111]

Сообщение от Геннадий aka PG Сообщение от Diman111 Геннадий aka PG Если не ошибаюсь тут уже много веток по правилам ПРАВИЛЬНОГО черчения. мне казалось эта ветка конкретно о программе - я внес лишь предложения которые прошу реализовать - не более чем. А зачем включать в программу возможность "неправилного" проектирования ? Это если бы в алфавите буква "О" имела бы сноску "писать как слышаца-А" Ну, что вы в самом деле.....

Снова речь о правильном либо нет проектировании.
постараюсь объяснить:
1. во первых есть цветозависимая печать - следовательно линии имеет смысл делить не по цветам а логически по слоям. и на каждом слое я могу по своему усмотрению для наглядности выделить толщиной (т.е. цветом) нужный мне момент
2. в больших конторах многие вещи оговариваются заранее - либо нормативами, либо контрактом и т.п. - т.е. плодить слои я не имею права.
это приводит к необходимости брать цвет текущим а не по слою.
3. Вставив 1-1 я вынужден использовать модель и просторанство листа. НО - по требованиям - по 1 чертежу в 1 файле - следовательно:
в модели нарисвоать 3 узла а потом их отмасштабировать в лайоутах - это умно (???) но долго. - проще сразу как мне надо отисовать в модели и все.
либо я вынужден хранить 1 огромную модель и использовать лишь по 2 изображения для каждого листа - т.е. чертежа.
Следовательно мне надо масштабировать вставляемый блок.
4. блок не позволяет одним щелчком поменять цвет и тип линии - следовательно блок ненужен - нужна линия.
5. имея 10 линий на 1 сечение сложно скопировать это сечение и т.п. редактирование. - следовательно необходима 1 линия.

если программа пишется не под себя - то почему бы просто не учесть пожелания других людей. зачем споры о методах проектирования - мне кажется это немного неуместно - тем более мои требования не мешают вам работать как прежде - ПРАВИЛЬНО.

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

Да дело не в том, как работать правильно, а как - нет. Дело в том, что только сейчас начинается то, что должно было произойти в самом начале - сбор пожеланий к проге (точнее, ее "унутренностям", а не к внешнему виду и поддерживаемым профилям).
Я чем дальше, тем больше склоняюсь к отдельному окну настроек, где и должно быть прописано все (или почти все). И хранению необходимых данных вне AutoCAD'a.

[Diman111]

Полностью Согласен с Крыс !!!!
настроек программа просто не имеет - а жаль.
да и хранение настроек в ini (или иначе) вещь правильная - ибо забивать много галок при каждом открытие -

[Геннадий aka PG]

Полностью согласен с kрыс'ом !
Модернизация то и затевалась добавления сортамента, а кому какие пуговоицы, да еще и под стандарт предприятия.....
Ребяты, давайте и совестью пользоваться будем! Розовые пуговицы может кто и сделает, но не задаром же, не на рынке все таки находимся.

>Diman111
Я не хочу спорить о стандартах черчения, но в ваших словах мне многое не понятно, а главное принцип деления по слоям.
При цветозависимой печати например толстая- красная, так она и везде должна быть красной, а контур проката - толстая линия.. и в какой цвет красить? Непонятно мне.
С блоками тоже непонятка, зачем их членить, когда есть проги по модификации блока с сохранением под новым или старом именем.

[Alan]

Сообщение от kpblc ....Я чем дальше, тем больше склоняюсь к отдельному окну настроек, где и должно быть прописано все (или почти все). И хранению необходимых данных вне AutoCAD'a.

ИМХО. Настройки, связанные:
с наполнением чертежа хранить внутри чертежа (словари, расш.данные, блоки, переменные - на вкус..);
общие, например, путь к программе (НЕмаленькой) в реестре;
общие несущественные (например, оформление окна, штамп чертежа...) в ини-файле.
Где-то так! Навскидку!
ЗЫ Я уже отправлял кого-то на стр. с этим материалом в книгу "САПР на базе..."
Там немного правда не так. Но классическое размещение описано!
Пища для размышления присутствует.

[Владимир М]

программа
_kpblc-linetype-load_.LSP от Лоскутова Петра Витальевича
(крыса) работает на подгрузку типа линии из acadiso.lin находящий в
папке C:\Program Files\AutoCAD 2002\Support
или C:\Documents and Settings\Имя пользователя\Application
Data\Autodesk\AutoCAD 2005\R16.1\enu\Support и выше версией.
НО НИ КАКОЙ СВЯЗИ С ЛИНИИ "dashed" НИ ЧЕГО НЕТ. Когда удалил
тип линии "штриховая" (которой там не должно быть) с англ. версии то я все понял "dashed" так и не
появилась. и это подтвердилось моему ожиданию. Это прога только для
погрузки типа лисии с указыного выше пити загрузки.
(setvar "celtype" (_kpblc-linetype-load_ "штриховая" nil)
Но думаю это можно решить спомощью оператора if но как лучше сделать надо подумать...

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

Оффтоп.
Интересно меня обозвали По-моему, у меня все ж другое имя. В prokat 2007 в этой функции (_kpblc-linetype-load) Лоскутов Петр Васильевич вроде как не упоминается вообще никаким боком

[Геннадий aka PG]

Сообщение от kpblc Оффтоп. Интересно меня обозвали По-моему, у меня все ж другое имя. В prokat 2007 в этой функции (_kpblc-linetype-load) Лоскутов Петр Васильевич вроде как не упоминается вообще никаким боком

А фамилия и отчество какое?
Ты, просто, шпиён !

[Alan]

Сообщение от Владимир М программа _kpblc-linetype-load_.LSP от Лоскутова Петра Витальевича (крыса) ...

Владимир М, очень сильно ошибся в своём сообщении.
программа _kpblc-linetype-load_.LSP - Автор Кулик Алексей aka kpblc
Лоскутов П.В. (Alaspher) написал много очень хороших, но других программ.
См. http://www.uniip.ru/#content=http://.../lib/menu.html

[Владимир М]

Извините kpblc. А я думал что это вы!
Еще раз глубоко извиняюсь. А по фотографии вроде вы я раньше видел., но наверно обознался.

[k168]

Сообщение от Владимир М Извините kpblc. А я думал что это вы! Еще раз глубоко извиняюсь. А по фотографии вроде вы я раньше видел., но наверно обознался.

Ну Ё....
Страна должна знать своих ГЕРОЕВ!
http://my.opera.com/kpblc/blog/

PS: любой Кулик свою программу хвалит

[Владимир М]

ВОт по очкам и обознался (у обоих затемненые). Извини kpblc, если что не так.

[Геннадий aka PG]

Сообщение от Владимир М ВОт по очкам и обознался (у обоих затемненые). Извини kpblc, если что не так.

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


ВСЕХ с НАСТУПИВШИМ СТАРЫМ НОВЫМ ГОДОМ!

[Владимир М]

Ну если на то пошло, то я тоже откроюсь. Я Мадюшкин Владимир (Владимир М). Кстати Геннадий aka PG, на своем сайте рядом с Александром Назаровом (Alan) допиши пожалуйста мою фамилию - пусть знают наших героев! Будем продвигать САПР!

[Геннадий aka PG]

Хорошо, сделаю, а как насчет фото?

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

Сообщение от k168 PS: любой Кулик свою программу хвалит

Не любой Ну, по крайней мере, не на каждом углу

[Владимир М]

Отправлю на ваш E-mail, Геннадий aka PG.
Ну тут все прямо открываются - Кулик Алексей aka kpblc

[Владимир М]

Собираюсь обновить диалоговое окно на такое. Ваши предложения...
[ATTACH]1168875899.jpg[/ATTACH]

[Геннадий aka PG]

Может не надо?

[Alan]

Сообщение от Владимир М Собираюсь обновить диалоговое окно на такое. Ваши предложения...

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

[Владимир М]

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

[GarryPop]

Пожалуйста маленькую кнопочку с масштабом отображения

[Геннадий aka PG]

Сообщение от Владимир М Ну конечио программа мала, а если раширять ее будем? Слишком много всего будет...

Если для каждого пункта левого списка будет 10-20 строк правого, то тогда есть смысл. В нынешнем положении, Alan прав, выбор элемента потребует большего времени.
ИМХО и ЯТД.

[Владимир М]

Геннадий aka PG Если для каждого пункта левого списка будет 10-20 строк правого, то тогда есть смысл. В нынешнем положении, Alan прав, выбор элемента потребует большего времени. ИМХО и ЯТД.

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

GarryPop Пожалуйста маленькую кнопочку с масштабом отображения

с Машабом делать пока нечего не будем иначе блоки придется делать без имен т. к. некоректное сохранение имененного блока повлияют на изменения блоков с таким же именем.

[Владимир М]

Ну думаю нужно продолжить начатое! Нужно добавлять и расширяться!

[Евгений А.]

Хотелось бы увидеть программу скомпилированную в один VLX файл. А то я её так и не попробую . И про 3d что-то не слышно ничего???

[Владимир М]

Евгений А. Будет и 3D. Но VLX файлами я не занимался.
Если хочешь кинь инфу или ссылку по этому - разберусь и почитаю.
Хотя я хочу придерживаться стиля Василия Кондрата. Его всетаки программа и это надо признать я лишь только обновляю и добавляю.

[Alan]

Сообщение от Евгений А. Хотелось бы увидеть программу скомпилированную в один VLX файл. А то я её так и не попробую .

Каждый пользователь для себя может скомпилировать эти тексты в один VLX файл для удобства использования, так сказать адаптировать под свои нужды.
Тогда можно подкорректировать пути расположения и сделать ещё кое-какие изменения.
Но Василий Кондрат разместил открытые тексты, работа я думаю должна продолжаться в таком же виде.

И про 3d что-то не слышно ничего???

Загрузите текст Prcat3d.lsp и наберите в командной строке PRKT3D (можно и маленькими буквами ) и будет Вам счастье!

[Евгений А.]

Alan:

Каждый пользователь для себя может скомпилировать эти тексты в один VLX файл для удобства использования, так сказать адаптировать под свои нужды. Тогда можно подкорректировать пути расположения и сделать ещё кое-какие изменения.

Вы им сильно льстите! Многие не могут запустить даже один лисп. И вообще моё мнение, что прописывать пути к файлам программы в Автокаде только для того, чтобы посмотреть на программу - ананизм, когда можно просто закинуть один VLX-файл мышкой в модель и всё!!! - пробуй на здоровье - подходит она или нет, про пути к файлам можно забыть вообще и программа будет работать в разы быстрее!!! А исходники прятать никто не просит.

[Alan]

...когда можно просто закинуть один VLX-файл мышкой в модель и всё!!! - пробуй на здоровье - подходит она или нет, про пути к файлам можно забыть вообще ...

В этих текстах так было (пути к файлам) изначально прописано автором (В.Кондрат).
Не хочется вступать с Вами в теоретическую дискуссию, но если бы всё было так просто, в Windows вообще папок не было. Так бы мышкой всё и тягали!
Свои разработки я лично компилирую в один VLX-файл.
Например, для того чтобы не видно было старые тексты, сохранившиеся ещё от версии 10 . НО!, совсем без путей, не обхожусь.

программа будет работать в разы быстрее!!!

Про такой маленький текст (ПРОКАТ) это не скажешь. Про побольше - естественно. ЯТД
У меня VLX-файл имеет размер примерно 800Кб, а вся папка с инфой, блоками и т.п. - 15Мб.

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

В некоторых случаях компилированные файлы могут вообще не работать. Если Евгений Елпанов появится, может, он и скажет более предметно. Из общения с ним я понял, что невозможно откомпилировать vlx и fas с отдельным именным пространством, если внутри кода идет использование рекурсивных функций. Может быть, и не все так грустно (просто мне использование компилированных файлов заказано )

[Елпанов Евгений]

Сообщение от Кулик Алексей aka kpblc В некоторых случаях компилированные файлы могут вообще не работать. Если Евгений Елпанов появится, может, он и скажет более предметно. Из общения с ним я понял, что невозможно откомпилировать vlx и fas с отдельным именным пространством, если внутри кода идет использование рекурсивных функций. Может быть, и не все так грустно (просто мне использование компилированных файлов заказано )

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

На самом деле, раньше я сталкивался с этими проблемами, но не разбирался - ошибки были в передаче, через глобальные переменные.

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

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

Тем не менее (ИМХО) компилированные файлы в данном конкретном случае вряд ли дадут существенный прирост производительности - основная проблема-то в том, что, как и когда будет выбирать человек, а не обрабатывать лисп. Ну сработает он не за 0.0001 сек, а за 0.001 секунды - что от этого изменится, если человек будет выбирать нужные параметры минут 10?

[Геннадий aka PG]

Я так понимаю, что к работоспособности программы вопрос уже нет!
Это просто радует!!!!!!!!!
А про один файл.. Так можно все ЛИСПы в один воткнуть

[Евгений А.]

Отдельное именное пространство, кроме всего прочего, прописывает в программу не имена функций, а лишь их оносительный адрес (кроме тех, что экспортированны и начинающихся с "С:"), что естественно ускоряет обращение к функции, а если при компиляции использовать оптимизацию и связывание, то адресация может местами заменяться на короткий переход (кто знает ассемблер, тот поймёт), а это опять выигрыш в скорости (возможно в конкретной программе это не важно), но кроме того у вас не будет проблем с другими программами, в которых случайно окажется такое же имя функции как у вашей - что уже очень важно!!!

Сообщение от Геннадий aka PG А про один файл.. Так можно все ЛИСПы в один воткнуть

Вполне логично: одна программа - один файл, тем более размеры не большие.

[Геннадий aka PG]

Сообщение от Евгений А. Сообщение от Геннадий aka PG А про один файл.. Так можно все ЛИСПы в один воткнуть Вполне логично: одна программа - один файл, тем более размеры не большие.

Тут надо взглянуть на историю развития программы, модульность - результат постепенного добавления новых элементов отрисовки и лепить все в один файл было в начале не разумно, да и сейчас если что править - так удобнее
А потом, действительно, ну будет она запускаться за 0,00000000000001 сек или за 5 сек, какая мне разница, если я в носу 20 сек ковыряюсь прежде чем выбрать элемент

[Владимир М]

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

[Евгений А.]

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

А исходники вовсе не надо объединять в один файл. Так что тут не переживайте. Вы надеюсь с проектом работаете или с кучей лиспов?
:shock:
Да я ничего против не имею, просто предложил вариант, как сделать прогу проще для простого юзера. Ну не будет простой пользователь что-то менять в программе, а по хорошему - и не должен, только загубит программу! а вот запутается в файлах и папках - 100% если никто не поможет...
Кстати попробовал всё-таки программу - всё работает нормально (2008)! Поздравляю. Но лично меня в корне не устроил подход про "со своим уставом" в чужие чертежи не лезет (всем как говорится не угодишь) У меня всё как раз наоборот http://ad-cad.narod.ru/AD-Profil.htm

[Владимир М]

ммм, так это ты автор программы AD-Profil
А на основе чего твой код?
Отличается твоя от этой или только компилирована в один файл?

[Евгений А.]

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

[Владимир М]

Внимание! Обновления!
Вставте эти файлы в корневую папку данной программы с заменой старых

Где-то была ошибка в одной позиции по отрисовке Гнутых профилей trkv.dat или trpu.dat непомню поэтому еще раз посылаю
И замена ugnp.dat Уголков неравнополочных ГОСТ 8510-86 (Старая не совсем соответствовала ГОСТ).
[ATTACH]1181761600.rar[/ATTACH]

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

Влезу-ка повторно (уже по самим лиспам, остальное, как я понял, уже проехали). Позволительна ли критика (ну и решения проблем)?

[dextron3]

[quote="Владимир М"]Внимание! Обновления!
Вставте эти файлы в корневую папку данной программы с заменой старых

Где-то была ошибка в одной позиции по отрисовке Гнутых профилей trkv.dat или trpu.dat непомню поэтому еще раз посылаю
И замена ugnp.dat Уголков неравнополочных ГОСТ 8510-86 (Старая не совсем соответствовала ГОСТ).

а что новенького

[Владимир М]

Кулик Алексей aka kpblc Влезу-ка повторно (уже по самим лиспам, остальное, как я понял, уже проехали). Позволительна ли критика (ну и решения проблем)?

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

[Владимир М]

dextron3 а что новенького

Добавил еще специальные Швеллеры и Двутавры по ГОСТ 19425-74, но выложить пока немогу времени нет дороботать код т. к с Alan не решили проблему с ACADом RUS and ANG
Тут еще думаю как создать калькулятор для подсчета проката при значении длины, но видать не скоро это произойдет. Программу придется дополнять. Меня заинтересовали динамические блоки, но в этом я еще ноль. Хотелось найти по динамическим блокам разжеванную книгу.

[Alan]

Сообщение от Владимир М Внимание! Обновления! ...Где-то была ошибка в одной позиции по отрисовке Гнутых профилей trkv.dat или trpu.dat непомню поэтому еще раз посылаю....

Для сравнения текстов файлов существует программа WinMerge http://winmerge.org/
Так вот она сказала, что эти два файла индентичные.

... Честно говорить с линиями русского ACADa c Alan так и не решили чтобы работал и в ANG тут все-равно лини приходится подгружать, а так все нормально ...

>Владимир М Честно сказать не понимаю проблему, у всех вроде всё работает, опишите подробнее в почту.

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

Лучше бы сюда, может, еще кто поможет

[Владимир М]

Для сравнения текстов файлов существует программа WinMerge http://winmerge.org/ Так вот она сказала, что эти два файла индентичные.

Идентичны я не спорю, только вот где то в середине один профиль пропустил и наименование уползло на один пункт - и случилась отрисовка не того профиля а на одну строчку выше.
Вот это я в обнавлении и исправил. И с уголками неравнополочными поменял несоответствие.

А что с линиями вот проблема. Опросил бы других как у них все встает?

[Владимир М]

Скачайте заново архив под номером 164 т. к. я забыл поправить несоответсвие в ГОСТ 8510-86 125x60x... на 125x80x... Архив заменен.
А так все нормуль.

[G.A.W.]

Сообщение от Владимир М Что нужно и как сделать чтобы при повторном выборе проката оставалось предыдущее сохранение выбора элемента проката :?:

А что необходимость уже отпала? Я все жду, жду... Или неподвластно? Если бы все получилось, было бы очень неплохо!!!

[Евгений А.]

Сообщение от G.A.W. А что необходимость уже отпала? Я все жду, жду... Или неподвластно? Если бы все получилось, было бы очень неплохо!!!

А как вы хотели, сэр - на халяву и сразу?

[Alan]

Сообщение от G.A.W. Сообщение от Владимир М Что нужно и как сделать чтобы при повторном выборе проката оставалось предыдущее сохранение выбора элемента проката :?: А что необходимость уже отпала? Я все жду, жду... Или неподвластно? Если бы все получилось, было бы очень неплохо!!!

В п.69 данной темы я писал:

В одном варианте В.Кондрата, который он мне присылал, так было и сделано.

Могу посмотреть свои архивы.

[G.A.W.]

...Могу посмотреть свои архивы.

Если не трудно, то посмотрите пожалуйста :roll:
Адрес если что в привате оставлю

[Владимир М]

Грустно говорить, - руки недоходят... Работы много :cry:
А так я за развитие данной программы. Сейчас изучаю динамические блоки. Тока времени мало!

[G.A.W.]

Сообщение от Alan ... Могу посмотреть свои архивы.

Кто-то хотел помочь, но возможно забыл, а мне бы ой как нужно!!!
Alan мож все же вспомнишь и посмотришь! А-А-А!

[Евгений А.]

->Alan и Владимир М
Вот видите, господа, исходники никому (99%) особо не нужны - всем подавай готовую программу, да побыстрее, а то работа стоит, все страдают... и ждут..., а если предложите им скинуться по 500 рублей с лица в фонд помощи разработчика(-ков), чтобы было время и желание поддерживать и развивать продукт, так тухлыми помидорами зашвыряют, мол и программа плохая, и ненужна она нам вовсе, и сами вы такие-сякие ... .
А потом удивляются: а что же это такое, нет в стране хороших программ и "мозги утекают за границу" к буржуям за погаными $.

[G.A.W.]

Сообщение от Евгений А. ->Alan и Владимир М Вот видите, господа, исходники никому (99%) особо не нужны - всем подавай готовую программу, да побыстрее, а то работа стоит, все страдают... и ждут..., а если предложите им скинуться по 500 рублей с лица в фонд помощи разработчика(-ков), чтобы было время и желание поддерживать и развивать продукт, так тухлыми помидорами зашвыряют, мол и программа плохая, и ненужна она нам вовсе, и сами вы такие-сякие ... . А потом удивляются: а что же это такое, нет в стране хороших программ и "мозги утекают за границу" к буржуям за погаными $.

Товарищ, если хочешь сыпать соль на рану, то для таких существуют отдельные сайты! Я гляжу тебе все не нравится (я смотрел в предыдущих постах).
Про таких анекдот придумали:
(!!!!!!!! - БОЯН!)
-Доктор мне все не нравится!
-Всмысле?
-Вообще все?
-Даже е????ся?
-А это как?
-Ну давайте покажу
.....
-Ну как?
-Да ну на х...! Ты определись - либо туда, либо сюда, а то туда-сюда, туда-сюда. Не НРАВИТЦА!

[Евгений А.]

Посмешил! Но не о том думаешь!
Тебе бесплатно дали программу вместе с исходниками - делай с ними что хочешь, переписавай как тебе надо!

Сообщение от G.A.W. Я гляжу тебе все не нравится (я смотрел в предыдущих постах)

значит плохо смотрел, я в этой теме уже предлагал очень простой вариант решения как раз твоего пожелания.

А вот если сам не можешь - проси помощи, но имей ТЕРПЕНИЕ и помни, что за бесплатно тебе никто ничего не должен. Люди как минимум могут быть заняты своими проблемами.
Я бы после твоих подгоняев на месте Alana специально не спешил бы, не мальчик уже.

[Владимир М]

На вопрос G.A.W., найдена ошибка

Здраствуйте! Я по такому вопросу: Рисование главного вида элемента (см. название темы): отрисовывание с ошибкой (графической) - одна из полок вместо 8 мм рисует 18 мм - где это нужно исправить? Если захочешь исправить сам, то скажи где это делается на будущее, чтобы не беспокоить впредь. Заранее спасибо.

Извиняюсь и справляю: Замените файл dvtpas.dat в корневой папке
[ATTACH]1184336646.rar[/ATTACH]

[Sleekka]

Вопрос: зачем даны данные сортамента - если они неправильные?
например для швеллеров с уклоном полок и параллельными полками выводятся одинаковые данные, хотя должны быть разные.

[Владимир М]

Да ты прав, Sleekka, есть небольшое различие надо править...
Исправлю выложу, - спасибо за замечание...

[Владимир М]

Исправляю свои ошибки - ошибка в справочных данных на швеллеры с параллельными полками, было взято по умолчанию со справочных данных для швеллеров с уклоном
Замените данный файл в корневом каталоге на этот
[ATTACH]1184366888.rar[/ATTACH]

[Sleekka]

2Владимир М
1) я швеллеры как пример привел, возможно нужно посмотреть тоже и для двутавров.
2) откуда изначально взялись эти данные для сортамента?
3) обратите пожалуйста внимание на вот этот пост

[Владимир М]

Ты конечно прав, Sleekka, надо проверять, конечно я это пока забросил, честно сказать, но не совсем.
Самое интерестное я сам встречаю ошибки в ГОСТ и очень много, вот как раз в этих самых сортаментах и понял тогда когда начал делать прогу в EXCEL по прокату чисто свои расчеты сверял с ГОСТами и что я увидел ошибки и не значительные, но встречаются очень грубые.
Ну например ГОСТ 19425-74 балка 36С в ГОСТ 71,3кг/п.м. а у меня по расчету 62,8кг/п.м.
Это только пример на самом деле их много и тут начинаешь задумываться как работает наш ГОСТ и куда они смотрят? Хотя в справочной инфе по отрисовке стараюсь придерживаться ГОСТ даже если есть там баки - думаю это временно - но зато есть куда и на кого сослаться!

[Евгений А.]

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

[Alan]

>G.A.W.&All
Нашел место, где запоминается ГОСТ и № профиля.
Не совсем красиво, через глобальную переменную, но работает...
Кто может потестить Прокат, пишите вышлю текст prokat.lsp
P.S. Теоретически. Сделать через ИНИ-файл, думаю через 30 мин. получиться. Но хочется чтобы потестировали так.

[Sleekka]

плошади поперечного сечения забитого в базу и реально рисуемого в модели профиля

Сверка только площади или всех параметров?

[Владимир М]

Alan, выкладывай сюда посмотрим...

[Евгений А.]

->Sleekka
У меня реализована только площадь, а в принципе, не сложно проверять и все параметры, но мне это не нужно...

[Alan]

Сообщение от Владимир М Alan, выкладывай сюда посмотрим...

Выкладываю текст prokat.lsp Запоминается ГОСТ и № профиля,
через 2 глобальные переменные: pr_fl rr
Просьба проверить Прокат и сообщить замечания.
P.S. Сделал вариант через 2-х строчный ИНИ-файл, но думаю что для программы с открытым кодом достаточно представленного варианта.
Полную сборку я думаю разместим через денёк у Поспелова Геннадия, заменив предыдущую.
[ATTACH]1185175382.rar[/ATTACH]

[Владимир М]

Alan, работает, но есть некоторые пожелания хотя в целом все хорошо.
Еще немного подредактировал prokat.lsp добавил спец.
швеллер и двутавр (монорельс)по ГОСТ 19425-74.
Файлы подкорректированные целиком Выслал вам по почте, Alan. Доделаем и выложим.
Еще нужно доделать Prcat3d.lsp ввести ГОСТ 19425-74 сделаю, сообщу.
А и еще Спасибо Alanу и Кулику Алексею aka kpblc за _kpblc-linetype-load_.LSP файл все работает большое вам спасибо за проделанную работу!

[Sleekka]

Извините пожалуйста Владимир М.
Нельзя ли выложить полный дистрибутив программы (на текущий момент) здесь или в даунлоде, я искал - не нашел. А то уже не собрать здесь что и куда нужно обновлять.

[Владимир М]

Вот и все! Вроде получилось. Выкладываю пока сюда тестируйте.
Добавил и в 3D ГОСТ 19425-74.
Установка та же, макросы те же.
Если кто не вьежает - можете задавать вопросы...
Пользуйтесь на халяву!
[ATTACH]1185312091.rar[/ATTACH]
И не забывайте меня и Alana [sm206]

[Sleekka]

Это полный архив? т. е. оригинальную программу Василия Кондрата иметь не обязательно?

[Владимир М]

Полный архив
Старую не нужна ее в музей можа отправить….

[AY]

Возомжно, то что я хочу сказать уже обсуждалось, я не читал всей ветки, но тем не менее.

Владимир, если уж вы решили отказаться от создания объектов с жестко заданными слоем и цветом (что конечно правильно), в отличии от первоначальной версии, то будте последовательны до конца - задавайте объектам блока цвет "поблоку".

[Владимир М]

Сообщение от AY Возомжно, то что я хочу сказать уже обсуждалось, я не читал всей ветки, но тем не менее. Владимир, если уж вы решили отказаться от создания объектов с жестко заданными слоем и цветом (что конечно правильно), в отличии от первоначальной версии, то будте последовательны до конца - задавайте объектам блока цвет "поблоку".

Поясните свое решение, чтобы всем понятно было.

[AY]

Поясняю:

В программе объектам создаваемого блока назначается цвет "по слою", а я предлагаю назначать "по блоку".

Или надо пояснять почему я предлагаю именно "по блоку"?

[Владимир М]

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

[Sleekka]

Полный архив Старую не нужна ее в музей можа отправить….

Спасиба!!! [sm155]

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

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

[AY]

Цвет "По слою" - должна иметь вставка блока ("INSERT"), а примитивы из описания блока должны иметь цвет "по блоку".

Это более универсальный подход имеющий своим недостатком (для "неопытных" пользователей) только то, что когда блоки "вырывают" командой _explode результат будет на слое "0" и с цветом "ByBlock". Поэтому если такое положение не желательно следует для разчленения блоков использовать либо _Xplode либо _Burst из экспрессов. Впрочем, наверное, вам это и без меня известно.

[Sleekka]

там еще баг есть: если по блоку, а потом назначать в явном виде 0.30 толщины линий, то при выводе на печать из 2007 када выводится толщины - линий - полный рэндомайс, никакой логики. Во всех остальных кадах нормально.

[Владимир М]

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

[AY]

>Владимир М
То о чем я говорю вовсе не "мои настройки", а универсальный подход к такого рода вещам диктуемый здравым смыслом и возможностями Autocad. Нутро блока с цветом "ByLayer" и есть настройка под себя не многим лучше того, что было раньше и от чего хотели уйти - как мне кажется.

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

[Владимир М]

AY, так если по блоку цвет надо задавать в программе а цвет должен быть по слою. Иначе по блоку один на всех будет цвет, а другим пользователям не понравиться. У Каждого пользователя цвет свой. Тогда надо LISP программу по настройкам разрабатывать, а я думаю нет такой необходимости.

[Alan]

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

У кого есть еще предложения по программе "Прокат"?
Пишите, постараемся учесть и в ближайший уикенд подделать. :shock:
Это, если будет дождь. Ну а если не будет, поедем кататься на вело и т.д. и т.п.

[Геннадий aka PG]

Сообщение от Alan У кого есть еще предложения по программе "Прокат"? Пишите, постараемся учесть и в ближайший уикенд подделать. Это, если будет дождь.

Давайте шаматить будем, чтоб в Киеве был дождь!

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

"Ну, Федот, теперь держись..." (с) Филатов. Сами напросились
1. Перевести хранение данных по прокатам в ini-образные файлы для спокойного ручного исправления и дополнения прокатов. Примерно так:

Код:

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

; Это шаблон, по которому надо создавать ini-файлы с описанием профилей.
;
[type]
name=<Имя профиля>
; как оно показывается в первом выпадающем списке. Обязательно для заполнения
func=<Имя функции для отрисовки>
; Функция должна существовать (см., например, _kpblc-draw-profile-2d).
; Обязательно для заполнения.
; С параметрами вызова функции зависит от реализации всего остального

; Дальнейшие строки имеют значение только для диалогового окна
view_main=1
; главный вид. 1 означает, что опция диалогового окна будет доступна для 
; выбора. Любое иное значение, в том числе и пропуск опции, означает, что
; эта строка будет недоступна для выбора.
view_main_little_line=[1]
;главный вид на малую полку
view_back=[1]
;вид сзади
view_back_little_line=[1]
; вид сзади на малую полку
view_top=[1]
;вид сверху
view_section=[1]
; сечение
img_file=
; Имя файла библиотеки слайдов.
img_view_main=
img_view_main_little_line=
img_view_back=
img_view_back_little_line=
img_view_top=
img_view_section=
; Имя слайда в библиотеке
[<Имя профиля>]
<Данные, необходимые для отрисовки>

В частности, как вариант:

Код:

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

[type]
name=Двутавры ГОСТ 2602-83 с параллельными гранями полок
func=temp1
view_main=1
view_main_little_line=1
view_back=1
view_back_little_line=1
view_section=1
img_file=procat
img_view_main=(9)
img_view_main_little_line=(12)
img_view_back=(10)
img_view_back_little_line=(13)
img_view_section=(11)
[10Б1]
G=8.1 кг
h=100 мм
b=55 мм
s=4.1 мм
t=5.7 мм
radius_major=7.0 мм
radius_minor=1 мм max
A=10.32 см2
Jx=171 см4
Wx=34.2 см3
ix=4.07 см
Sx=19.7 см3
Jy=15.9 см4
Wy=5.8 см3
iy=1.24 см

И читать данные оттуда для одновременного и рисования, и заполнения списка справочных данных.
2. Сделать отдельное окно настроек:
- рисовать профили отрезками или полилиниями
- рисовать или нет оси
- изменение точки привязки для блоков (например, для сечения двутавра вариант: левая нижняя / нижняя середина / правая нижняя ну и так далее)
- наименование и настройки слоя для осей
- наименование и настройки слоя для помещения профилей с возможностью использовать текущий.
- сохранять или нет последний выбор.
Данные хранить в отдельном ini-файле или реестре.
3. Отказаться от глобального переопределения обработчика ошибок (вроде где-то было).
4. Отказаться от глобальных переменных, кроме данных о наименовании и выборе последнего профиля.
---
Лично у меня баальшие проблемы с dcl, так что с обычными кодами еще могу помочь, но вот с окном... Оно меня убивает.

[VVA]

Может об этом уже писали, но, на мой взгляд, есть некая недосказанность в описании установки.
Описание установки из Read-me.txt

Инсталяция (версия 2007г.): Папка с файлами копируется в любую папку, и путь к ней описывается в "Путях доступа к вспомогательным файлам" Автокада, например, если файлы скопировали в папку prokat в папку Support Автокада. Тогда это будет выглядеть так: "d:\Program Files\AutoCAD 2005\Support\prokat\"

Фрагмент кода из prokat.lsp

Код:

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

  (load (findfile "prokat/_kpblc-linetype-load_.lsp"))

  (setq dvtp  (findfile "prokat/dvt_p.lsp")	
        dvt   (findfile "prokat/dvt_r.lsp")
	shr   (findfile "prokat/shv_r.lsp")
	shp   (findfile "prokat/shv_rp.lsp")
	shg   (findfile "prokat/shv_rg.lsp")
	ugr   (findfile "prokat/ug_rp.lsp")
	ugn   (findfile "prokat/ug_np.lsp")
	ugrg  (findfile "prokat/ug_rg.lsp")
	ugng  (findfile "prokat/ug_ng.lsp")
        trprf  (findfile "prokat/tr_prf.lsp")
    ...

Как видно, поиск осуществляется вместе с подпапкой.
Если все скопировано в папку Support Автокада, то все будет работать, т.к. она уже прописана в путях поиска. Если мы создаем свою папку, то в путях поиска нужно указывать путь на один уровень выше. Например
Прописанный путь
d:\MyLisp\
А файлы лежат по этому пути
d:\MyLisp\Prokat

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

Код:

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

(vl-load-com)
  (mapcar '(lambda ( data / setV Files)
	     (setq setV (car data)
		   Files (cadr data))
	     (if (and
		   (or (setq x (findfile Files))  ;;;Поиск файлов в подпапках
		       (setq x (findfile (strcat  ;;;Поиск файлов без подпапки procat
					     (vl-filename-base Files)
					     (vl-filename-extension Files)
					     )
					   )
			    )
		       )
		   )
	       (progn
		 (if (= (strcase (vl-filename-extension x) t) ".lsp")(load x));;;Загрузка lsp файлов
		 (if setV (set setV x))
		 )
	       )
	     )
	  '((nil    "prokat/_kpblc-linetype-load_.lsp") ;;; загрузка подпрограммы kpblc'a
	    (dvtp   "prokat/dvt_p.lsp")
            (dvte   "prokat/dvt_r.lsp")
	    (shr    "prokat/shv_r.lsp")
	    (shp    "prokat/shv_rp.lsp")
	    (shg    "prokat/shv_rg.lsp")
	    (ugr    "prokat/ug_rp.lsp")
	    (ugn    "prokat/ug_np.lsp")
	    (ugrg   "prokat/ug_rg.lsp")
	    (ugng   "prokat/ug_ng.lsp")
	    (trprf  "prokat/tr_prf.lsp")
	    (dvcl   "prokat/d_vtr.dcl")
	    (lib    "prokat/procat.slb")
	    (dvdp   "prokat/dvtp.dat")
	    (dvdpas "prokat/dvtpas.dat")
	    (dvd    "prokat/dvtr.dat")
	    (dvd1   "prokat/dvtr2.dat")
	    (dvd2   "prokat/dvtp2.dat")
	    (svrd   "prokat/svlr.dat")
	    (svpd   "prokat/svlrp.dat")
	    (svgd   "prokat/svlrg.dat")
	    (svgKd  "prokat/svlrgK.dat")
	    (ugrd   "prokat/ugrp.dat")
	    (uggrd  "prokat/ugrg.dat")
	    (uggrKd "prokat/ugrgK.dat")
	    (uggnd  "prokat/ugng.dat")
	    (uggnKd "prokat/ugngK.dat")
	    (ugnd   "prokat/ugnp.dat")
	    (trkvd  "prokat/trkv.dat")
	    (trpud  "prokat/trpu.dat")
	  )
	  )

Во вложении измененный prokat.lsp
[ATTACH]1185449480.rar[/ATTACH]

[Евгений А.]

Не знаю, кому как, но я предпочитаю табличное представление - коротко и наглядно:

Код:

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

("IPE"
            (("IPE" "H" "B" "S" "T" "R1" "G" "A" "Lx" "Ly" "Wx" "Wy")
             ("" "MM" "MM" "MM" "MM" "MM" "KG/M" "CM2" "CM4" "CM4" "CM3" "CM3")
             ("80" 80 46 3.8 5.2 5 6 7.64 80.1 8.49 20 3.69)
             ("100" 100 55 4.1 5.7 7 8.1 10.3 171 15.9 34.2 5.79)
             ("120" 120 64 4.4 6.3 7 10.4 13.2 318 27.7 53 8.65)
             ("140" 140 73 4.7 6.9 7 12.9 16.4 541 44.9 77.3 12.3)
             ("160" 160 82 5 7.4 9 15.8 20.1 869 68.3 109 16.7)
             ("180" 180 91 5.3 8 9 18.8 23.9 1320 101 146 22.2)
             ("200" 200 100 5.6 8.5 12 22.4 28.5 1940 142 194 28.5)
             ("220" 220 110 5.9 9.2 12 26.2 33.4 2770 205 252 37.3)
             ("240" 240 120 6.2 9.8 15 30.7 39.1 3890 284 324 47.3)
             ("270" 270 135 6.6 10.2 15 36.1 45.9 5790 420 429 62.2)
             ("300" 300 150 7.1 10.7 15 42.2 53.8 8360 604 557 80.5)
             ("330" 330 160 7.5 11.5 18 49.1 62.5 11770 788 713 98.5)
             ("360" 360 170 8 12.7 18 57.1 72.7 16270 1040 904 123)
             ("400" 400 180 8.6 13.5 21 66.3 84.5 23130 1320 1160 146)
             ("450" 450 190 9.4 14.6 21 77.6 98.8 33740 1680 1500 176)
             ("500" 500 200 10.2 16 21 90.7 116 48200 2140 1930 214)
             ("550" 550 210 11.1 17.2 24 106 134 67120 2670 2440 254)
             ("600" 600 220 12 19 24 122 156 92080 3390 3070 308)
             )
            )

Легко создать из электронных источников и сразу без проблем можно сформировать список...

[Владимир М]

Спасибо вам за активное участие и помощь, будем ждать большого дождя! Хорошие и дельные советы.

[Alan]

Если все скопировано в папку Support Автокада, то все будет работать, т.к. она уже прописана в путях поиска. Если мы создаем свою папку, то в путях поиска нужно указывать путь на один уровень выше. Например Прописанный путь d:\MyLisp\ А файлы лежат по этому пути d:\MyLisp\Prokat

>VVA Спасибо, что откликнулись с хорошими предложениями.
Мне самому невнятна фраза в Read-me.txt, хоть я её и писал.
А м.б. сделаем проще всего? Бог мне свидетель, я это предлагал давно уже и Владимиру М и PG
Помещаем тексты в любую папку, например, d:\MyLisp\ .
Именно эту папку и прописываем в "Путях доступа к вспомогательным файлам" Автокада.
Собственно я у себя так и делаю, т.к. параллельно делаю несколько вариантов Проката. Меняю только эти пути...
Тогда вариант вызова упрощается до безобразия:

Код:

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

  (setq	dvtp   (findfile "dvt_p.lsp")
	dvt    (findfile "dvt_r.lsp")
......
	trprf  (findfile "tr_prf.lsp")
	dvcl   (findfile "d_vtr.dcl")
	lib    (findfile "procat.slb")
	dvdp   (findfile "dvtp.dat")
........
	trkvd  (findfile "trkv.dat")
	trpud  (findfile "trpu.dat")
)

Надавливания на баттоны экономиться огромное количество.

[AY]

А по мне - так написал малюсенькую функцию один раз и меняй ее при необходимости. И с батонами еще экономней получится :)

Код:

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

(defun my-find (lst)
	(if lst (progn (set (car lst) (findefile (cadr lst))) (my-find (cddr lst)))))


(my-find '(
   dvtp  "dvt_p.lsp" 
   dvt   "dvt_r.lsp" 
...... 
   trprf "tr_prf.lsp"
   dvcl  "d_vtr.dcl"
   lib   "procat.slb"
   dvdp  "dvtp.dat"
........ 
   trkvd "trkv.dat" 
   trpud "trpu.dat"
           )
)

[Alan]

Сообщение от AY А по мне - так написал малюсенькую функцию один раз и меняй ее при необходимости. И с батонами еще экономней получится Код: [Выделить все] (defun my-find (lst) (if lst (progn (set (car lst) (findefile (cadr lst))) (my-find (cddr lst))))) (my-find '( dvtp "dvt_p.lsp" dvt "dvt_r.lsp" ...... trprf "tr_prf.lsp" dvcl "d_vtr.dcl" lib "procat.slb" dvdp "dvtp.dat" ........ trkvd "trkv.dat" trpud "trpu.dat" ) )

Согласен AY с тобой, так красивее. Спасибо за участие.
Будет пример начинающим и продвинутым программистам, как организовывать за один вызов много решений.
Или вызов п/программы с переменным количеством параметров. (ЯТД)
Но! Давайте оставим в тексте Прокат как есть, так как большинство всё равно откомпилирует текст и тогда все LOAD просто не нужны.

[Евгений А.]

Сообщение от Alan так как большинство всё равно откомпилирует текст и тогда все LOAD просто не нужны.

Есть тут хоть кто-нибудь, кто это будет делать???

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

Понадобится - найдутся.

[Alan]

Есть тут хоть кто-нибудь, кто это будет делать???

>Евгений А.
Я считаю квалификацию большинства посетителей данного форума достаточно высокой, чтобы сделать такую нехитрую операцию.
Вы же смогли её сделать.

[Геннадий aka PG]

Чем меньше "юэверь" имеет возможность залезть в прогу - тем лучше. А то потом такие вопли начнуться, что -то не работает.

[Евгений А.]

->Alan А я и не спорю про квалификацию, просто я предлагал это сделать ещё в 149 посте, но понял так, что это никому не нужно, вот и на счёт большинства. По-моему, никто просто не хочет лезть в код (муторное это дело), максимум что делается - это пополняется база проката и то, далеко не большинством!
Программа растёт, но не развивается...
(Возможно это и правильно - у программы должен быть конкретный автор, а то она просто развалится, если все её будут править под себя.)

[Alan]

>All
Любимое выражение всех программистов: "Программа практически готова!"
Кое что изменил, учел некоторые мнения некоторых коллег (Кулик Алексей aka kpblc, AY, VVA и др.).
По принципу: "Мы тут посовещались и я решил!" внёс исправления.
Исправил в текстах, что уж очень бросалось в глаза.
Но есть у всех программистов еще один закон: "Контрольный пример всегда идёт!"
Выкладываю тексты (читай Read-Me.txt)
Требуются тестировщики.
Вот брёвнышко. Поработайте товарисчи!
[ATTACH]1185964807.rar[/ATTACH]
P.S. Изменения внесены пока только в 2D.
Осталась неясность с толщиной/цветом пунктирной линии. Перевел в тот же слой/цвет. Владимир М тоже смотрит. Жду предложений.
Как только придут результаты от тестеров, внесу в Prcat3d.lsp

[Владимир М]

И еще незабудьте поменять макросы:
изменены файл поиска загрузки файла ALANом
(if (= PROKAT nil) ( Load (findfile "prokat.lsp"))) PROKAT
(if (= PRKT3D nil) ( Load (findfile "prcat3d.lsp"))) PRKT3D
Тестил команду PROKAT все работает
Вот только зря поменял цвет пунктирной линии красная ведь - есть хорошо - многие люди выводят на печать используя настройки цвета
Одно это меня сильно раздражает
Может добавить выбор цвета невидимой линии, как для выбора слоя?

[G.A.W.]

Вроде все работает.
Кстати согласен с Владимир М. насчет выбора цвета в диалоговом окне. Хотя после этого захочется и чтоб был выбор типа линий.

[Alan]

Сообщение от G.A.W. ...Кстати согласен с Владимир М. насчет выбора цвета в диалоговом окне. Хотя после этого захочется и чтоб был выбор типа линий.

Вот, вот...
"И что-нибудь еще и что-нибудь иное, о чём ни говорят, чему не учат в школе!"

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

Что возвращает к необходимости окна настроек

[Alan]

Сообщение от Кулик Алексей aka kpblc Что возвращает к необходимости окна настроек

Не делая нового окна, я добавил выбор слоя вставки в существующее. Что еще надо?
Задание начальных установок:
слои, стили и т.д. и т.п., не входят в прикладную программу вставки блока проката. ЯТД
Давайте сделаем слой PUNKTIR, предположим красного цвета?

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

Ага, а потом появится еще один товарищ, которому слово "PUNKTIR" как кость в горле. Или тип линии ему нужен для осей не center, а my_cool_linetype_for_axes. И что, по новой все перелопачивать?

[G.A.W.]

И снова просьба.
Я уже обращался и к Alanу и к Алексею, и сам Алексей об этом упоминал в посте № 211, с просьбой о том, чтобы профили рисовались полилиниями, и не отдельными сегментами, а чтобы полилиния была замкнута. И если можно, то сделать вариант, в котором отказатся от блоков (раскатал губенки-то!!!!!!)

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

Так я делал, но проблемы с dcl и полилиниями (вот уж чего-чего, а этого не ожидал совершенно!) нарисовались "не сотрешь"

[Alan]

Сообщение от Кулик Алексей aka kpblc Ага, а потом появится еще один товарищ, которому слово "PUNKTIR" как кость в горле. Или тип линии ему нужен для осей не center, а my_cool_linetype_for_axes. И что, по новой все перелопачивать?

Меня больше интересует политическое значение этого вопроса.
Появляется новый слой в блоке, где все сделано в слое "0" и вставляется в выбранный слой.
Правильно ли это? Хотелось бы услышать мнение ShaggyDoc'a и др.коллег (список прилагается ).
ИМХО В принципе, в билиотеках прикладных блоков (по специальностям) я так делаю.
>kpblc Что касается того товарисча со слоем my_cool_linetype_for_axes. Нормально, у него такой СТП!
Тексты открытые, красный флаг в руки...

[Геннадий aka PG]

Может я не в списке , но скажу свое ИМХО: чем меньше слоев тем лучше!
Чем можно оправдать необходимость создания отдельного слоя для осей (например)?
Только типа все осевые в своих слоях, а смысл?
зато при необходимости отключить слой "проката" придется отключать еще какие то слои.

[Alan]

Сообщение от G.A.W. И снова просьба. Я уже обращался и к Alanу и к Алексею, и сам Алексей об этом упоминал в посте № 211, с просьбой о том, чтобы профили рисовались полилиниями, и не отдельными сегментами, а чтобы полилиния была замкнута. И если можно, то сделать вариант, в котором отказатся от блоков (раскатал губенки-то!!!!!!)

Подожди! Но в 3D там полилинией. Ты так хочешь и в 2D?
Сам потихоньку замени _LINE на _PLINE.
В письме, на которое Вы мне кажется не ответили, :wink: я вроде подробно всё описал.

[Alan]

Сообщение от Геннадий aka PG Может я не в списке , ...

А куда же ты денешься!

Чем можно оправдать необходимость создания отдельного слоя для осей (например)? Только типа все осевые в своих слоях, а смысл? зато при необходимости отключить слой "проката" придется отключать еще какие то слои.

Если профили вставлять в слой "СК_металл", то заморозив его, мы заморозим и.... Догадался? Слой "PUNKTIR".

[G.A.W.]

Сообщение от Alan Подожди! Но в 3D там полилинией. Ты так хочешь и в 2D?

Вот именно, что хочу и в 2D. Люблю больше полилинии, чем блоки. Для меня их легче редактировать в случае чего, а в "в случае чего" бывает часто!

Сам потихоньку замени _LINE на _PLINE. В письме, на которое Вы мне кажется не ответили, :wink: я вроде подробно всё описал.

Вот в чем и проблема. Переделал "_Line" на "_PLine"? но... Как и сказал Алексей куча проблем. Например, по какой то причине, так как в лиспе продвигаюсь очень медленно, то не знаю по какой, отрисовка происходит полилинией, но не замкнутой (1-ый мой камень, если есть желание подскажите как его сдвинуть). Потом, при вычерчивании сечения есть команда, такая как "_arc", что после взрыва блока дает дугу. И как ее превратить в полилинию, да еще соеденить с остальными и все это сделать, вернее вставить в тот же лисп (для каждого профиля свой), не знаю. Поэтому прошу помощи, подсказки :roll:

[VVA]

>Alan В сборке с поста №223 отсутствует procat.slb. Пол обеда потратил, пока разобрался, почему вылетает
> ALL По поводу полилинией в 2d. Чобы не разбираться в отрисовке, внес изменения в файл prokat.lsp в ф-цию clip_bl, которая отрисованный набор запихивает в блок. Перед этим этот набор peditm'ом преобразовываю в полилинию. Соответствующие ф-ции добавлены
Сделал 2 варианта
prokat.lsp - вставка блоком
prokat1.lsp - вставка с последующим расчлененим
Отличия в двух файлах в ф-ции clip_bl в 2-х строчках
(command "._insert" edat3 pause 1 1 pause) ;_prokat.lsp и prokat1.lsp
(command "_explode" (entlast)) ;_ prokat1.lsp

*** Обновлен архив
[ATTACH]1185964295.rar[/ATTACH]

[G.A.W.]

Большое спасибо заработало!
Но...
Толи я ослеп, толи.... Но "Prokat1.lsp" я в архиве не нашел. Есть, я так понял исходник "Prokat_В.lsp" и папка с исходниками. Мож я чо туплю?!

[VVA]

Туплю я. Обновил архив в посте № 227

[Alan]

Сообщение от VVA >Alan В сборке с поста №223 отсутствует procat.slb. Пол обеда потратил, пока разобрался, почему вылетает

Извини, что не дал пообедать Огромное спасибо за диагностику.

> ALL По поводу полилинией в 2d. Чобы не разбираться в отрисовке, внес изменения в файл prokat.lsp в ф-цию clip_bl, которая отрисованный набор запихивает в блок. Перед этим этот набор peditm'ом преобразовываю в полилинию. Соответствующие ф-ции добавлены Сделал 2 варианта prokat.lsp - вставка блоком

Мне всё равно: отрезок или полилиния в блоке. А ты так интеллигентненько выкрутился
И волки сыты и овцы целы! Огромное спасибо за работу.

prokat1.lsp - вставка с последующим расчлененим Отличия в двух файлах в ф-ции clip_bl в 2-х строчках (command "._insert" edat3 pause 1 1 pause) ;_prokat.lsp и prokat1.lsp (command "_explode" (entlast)) ;_ prokat1.lsp

Категорически против расчленения в программе. Не для того блоки делаются, чтобы тут же расчленять.
"Архинеправильно, батеньки!", как говаривал наш бывший вождь и учитель.
Любителей расчлененку к позорному столбу. [sm3305]
> ALL
В конце дня выкладываю сборку с этими исправлениями (пока 2Д).
И слоем ПУНКТИР?

[VVA]

Извини, что не дал пообедать

Отдашь салом

[Alan]

Сообщение от VVA Отдашь салом

Вот так всегда! Как видят с Украины, сразу салом! Ну отдам, отдам... [sm902]
P.S. PG в свиноводстве пашет, так тоже с меня салом хочет получить! А ты поймай сначала меня или свинью [sm3503]

[Геннадий aka PG]

Есть у меня мечта: Поесть Белорусской картошки с Украинским салом, зажаренным на костре.
ЗЫ: Водка будет "Русская"

[Alan]

Сообщение от Геннадий aka PG Есть у меня мечта: Поесть Белорусской картошки с украинским салом, зажаренным на костре. ЗЫ: Водка будет "Русская"

>VVA, как принято? В сентябре, в Москве на форуме.
Надо уважить человека.

[VVA]

>Alan Это мне что, тащить в Москву мешок картошки? Свинья то сама прибежать может

[VVA]

Вариант с запросом маштаба отрисовки (не только 1:1)
Изменения внесены в prokat.lsp (можно найти поиском по *ProcatMashtab*) и d_vtr.dcl (поле mashtab)
[ATTACH]1185975264.rar[/ATTACH]

[Геннадий aka PG]

Сообщение от VVA >Alan Это мне что, тащить в Москву мешок картошки? Свинья то сама прибежать может

Начинается......
Картошку можно катить, а свинью в дороге еще кормить надо и убирать за ней потом!

[Alan]

Сообщение от VVA Вариант с запросом маштаба отрисовки (не только 1:1) Изменения внесены в prokat.lsp (можно найти поиском по *ProcatMashtab*) и d_vtr.dcl (поле mashtab)

VVA, ты меня убил масштабом. Это была моя фишка! :? Но я её делал отдельным вариантом и не публиковал здесь.
Теперь тебя убьют [sm3303] апологеты черчения в мм конструкции. Сам напросился!
Народ пообсуждает, посмотрим....
Я сделал и публикую сборку (без масштаба) [ATTACH]1185980995.rar[/ATTACH] только с учётом изменений VVA см.237. Но немного подработана версия 3D, см. Prcat3d.lsp .
Меня не будет до понедельника, пользуйтесть, смотрите.

[G.A.W.]

А вот теперь имея два лисп'а от Alan'а и VVA, и дцл от VVA, можно доработав дцл сделать диалог, типа:
[ATTACH]1186031679.JPG[/ATTACH]
Только когда полилинией, чтоб масштаб неактивен, когда блокм, соотвесно активен. Т.е. когда полилинией, попросту блок "_explode". Такое возможно?

[G.A.W.]

DCL (хоть и с ошибками, но хотя бы примерно)
[ATTACH]1186032340.rar[/ATTACH]

[Diman111]

Сообщение от VVA Вариант с запросом маштаба отрисовки (не только 1:1)

РЕСПЕКТ И УВАЖУХА тебе камрад

как то давно пытался добиться это галки - так нет же - -тут все только в масштабе 1-1 рисуют и все тут.
Еще раз спасибо.

[VVA]

Подправленный вариант сборки Alan №248
Добавлено:
1. При масштабах не 1:1 изменяется масштаб типа лии, если она штриховая
2. При вставке блоков добавил запросы (чтоб не пустая строва внизу)
3. К имени блока добавляется масштаб (типа APE03500_20), где _20-масштаб
4. Учел предложение G.A.W., т.к. он подготовил диалоговое окно.
5. (как предложение) В конец файла prokat.lsp добавил строчки печати адреса в инете и номера сборки
Типа

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

Где номер сборки - номер поста, в котором она опубликована.

Это не официальный релиз. Поставщик императорского двора дэ факто Alan. Ему и туз козырный в руки. 3d - не делал, т.к. не пользуюсь.
[ATTACH]1186040901.rar[/ATTACH]

[Alan]

>VVA

1. При масштабах не 1:1 изменяется масштаб типа лии, если она штриховая

ИМХО. Верное решение. Я являюсь сторонником черчения в мм чертежа и это учитываю.

3. К имени блока добавляется масштаб (типа APE03500_20), где _20-масштаб

Мы с тобой мыслим одинаково Именно так я делаю в том непубликовавшемся варианте
Так, ребята, я на пару дней в Крым. Кто со мной?
P.S.
Владимир М и др., я жду мыслей по поводу цвета/слоя пунктирной линии.

[Владимир М]

Ну и инфы, теперь надо ее грысть!

[G.A.W.]

Сообщение от VVA ... 4. Учел предложение G.A.W., т.к. он подготовил диалоговое окно. ...

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

[Владимир М]

Можно все, G.A.W., - кто бы научил. Если бы умел все бы уже давно сделал и выложил... а так сиди и мучаяся

[G.A.W.]

Уже мучаюсь!

[VVA]

являюсь сторонником черчения в мм чертежа

[sm206]

С учетом замечания G.A.W. (хочется сказать ГАВ)
[ATTACH]1186051770.rar[/ATTACH]

[G.A.W.]

Сообщение от VVA ...(хочется сказать ГАВ)

Да я и не обижусь "Гортинский Андрей Владимирович". Обычно везде регился как "A.W.G."? чтоб никого не правоцировать, а тут чо-то не увязался! Бывает!!!!
А насчет очередного обновления ОГРОМНОЕ СПАСИБО!!!
То что надо. [sm166]

[МВ]

Да, сегодня плодовитый день.
А с восьмым оно дружит?

[VVA]

> MB должно. Там ничего запретного не делали
Вариант с "пометкой" примитивов. Если подвести мышу, то напомнит № профиля и ГОСТ
Включенеи/отключение показа гиперссылок см. команды
_HYPERLINKOPTIONS (ГИПЕРСВОЙСТВА)
[ATTACH]1186057813.rar[/ATTACH]

[G.A.W.]

Сообщение от Alan ....Владимир М и др., я жду мыслей по поводу цвета/слоя пунктирной линии.

Я за то чтобы отображалось:

Свойства
слой вставки ______
цвет невидимой линии ______
тип невидимой линии ______

Причом чтобы слой вставки был как для блоков, так и для полилиний (последнее замечание не мое, а коллеги. Мне все равно, т.к я черчу в одном слое "0")

[VVA]

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


*** Изменено: 03.08.2007 Полилиния на заданный слой
[ATTACH]1186126077.rar[/ATTACH]

[Владимир М]

VVA, заметил при вставке проката полилинией, слой при любом раскладе будет 0. Дело в коде не учли для полилинии, для блока все нормально!

[G.A.W.]

Нормально то нормально, но если блок взорвать, тоже будет "0"

[ALL]

[Не пашет программа в Механикал 2007
Загружается нормально, окошко выбора профилей появляется, после выбора профиля и нажатия OK вываливается с сообщением:

Command: prokat
; error: ActiveX Server returned an error: Error loading type library/DLL

Command:
PROKAT ; error: ActiveX Server returned an error: Error loading type library/DLL

[cater]

Ай да VVA! Ай да сукин сын. Огромадное МЕРСИ.

Идеи Кондрата Василия жиыут и побеждают. Ура, товарищи!

[VVA]

Нормально то нормально, но если блок взорвать, тоже будет "0"

А вместо _Explode выполнить _XPLODE не пробывали?
Взамен первой буквы добавили много чего вкусного

[G.A.W.]

Тогда для отрисовки профиля полилинией, нужно изменить команду "_explode" на "_xplode" с подкомандой "расчленить по объекту". Не знаю как!

[VVA]

> Подправил для полилиний в посте 263.

Тогда для отрисовки профиля полилинией, нужно изменить команду "_explode" на "_xplode" с подкомандой "расчленить по объекту". Не знаю как!

И я не знаю. Команда не встроенная автокадовкая, а внешняя. Через command не вызовешь. Вызовешь так (C:XPLODE), но не передашь агрументы :twisted: Сделал по старинке, перебором

[AlexCondor]

Не надо другую команду, просто слой в котором рисуются примитивы должен соответствовать слою выбранном для вставки
Т.е. переход на слой должен быть до того как создаются объекты
Догда разблокирование их сбросит на слой где они созданы.

Да еще хотелось бы, что-бы по-умолчанию был выбран текущий слой а не 0.

[ALL]

Сообщение от ALL [Не пашет программа в Механикал 2007 Загружается нормально, окошко выбора профилей появляется, после выбора профиля и нажатия OK вываливается с сообщением: Command: prokat ; error: ActiveX Server returned an error: Error loading type library/DLL

Нашел, как победить. Нужно загружать не prokat.lsp, а prokat_B.lsp.
Не работают кнопки :вставить блоком, полилинией, масштаб, но остальное пашет как надо. Вставляет блоком, как и было у Кондрата.

[VVA]

>ALL prokat_B.lsp старая (backup) версия prokat'a. Отличие, что стали (наверное я добавил) использовать visual lisp (vl* ф-ции) их подгрузка осуществляется ф-цией (vl-load-com), библиотека хранится в tlb файле.
Это наверное кривовато стал механикл. Похожая тема http://www.autocad.ru/cgi-bin/f1/board.cgi?t=1067PO
Попробуй всавить это в командную строку и выполнить

Код:

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

(vl-load-com)(vla-get-activedocument (vlax-get-acad-object))

>AlexCondor Дело в том, что лезть глубоко внуть в чужой лисп и разбираться что к чему ни у кого нет ни желания, ни времени. Поэтому доработка идет по принципу черного ящика: есть что-то на входе и выходе. Так вот на выходе у нас блок, созданный правильно: все объекты на 0 слое и цветом по-блоку (наверное). Отсюда и пляшем

[ALL]

Сообщение от VVA >Это наверное кривовато стал механикл. Похожая тема http://www.autocad.ru/cgi-bin/f1/board.cgi?t=1067PO Попробуй всавить это в командную строку и выполнить Код: [Выделить все] (vl-load-com)(vla-get-activedocument (vlax-get-acad-object))

Вряд ли кривовато. Лицензионный, встал без проблем.
Строчку (vl-load-com)(vla-get-activedocument (vlax-get-acad-object)) вставил, выполнил. Результат тот же: не пашет.
Почитал тему http://www.autocad.ru/cgi-bin/f1/board.cgi?t=1067PO , поискал у себя файл acdb16.dll. Такого файла нет. Спросил у соседа. У него тоже нет.
Может в разной конфигурации по-разному ставится? У нас Инвентор 11 комплектом. Может когда Механикс ставится с Инвентором это файл заменяет другой?

[VVA]

Значит Меканикл в составе Инвентор или наборот не поддкрживают visual lisp. раз лицензионный - уточни у дилера

[Владимир М]

VVA, а можно при способе вставке профиля в падающей строке масштаба указать масштабы вместо 1; 5; 10; 15; 20; 25; 50 поставить
1:100; 1:75; 1:50; 1:40; 1:25; 1:20; 1:15; 1:10; 1:5; 1:4; 1:2,5; 1:2; 1:1; 2:1; 2,5:1; 4:1; 5:1; 10:1; 20:1; 40:1; 50:1; 100:1, что согласно ГОСТ 2.302-68

[G.A.W.]

Коль уж в этой теме приведствоваются предложения по улучшению программы, не знаю правда улучшение это или нет (как говорится все новое враг хорошего), да и Алексей это тоже предлогал (всмысле осевая линия), так вот есть такое предложение:
[ATTACH]1186379675.JPG[/ATTACH]

[G.A.W.]

DCL типа этого
[ATTACH]1186379769.rar[/ATTACH]

[VVA]

> Можно, но нужно будет применять специальные меры, чтобы "разобрать" строчки 1:100 и т.п. Как быстрый выход предлагаю сделать 2 действия
1. В файле d_vtr.dcl найди строчку "Масштаб" и замени на "Масштаб 1:"
2. В файле prokat.lsp найди строку

Код:

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

  (setq LMashtab '((1 1) (5 1)(10 0.5)(15 0.5)(20 0.4)(25 0.3)(50 0.2))) ;; VVA 02.08.2007 Список масштабов

Это список списков масштабов, где 1-е число масштаб, второе масштаб типа линии
Масштаб вставки блока получается делением, поэтому масштабы 2:1,5:1 и т.п. не пойдут
Не пойдет и 2.5, т.к выпадающий список заполняется с помощью itoa.
А все, что осталось, пожалуйста

Код:

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

  (setq LMashtab '((1 1)(2 1)(4 1)(5 1)(10 0.5)(15 0.5)(20 0.4)(25 0.3)(40 0.2)(50 0.2)(75 0.2)))

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

[G.A.W.]

И еще так же как и для 3D в гиперсвойствах чтоб обозначалась масса в зависимости от длины при вычерчивании вида сверху, главного вида, вобщем все видов кроме сечения. Легче спецификации заполнять, навел посмотрел записал. Правда если это возможно!

[Владимир М]

Спасибо 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

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

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

[G.A.W.]

Ну так зачем же дело встало?
Шучу! Сам понимаю что не хват времени - раз, работать за так при достигнутых профнавыках - два, да и просто лень - три, ну и т.д.

[VVA]

>G.A.W.
В своих сборках я в отрисовку примитивов для блоков не лез (там ведро водки нужно чтобы разобраться).

(*координаты X, Y,Z*) создание линии нулевой длины

Какой именно профиль и т.п. Может в этом месте не обрабатывается OSMODE :?: Попробуй перед вызовом отключить его.

[VVA]

Ну вот в коде нашел такой вот фрагмент

Код:

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

;;;------------------------------изменения 28.07.07 начало ----------------------------------
;;;  сохраним тип и номер профиля в глобальных
  (setq	*alan-steel-saved-profile-type*
	 pr_fl
	*alan-steel-saved-profile-number*
	 rr
  ) ;_ конец setq
;;;  включил все привязки
  (setvar "osmode" 15359);;;------------------------------изменения 28.07.07  конец ------------------------------------------
  (cond
    ((and (eq pr_fl "0") (/= rr nil))
     (dv_t_rp)
    )
    ((and (eq pr_fl "1") (/= rr nil))
     (dv_t_rp)

(setvar "osmode" 15359) - включает все привязки, далее ф-ции
dv_* чегой-то там рисуют. Имхо не правильно :evil:

[G.A.W.]

>G.A.W. В своих сборках я в отрисовку примитивов для блоков не лез (там ведро водки нужно чтобы разобраться). (*координаты X, Y,Z*) создание линии нулевой длины Какой именно профиль и т.п. Может в этом месте не обрабатывается OSMODE Попробуй перед вызовом отключить его.

Ну вот в коде нашел такой вот фрагмент Код: [Выделить все] ;;;------------------------------изменения 28.07.07 начало ---------------------------------- ;;; сохраним тип и номер профиля в глобальных (setq *alan-steel-saved-profile-type* pr_fl *alan-steel-saved-profile-number* rr ) ;_ конец setq ;;; включил все привязки (setvar "osmode" 15359);;;------------------------------изменения 28.07.07 конец ------------------------------------------ (cond ((and (eq pr_fl "0") (/= rr nil)) (dv_t_rp) ) ((and (eq pr_fl "1") (/= rr nil)) (dv_t_rp) (setvar "osmode" 15359) - включает все привязки, далее ф-ции dv_* чегой-то там рисуют. Имхо не правильно

1. Я там привязку выставил в 15871.
2. А как првильно?

[VVA]

С учетом пожеланий Владимира М №276 (масштабы 1:xx), предложения Alan № 296, перед отрисовкой OSMODE устанавливается в 0, существующее значение сохраняется и восстанавливается в конце или при ошибке.

[G.A.W.]

Кстати, заменил prokat.lsp свой на новый из последнего архива, вроде все пока заработало, потестим, скажем. Спасибо!

[yax]

Здраствуйте.

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

Спасибо огромное.

[VVA]

>yaxА можно с помощью этого разобраться с ними навсегда http://www.autocad.ru/cgi-bin/f1/board.cgi?t=31779ic

[ViktorNik]

На работе поставили лицензионный Autocad LT 2008 (руская версия). Я не нашел в нем команды загрузки приложений. Другие версии автокадов все удалили. А можно использовать прокат в данном автокаде? И если можно, то как?

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

В AutoCAD LT использовать lisp невозможно. Но попробовать обойти - можно. В поиск по слову Extender. Либо http://www.google.ru/search?sourceid...ru+LT+Extender

[Владимир М]

Спасибо VVA, огромное буду тестить и разбираться дальше
Как жалко что времени очень мало или его вообще нет

[VVA]

Сообщение от Владимир М Спасибо VVA, огромное буду тестить и разбираться дальше Как жалко что времени очень мало или его вообще нет

Разбираться дальше для чего?
А времени действительно нет. Т.к. по хорошему надо, как советовал раньше Алексей, а еще раньше уж не помню кто, "до основанья, а затем ..."

[Владимир М]

VVA, проблемма такая дома работает но не всегда правильно отрисовывается Прокат 3D, там либо привязка либо что-то другое включено линии проката куда-то уходят. На работе вообще не слушается.

[VVA]

Прокат 3d не правил, но посмотри пост №304 там как раз таки и была включена привязка.
Посмотрел 3d. ищи строку
(setvar "osmode" 15359) и устанавливай в 0 смело, в конце привязки восстанавливаются.

[Владимир М]

Спасибо, разберусь, с этими привязками

[Владимир М]

VVA, ты просто спаситель мира! Получилось все коректно работает. Может презалить?

[VVA]

Раз работает, то перезаливай. Наверное кому-то еще 3d нужно.

[Владимир М]

Раз так, то вот выкладываю последний релиз

[Diman111]

Есть такой момент.
При указании масштаба скажем 20 или любого другого и выбора длины проката указанием - выбор длины происходит всегда с масштабом 1-1 - т.е. надо 1000 мм длины - вот и укажи растояние между точками 1000 единиц.
надо бы поправить указание длины с учетом выбранного масштаба т.е. для 20 это будет 1000/20=50 единиц
или галку выбора ввода длины с учетом масштаба или нет

[TuDim]

Подскажите, как установить "ПРОКАТ" на AutoCAD 2008? Спасибо.

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

> Diman111 : Нафиг! Сам масштабами потом поиграешься - есть такая замечательная команда, как _.scale.
> TuDim: Да в общем-то так же, как и на любой другой (насколько я понимаю).

[TuDim]

Сообщение от Кулик Алексей aka kpblc > TuDim: Да в общем-то так же, как и на любой другой (насколько я понимаю).

Не получается.
Вот что пишет:
Ошибка загрузки файла _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

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

А файлы-то могут найтись? Попробуй вколотить в ком.строке

Код:

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

(findfile "_kpblc-linetype-load_.lsp")

Если вернется nil, то надо прописывать пути к программе и lsp-файлам внутри нее.

[TuDim]

>Кулик Алексей aka kpblc
Прокат установил - работает.
Прокат 3D не работает:


Command: (if (= PRKT3D nil) ( Load (findfile "prcat3d.lsp"))) _KPBLC-ERROR-CATCH

Command: PRKT3D
Unknown command "PRKT3D". Press F1 for help.

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

Я с прокатом 3Д не разбирался

[TuDim]

Понял. Спасибо

[VVA]

Грузится все равно должно.
> TuDIM ты какую сборку пытаешься загрузить? Тут их уже больше чем ктайцев

[gipro]

Сообщение от Diman111 Столкнулся с таким моментом. Акад 2006 енг спдс 4,1.55 при установке масштаба в отличный от 1-1 и подгруженном спдс-е масштабирования не происходит. Масштабы спдс-а перебивают настройки масштаба в prokat.

А где в prokat настройки масштаба?? И зачем они нужны??

[Diman111]

Сообщение от gipro А где в prokat настройки масштаба?? И зачем они нужны??

на тему яйца и курицы (необходимость масштабов) тут нет смысла говорить.
А то что они есть - это факт.

[gipro]

Хм... Убедил.
Как всё изменилось. Давно не обновлялся)). А я уж подумал, что этот проект достиг совершенства и более не развивается Буду пробовать.
Вот что у меня было:

[Alan]

Сообщение от gipro Хм... Убедил. Как всё изменилось. Давно не обновлялся)). А я уж подумал, что этот проект достиг совершенства и более не развивается Буду пробовать. Вот что у меня было:

Да, у тебя очень старая версия...

[dextron3]

где бы найти самую последнюю версию...

[Alan]

Сообщение от dextron3 где бы найти самую последнюю версию...

Скорее всего это п.319

[G.A.W.]

Могу впринципе выложить свою сборку, если нужно конешно, там вроде работает все, и 3D и 2D, только там нужен экспресс, чтоб все работало, т.к. я туда вывел некоторые функции из него для быстрого доступа (мне так удобней), а выдирать чо-то не хоцца!

[cater]

Большое спасибо всем, кто неустанно трудится над совершенствованием столь полезной проги. По моему мнению, пора добавить в сортамент трубный прокат. Или я не прав?

[gipro]

Уж если писать предлжения по развитию - мое мнение, что не лишней была бы подрезка профилей (как в Компасе, тока лучше).

[REDS]

Сообщение от gipro Уж если писать предлжения по развитию - мое мнение, что не лишней была бы подрезка профилей (как в Компасе, тока лучше).

Вот...вот вот вот....а я думаю чего мне не хватает в прогах подобного типа.... подрезки профилей...а ещё бы рёбра в прокат чтобы врезать - было бы ваще - мечта. Почему в СПДС этого не сделают... мне кажется это вполне возможно

[Diman111]

Сообщение от G.A.W. Могу впринципе выложить свою сборку,

Конечно выложи - всегда интересно что у других есть полезное

[VVA]

gipro, Если профиль вставить блоком, то подрезать его можно

• _XCLIP Автокада
• _ClipIT Express Tools

Или я что-то не так понял?

[Alan]

Сообщение от REDS Вот...вот вот вот....а я думаю чего мне не хватает в прогах подобного типа.... подрезки профилей...а ещё бы рёбра в прокат чтобы врезать - было бы ваще - мечта. Почему в СПДС этого не сделают... мне кажется это вполне возможно

Есть такой конструктор металла с ником Mitek.
Вот у него есть прокат, с врезаемыми рёбрами и сделанным в виде динамических блоков.
Где-то кажется он об этом писал, ну а я эти блоки видел и щупал.
Я попробую с ним связаться, чтобы он ответил в этой теме или дал ссылку на нужную тему.
PS. ПРОКАТ В.Кондрата делался для простых задач и в таком виде и существует стараниями участников форума.
Но если новые идеи будут подбрасываться, м.б. они и будут реализованы в рамках данного проекта. ЯТД

[Mitek]

Всем привет. Ну раз уж Александр перевёл стрелки на меня, то выложу свои идеи... Уж не думал, что они могут показаться чем-то новым...
Идеи простые. Весь прокат сделан в виде динамических блоков, в том числе планы, фасады и ребра. Есть возможность выбора перекрытия прокатом других объектов (wipeout). В прокате есть двутавры, швеллера, уголки и трубы. Единственное - весь прокат заточен под личные мостостроительные нужды (оставлены только те профиля, которые применяются в мостостроении).
Трубы сделаны - отдельно диаметр, отдельно толщина стенки, иначе пришлось бы поиметь списочек труб из больше чем сотня наименований...
Поэтому толщины труб, соответствующие данному диаметру нужно смотреть в ГОСТе.
Выкладываю блоки.... Пользуйтесь, если сочтёте данную разработку полезной. У нас тётки пользуются и радуются. Так же принимается любая критика.
P.S. Блоки проката создавались, когда про программу "Прокат" мне не было известно. К тому же я считаю, что дин. блоки удобнее тем, что можно легко и быстро менять их длину, профиль, сами блоки можно поместить на тул палет и поставить всем тёткам ссылки на тул палет и прокат на свой комп, что и было сделано...

[gipro]

Сообщение от Alan PS. ПРОКАТ В.Кондрата делался для простых задач и в таком виде и существует стараниями участников форума. Но если новые идеи будут подбрасываться, м.б. они и будут реализованы в рамках данного проекта. ЯТД

Как пользователь могу заявить, что "Прокат" это САМЫЙ полезный и удобный довесок к AutoCAD. Один из немногих, которые я бы купил, будь он платным.
Я очень рад тому, что он потихоньку развивается и очень благодарен форумчанам, тратящим свое время на его улучшение. СПДС-овские профили-не то совсем.

[Diman111]

Сообщение от gipro Как пользователь могу заявить, что "Прокат" это САМЫЙ полезный и удобный довесок к AutoCAD. Один из немногих, которые я бы купил, будь он платным. Я очень рад тому, что он потихоньку развивается и очень благодарен форумчанам, тратящим свое время на его улучшение. СПДС-овские профили-не то совсем.

Для покупки есть Project Studio - там оч неплохой инструментарий для проката.
Но это прокси.
а тут просто линии )

[vadim_evg1]

Сообщение от gipro Как пользователь могу заявить, что "Прокат" это САМЫЙ полезный и удобный довесок к AutoCAD...

А мне так удобнее:

[REDS]

Сообщение от vadim_evg1 А мне так удобнее:

О как... А что это за програмка такая можно полюбопытствовать...???

[vadim_evg1]

AD-Profil
автор Евгений А. в этой ветке ссылка была п.161

[Red Nova]

Если бы к уже существующему "прокату" в качестве альтернативного варианта вставки (на ряду с полилинией и обычным блоком) добавился еще и вариант с дин. блоком (типа как у Mitek), было бы очень даже полезно.

vadim_evg1, Поковырял я тут, но ссылки заветной не добыл, может есть у кого?

P.S. Сам перешел на прокат только недавно, после того как обнаружил, что добавилась полилиния вместо набора примитивов. Раньше юзал aprofile.

[gipro]

Сообщение от REDS О как... А что это за програмка такая можно полюбопытствовать...???

Посмотрел. Почитал. Очень интересная и перспективная программка. В комплекте с другими творениями автора функционал оч. большой. Жаль, что у нас не работают в 3D... Еще бы составлялись КМД-шные спецификации и сварка как-нибудь считалась и показывалась. 5+

[dextron3]

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

[Red Nova]

Может какая-то надстройка мешает, ты ничего в последнее время не ставил. Что-то подобное и от СПДС бывает, правда конкретно с aprofile у меня такого не было. Во всяком случае советую перейти на последний вариант проката. Лично я не пожелел что перешел.

[vadim_evg1]

>Red Nova
http://ad-cad.narod.ru/

[Red Nova]

Спасибо

[G.A.W.]

Сообщение от Diman111 Конечно выложи - всегда интересно что у других есть полезное

Архив создал прям из папки автокада, т.ч. разберетесь если кому нада! Также смотреть пост №335

[alextv]

Господа!
Василий Кондрат рекомендует прписать программу в:
C:\Documents and Settings\...бла-бла-бла...\Support\prokat.
Работает прекрасно!
Однако возникла необходимость запускать программу прямиком "флэшки", например с F:\prokat.
Прописываю этот адрес и ессесно не работает.
Я не силен в лиспах, только пользую.
Подскажите, что сделать, чтоб работало с F:\prokat.
Спасибо!

[VVA]

Прописываю этот адрес и ессесно не работает.

Конкретнее что, где и как прописываешь

[Евгений А.]

Эх сколько проблем то!? А ведь можно же было просто сделать 1 файл VLX и хоть просто мышкой его закидывать в любой рисунок откуда хошь и всё бы работало (как моя программа) Но нет, лёгких путей никто не хочет... странно...

[alextv]

Format--Options--Files--Support File...
Add- прописываю адрес:
C:\Documents and Settings\...бла-бла-бла...\Support\prokat.
печатаю команду prokat и все работает.
Далее вставляю "флэшку", опять
Format--Options--Files--Support File...
убираю C:\Documents and Settings\...бла-бла-бла...\Support\prokat.
прописываю: F:\prokat
печатаю команду prokat и получаю в ком. строке:
; error: bad argument type: stringp nil
Заранее спасибо!

[VVA]

Сборка какая?
Попробовал на 319 - у меня работает.

[alextv]

Уважаемый VVA

Не понял ответа!

[dextron3]

Это наверное номер поста был указан

[G.A.W.]

Именно! Пробовал свою сборку на предыдущей странице, тож робит!

[getr]

Василий Кондрат рекомендует прописывать по такому пути потому что внутри файлов есть места где идет обращение по ним.Надо изменять пути внутри файлов на F:...Я так думаю.

[alextv]

Господа!
Может ли кто поделиться версией с трубами круглыми.
С удовольствием приму!
С уважением!

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

А она в принципе существует?

[alextv]

Да тут на форуме обсуждалась тема круглых труб, но всколзь.
По моему Владимир М зацепил ее, я подумал, может в этом направлении есть что-либо новое!?

[alextv]

Уважаемый VVA!
Почему-то Ваш NPZ (номер позиции) не работаету меня!
То есть работает хорошо, если я после вставки профиля и автоматического выхода из команды ввожу в ком.строку команду NPZ врукопашную, указываю профиль итд...
Уверен, задумка была другая, более удобная, то бишь, не заканчивая команды дать номер позиции.
Если так, то что подправить в лиспе Pokat?
С уважением!

[alextv]

И еще одно,Уважаемый VVA, с Вашего позволения!
Не берет почему-то высоту буквы из текущего стиля текста, как было обещено в описании:"Текст пишется текущей высотой шрифта", а упорно пишет высотой 2.5.
Имеется ввиду все тот же NPZ (номер позиции).
С уважением!

[VVA]

alextv, По порядку:

Уверен, задумка была другая, более удобная, то бишь, не заканчивая команды дать номер позиции.

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

Если так, то что подправить в лиспе Pokat?

Так сам Prokat и надо править. Мне уже кажется проще переписать его, чем вникать в код.

Не берет почему-то высоту буквы из текущего стиля текста, как было обещено в описании:"Текст пишется текущей высотой шрифта", а упорно пишет высотой 2.5.

В описании нет нигде слова стиль. Имелась ввиду переменная TEXTSIZE.. Устанавливать принудительно высоту шрифта в текстовом стиле считаю порочной практикой.

[alextv]

Уважаемый VVA!
Спасибо огромное!
Действительно Вы правы в обоих случаях!

[dextron3]

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

[Red Nova]

Да закачай сразу новую, там и сам увидеш, она на #319.

Владимир М, Форум обрел новые возможности, теперь первое сообщение всегда в оглавлении. Может переместить последнюю версию туда?

[dextron3]

Red Nova, ну хоть скриншот покажи чтобы я знал что за перечень сортаментов рассматривается

[alextv]

Уважаемый VVA!

С Вашего позволения еще пару вопросов.
1. Должен ли я получить профиль втекущем слое или так задумано чертить в слое "0"?
2. С толщиной линии тоже не все ясно! Хотелось бы получить сам прфиль толщиной скажем 0.6-0.5, а невидимую линию толщиной 0.18-0.15.
С уважением!

[dextron3]

alextv, я обычно черчу взрываю и перебрасываю по слоям

[VVA]

alextv,
1. Задумано так (см. рисунок)
2. Блок формируется неправильно: вес линии у него послою как у основных, так и у штриховых. Вес линий блока будет такой же, как вес слоя, на котором он установлен. Частично поправить ситуацию можно этим лиспом LISP.Нормализация блоков текущего файла А полностью в редакторе блоков

[alextv]

Согласен, однако-же и пунтирная линия преобретает св-ва слоя и перестает быть пунктирной!

[VVA]

alextv,

полностью в редакторе блоков

[alextv]

Понял, спасибо, однако это добавляет работу...

[Sleekka]

Выложите пожалуйста сборку из поста 319, а то качает только 89%.

[Red Nova]

ALL Подскажите пожалуйста где взять в нормальном виде все ГОСТы которые учтены в программе.

[k168]

Сообщение от Владимир М И вот не как не получается связать выбор с этими кнопками!

Так может и не парится :-)) Давно все есть!

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

И это "давно все есть" наверняка в комплекте СПДС или MechahiCS... Небесплатных

[Alan]

Сообщение от Red Nova ALL Подскажите пожалуйста где взять в нормальном виде все ГОСТы которые учтены в программе.

Что вы имеете ввиду " в нормальном виде все ГОСТы"?
В бумажном виде - в технической библиотеке.
В электронном - в какой-то проге НСИ.
В виде примитивов Автокада - в программе ПРОКАТ, например.
Имеется в программе:

"Двутавры по ГОСТ 26020-83 с параллельными гранями полок" "Двутавры по СТО АСЧМ 20-93 с параллельными гранями полок" "Двутавры по ГОСТ 8239-89 с уклоном внутренних граней полок" "Швеллеры по ГОСТ 8240-97 с уклоном внутренних граней полок" "Швеллеры по ГОСТ 8240-97 с параллельными гранями полок." "Швеллеры гнутые по ГОСТ 8278-83 обыч. сталь" "Швеллеры гнутые по ГОСТ 8278-83 кач. сталь" "Уголок по ГОСТ 8509-93 равнополочный" "Уголок по ГОСТ 8510-86 неравнополочный" "Уголок гнутый по ГОСТ 19771-93 равнополочный обыч. сталь" "Уголок гнутый по ГОСТ 19771-93 равнополочный кач. сталь" "Уголок гнутый по ГОСТ 19772-93 неравнополочный обыч. сталь" "Уголок гнутый по ГОСТ 19772-93 неравнополочный кач. сталь" "Профиль гнутый замкнутый сварной квадратный по ГОСТ 30245-03" "Профиль гнутый замкнутый сварной прямоугольный по ГОСТ 30245-03"

[Alan]

Сообщение от Sleekka Выложите пожалуйста сборку из поста 319, а то качает только 89%.

Sleekka, привет.
Только что проверил, с поста #319 всё качает нормально.
Видно день был дождливый...

[VVA]

Red Nova, Я набираю гост в yandexe как правило через 2-3 ссылки можно скачать бесплатно (пока).
Хороший сайт был здесь http://freegost.spb.ru/
Там вроде пока можно еще скачать через торрент

[Red Nova]

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

[dextron3]

Red Nova, пока пример запроса поиска с расширением?

[Red Nova]

Red Nova, пока пример запроса поиска с расширением?

Это как понять?
Если ты имел ввиду

покажи пример запроса поиска с расширением

то вот
ГОСТ 5915-70.doc

[alextv]

Скажите, господа, а существует ли PROKAT 3D, что-то я не нашел!?
Спасибо.

[Sleekka]

Существует.

Только что проверил, с поста #319 всё качает нормально

В той же сборке - он там есть.

[aspeed]

Вроде бы в начале темы заходила речь о трубах...
А нет ли у кого версии программы с добавленными трубами (особенно интересуют трубы электросварные, квадратные трубы)?

[Евгений А.]

aspeed - попробуй AD-Profil - там много разных труб

[dextron3]

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

[vn]

Пробовал в 2009 установить с поста 319 прокат.Загрузил в супорт все эти файлы, указал путь.
При вводе команды "prokat" получаю ответ : "stringp nil"
Полный провал! Значит только до 2006 эта программа подходит?

[Sleekka]

Нет, ты просто неправильно установил, в support надо ставить не саму папку прокат, а на одну папку выше по дереву.

[TwoZero]

Здраствуйте

я тут тоже тружусь над ПРОКАТОМ, сильно в тему невникал просто решил написать что я разрабатываю аналог на основе проката.

Почему делаю аналог:
Дорабатывать чужой код нет времени, проще написать свой по аналогии
Необходимо дабавить много нового

Подробности:
Все тот же прокат только заточеный под автокад 2007, 2008
Полностью изменен интерфейс (OpenDCL)
Переработана каждаю функция с нуля (стилистика и лишний код)
В дальнейшем будет возможность вставлять деталь выбрав точку вставки (в разработке)
Возможность поворота детали (в разработке)
Будет даполнена база по ДЕТАЛЯМ (тавры, двутавры и тд...)
Создания наборов для работы тока с определенным набором деталей (в разработке)

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

TwoZero, VBA?

[TwoZero]

Окна клепаю на OpenDCL

[TwoZero]

Чистый ЛИСП

[TwoZero]

Начал трудиться буквально недавно, но скора думаю наклепаю хорошую (удобную) програмулину. 100% Результат будет, так как мне дали такое задание. На данный момент занимаюсь кодингом ОТРИСОВКИ, затем планирую создать рисунки к деталям, потом зделать возможность выбора точки вставки и поворота детали, ну и в дальнейшем 100% предется расширять базу.
(ИНТЕРФЕЙС НА ДАННЫЙ МОМЕНТ ЧИСТО ТЕСТОВЫЙ, В ДАЛЬНЕЙШЕМ ПЛАНИРУЕТСЯ СОЗДАТЬ БОЛЕЕ УДОБНЫЙ ИНТЕРФЕЙС С ВОЗМОЖНОСТЬЮ СОЗДАНИЯ СВОИХ НАБОРОВ, ДАПУСТИМ НЕКОТОРЫЕ КОНСТРУКТОРА РАБОТАЮТ ТОКА С ОДНИМИ ОПРЕДЕЛЕННЫМИ ДЕТАЛЯМИ ТАК ЗАЧЕМ ИМ ШАРИТЬ ПО ВСЕЙ БАЗЕ И ИСКАТЬ ИХ, БАЦ ДАБАВИЛИ В СВОЙ НАБОР И УСЕ ИСКАТЬ НЕНАДО :-) )

[TwoZero]

Выкладываю новый скрин программы :-)

Возможности программы на данный момент:
Прога умеет чертить Двутавры, Швелеры, Уголки.

Активно ведется разработка вставки блока по точки вставки (смотрите рисунок), также будет возможность поварачивать блок на 90 градусов (в дальнейшем будет предусмотренно отклонение по градусам :-) ), ну и конечно надо будет зделать вставку блока втом масштабе который стоит на чертеже. пока все, работаю...

[Jonas]

Уважаемые, ничего не получается!
Взял с поста 319, поставил, и при призапуске
^C^C_(if (= PRKT3D nil) ( Load (findfile "prcat3d.lsp"))) PRKT3D
пишет -

Команда: _(if Команда LISP недоступна.

Команда: (= PRKT3D nil) T

Команда: ( Load (findfile "prcat3d.lsp"))) ; ошибка: лишняя закрывающая скобка
на входе

Команда: PRKT3D
Неизвестная команда "PRKT3D". Для вызова справки нажмите F1.
; ошибка: Настройка переменной AutoCAD отвергнута: "aperture" nil

Хорошо, убрал и запускаю -

^C^C_(if (= PRKT3D nil) ( Load (findfile "prcat3d.lsp"))) PRKT3D

пишет -

Команда: _(if Команда LISP недоступна.

Команда: (= PRKT3D nil) T

Команда: ( Load (findfile "prcat3d.lsp")) _KPBLC-ERROR-CATCH

Команда: PRKT3D
Неизвестная команда "PRKT3D". Для вызова справки нажмите F1.
; ошибка: Настройка переменной AutoCAD отвергнута: "aperture" nil

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

[TwoZero]

вопервых пропиши пути в самом акаде к папке с самим "прокатом" затем добавь все функции в меню tools->load application а уж затем запускай

[TwoZero]

в некоторых версиях проката требуется добавлять меню для этого надо зайти в tools->customize->interface а там уж и подгрузить само меню

[TwoZero]

у меня стоит "Программа ПРОКАТ (2d) загружена. Сборка 306 от 28.09.2007c:sbr"
работет обсалютно все

[Jonas]

Сообщение от TwoZero вопервых пропиши пути в самом акаде к папке с самим "прокатом" затем добавь все функции в меню tools->load application а уж затем запускай

Так все прописано как должно.

Проверил еще и еще и вот что:
слетают все привязки, "aperture" становиться "1" и вставка происходит черт знает куда.

[TwoZero]

aperture это системная переменная, в программе прокат она менят свое значение, но затем снова восстанавливает исходное значение.

Возможно у тебя проблемы в самой программе, системной переменной в данном случае банально неприсваевается исходное значение.

[TwoZero]

Если разбираешся в ЛИСПЕ проверь как программа работает с системными переменными.

[VVA]

Jonas,
Нужно не
^C^C_(if (= PRKT3D nil)( Load (findfile "prcat3d.lsp"))) PRKT3D
А так
^C^C(if (= PRKT3D nil)( Load (findfile "prcat3d.lsp")));PRKT3D;

[Jonas]

Сообщение от VVA Jonas, Нужно не ^C^C_(if (= PRKT3D nil)( Load (findfile "prcat3d.lsp"))) PRKT3D А так ^C^C(if (= PRKT3D nil)( Load (findfile "prcat3d.lsp")));PRKT3D;

Это уже я пробовал с подчеркиванием, работает по прежнему.

"APERTURE" меняется на "1" - бог с ним.
Наверно если бы "OSMODE" не слетало на "0" то все было бы в норме.

В Лиспе слаб и где происходит отключени не разглядел, во всяком случае понятно что при указании точки вставки (и следовательно завершении програмы) не возвращается первоначальное значение "OSMODE".

[VVA]

Немного модифицировал Procat 3d из сборки #319. Теперь OSMODE не должно слетать

[Jonas]

Сообщение от VVA Немного модифицировал Procat 3d из сборки #319. Теперь OSMODE не должно слетать

Да, теперь не слетает, спасибо.
Но осталась другая проблемка, не запрашивает точку вставки а ставит в 0,0 ПСК.
И еще вопрос, в 2Д другой (старый) список ГОСТов, та и должно?

[VVA]

Я не слежу за ГОСТами. Возьми сборку с не старыми ГОСТами и перепиши туда файл Prcat3d.lsp из #412
Ставит в 0,0 ПСК, а потом идет перенос и запрос новой точки.

[TwoZero]

Jonas, ГОСТЫ в разных канторах разные, это все зависит от нормаконтроля), в разных канторах разные погрешности и отклонения

[TwoZero]

Jonas, я так понимаю тебе прокат нужен, а почемубы тебе просто банально не ввести в камандой строке команду "PROKAT" ЭТО 2D ВЕРСИЯ.
2d версию я всегда так запускаю, вроде все пашет (относительно).
Или тебе нужен этот навароченый комплекс с созданным меню? мож я че нитак понял.

[Jonas]

Сообщение от TwoZero Jonas, я так понимаю тебе прокат нужен, а почемубы тебе просто банально не ввести в камандой строке команду "PROKAT" ЭТО 2D ВЕРСИЯ. 2d версию я всегда так запускаю, вроде все пашет (относительно). Или тебе нужен этот навароченый комплекс с созданным меню? мож я че нитак понял.

Вообще то для меня главное 3Д потому, что я разрабатываю конструкцию только в 3Д. 2Д пользуюсь редко и оно работает вот только после установки обновленной программы в 2Д остался прежний (что до обновления) набор профилей. Ну да ладно, не так важно.
Важно то о чем писал выше, не просит точку вставки!
Вчера дома поставил на свой ноутбук и там все зарабртало.
На рабочем, проверил сейчас (с утра) и к сожжалению то же, ставит в 0,0 ПСК. Может какая то переменная не в теме? ПОМОГИТЕ!

[TwoZero]

Сообщение от Jonas Вообще то для меня главное 3Д потому, что я разрабатываю конструкцию только в 3Д. 2Д пользуюсь редко и оно работает вот только после установки обновленной программы в 2Д остался прежний (что до обновления) набор профилей. Ну да ладно, не так важно. Важно то о чем писал выше, не просит точку вставки! Вчера дома поставил на свой ноутбук и там все зарабртало. На рабочем, проверил сейчас (с утра) и к сожжалению то же, ставит в 0,0 ПСК. Может какая то переменная не в теме? ПОМОГИТЕ!

Давай ты мне скиниш свою версию ПРОКАТА А Я ГЛЯНУ ЧТО ТАМ, МОЖЕТ НАЙДУ ОШИБКУ

[TwoZero]

Новый скрин программы "Сортамент стали".

[gipro]

TwoZero, интересно... А где остальные опции? где вид выбирать, длину вводить? Будет ли возможность отрисовки полилинией, как в "Прокате"?

[TwoZero]

Сообщение от gipro TwoZero, интересно... А где остальные опции? где вид выбирать, длину вводить?

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

Сообщение от gipro Будет ли возможность отрисовки полилинией, как в "Прокате"?

Покачто точно незнаю, все будет зависеть от конструкторов. Как скажут так и будет.

Это неконечный вариант программы, программа лиш в разработке.(работаю)

[gipro]

Тогда чем Вас не устраивает готовый "прокат"? Если функционал значительно уже...

[dextron3]

что то швеллера в прокате с буквой У а обычных нет, а почемУ?

[TwoZero]

dextron3, Будет, все будет, и обычные тоже (работаю над этим)

[TwoZero]

Выкладываю первый прототип программы.

Возможности:
Отрисовка детали по точке вставки
Поворот детали
Отрисовка в сечении

Руководство по установке прилогается в архиве

[dextron3]

TwoZero, не работает

[Diman111]

dextron3, Работает если прописать путь к папкам в путях поддержки.
TwoZero, в качестве предложения
- а как насчет масштаба вставляемого элемента? Не всем надо 1-1 многим надо и 1-10 и 1-25 и .... т.д.
- если я выбираю на виде точку вставки - это еще не факт что я уже решил вставить прокат.
- угол поворота лучше запрашивать при вставке профиля - не факт что он будет кратен 90град.
- касаемо цвета и слоя - стоит добавить.
- неплохобы добавить тип проката в качестве атрибута в блок или в качестве урл как в прокате Кондрата.

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

"Путь к папкам в путях поддержки" по идее должен прописываться инсталлятором или самим приложением.

[TwoZero]

Diman111, Я делаю эту прогу для канструкторов своей канторы, то есть как они скажут так и делаю. Мне наш канструктор сказал что все чертежи чертятся один к одному (детали вставляются в том масштабе который стоит на чертеже - я так сделал). Насчет поворота детали, вы правы надо добавлять поле, отклонение в градусах в зависимости от текущего поворота.

[dextron3]

Diman111, поясни в каком файле и тогда зачем истолятор?

[TwoZero]

dextron3, В архиве находится fas приложение самой программы и дистр загрузщика OpenDCL.
Для начала надо установить сам загрузщик OpenDCL.
Затем загрузить fas приложение в акад.

[dextron3]

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

[gipro]

Всё это, конечно, замечательно, но какое отношние ЭТА программа имеет к "Прокату" В. Кондрата? Может параллельную тему сделать?
TwoZero, ты вот объясни... Чем твоих "канструкторов" не устраивает "прокат"? ИМХО функционал твоей софтины значительно уже и расширять "на энтузиазме" ты его не намерен... Единственный плюс - выбор точки вставки.

[Alan]

Сообщение от gipro Всё это, конечно, замечательно, но какое отношние ЭТА программа имеет к "Прокату" В. Кондрата? Может параллельную тему сделать? ....

Как один из людей, засветившихся в этой теме, присоединяюсь к этому предложению.
А то вижу, кто-то приподнял тему, думаю, м.б. кому-то нужна помощь. Ан нет, тут идёт разговор совсем о другой программе...
М.б. она будет лучше... Больше товаров хороших и разных!
Предложения переписать ПРОКАТ уже были, более того, давались ссылки на альтернативные программы...
TwoZero, откройте новую тему и перенаправьте желающих туда.

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

Я сподобился скачать архив. Устанавливать не стал по следующим причинам:
1. Нет инсталлятора, который конечный пользователь должен запустить и больше ни о чем не задумываться.
2. Надо устанавливать OpenDCL Enabler, хотя достаточно было просто предоставить нужные файлы (имею в виду прежде всего arx-файлы для соответствующих версий AutoCAD'a)
3. Путь к приложению задан жестко. А это не есть гуд.
4. Код приложения скомпилирован в fas, что означает невозможность ни его модификации, ни наращивания функционала. Исходники не предоставляются.
5. Структура dat-файлов непонятна никому, кроме автора. Следовательно, добавить новые прокаты будет невозможно (ну или весьма затруднительно).

[TwoZero]

Покачто немогу выложить исходники программы на форуме так как я работаю на ООО "Шпиль", и все что я делаю принадлежит ООО "Шпиль". Могу выслать исходники на почтовый ящик если обязуетесь нераскрывать всех тайн.

На самом деле эта прога очень сильно связана с программой Василия Кандрата так как отрисовка сортаментов в точносте такая же как в программе "прокат". Программа радикально поменялась в интерфейсе но суть ее таже "прокат стали". В первом прототипе отрисовка идет лиш в сечении. Добавление отрисовки в других видах не так сложно (опятьже повторюсь это аналог ПРОКАТА и отрисовка детали в точносте такая же как в программе Василия Кандрата).

Почему нет инсталятора и жесткие пути к программе:
Инсталятор неделал потому что прога еще не доделана.
Жесткие пути к программе стоят потому что там где я работаю стоят именно такие пути.

Это прога чтото на подобии альфа версии. Для того чтоб развить ее нужно время. А уж потом и инсталятры и пути и все остальное...

[Diman111]

Признаться замута с жестким путем конечно странновата в принципе (независимо от стадии разработки проги)
не понимаю чем плох вариант

Код:

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

(findfile "Project_SORTAMENT_STALI.fas")

будет тебе путь в любое место.

Поддерживаю создание новой темы.

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

TwoZero, а инсталлятор нужен независимо от степени проработанности программы. Самому же проще будет юзерам ставить.

[gipro]

Offtop: Народ! Существует же раздел "готовые программы". Только там собрано далеко не все, что можно найти на форуме. Иногда ради поиска нужного кода приходится перелопатить пол-форума. Предлагаю сделать там нормальную сборку актуальных версий готовых программ.

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

gipro, ты согласен заняться?

[@LEXx]

Обнаружил, что в "Prokat" вместо двутавра 20 Б1 СТО АСЧМ прога выдает хар-ки и изображения 20 Б1 ГОСТ 26020-83. КАК исправить косяк?
Открывал файлы *.dat, какой отвечает за данный профиль не понял.
Пользуюсь вроде последней сборкой.

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

Открывал файлы *.dat, какой отвечает за данный профиль не понял.

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

[Alan]

Сообщение от @LEXx Обнаружил, что в "Prokat" вместо двутавра 20 Б1 СТО АСЧМ прога выдает хар-ки и изображения 20 Б1 ГОСТ 26020-83. КАК исправить косяк? Открывал файлы *.dat, какой отвечает за данный профиль не понял. Пользуюсь вроде последней сборкой.

Постараюсь посмотреть в ближайшее время.

[Владимир М]

Да, @LEXx, есть такое дело! Исправил. Замените файл dvtpas.dat в корневом каталоге проката. ALAN надеюсь заменит во всех ссылках на данную программу "Прокат" вложенный файл.
Прикладываю, держите ....

[Alan]

Сообщение от Владимир М Да, @LEXx, есть такое дело! Исправил. Замените файл dvtpas.dat в корневом каталоге проката. ALAN надеюсь заменит во всех ссылках на данную программу "Прокат" вложенный файл. Прикладываю, держите ....

Замену во всех ссылках на программу "Прокат"...
Наверное быстрее всего это сделать VVA в последней сборке.
VVA, сделаешь?

[VVA]

Alan Сделаю, только последняя это какая? Там еще отдельно 3d правили. Нужно найти "последнюю" 2d и "последнюю" 3d. Сделаю "самую последнюю" (?) 2d и 3d. Нужны номера постов

[gomer]

Так разделите название, например, "Прокат от меня", Прокат от такого-то" или "Прокат эталонный, НЕ ИЗМЕНЯТЬ" + версия в конце концов можно скооперироваться, по примеру open source (ООо).

[alextv]

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

[alextv]

Довавлю еще с Вашего позволения:
было бы хорошо: кликнул на профиль, и к мыши привязана готовая таблица!
Спасибо!

[Alan]

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

1.Заказчик может требовать выполнения документации в соответствии с нормативными документами.
В нормативных документах такой формы нет.
2.Заказчик может просить нужные ему или его фирме формы (спецификации). Об этом должно быть оговорено в Договоре или ТЗ.
За дополнительную работу, должна быть дополнительная оплата. ЯТД
После этого он может требовать выполнения Договоре или ТЗ.
3.В ЛИСПе возможно многое... Если блоки выполнены в ПРОКАТе и не расчленены, такое возможно.

[alextv]

Alan!
Спасибо большое за ответ, но все-же, хоть какие-то наметки, намеки!

[Alan]

Сообщение от alextv Alan! Спасибо большое за ответ, но все-же, хоть какие-то наметки, намеки!

Есть такой анекдот.
Путник (П) спрашивает у аксакала, сидящего на дороге:
"А далеко-ли до вон той деревни...?"
Аксакал (А):"Идите..."
П:"Да я спрашиваю, сколько мне идти?"
(А):"Идите. Я должен посмотреть, как быстро вы ходите."
>alextv Я не знаю Ваших познаний ЛИСПа.

...наметки, намеки!

Посмотрите на имена блоков, они разные!

[alextv]

Я хожу очень медленно, но меня могут подвезти!

[G.A.W.]

Сообщение от VVA Alan Сделаю, только последняя это какая? Там еще отдельно 3d правили. Нужно найти "последнюю" 2d и "последнюю" 3d. Сделаю "самую последнюю" (?) 2d и 3d. Нужны номера постов

Если тебе интересно, то я выкладывал свою сборку, там 2d & 3d рабочие были, пост №354

[VVA]

G.A.W., Ну так и обнови с учетом #441 и #444.

[AlexV]

Интересно, а под А2009 данную программу можно как-то приспособить? Или точнее сказать, - как? А то пытался загрузить последние сборки в 2009, при попытке запуска - ругается нецензурно...

Все работает o'key, просто слегка тормознул при установке, надо было путь доступа к папке программы в опциях прописать.

[Jonas]

Последнее обновление было с поста №354 и не работало 2Д. Заменил ф. с пота №444 - заработало.
А вот с 3Д есть проблемка, работает, вставляет 3Д прокат в указанную точку а еще вставляет сечение в коордидату 0,0,0, (не зависимо от положения ПСК). Пишет следующее -
<<Команда:
Команда: if Неизвестная команда "IF". Для вызова справки нажмите F1.

Команда: (= PROKAT nil) T

Команда: ( Load (findfile "prokat.lsp")))
URL http://dwg.ru/forum/viewtopic.php?t=10849&start=0
Программа ПРОКАТ (2d) загружена. Сборка 306 от 28.09.2007; ошибка: В функции
*error* возникла ошибка:Настройка переменной AutoCAD отвергнута: "cmdecho" nil

Команда: PROKAT no function definition: VLAX-GET-ACAD-OBJECT; ошибка: В функции
*error* возникла ошибка:Настройка переменной AutoCAD отвергнута: "osmode" nil >>

Вообще то достает. Но в целом как бы я жил без такой программы не знаю?

[VVA]

Сборка #458 (исходник #319 с учетом #412 и #444)
>Jonas
Это твой пост, a это ответ на него. У тебя что-то не так с макросами. Скопируй макросы из readme.txt

*** Добавлено 12.02.2009 С исправлениями Alan'a. Без ошибок () описанных в #461.
*** Добавлено 16.12.2009 С исправлениями, описанными в #515.
*** Добавлено 14.02.2015 С исправлениями, описанными в #772.

[Jonas]

Обновил, макросы заменил.
Как и прежде, 2Д работает нормально а с 3Д та же проблемка.

пишет -

Команда:
Команда:
Команда: (if (= PRKT3D nil)(Load(findfile "prcat3d.lsp")))

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

Команда: PRKT3D

Неизвестная команда "PRKT3D". Для вызова справки нажмите F1.

[Рyslan]

VVA эти две программки будут работать в 2008 автокаде рус?

[VVA]

Должны работать в любом Автокаде, поддерживающем LISP
В прокате 3D есть глюк с тем, что иногда не отображается слой вставки и где-то идет сбивка в опциях какой-то команды, но профиль все равно рисует.

[Alan]

Сообщение от Рyslan VVA эти две программки будут работать в 2008 автокаде рус?

AlexV Интересно, а под А2009 данную программу можно как-то приспособить? Или точнее сказать, - как?

Проверил работу функционала под русскими Автокадом 2002, 2005, 2008, 2009-МЕР. Вроде работает (все профили не проверял).
Инструкция по установке и макросы запуска остаются без изменения см. файл Read-Me.txt (RTFM)

VVA В прокате 3D есть глюк с тем, что иногда не отображается слой вставки и где-то идет сбивка в опциях какой-то команды, но профиль все равно рисует.

VVA, "сбивку в опциях" нашел. Завтра проанализирую "не отображается слой вставки " Если не возражаешь конечно?
Завтра снесемся и обсудим это. Ок?

[Jonas]

Разобрался с проблемкой, просто DELOBJ была в 0.

[Р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
Команда:

[gipro]

Рyslan, поколдуй с путем к папке prokat в настройках автокада, там как-то хитро надо путь прописать. В readme все изложено четко. А после установки перезапусти автокад. У меня на 2008 русском все работает.

VVA, Alan, посоветуйте сборку, в которой работает привязка, а то у меня стоит какая-то, что при вызове проката OSNAP отключается...
И еще интересно - будет ли когда в этой замечательной программке выбор точки вставки? Очень полезная была бы функция.

[Рyslan]

прописал всю папку в доступ к вспомоательным файлам, загрузил лисп прокат- ничего не работает. автокад перезагружал

[Alan]

Сообщение от Рyslan прописал всю папку в доступ к вспомоательным файлам, загрузил лисп прокат- ничего не работает. автокад перезагружал

Рyslan, опубликуйте или пришлите:
1. Сделайте в Far"е DIR>dir.txt папки Procat
2. Скринсейвер "доступ к вспомогательным файлам"

[Alan]

Сообщение от gipro ..... VVA, Alan, посоветуйте сборку, в которой работает привязка, а то у меня стоит какая-то, что при вызове проката OSNAP отключается...

gipro, никто не мешает тебе вставить нижеприведенный текст перед INSERT в prokat.lsp

Код:

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

;;;-------- Изменения 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
;;; объектная привязка - 51
  (setvar "osmode" 51)
  (prompt "\n Режим объектной привязки: ПЕР,КОН,СЕР,КВА ")
;;; объектная привязка - 51
      (command "_.-insert" edat3 "_S" m  pause)      ;_ Add 02.08.2007 VVA change VVA 28.09.2007

VVA, я думаю есть смысл вставить. В моём личном варианте ПРОКАТ так.

И еще интересно - будет ли когда в этой замечательной программке выбор точки вставки? Очень полезная была бы функция.

т.е. ты/Вы хочешь иметь место, которым блок будет вставляться?

[VVA]

Alan,

Завтра проанализирую "не отображается слой вставки "

Вот небольшая картинка

VVA, я думаю есть смысл вставить. В моём личном варианте ПРОКАТ так.

Не возражаю

[Fellini]

Уважаемые, возникла необходимость в трехмерной модели все эти прокатные балки заменить простыми отрезками той же длины и того же слоя. Или же еще лучше вместе с объемным профилем вычерчивалась осевая линия, которую отдельно можно было выделить.

[gipro]

Сообщение от Alan т.е. ты/Вы хочешь иметь место, которым блок будет вставляться?

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

[Alan]

Сообщение от gipro ....Чтобы в окошке с профилем (ну или как получится) выбрать точку вставки - за углы, центр, геометрический центр сечения и т.п.

Предложи варианты запроса. Типа: ПВУ (Правый верхний угол), ПНУ и т.д.?

Сообщение от gipro И еще вопрос... как заменить линию "штриховая" на свою... Или на линию с типом "по слою", но чтобы она сразу конкретному слою принадлежала... Например слою "пунктир". А то у меня она оказывается в том же слое, что и само сечение (жирноватая), да и еще с масштабом типа линии 1...

Тут надо:
1. Или шибко думать... Чтобы удовлетворило всех. Что невозможно - ЯТД.
2. Или сделай исправление под себя. Тексты же открытые.

[dextron3]

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

[VVA]

Проблемы, описанные в #461 исправил Александр Назаров aka Alan.

Обновлен пост #458

dextron3, Camtasia Studio. Захват экрана с сохранением в анимированный gif. Полученный файл размещаешь на любом сервисе для публикации фотографий (например http://keep4u.ru/ ) полученную ссылку сюда.

[gipro]

2. Или сделай исправление под себя. Тексты же открытые.

Еслиб я умел... Я в лиспе - нуб. Расскажите, как сделать, чтобы тип линии привязывался к слою и ее масштаб соответствовал CELTSCALE...

Предложи варианты запроса. Типа: ПВУ (Правый верхний угол), ПНУ и т.д.?

Шикарно сделали АРКО... вот так...

[dextron3]

gipro, а что такое АРКО

[dextron3]

VVA, а швеллера без буквы У теперь или все так же?

[gipro]

dextron3, Project studio CS

[Alan]

Сообщение от dextron3 VVA, а швеллера без буквы У теперь или все так же?

Этот вопрос к Владимир М
При случае обращу его внимание.

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

Первый пост обновлен. Обратите внимание.

[Владимир М]

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

[vasyavip]

Сообщение от Р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]

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

[VVA]

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

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

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

[E-degtyarev]

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

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

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

[Владимир М]

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

[E-degtyarev]

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

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

[Alan]

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

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

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

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

[Holon]

В функции 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]

Код:

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

;;Номер позиции
(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]

Спасибо :-)

[Рyslan]

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

[LSN]

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

[Рyslan]

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

[Alan]

Сообщение от Рyslan Aвтокад архитектура 2009

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

[Рyslan]

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

[G.A.W.]

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

[gipro]

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

[Евгений А.]

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

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

[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

[AleksOr]

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

[nik_mb]

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

Код:

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

(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]

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

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

[nik_mb]

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

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

[hwd]

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

[Alan]

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

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

[hwd]

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

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

[nik_mb]

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

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

[Alan]

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

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

[hwd]

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

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

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

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

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

[shnn]

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

[nik_mb]

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

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

[ander]

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

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

[LSN]

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

[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
Ошибка загрузки файла 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]

Сообщение от 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]

Да все вроде правильно сделал...вот сейчас в другом профиле(на всякий случай чтоб не путаться)прописал путь к папке на рабочем столе,создал кнопку с макросом из 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]

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

[Alan]

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

Выполняю проверку по только что скачанной (для чистоты эксперимента) версии http://forum.dwg.ru/showpost.php?p=352714&postcount=458
У меня работает! Прикладываю картинку диалогового окна.
Затем на кончике пера встал блок (сечения), который и вставил в чертеж.
Автокад2005 (рус) - без всяческих надстроек, только путь к папке с Прокатом прописан.
ИМХО. Тщательнее надо, товарисчЪ!

[getr]

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

[gomer]

Можно ли приспособить программу к Bricscad V10?

[Alan]

Сообщение от gomer Можно ли приспособить программу к Bricscad V10?

Наверное можно. В ZWCAD я её адаптировал.
http://forum.zwsoft.ru/viewtopic.php?f=20&t=130

[getr]

после нескольких запусков окно программы перестало совсем появляться..методом тыка установил-что если в путях поддержки количество прописанных путей,стоящих перед путем до папки Procat, равно 24-м(путь к прокату является 25-м), то программа не работает,а если путь к Procat поднять выше например на 24-ое или на 23-е или совсем наверх,то все начинает нормально функционировать...все таки чертовщина присутствует или такова сущность автокада ..у меня стоит 2005eng.

[gomer]

Что значит открытые коды... Это мне линукс напоминает...
У программы есть большие жирные минусы... Как все работает не понятно... Собственно на Bricscad 10 не работает...
* функции отрисовки принимают данные глобально, а не через аргументы...
* Код можно и нужно оптимизировать (уменьшать, убирать лишнее)...
* Обилие переменных и функций от разных авторов
* Командные методы вперемешку с методами ActiveX
* что делает *error* не понятно...
и т.д.

[nikе]

Для Bricscad существует уже 2 года!

[gomer]

Спасибо заработало, но не сразу... только после принудительной записи в реестр... это не зер гут... ну да ладно...

[Jonas]

Ни как не работает "Крепежные изделия (Заполнение спецификации)".
Акад2008.
Пишет -
"Error:no function definition: T_S; ошибка: В функции *error* возникла
ошибка:Настройка переменной AutoCAD отвергнута: "CMDECHO" nil "

[Alan]

Сообщение от Jonas Ни как не работает "Крепежные изделия (Заполнение спецификации)". Акад2008. Пишет - "Error:no function definition: T_S; ошибка: В функции *error* возникла ошибка:Настройка переменной AutoCAD отвергнута: "CMDECHO" nil "

А разве "Крепежные изделия" мы в этой теме обсуждали?

[Jonas]

Сообщение от Alan А разве "Крепежные изделия" мы в этой теме обсуждали? __________________

Я имею в виду это.

[Alan]

Сообщение от Jonas Я имею в виду это.

В данной теме обсуждался Прокат (2D&3D)...
Проверьте Поиском в Инете .
Василий Кондрат делал когда-то "Крепежные изделия".
Гляньте у Г.Поспелова http://www.kulichki.com/cadhlp/old/index.htm
А почему не работает программа в Вашем случае, спросите у того, кто делал это меню и собирал программы для него, или публикуйте тексты.
Но наверное это лучше сделать в новой теме.

[Jonas]

Здесь задал вопрос потому, что из этой темы брал сборку 458.
Ну нет как нет.
Извините.

[Alan]

Сообщение от Jonas Здесь задал вопрос потому, что из этой темы брал сборку 458. Ну нет как нет. Извините.

Не за что извиняться
Но в сборке 458, если мне не изменяет память, нет программы "Крепежные изделия".

[Jonas]

Сообщение от Alan Но в сборке 458, если мне не изменяет память, нет программы "Крепежные изделия".

Зачем напрягать память, достаточно открыть пост #458 а там

Procat_N458 от 16.12.2009.rar (117.8 Кб, 265 просмотров)

[Alan]

Сообщение от Jonas Зачем напрягать память, достаточно открыть пост #458 а там Procat_N458 от 16.12.2009.rar

В котором нет программы "Крепежные изделия", о которой Вы спрашиваете.
P.S.Или я чего-то не понимаю

[Jonas]

Сообщение от tyusau А можно по-подробнее? Что это за программа?

Вот она. Правда ваша Alan, не то. И не помню кто подарил. Уверен был до сих пор что из поса #458.

[sbi]

Тема: Обновление программы Василия Кондрата "Крепеж" есть на форуме
http://forum.dwg.ru/showthread.php?t=41532
Может и поможет.

[gomer]

Почему бы не сделать вместо:

Код:

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

  (setq	dvcl   (findfile "d_vtr.dcl")
	lib    (findfile "procat.slb")
	dvdp   (findfile "dvtp.dat")
	dvdpas (findfile "dvtpas.dat")
	dvd    (findfile "dvtr.dat")
	dvd1   (findfile "dvtr2.dat")
	dvd2   (findfile "dvtp2.dat")
	svrd   (findfile "svlr.dat")
	svpd   (findfile "svlrp.dat")
	svgd   (findfile "svlrg.dat")
	svgkd  (findfile "svlrgK.dat")
	ugrd   (findfile "ugrp.dat")
	uggrd  (findfile "ugrg.dat")
	uggrkd (findfile "ugrgK.dat")
	uggnd  (findfile "ugng.dat")
	uggnkd (findfile "ugngK.dat")
	ugnd   (findfile "ugnp.dat")
	trkvd  (findfile "trkv.dat")
	trpud  (findfile "trpu.dat")
  ) ;_ конец setq

(defun name_fil ()
      (cond
	((eq pr_fl "0") (setq fil dvdp))
	((eq pr_fl "1") (setq fil dvdpas))
	((eq pr_fl "2") (setq fil dvd))
	((eq pr_fl "3") (setq fil dvd1))
	((eq pr_fl "4") (setq fil dvd2))
	((eq pr_fl "5") (setq fil svrd))
	((eq pr_fl "6") (setq fil svpd))
	((eq pr_fl "7") (setq fil svgd))
	((eq pr_fl "8") (setq fil svgkd))
	((eq pr_fl "9") (setq fil ugrd))
	((eq pr_fl "10") (setq fil ugnd))
	((eq pr_fl "11") (setq fil uggrd))
	((eq pr_fl "12") (setq fil uggrkd))
	((eq pr_fl "13") (setq fil uggnd))
	((eq pr_fl "14") (setq fil uggnkd))
	((eq pr_fl "15") (setq fil trkvd))
	((eq pr_fl "16") (setq fil trpud))
      ) ;_ end of cond
    )

так вот:

Код:

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

  (setq
	dvcl (findfile "d_vtr.dcl")
	lib  (findfile "procat.slb")
	datfiles
	'("dvtp.dat"
	  "dvtpas.dat"
	  "dvtr.dat"
	  "dvtr2.dat"
	  "dvtp2.dat"
	  "svlr.dat"
	  "svlrp.dat"
	  "svlrg.dat"
	  "svlrgK.dat"
	  "ugrp.dat"
	  "ugrg.dat"
	  "ugrgK.dat"
	  "ugng.dat"
	  "ugngK.dat"
	  "ugnp.dat"
	  "trkv.dat"
	  "trpu.dat"
	)
  )

(defun name_fil ()
   (setq fil (findfile (nth (atoi pr_fl) datfiles)))
)

Кода меньше в 3 раза и можно избавиться от 16 переменных сразу...
Таких мест в программе много, так как программа написана на древнекитайском мелкософтовском диалекте...
По поводу версии для брикскад и Procat_N458: куча мусора в архиве... так низя!

[Alan]

Сообщение от Jonas Вот она. Правда ваша Alan, не то. И не помню кто подарил. Уверен был до сих пор что из поса #458.

Для того чтобы не было разночтения, огромная просьба переименовать вложение в посте N556 хотя бы в "Procat_И_Крепеж".
Также наверное надо учесть замечание gomer " куча мусора в архиве..."

>VVA ИМХО Работающая сборка "Procat_N458 от 16.12.2009" остается в посте N458.
Её и поддерживаем до внесения следующих корректировок по предложению пользователей.

[Хмурый]

интересно, что при неправильном выходе из программы Prokat иногда слетает привязка Сenter в 2008-ом Eng,

[Alan]

Сообщение от Хмурый интересно, что при неправильном выходе из программы Procat иногда слетает привязка center в 2008-ом

В этой программе не стоит обработчик ошибок.
Со всеми вытекающими отсюда последствиями...

[Хмурый]

Alan, так я в этом разобрался. ну и шут с ним.

[gomer]

Сообщение от Хмурый В этой программе не стоит обработчик ошибок. Со всеми вытекающими отсюда последствиями.

Обработчик есть... но сделан он коряво... нужно править!
И вообще коряво все...
В программе три режима:
1. Диалоговый;
2. Ввод точек;
3. Отрисовка профиля;
Обнуление osmode в начале программы не нужно, а только при отрисовке...
При вводе точек нужно выставить максимально удобный режим привязки
При отрисовке обнулить, по завершении восстановить
То есть нужны функции типа:

Код:

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

(defun set_ui ()
  (setvar 'osmode 4771)
   ;;...
)
(defun set_dw ()
  (setvar 'osmode 0)
  ...
)
(defun restore_var ()
  (setvar 'osmode osmd)
  ;;...
)

В обработчик ошибки нужно добавить (restore_var)

[Alan]

Одно из исследований Алексея Кулика - обработчик ошибки, см.
http://www.arcada.com.ua/forum/viewtopic.php?t=445

[ALL]

Сообщение от Alan В этой программе не стоит обработчик ошибок. Со всеми вытекающими отсюда последствиями...

Эта программа писалась где-то в 1995 году была первой программой, которую он писал. Не стоит предъявлять к ней особых требований.

[gomer]

Сообщение от Alan Одно из исследований Алексея Кулика - обработчик ошибки

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

Сообщение от ALL Эта программа писалась где-то в 1995 году была первой программой, которую он писал. Не стоит предъявлять к ней особых требований.

Тогда давайте ничего не делать???? охая и крякая, когда что-то не так работает

[sbi]

gomer Тебе и карты в руки! Жду обновления, как крепежа, так и проката. А файлы "mns", по моему вполне возможно написать и не совсем продвинутым. Но каждый программист имеет "свою" систему координат, как во времени так и в пространстве.

[gomer]

Изменил диалоговый интерфейс, теперь можно обойтись без мыши
Добавлено меню и панель инструментов
Добавлен установщик меню
Общие функции перенесены в файл ProkatUtl.lsp
Изменены названия команд и основных файлов

Дальше копать не стал, побоялся...

Обновил архив:
Вынес команду NPZ в отдельный файл;
Русифицировал и унифицировал запрос точек при указании длины проката...

Обновление 24.10.2010
в Prokat2D
Убрал вывод в ком строку при вставке блока
Убрал кучу ненужных локальных переменных
Переименовал глобальные переменные по имени приложения

Обновление 03.12.2010
в Prokat2D
Системные переменные теперь сохраняются списком
Исправил ошибку при вставке уголков

Обновление 27.04.2011

Изменил цвет фона слайда на серый (253)

Обновление 11.01.2012

Исправлена ошибка при вставке профиля гнутого квадратного по ГОСТ 30245-03

Обновление 23.05.2013

Внес незначительные изменения и перезалил архив в связи с побитостью старого...
_________________________________________________
Если архив не открывается, то установите сначала это
И не стесняемся говорить свое фее и спасибо

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

Offtop: Я тоже Как только разберусь с тем, как и где хранить настройки и какими они должны быть

[ALL]

Сообщение от gomer Тогда давайте ничего не делать???? охая и крякая, когда что-то не так работает

Нет. У меня не было поводов охать и крякать, так как она работала и работает нормально?
Но если у Вас она работает плохо, то Вы, конечно имеете повод охать, крякать и исправлять программу.
Будем ждать исправленный вариант.

[gomer]

Сообщение от ALL Будем ждать исправленный вариант.

Не исправленный, а улучшенный (обновленный)

[sbi]

gomer Мой WinRAR и 7z видит Procat568.zip и пишет:
"! C:\Documents and Settings\Администратор\Мои документы\Prokat568.zip: Неизвестный метод в dvtp.dat"
и т.д для всех файлов .Все видет а извлечь не может. Проверь архив пожалуста или перезапакуй rar'ом.

[gomer]

Нету у меня WinRAR... не пользуюсь им уже несколько лет и ничуть не жалею. Поэтому не смогу заархивировать в rar, а какой 7z у вас стоит (у меня 9.15)? Могу в его родном формате сжать... даже меньше получится

[sbi]

gomer Скачал 7-Zip 9.15 beta на softforfree.com всё распоковалось (пользовался, выложенной в dwg dnl ... 7z) Время течет...

[gomer]

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

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

Первый пост обновлен.

[LSN]

Версия от gomer'а работает лучше. Раньше отключались привязки при задании длины профиля "указанием на чертеже", причем не во всех типах сечений. А при "неправильном" выходе из команды, вообще слетали.

Насчет справки, думаю она здесь не нужна. И так все понятно.

[oleg111]

А ДЕТАЛЬ в эту сборку можно включить или отдельно чтоб работала на 2011каде-спасибо

[gomer]

Сообщение от oleg111 А ДЕТАЛЬ в эту сборку можно включить или отдельно чтоб работала на 2011каде

Что за деталь?
ps Обновил архив см. #568

[oleg111]

Деталь-это болт,гайка,шайба в сборе

[sbi]

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

[oleg111]

Ткните носом где есть и чтоб работало на 2011акаде

[sbi]

oleg111Offtop: Кнопка будет в 2012, подожди немного.

[gomer]

См. 568 Должна работать... А там хз...

[gomer]

Почему-то #568 стал #567...
Обновил архив...

[Хмурый]

отключение отображения поля гиперссылки

_hyperlinkoptions
Display hyperlink cursor, tooltip, and shortcut menu? [Yes/No] <Yes>: _N

[congr]

И на 2011 64-бит все работает и старое обновление и новое главное путь в поддержки обозначить до той папки где находятся лисповские и файлы меню этой проги.
Другое непонятно, почему у двутавров с наклонными полками из обновления в обновление сохраняется угол между полками в 10° когда должно быть 12° (у швеллеров-правильно там 10°) Все это конечно мелочь, но иной раз хочется быть более точным. Спасибо.

[gomer]

А разве угол регламентируется ГОСТом?

[alex_bay]

Сообщение от congr непонятно, почему у двутавров с наклонными полками из обновления в обновление сохраняется угол между полками в 10° когда должно быть 12°

Сообщение от gomer А разве угол регламентируется ГОСТом?

А вот интересно какой завод еще делает двутавры по ГОСТу? да и вооще прокат... Не видел давно ГОСТовских прокатных профилей. Везде сплошь и рядом АСЧМ да ТУ разные у всех. И геометрия у всех разная (хорошо что не меньше ГОСТовких пока еще). А самое главное - вес разный! Уже пару раз с заказчиками были скандалы.
Но самое главное, что про 10град или 12гад в ГОСТе нет ни слова...

[Евгений А.]

Я когда этим вопросом интересовался, то кажись, там и не градусы, а % и зависят они от стали для профилей 6-12%, но обычно ставят уклон = 12% (6,48 градусов)
вот цитата из ГОСТ 8239-89

"Примечание. Уклон внутренних граней полок должен быть 6—12 %."

[РастОК]

Сообщение от gomer Изменил диалоговый интерфейс, теперь можно обойтись без мыши

Как обойтись без мыши и какую команду надо забить в клавиши быстрого вызова этого сортамента???
Раньше надо было забить: ^C^C^P(progn(if(= Crokat/prokat nil)(load "prokat/prokat")));prokat;
а теперь?

[gomer]

Сообщение от РастОК Как обойтись без мыши и какую команду надо забить в клавиши быстрого вызова этого сортамента??? Раньше надо было забить: ^C^C^P(progn(if(= Crokat/prokat nil)(load "prokat/prokat")));prokat; а теперь?

Ни на что забивать не нужно!
Почитайте Read-me.txt
Там внизу написано, как устанавливать
В диалогах теперь можно использовать комбинации клавиш c Alt...

[sbi]

gomer Умоляю, поработай с крепежом Василилия. Лисп не моя стихия.

[gomer]

Сообщение от sbi поработай с крепежом

Как только разберусь с гиперссылками, представлю публике...

[G.A.W.]

gomer, коль уж взялся, если не в лом, добавь плиз такой вот ГОСТ на мелкие прямоугольные трубы 8645-68: Трубы стальные прямоугольные.
Ну и в принципе круглых труб не хватает, хотя их конечно можно и ручками рисовать, но как то уже привыкать по кпкам давить ))

[iliorik]

Не работает вставка уголка неравнополочного по ГОСТ 8510-86

[Alan]

Сообщение от iliorik Не работает вставка уголка неравнополочного по ГОСТ 8510-86

Протокол в студию.
Слепок с Окна выбора, протокол командной строки и номер версии.

[iliorik]

Пишет вот чего! И не то что то показывает в окне

Ошибка в работе программы: Function cancelled; error: An error has occurred
inside the *error* functionAutoCAD variable setting rejected: "cmdecho" nil

[Alan]

Это сборка от gomer"а
>iliorik Стукните ему в личку

[gomer]

Сообщение от iliorik Пишет вот чего! И не то что то показывает в окне Ошибка в работе программы: Function cancelled; error: An error has occurred inside the *error* functionAutoCAD variable setting rejected: "cmdecho" nil

>iliorik: Ошибку исправил, это мой косяк, каюсь...

Сообщение от G.A.W. коль уж взялся, если не в лом, добавь плиз такой вот ГОСТ на мелкие прямоугольные трубы 8645-68: Трубы стальные прямоугольные. Ну и в принципе круглых труб не хватает, хотя их конечно можно и ручками рисовать, но как то уже привыкать по кпкам давить ))

Ввиду особенности программы, добавить что-либо не так просто, как кажется=( но вы можете помочь, сделав хотя бы файл данных для программы

[E-degtyarev]

gomer, коль уж взялся, если не в лом, добавь плиз такой вот ГОСТ на мелкие прямоугольные трубы 8645-68: Трубы стальные прямоугольные.

G.A.W.
Трубы прямоугольные можно взять здесь http://d_rilovo.chat.ru или http://d-rilovo.narod.ru, если конечно это Вас устроит.

ЗЫ: Там можно взять и другие профили: круглая труба, двутавр "с изменяемым" уклоном полок, швеллеры, уголки.

[alextv]

Господа!
Возникла след. поблема:
Работал на 2011 акаде-windows-32 разряда-все было нормально
Перешел на 2011 акаде-windows-64 разряда-перестали отображаться слайды.
Что-же делать!
Как работать?
Прошу помощи!

[Alan]

Сообщение от alextv Перешел на 2011 акаде-windows-64

Дык! А вернуться на 32 разряда нельзя?
Проверить не на чем, нет такого у меня...

[lastloch]

А если попробовать создать новые слайды из винды-64 и подбросить их вместо старых?

[Alan]

Сообщение от lastloch А если попробовать создать новые слайды из винды-64 и подбросить их вместо старых?

Это бесполезно. В Автокаде такой геморрой со слайдами...
Там надо попробовать изменить цветовую схему в d_vtr.DCL.

Код:

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

  : row {
	:column {
	  : boxed_column  {
		label = "Эскиз";
		:image { key = "show_image1"; height = 16; width = 50; 
// вот тут попробуйте поочереди - 250, 251, 252, 253
                 color   = 250;
}
	  }
	  :boxed_column  {
		label = "Выбор вида для черчения";
		: radio_column  {
		  : radio_button  { key = "glv";  label = "главный вид"; width = 16; mnemonic = "г";}
		  : radio_button  { key = "glvm"; label = "главный вид на малую полку"; width = 16; mnemonic = "о";}
		  : radio_button  { key = "vsz";  label = "вид сзади"; width = 16; mnemonic = "з";}
		  : radio_button  { key = "vszm"; label = "вид сзади на малую полку"; width = 16; mnemonic = "а";}
		  : radio_button  { key = "vsv";  label = "вид сверху "; width = 16;mnemonic = "в";}
		  : radio_button  { key = "sec";  label = "сечение "; width = 16; value = 1; mnemonic = "е";}
		}
	  }
	}

[lastloch]

вот тут попробуйте поочереди - 250, 251, 252, 253

Alan, а можно пояснить, почему именно ТАКИЕ номера цветов?

[Pozia]

Alan, у меня не сработало. Интересно то, что дома на Seven x64 все работает, а на работе на XP x64 с ограниченной учеткой не показывает слайды

[Alan]

Сообщение от Pozia Alan, у меня не сработало. Интересно то, что дома на Seven x64 все работает, а на работе на XP x64 с ограниченной учеткой не показывает слайды

А на каком фоне экрана в Автокаде Вы работаете?

[lastloch]

Странно, такая интересная и нужная тема как-то "подвисла".
Неужели процесс обновления программы "прокат" завершен, и программа достигла абсолютного совершенства?

[Pozia]

на черном фоне и там и там

[Alan]

Сообщение от lastloch Странно, такая интересная и нужная тема как-то "подвисла".

Я сейчас в отъезде, но приеду через неделю, посмотрю .

[gomer]

Обновил свою сборку. Теперь цвет фона картинки должен быть серым

[kontrR]

Загрузил Procat_N458 от 16.12.2009.rar (117.8 Кб, 150 просмотров) в 2007-й, и вот что выдает:

Команда: appload
prokat.lsp successfully loaded.


Команда:
URL http://forum.dwg.ru/showthread.php?t=9322&page=23
Программа ПРОКАТ (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====32

Что делать?
ПыСы. Версию Prokat568.zip (114.5 Кб, 220 просмотров) ваще не могу разархивировать ни zip-ом, ни Winrar-oм, ни 7zip-ом... Нельзя ли перезалить..
Заранее благодарен.

[gomer]

kontrR? Вы тему внимательно читали... обновите свой архиватор... это не сложно и не опасно

[[email protected]]

как бороться?
История:
Поставил на ASD2011ru(Укрощен до Акада 2011ru обычного полного) Prokat568.zip (114.5 Кб, 253 просмотров) - работало
рядом положил http://forum.dwg.ru/showpost.php?p=467286&postcount=15 и поставил программу Василия Кондрата "крепеж"
после 3D чертит, 2D выдает .....
Команда: Prokat2D
Ошибка в работе программы: слишком много аргументов; ошибка: В функции *error*
возникла ошибка:Настройка переменной AutoCAD отвергнута: "cmdecho" nil

[gomer]

Сообщение от [email protected] как бороться?

каюсь, забил я болт на болты и из головы вылетело... пока не могу "нормальные болты" выложить...
автор у проката и болтов один и функции он называл одинаково (если мне не изменяет память...)
"мой" прокат загружается на старте... потом вы загружаете болты... и прокат принимает их функции за свои... естественно выдает ошибку так как они разные...
как вариант рекомендую пока добавить к командам меню (load "Prokat2D.lsp") и (load "Prokat3D.lsp") тоже самое сделать и с болтами...

[[email protected]]

-615 Попробую
частично вопрос решается при включении акада когда набор рабочих пространств сдернуть и вернуть где ставил Крепеж и Профиля, но работает через раз что не радует. Будем эсперементировать.
Про "добавить к командам меню (load "Prokat2D.lsp") и (load "Prokat3D.lsp")" непонял. Это в загрузку лиспов "Сервис/Лисп/Приложения/кн. Автозагрузка"? Или в кнопки?

[gomer]

в файл меню

Сообщение от [email protected] Про "добавить к командам меню (load "Prokat2D.lsp") и (load "Prokat3D.lsp")" непонял. Это в загрузку лиспов "Сервис/Лисп/Приложения/кн. Автозагрузка"? Или в кнопки?

именно в файл меню... и в выпадающее меню и в панель инструментов...потом перезагрузить меню...

[Аshаs-ка]

Как-то захирела сильно интересующая меня в последнее время в связи с установкой seven 64 тема по видимости слайдов...
На работе все нормально - там 32, а дома погнался за новизной. Неужели придется слайды перелопачивать?! Кто- нибудь проблему видимости слайдов в 64 разрядной винде решил?

[gomer]

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

[chon]

Помогите пожалуйста!
Прокат2Д.
Рисуем швеллер, "сечение" - все нормально.
Рисуем швеллер, "Вид сзади" вылетает с ошибкой "

Код:

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

 Ошибка в работе программы: Настройка переменной AutoCAD отвергнута: "celtype

""
и слетают настройки привязок
Забыл довавить: АКАД 2010 Русский version 3 х64

[gomer]

chon, чью сборку используете?

[Alan]

Как-то захирела сильно интересующая меня в последнее время в связи с установкой seven 64 тема по видимости слайдов...

Ну нет у меня доступа к 64-х разрядной семерки... Виноват
Но слайды придётся всё-таки переделать. ЯТД

[chon]

Сообщение от gomer chon, чью сборку используете?

Вашу, из поста 611
попытался сам разобраться, но код для меня слишком сложен...

[gomer]

Сообщение от chon Вашу, из поста 611

постараюсь разобраться в ближайшие дни
А вы проверьте, подгружается ли у вас штриховой тип линии

[chon]

Сообщение от gomer постараюсь разобраться в ближайшие дни А вы проверьте, подгружается ли у вас штриховой тип линии

штриховой как "штриховая" или как "dashed", хотя ни которая не подгружается

[gomer]

Сообщение от chon штриховой как "штриховая" или как "dashed", хотя ни которая не подгружается

именно в этом и проблема... проверьте наличие файла acadiso.lin и соответствующего типа линий в нем
ps как у вас со слайдами? они отображаются?

[chon]

acadiso.lin - в наличии , типы линий ручками добавляются, но только как "dashed".
слайды? это которые эскизы? - да отображаются.

[gomer]

Сообщение от chon acadiso.lin - в наличии , типы линий ручками добавляются, но только как "dashed".

В том-то и проблема... в вашем русском автокаде файл типов линий, вероятно, не руссифицирован, такое, естественно, не предусмотрено программой Прокат

[chon]

а можете выложить/выслать acadiso.lin буду спасибо говорить

[gross]

При вставке профиля гнутого квадратного по ГОСТ 30245-03 100х100х3 вставляет 90х90х3

[gomer]

Сообщение от gross При вставке профиля гнутого квадратного по ГОСТ 30245-03 100х100х3 вставляет 90х90х3

исправил... свою сборку обновлю...

[Yuzer]

Поставил семерку 64. Устанавливаю прока и выдает:

Команда: prokat3d ; ошибка: no function definition: _PRKT-CMD-START

С чем это связанно?
писы. чет не могу найти вбаэнейблер под 2011 кад, не подскажите куда глянуть (смотрел на usa.autodesk.com).

[gomer]

Сообщение от Yuzer Поставил семерку 64. Устанавливаю прока и выдает: Цитата: Команда: prokat3d ; ошибка: no function definition: _PRKT-CMD-START С чем это связанно?

А программа нормально загружается?

[Yuzer]

Кад? или прокат?
Кад - загружаеться, прокат - нет.

[gomer]

Программа ПРОКАТ загружена. Сборка 568 от 11.01.2012 URL http://forum.dwg.ru/showpost.php?p=637272&postcount=568 Запуск - PROKAT2D/PROKAT3D/NPZ.

Это сообщение в кс АК при нормальной загрузке программы ПРОКАТ. Может, стоит проверить пути поддержки. Если работает плоская версия, то посмотреть может где-то есть другие версии проката.

[Yuzer]

Я этой сборкой пользовался до переустановки винды. Стояла ХР. Поэтому в сборке я точно уверен.

Все - разобрался.

Если будут замечания, пишите. mail: [email protected] --------------------------------------------- Загрузка и пуск программы В Автокаде необходимо выполнить следующие действия: 1. Сервис-Приложения-Найти и Загрузить: prokat.lsp или Prcat3d.lsp 2. Набрать в командной строке: prokat или prkt3d, соответственно для плоского или объёмного изображения профилей P.S. Можно создать кнопку с макросом, например, такую: ^C^C(if (= PROKAT nil)(Load(findfile "prokat.lsp")));PROKAT; ^C^C(if (= PRKT3D nil)(Load(findfile "prcat3d.lsp")));PRKT3D; ------------------- Владимир М., г.Ухта, Республика Коми -----------------

У меня заработало, когда загрузил prokatSetup.lsp.

[seregabs]

Уважаемый gomer, архив размещенный по этой ссылке
http://forum.dwg.ru/showpost.php?p=637272&postcount=568
не удается распаковать.
Искать проблему у себя или все-таки с архивом что-то не то?

[gomer]

ВНИМАТЕЛЬНО! прочитайте что написано в сообщении, на которое вы ссылаетесь

[sbi]

Сообщение от gomer ВНИМАТЕЛЬНО! прочитайте что написано в сообщении, на которое вы ссылаетесь

Там есть слово это

[seregabs]

Вот как раз это у меня установлено было и раньше, и оно не распаковывало архив.
Проблема разрешилась после процедуры "лечения" в winrar, что удивительно.

[gomer]

ВНИМАТЕЛЬНО! прочитайте что написано в сообщении, на которое вы ссылаетесь

[stas_org]

При попытке вставить сечение, Acad 2010 вылетае, 3d тело всталяется нормально, в чем может быть проблема?

[gomer]

Какое сечение вставляете и какую сборку используете?

[stas_org]

Любое сечение или вид, Prokat568

[gomer]

Сообщение от stas_org Любое сечение или вид, Prokat568

Странно на 2010 вроде должно работать, по крайней мере проверял лично
Попробуйте влючить режим отладки и выяснить какой кусок кода дает ошибку

[stas_org]

Открыть LISP редактор, открыть PROKAT2D.LSP, вижу код...как дальше?

[gomer]

Зайдите в меню Debug и нажмите Animate
Можно еще поиграть с другими флажками

Предварительно зайдите Tools-> Environment Options->General Options...->Diagnostic и укажжите скорость анимации

затем запустите команду и следите за ходом ее выполнения

[stas_org]

Установка Update2 помогла. Спасибо за программу, очень удобно имя профиля в гиперссылке. Имхо ПРОКАТ лучше любого динамического сортамента.

[Red Nova]

Не знаю последняя ли у меня версия, но нашел баг.
При прорисовке гнутого замкнутого квадратного профиля 100х100х3 создается профиль размером 90х90х3

[gomer]

исправлено в #567, вроде

[sbi]

Red Nova Это было #631 (замени файл данных)

Сообщение от gomer исправил... свою сборку обновлю... Вложения trkv.zip (6.0 Кб, 52 просмотров)

[Sv-din]

Здравствуйте уважаемые форумчане!
Может кто-нибудь сможет изменит Procat_N458 от 16.12.2009.rar. Суть изменения:
1) Основные линии отрисовываются на нулевом слое, все свойства BYLAYER, Linetype scale=1
2) Штриховые линии отрисовываются на слое "Невидимые" , все свойства BYLAYER, Linetype scale=1
3) При вставке блока - он вставляются в текущий слой; при вставке полилинии: основные - на текущий слой; штриховые на слой "Невидимые" (свойства всех линий как в п.1 и 2
4) Програма не должна включать/отключать объектные привязки (программа никаким образом не вмешивается в объектные привязки.)

Всем спасибо

[marcis]

В ГОСТе 8240-97, "Швеллеры с уклоном внутр. граней полок" нет профилей 14аУ,20аУ,22аУ,24аУ. Как в связи с этим можно отредактировать программу "Прокат"?

[Alan]

Сообщение от Sv-din Может кто-нибудь сможет изменит Procat_N458 от 16.12.2009.rar....

Вы эти изменения хотите для всех?
Если для себя, то исправляйте на здоровье. У себя...

[lastloch]

Сообщение от marcis В ГОСТе 8240-97, "Швеллеры с уклоном внутр. граней полок" нет профилей 14аУ,20аУ,22аУ,24аУ. Как в связи с этим можно отредактировать программу "Прокат"?

Если я не нахожу профилей в программе "Прокат" Кондрата Василия, пользуюсь лиспами, которые лежат здесь:http://d-rilovo.narod.ru. В этих лиспах пользователь может не прибегая к услугам программиста ввести в базу данных любые произвольные размеры сечения профилей.

[tructor]

Ребята, а как мне ее на 2013 поставить? На этом автокаде не работает... есть ли какие обновления и где их взять?

[gomer]

что именно и как у вас не работает?

[Костямба]

Доброй ночи. У меня при установке Prokat568 выскакивает ошибка. Что не так? Подскажите.
Windows 7 64x.

[hwd]

Ты предлагаешь по этому скрину определить ошибку? Выложив содержимое указанного файла, у тебя больше шансов получить помощь.

[Alan]

Сообщение от Костямба У меня при установке Prokat568 выскакивает ошибка.

Что имеется ввиду под словом "установка"?

[Костямба]

Скорее всего неправильная последовательность действий. На рабочем компьютере я давно ее установил, и вот теперь пытаюсь проделать это на домашнем, но увы...

Я приложу файл, может действительно поможет разобраться.

Послед. действий такая:

1) Я загружаю файлы Prokatsetup
2) Затем указываю расположение файла Prokat.mnu
3) Загружаю Prokat2d.lisp , Prokat3d.lisp и ProkatNPZ.lisp
4) Указываю путь к папке Prokat568

Меню появляется, но не работают ни Prokat2d ни Prokat3d, только ProkatNPZ. Выскакивают ошибки.

[gomer]

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

[Костямба]

Вот такие ошибки.

У меня AutoCAD 2011 Detalling, windows 7, разрядность Х64

[gomer]

поищите base.dcl это стандартный автокадовский файл описаний диалоговых окон, он у вас либо отсутствует либо к нему закрыт доступ, так что проблема не в программе, а в вашем автокаде

[Костямба]

А где мне его поискать или откуда взять?

[gomer]

воспользуйтесь встроенным поиском windows, что сложного? у меня, например, здесь C:\Users\user\AppData\Roaming\Autodesk\AutoCAD 2013 — Русский\R19.0\rus\Support
Возможно переустановка акада поможет

[Костямба]

Файл base.dcl я нашел - он есть, пробовал заменить его одноименный файл с компьютера, где Prokat работает. Все равно выдает те же самые ошибки.

[VVA]

Костямба, в путях доступа в Автокаде должен быть указан путь к папке, где находится base.dcl
Строчка должна выглядеть примерно так
c:\Users\USERNAME\AppData\Roaming\Autodesk\AutoCAD 2011\R18.1\rus\Support\

[Just Dream]

Подскажите какой командой его удалить из автокада?

[pavber]

Сообщение от Just Dream Подскажите какой командой его удалить из автокада?

В меню: Сервис-Приложения
удалить из автозагрузки приложение, вызывающее "прокат"

[gomer]

Внес незначительные изменения и перезалил архив в #568 в связи с побитостью старого... может тему перенести в Готовые программы?

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

Сообщение от gomer может тему перенести в Готовые программы?

Создавай с нормальным архивом в заголовке Как только сделаешь - эту закроем

[Хмурый]

Сообщение от gomer Внес незначительные изменения и перезалил архив в #568 в связи с побитостью старого... может тему перенести в Готовые программы?

архив в #567

[gomer]

да, точно! постоянно путаю

[marcis]

Спасибо авторам за отличную программу! Пользуюсь ей и для вычерчивания профилей и в качестве справочника.
Исправил некоторые "шероховатости" в базе данных швеллеров по ГОСТ 8240-97:
1. У швеллеров с уклоном полок (У) исключил отсутствующие в ГОСТе профили - 14ау,20аУ, 22аУ, 24аУ.
2. Швеллеры легкой серии (Л) вообще не хотели вставлять в чертеж: "Ошибка функции. Дуга не может быть нулевой." Смотрю в базу - действительно во всей серии r=0,0 (радиус скругления полочки). Решил "обмануть" программу - поставил r=0.1. Помогло!
Радиус 0,1мм даже при увеличении незаметен. Зато профили серии Л стали вставляться. Также в этом файле убрал последние 5 строк. Видимо они были скопированы ошибочно.
Прилагаю файлы svlr.dat и svlrp.dat. Прошу заменить в архиве.

[gomer]

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

[DSI1]

После перехода с win ХР-32 на win 7-64 "Прокат" не показывает эскизы профилей (только серый фон). Большая просьба к соавторам данного продукта попытаться решить эту проблему.

[Alan]

Сообщение от DSI1 После перехода с win ХР-32 на win 7-64 "Прокат" не показывает эскизы профилей (только серый фон). Большая просьба к соавторам данного продукта попытаться решить эту проблему.

Какая версия (сборка) ПРОКАТ и Автокад использовались?

[DSI1]

prokat_568 от 23.05.2013, Autocad 2006.

[gomer]

Попробуйте запустить с админской учетки с полными правами
http://forum.dwg.ru/showpost.php?p=718925&postcount=606

[DSI1]

"Прокат" устанавливался с правами администратора. Но проблема решилась переустановкой папки "prokat" в корневой каталог диска "С" и ,соответственно, переустановкой "Проката" из этой папки.

[gomer]

Сообщение от DSI1 проблема решилась переустановкой папки "prokat" в корневой каталог диска "С" и ,соответственно, переустановкой "Проката" из этой папки.

а до этого куда устанавливали?

[DSI1]

Раньше была здесь: C:\Program Files (x86)\AutoCAD 2006\Prokat.

[ttimowek]

очень удобная и полезная программа но есть проблема: наши администраторы не хотят устанавливать ее на рабочем компьютере так как не уверены что она бесплатная. Где найти доказательства что это free версия?
p.s Без нее очень тяжело работать.

[G.A.W.]

Сообщение от ttimowek очень удобная и полезная программа но есть проблема: наши администраторы не хотят устанавливать ее на рабочем компьютере так как не уверены что она бесплатная. Где найти доказательства что это free версия? p.s Без нее очень тяжело работать.

Забавные у вас админы, что не могут понять платная программа или нет!

[gomer]

Сообщение от ttimowek Где найти доказательства что это free версия?

программа платная, количество и номеклатуру оплативших можно посмотреть здесь

[VVA]

Сообщение от gomer номеклатуру оплативших можно посмотреть здесь

Offtop: Номер поста #567, а имя файла prokat_568_20130523.zip
PS Prokat568.zip из первого поста наверное уже постарел?

[gomer]

Сообщение от VVA Prokat568.zip из первого поста наверное уже постарел?

Да, в первом посте не последняя версия

[TuDim]

Добрый день. Не запускается "Прокат". Пишет:
Command:
Command: (if (= PROKAT nil) ( Load (findfile "prokat.lsp"))) bad argument type: stringp nil
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
Command:

AutoCAD Architecture 2014.
На голом AutoCAD 2014 работает без проблем.
Спасибо

[Alan]

Сообщение от TuDim AutoCAD Architecture 2014. На голом AutoCAD 2014 работает без проблем.

Проверить не могу, нет АА.
Но всё дело в путях.
Читай Read-Me.txt

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

Сделай (findfile "prokat.lsp") , если nil значит Путь не описан

[TuDim]

Спасибо. Разобрался

[Eghor123]

товарищи, а каким образом создавались файлы *.dat к данной программе? ведь не в ручную же они писались...

[Alan]

Сообщение от Eghor123 ведь не в ручную же они писались...

Я думаю, что именно ими

[Lispgamer]

Добрый день!
В лицензионном AutoCAD2015 (64 бит,win7) отказывается работать старый добрый PROKAT. Загружается диалоговое окно, вводятся параметры, при попытке вставить профиль выдает ошибку (вложение) и вешает акад

[Do$]

Ок, будем знать.

[Scald]

Добрый день.
Подскажите, пожалуйста.
На 2015 автокаде прокат 2Д вылетает с сообщением "внутренняя ошибка: !insert.cpp@3320 Unknown error 1000". Прокат 3Д и NPZ работают нормально, а при вставке любого 2Д проката автокад сразу вылетает.
Заранее спасибо!

[VVA]

Scald, номер сборки укажи

[Lispgamer]

Сборка 458 от 10.02.2009

[VVA]

Сообщение от Lispgamer Сборка 458 от 10.02.2009

А теперь еще версия Windows, разрядность Автокада, наличие каких-либо установленных приложений к нему (типа СПДС) и вертикальный решений.

[Lispgamer]

AutoCAD2015, лицензия, 64 бит,win7. Кроме лиспов никаких приложений не установлено

[Scald]

Сообщение от VVA Scald, номер сборки укажи

Прокат 568 от 23052013, Win7 32 бит, Autocad 2015 рус + приложения: для работы с полилиниями Pltools и G-tools

[VVA]

Сообщение от Lispgamer Сборка 458 от 10.02.2009

Сообщение от Scald Прокат 568 от 23052013, Win7 32 бит, Autocad 2015 рус + приложения: для работы с полилиниями Pltools и G-tools

Подтверждаю. W7x64, Acad2015 рус чистый.

[Alan]

Сообщение от VVA W7x64, Acad2015 рус чистый.

Проверить не могу...
Но аж удивительно - ни одного "нецензурного" действия ПРОКАТ не делает...
Будем ждать SP1?

[VVA]

Сообщение от Alan Будем ждать SP1?

Похоже на то. Там идет fatal error, даже отладчик vlide не поможет. Можно попробовать локализовать, наставив в коде промежуточных печатей. Но на это нужно время. У меня его пока нет.

[Александр Ривилис]

Ничего не знаю про эту программу, но догадываюсь, что фаталит в команде _INSERT. Нужно смотреть параметры и контекст выполнения. Так как в интернете мне ничего не попалось с этим кодом ошибки, то расчитывать на SP1 не следует.
А вообще-то в плане (command) в AutoCAD 2015 очень много изменений. Они в первую очередь коснулись ObjectARX/.NET, но думаю что походу зацепили и Lisp.

[VVA]

Фаталит в функции clip_bl файла prokat.lsp на строчке

Код:

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

(command "_-block" edat3 cpt sset "")

Это пока все что я выяснил

[Александр Ривилис]

Володя. Если доведешь исследование до конца - сообщи. Отправлю баг в ADN DevHelp. Иначе расчитывать на исправление не приходится.

[gomer]

Да уж... Надо тестить, у меня нет такой возможности к сожалению. Например, какая реакция автокада на такую строчку (command "_-block" "test" '(0 0 0) (ssadd) "") ?

[Александр Ривилис]

Сообщение от gomer Например, какая реакция автокада на такую строчку (command "_-block" "test" '(0 0 0) (ssadd) "") ?

Естественная. Создается пустой блок с именем TEST. Ожидал что-то другое?

[ander]

а он его точно может создать? Может, имя уже занято, я в этом, конечно, не разбираюсь, но в акаде есть же то, что заменить нельзя?

[VVA]

Сообщение от ander а он его точно может создать?

Да.

Сообщение от Александр Ривилис Володя. Если доведешь исследование до конца - сообщи. Отправлю баг в ADN DevHelp

Обнаружил, что фатал выскакивает, если до включения в блок у объекта есть гиперссылка, значение переменной EXPERT=5. Пробовал задавать значение гиперссылки ручками "от балды" - прокатило.
Тогда сохранил профиль проката до включения его в блок с заданной программно гиперссылкой.
У меня баг проявляется постоянно. Нужно протестировать еще на других машинах
У меня W7x64, Acad 2015, установлен Raster Design
Файлы адаптации

Файл адаптации загружен успешно. Группа адаптации: ACAD Файл адаптации загружен успешно. Группа адаптации: CUSTOM Файл адаптации загружен успешно. Группа адаптации: MODELDOC Файл адаптации загружен успешно. Группа адаптации: CONTENTEXPLORER Файл адаптации загружен успешно. Группа адаптации: EXPRESS Файл адаптации загружен успешно. Группа адаптации: BIM360 Файл адаптации загружен успешно. Группа адаптации: APPMANAGER Файл адаптации загружен успешно. Группа адаптации: FEATUREDAPPS Файл адаптации загружен успешно. Группа адаптации: SKETCHUPIMPORTSKP Файл адаптации загружен успешно. Группа адаптации: AUTOCADRASTERDESIGN Открывается файл формата AutoCAD 2013. Выполняется регенерация модели.

Алгоритм (для Автокада версии 2015):
1. Открыть файл AC2013_HYP_BAG.dwg (формат 2013)
2. Загрузить AC2013_HYP_BAG.lsp либо скопировать в командную строку выражение

Код:

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

(setvar "EXPERT" 5)(command "_-block" "APF00500_1K1" '(0.0 0.0) (ssget) "")

3. При запросе выбрать объекты - выбрать полилинию
4. Опубликовать здесь результат

----- добавлено через ~45 мин. -----
Проверил на W8.1 x64 + Autocad 2015 30-дневная версия
Баг подтвердился

[Scald]

Сообщение от VVA Алгоритм: 1. Открыть файл AC2013_HYP_BAG.dwg (формат 2013) 2. Загрузить AC2013_HYP_BAG.lsp либо скопировать в командную строку выражение 3. При запросе выбрать объекты - выбрать полилинию 4. Опубликовать здесь результат

После проведенных действий fatal error.

[LynxM]

Сообщение от VVA Алгоритм: 1. Открыть файл AC2013_HYP_BAG.dwg (формат 2013) 2. Загрузить AC2013_HYP_BAG.lsp либо скопировать в командную строку выражение 3. При запросе выбрать объекты - выбрать полилинию 4. Опубликовать здесь результат

Получил следующий результат (полилиния пропала, после выбора):

Команда: (setvar "EXPERT" 5)(command "_-block" "APF00500_1K1" '(0.0 0.0) (ssget) "") _-block Имя блока или [?]: APF00500_1K1 Задайте базовую точку вставки или [Аннотативный]: Выберите объекты: Выберите объекты: найдено: 1 Выберите объекты: найдено: 1 Выберите объекты: Команда: nil

AutoCAD 2014 + СПДС GraphiCS 9, Windows 8.1 х64

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

LynxM, проблему пытаются локализовать для AutoCAD 2015, а не 2014.

[VVA]

LynxM,

Сообщение от VVA Алгоритм (для Автокада версии 2015):

Добавил в #711 версию Автокада и ссылку

[Александр Ривилис]

Баг подтверждаю. Отправил в ADN DevHelp. Заодно попал в какой-то совершенно непонятный баг, когда при копировании из командной строки AutoCAD получаю Fatal Error.

[VVA]

Сообщение от Александр Ривилис Баг подтверждаю. Отправил в ADN DevHelp.

Обнаружил еще, что добавление LDATA к примитивам так же приводит к фаталу в команде _-BLOCK
Выполнение ниже приведенного кода приводит к ошибке

Код:

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

(progn
  (vl-load-com)
  (setvar "EXPERT" 5)
  (command "_.LINE" '(0 0 0) '(10 10 0) "")
    ;;; adding data generates an error
    (vlax-ldata-put (vlax-ename->vla-object (entlast)) "TEST" "TEST")
    (command "._block" "TEST" '(0.0 0.0) (entlast) "")
  )

В качестве временного решения вариант файла prokat с отключенными гиперссылками и LDATA
Изменения в коде помечены ;;;VVA 20140606

[Alan]

Сообщение от Александр Ривилис когда при копировании из командной строки AutoCAD получаю Fatal Error.

Сообщение от VVA Обнаружил еще, что добавление LDATA к примитивам так же приводик к фаталу в команде _-BLOCK

Не всё в порядке в автокадском королевстве....

[Lispgamer]

Спасибо, VVA!

[Александр Ривилис]

Сообщение от VVA Обнаружил еще, что добавление LDATA к примитивам так же приводик к фаталу в команде _-BLOCK

Передал в ADN DevHelp. Так как Fatal Error с тем же кодом и по тому же адресу, то добавил к предыдущему сообщению о баге.

Сообщение от Alan Не всё в порядке в автокадском королевстве....

Точно. К сожалению (или к счастью) баг с копированием из командной строки повторить не удалось.

[gomer]

Сообщение от VVA В качестве временного решения вариант файла prokat с отключенными гиперссылками и LDATA

А в чем разница? Обычно вы маркировали изменения...

[VVA]

Сообщение от gomer Обычно вы маркировали изменения...

Обновил #717

[Александр Ривилис]

Баг подтвержден в ADN DevHelp и отдан на исправление разработчикам. В качестве "workaround" предлагают такое:

Код:

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

 (vl-load-com)
(setq acadBlocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
(setq newblk (vla-add acadBlocks (vlax-3d-point '(0 0 0)) "Autodesk"))
(vla-addline newblk (vlax-3d-point '(0 0 0)) (vlax-3d-point '(10 10 0)))
(vlax-for ent newblk (vlax-ldata-put ent "TEST" "TEST"))

Сомневаюсь, что это как-то может помочь в данном случае.

P.S.: Вышел AutoCAD 2015 SP1: http://knowledge.autodesk.com/suppor...ce-pack-1.html
Как и следовало ожидать этот баг не исправлен - слишком поздно проинформировали.

[semak]

no function definition prkt cmd start
как это исправить автокад 2014 рус?

[Alan]

Сообщение от semak как это исправить автокад 2014 рус

Да у всех он там работает...
Почитай предыдущие сообщения.
Windows версию/разрядность и номер сборки PROKAT укажи.
Да и пост ставь копию протокола.

[semak]

Win 8.1 x64 №658 #711

[Alan]

Сообщение от semak Win 8.1 x64 №658 #711

Вообще-то то в п.711 был вариант для Автокад 2015

[semak]

Даже если без файла 711, сборку 658 на 2014 автокад ставлю - добавил папку prokat в programm files\autodesk\autocad2014\support\prokat\
Добавил в сервис-приложения загрузка 2 файла: prokat2d.lsp и prokat3d.lsp...потом через команду ввожу prokat2d и появляется это - no function definition prkt cmd start
как исправить или я чего нето делаю?

[gomer]

semak, Советую Внимательно и до конца прочесть файл ReadMe.txt в папке с прокатом

[semak]

Спасибо разобрался...а на 15 будет работать? просто выше о каких то ошибках говорится, но я не совсем понимаю о чём они!!

[gomer]

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

[semak]

А 14 полностью рабочая?

[gomer]

Сообщение от semak А 14 полностью рабочая?

Это вопрос к программистам автодеск

[semak]

Что не так дома прога работает стабильно...а на работе в 2014 пропадает панель прокат?

при загрузке приложения он меня просит ввести имя файла адаптации я ввожу prokat и появляется панель,но потом вскоре пропадёт!

[gomer]

Какая версия проката? Какие еще приложения установлены в автокад?

[semak]

Запускаю любой чертеж и вручную в окошке ввожу prokat и только после этого появляется меню,а если запустить другой чертеж то автокад просит меня заново писать prokat, если нажать ecs то панель не появляется но через командную строку всё работает...я что то не подгрузил?

[Alan]

Сообщение от semak я что то не подгрузил?

Прочитай пост 735 и 729 еще раз

[semak]

как я устанавливал...извлёк папку prokat в папку Support, что в Programm Files\Autodesk...зашёл в Сервис-приложения-автозагрузка(приложения), подгрузил 3 файла prokat2d, prokat3d, prokatsetup...даже 4 и ещё prokatUtl...вышел из окна...попросили файл prokatmnu-подгрузил...всё появилось...что я не так делаю?

[gomer]

В версии 568 команда prokat переименована в prokat2D. Для корректной установки выгрузите меню прокат, перезапустите автокад, введите в кс (findfile "Prokat.mnu") нажмите Энтер. Если получили nil значит левые прокаты отсутствуют и можно начать установку. Для этого перетащите из проводника в окно автокада файл prokatsetup.lsp. Он попросит вас указать месторасположение меню. Указываете, дальше установщик все делает сам. если после перезагрузки автокада программа не работает, смотрите настройки безопасности для лиспа

[semak]

Сообщение от gomer введите в кс (findfile "Prokat.mnu")

Неизвестная команда findfile!! Или я что то не так ввожу...я скопировал то что в скобках и вставил))

[gomer]

Неизвестная команда findfile!!

скопируте вместе со скобками

[semak]

ввёл получил:
Команда: (findfile "Prokat.mnu")
"C:\\Program Files\\Autodesk\\AutoCAD 2014\\Support\\prokat\\Prokat.mnu"

как с такими крякозябрами бороться?
Autocad 2013 ENG
windows 7 32bit RUS
Procat_N586

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

1. В AutoCAD 2013 - никак. Смирись.
2. Используй любую другую версию AutoCAD (2012, 2014, 2015...)

----- добавлено через 33 сек. -----
А, не, вру! Есть еще вариант: переписать все диалоги так, чтобы там были английские символы.

[gomer]

Сообщение от Кулик Алексей aka kpblc никак. Смирись.

Проблема только на Автокад 2013 32битной версии? Автокад3013 64бит нормально кушает диалог...

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

Сообщение от gomer Проблема только на Автокад 2013 32битной версии? Автокад3013 64бит нормально кушает диалог...

Без SP?

[gomer]

Сообщение от Кулик Алексей aka kpblc Без SP?

SP1.1

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

http://forum.dwg.ru/showthread.php?t=81246

[gomer]

так там как-то замяли тему

[ander]

Сообщение от gomer SP1.1

у меня аналогично, но на Win8 64, все работает. Акад русский.

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

Сообщение от gomer так там как-то замяли тему

Насколько я помню, вышел SP, устранявший эту проблему.

[Александр Ривилис]

Сообщение от gomer Проблема только на Автокад 2013 32битной версии? Автокад3013 64бит нормально кушает диалог...

3013???
А если серьезно, то проблема, насколько я помню, была только в английской (точнее "нерусской") версии AutoCAD 2013 и от разрядности не зависела.
Если на английскую версию ставился русский Language Pack, то проблема всё-равно оставалась. Проблема отсутствовала только в обычном русском AutoCAD 2013.

[gomer]

Александр Ривилис, спасибо за историческую справку. Тогда, я умываю руки, адаптировать под английский автокад принципиально не хочу. Для меня важнее работоспособность проката в 2015 версии, пока не разобрался, так как возможности тестить в нем не имею. Сейчас жестоко перепиливаю код. Возможно к зиме выложу, но это будет уже скомпилированное приложение, для совместимости с "Крепежом".

[sbi]

gomer AutoCAD 2014ru Win7-64.
Команда:
Загрузка меню Прокат. Подождите...В разрешении на запись отказано. Не удалось создать: 'C:\program files\autodesk\autocad 2014\прокат\Prokat.cuix'
Путь к вспомогательным файлам указан. Что делать?

[VVA]

sbi, Контроль учетных записей (UAC)? Я вообще зачем размещать "прокат" в programms files? Можно в %APPDATA% или на D:

[sbi]

Спасибо! Установил прокат на диске D, но надо прописать новую "приблуду" 2014 в параметрах:
"доверенные местоположения,
Указанные папки на вкладке "Файл" диалогового окна "Параметры", из которых разрешено запускать исполняемый код." +
расположение "картиночного" base.dcl

[VVA]

Сообщение от Scald Добрый день. Подскажите, пожалуйста. На 2015 автокаде прокат 2Д вылетает с сообщением "внутренняя ошибка: !insert.cpp@3320 Unknown error 1000". Прокат 3Д и NPZ работают нормально, а при вставке любого 2Д проката автокад сразу вылетает. Заранее спасибо!

Сообщение от Александр Ривилис Баг подтверждаю. Отправил в ADN DevHelp. Заодно попал в какой-то совершенно непонятный баг, когда при копировании из командной строки AutoCAD получаю Fatal Error.

Сообщение от Александр Ривилис Баг подтвержден в ADN DevHelp и отдан на исправление разработчикам. В качестве "workaround" предлагают такое: Код: [Выделить все] (vl-load-com) (setq acadBlocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object)))) (setq newblk (vla-add acadBlocks (vlax-3d-point '(0 0 0)) "Autodesk")) (vla-addline newblk (vlax-3d-point '(0 0 0)) (vlax-3d-point '(10 10 0))) (vlax-for ent newblk (vlax-ldata-put ent "TEST" "TEST")) Сомневаюсь, что это как-то может помочь в данном случае. P.S.: Вышел AutoCAD 2015 SP1: http://knowledge.autodesk.com/suppor...ce-pack-1.html Как и следовало ожидать этот баг не исправлен - слишком поздно проинформировали.

Вышел Autodesk AutoCAD 2015 Service Pack 2 Проблему исправили? Сам проверить пока не могу, мой HDD ушел по-английски на пенсию

[Kraggash]

Сообщение от VVA Вышел Autodesk AutoCAD 2015 Service Pack 2 Проблему исправили? Сам проверить пока не могу, мой HDD ушел по-английски на пенсию

Поставил на AutoCad 2015 SP2. Баг с прокатом 2d исчез. win7 x64

[gomer]

а ты какой прокат ипользовал? может уже исправленный?

[sansha54]

Подскажите пожалуйста, что нужно сделать чтобы работал прокат 568, autocad 2015.
Загрузил как всегда через управление. Автокад его видит но выдает такую запись: ошибка:no function definition_PRKT-CMD-START
Что это такое и как это исправить?

[VVA]

sansha54, В #568 нет проката

[gomer]

Сообщение от sansha54 Подскажите пожалуйста, что нужно сделать чтобы работал прокат 568, autocad 2015.

прочитать инструкцию по установке...

[Fedorino]

Здравствуйте! Подскажите, нет ли возможности делать создаваемые блоки швеллеров, уголков аннотативными?

[Alan]

Сообщение от Fedorino нет ли возможности делать создаваемые блоки швеллеров, уголков аннотативными?

Не очень понимаю зачем это?
Но если представляешь задачу... Коды открыты, доработаешь и удостоишься размещения в шапке темы
Удачи!

[semak]

на 2015 автокаде отлично работает?

[Alan]

Сообщение от semak на 2015 автокаде отлично работает?

Работа/неработа с 2015 описывалась начиная с п.#694
Что у тебя никто не знает, читай оттуда

[VVA]

Сообщение от semak на 2015 автокаде отлично работает?

При условии, если стоит SP2

Сообщение от Kraggash Поставил на AutoCad 2015 SP2. Баг с прокатом 2d исчез. win7 x64

[marcis]

При вставке сечения профиля в масштабе (например 1:20) размеры сечения масштабируютя. Но если вставлять этот профиль при виде сбоку с длиной (например L=1000), то высота профиля рисуется правильно, а длина получается 1000х20=20000. Немного неудобно, для ввода длины в соответствующее окно приходится делать дополнительные вычисления. В старой программе Прокат (та что входила в утилиты ПАРКС) длина мастабировалась.
Вожможно это будет подправить?

[Alan]

Сообщение от marcis При вставке сечения профиля в масштабе (например 1:20) размеры сечения масштабируютя. Но если вставлять этот профиль при виде сбоку

Про какую сборку идёт разговор?

[sbi]

Alan Последняя сборка в 2014 работает.marcis, покажи ?

[marcis]

Сообщение от Alan Про какую сборку идёт разговор?

№568 от 23.05.13. Акад 2012

[Alan]

Сообщение от marcis №568 от 23.05.13. Акад 2012

Эта версия от gomer.
М.б. он появится и ответит. Нет, я вечером гляну

----- добавлено через ~4 ч. -----

Сообщение от marcis При вставке сечения профиля в масштабе (например 1:20) размеры сечения масштабируютя. Но если вставлять этот профиль при виде сбоку с длиной (например L=1000), то высота профиля рисуется правильно, а длина получается 1000х20=20000.

Да, ошибка есть.

>VVA & gomer
Необходимо исправить её в Сборке №458 (модуль prokat.lsp) и №568 (модуль Prokat2D.lsp) ЯТД

Код:

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

 ;;;--------------------------------------------------------------------------
;;; 	общее для всех профилей
;;;--------------------------------------------------------------------------
;;;	вставка блока
(defun clip_bl (name_fnc name_str / edat3 m mmark ptyp lst mask)

..................
ВМЕСТО:

(if (wcmatch edat3 mask) (command "_.-insert" edat3 "_S" m pause) ;_Сечение (command "_.-insert" edat3 "_X" 1 "_Y" m pause) ;_ Add 02.08.2007 VVA change VVA 28.09.2007 change VVA 02.12.2009 )

Сделать:

(if (wcmatch edat3 mask) (command "_.-insert" edat3 "_S" m pause) ;_Сечение (command "_.-insert" edat3 "_X" m "_Y" m pause) ;_ Add 02.08.2007 VVA change VVA 28.09.2007 change VVA 02.12.2009 )

Сообщение от marcis В старой программе Прокат (та что входила в утилиты ПАРКС) длина масштабировалась.

У меня там был немного другой способ масштабирования...

Сообщение от marcis Вожможно это будет подправить?

Думаю ты сам сможешь это сделать пока коллеги подправят на форуме.

[marcis]

Сообщение от Alan Да, ошибка есть. Необходимо исправить её в Сборке №458 (модуль prokat.lsp) и №568 (модуль Prokat2D.lsp) ЯТД Код: [Выделить все] ;;;-------------------------------------------------------------------------- ;;; общее для всех профилей ;;;-------------------------------------------------------------------------- ;;; вставка блока (defun clip_bl (name_fnc name_str / edat3 m mmark ptyp lst mask) .

..................
Не совсем понял, что выделять...А красные скобочки уже стоят на своих местах.
Поменял "1" на "m". Вроде все заработало! Может вышеуказанное действие не нужно?

Сообщение от Alan Думаю ты сам сможешь это сделать пока коллеги подправят на форуме.

Да вроде справился! Бегло проверил - работает. Спасибо!

[VVA]

Alan, Обновил #458

----- добавлено через ~2 мин. -----

Сообщение от Alan Необходимо исправить её в Сборке №458 (модуль prokat.lsp) и №568 (модуль Prokat2D.lsp)

Сборка 568 еще есть в шапке

[G.A.W.]

Приветствую!
Win7 x64, ACAD 2015 SP2, лицензия, коробочная.
Установлено на чистый win7.
При вызове диалога prokat2d и выборе профиля, диалог. окно закрывается после чего ничего не происходит, ни в ком. строке, ни в модели, тупо светится курсор перекрестия, как будто фокус теряется.
После нажатия ЛКМ или ПКМ, без разницы, появляется выбранный для вставки профиль, появляются команды точка вставки, поворот, после чего вылетает диалог для полилиний, который приходится прерывать кнопкой ESC.

Есть у кого-нибудь такое? Сборка на скринах! Там же и еще некая инфа!

[Alan]

Сообщение от G.A.W. При вызове диалога prokat2d и выборе профиля

Это Сборка 568
Ждём gomer'а

[gomer]

Сообщение от Alan Ждём gomer'а

похоже пользователь пытается вставить профиль как полилинию, из за чего программа пытается объединить замкнутую полилинию и естественно выдает ошибку
То же самое касается сборки 458

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

Код:

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

       (if (and sset
	      (= 'PICKSET (type sset))
	      (< 0 (sslength sset))
	      (getvar "PEDITACCEPT")
	      (= 1 (getvar "PEDITACCEPT"))
	  )
	(vl-cmdf "_.pedit" "_Multiple" sset "" "_Join" 0 "")
	(vl-cmdf "_.pedit" "_Multiple" sset "" "_Y" "_Join" 0 "")
      )

[Alan]

Сообщение от gomer для моей сборки необходимо закомментировать следующие строчки в файле Prokat2D

Так подправь если так и замени в шапке.
Заодно п.772 сделай

[gomer]

Сообщение от Alan Так подправь если так и замени в шапке.

шапку я править не могу.
сейчас я занялся перепиливанием логики диалогов, для 3D сделал, для 2D пока руки не дошли, так что обновлять пост пока не буду
помимо этого в коде еще обнаружена ошибка, вот здесь

Код:

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

   (command
	"_.LAYER"
		"_T"  "0" 	 ; разморозить
		"_ON" "0"	 ; включить 
		"_U"  "0"	 ; разблокировать
		"_S"  "0" ""	 ; установить
  )

временно изменил на

Код:

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

 (setq LYR0 (entget (tblobjname "LAYER" "0")))

  (entmod (subst '(70 . 0) (assoc 70 LYR0) LYR0 ))
  (setvar 'clayer "0")

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

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

Тебе какой вариант лучше - ActiveX или ename?

----- добавлено через ~10 мин. -----
Если коротко:

Код:

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

 (defun layer-ename (layer-name / ent)
  (if (not (setq ent (tblobjname "layer" layer-name)))
    (setq ent (entmakex (append '((0 . "LAYER")
                                  (100 . "AcDbSymbolTableRecord")
                                  (100 . "AcDbLayerTableRecord")
                                  )
                                (list (cons 2 layer-name))
                                '((70 . 0) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3))
                                ) ;_ end of append
                        ) ;_ end of entmakex
          ) ;_ end of setq
    ) ;_ end of if
  (entmod
    (subst '(70 . 0) (assoc 70 (entget ent)) (entget ent))
    ) ;_ end of entmod
  (if (< (cdr (assoc 62 (entget ent))) 0)
    (entmod (subst (cons 62 (abs (cdr (assoc 62 (entget ent))))) (assoc 62 (entget ent)) (entget ent)))
    ) ;_ end of if
  (setvar "clayer" layer-name)
  ent
  ) ;_ end of defun

и для ActiveX:

Код:

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

 (vl-load-com)
(defun layer-activex (layer-name / adoc ent)
  (setq ent (vla-add (vla-get-layers (setq adoc (vla-get-activedocument (vlax-get-acad-object)))) layer-name))
  (foreach prop (list (cons "freeze" :vlax-false)
                      (cons "layeron" :vlax-true)
                      (cons "lock" :vlax-false)
                      ) ;_ end of list
    (vl-catch-all-apply
      (function
        (lambda ()
          (vlax-put-property ent (car prop) (cdr prop))
          ) ;_ end of lambda
        ) ;_ end of function
      ) ;_ end of vl-catch-all-apply
    ) ;_ end of foreach
  (vl-catch-all-apply
    (function
      (lambda ()
        (vla-put-activelayer adoc ent)
        ) ;_ end of lambda
      ) ;_ end of function
    ) ;_ end of vl-catch-all-apply
  ent
  ) ;_ end of defun

[gomer]

Сообщение от Кулик Алексей aka kpblc Тебе какой вариант лучше - ActiveX или ename?

Создавать ничего не надо, слой 0 есть в чертеже по умолчанию... сейчас посмотрел в dxf ref вроде как достаточно обнулить флаг ноль...
что-то совсем не соображаю... весна, простуда...

[VVA]

>Кулик Алексей aka kpblc
В 1 посте есть ссылки и на 458 и на 568 сборку и на BriCSCad. Предлагаю вложенные архивы из 1-го поста убрать.

Сообщение от gomer То же самое касается сборки 458 для моей сборки необходимо закомментировать следующие строчки в файле Prokat2D

Сообщение от gomer шапку я править не могу.

Предложение. До момента выхода полностью "допиленного" релиза, с учетом вышесказанного можно в 568 и 458 посте сделать
соотвествующую приписку со ссылкой на пост #777

[G.A.W.]

Сообщение от gomer похоже пользователь пытается вставить профиль как полилинию, из за чего программа пытается объединить замкнутую полилинию и естественно выдает ошибку То же самое касается сборки 458 для моей сборки необходимо закомментировать следующие строчки в файле Prokat2D Код: [Выделить все] (if (and sset (= 'PICKSET (type sset)) (< 0 (sslength sset)) (getvar "PEDITACCEPT") (= 1 (getvar "PEDITACCEPT")) ) (vl-cmdf "_.pedit" "_Multiple" sset "" "_Join" 0 "") (vl-cmdf "_.pedit" "_Multiple" sset "" "_Y" "_Join" 0 "") )

Спасибо, помогло!

[gomer]

Сообщение от VVA Предложение.

насчет полностью допиленного режима это вы погорячились...

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

gomer, я тебе просто нарисовал более-менее универсальную функцию, а уж удалить там "лишнее" - вопрос 20 секунд

[Хмурый]

Что-то мой AutoCAD 2014 eng sp1 не распознает рисунки профилей проката в диалоговом окне. Просто черный прямоуголник на месте эскиза во всех трех вариантах сборок.
Скриншот пока не могу приложить

[gomer]

Сообщение от Хмурый не распознает рисунки профилей проката в диалоговом окне.

была такая проблема, обсуждалось в теме

[Ruslanu4]

Ребята помогите с такой проблемой: на 2014 автокаде программа работала без проблем, сейчас на работе поставили 2015 SP1, я ж туда добавил MProkat по той же методике, как и обычно. Нажимаю на иконку программы, выскакивает окно программы, выбираю профиль и нажимаю и тут выскакивает такое окно: ВНУТРЕННЯЯ ОШИБКА: !insert.ccp@3320: Unknown error 1000 и автокад закрывается!!! В чем может быть проблема?

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

Например, в отсутствии обновлений на ACAD

[Ruslanu4]

Кулик Алексей спасибо, попробую попросить админа обновить автокад. Также попробую дома на обновленном, может я что не так делаю.

[Red Nova]

Доброго. На 2015 при попытке вставить профиль выдает:

INTERNAL ERROR: insert.cpp@3320:Unknown error 1000

Проблема есть на AutoCAD 2015 и AutoCAD Structural Detailing 2015.
Есть мысли?

[gomer]

Сообщение от Red Nova Есть мысли?

Поставь SP2

[Red Nova]

Спасибо за совет. SP2 помог

[G.A.W.]

Поправка нужна, суть на скриншоте, выделил красным, рисует как в окне с характеристиками, т.е. 50х40х3. И вообще щас глянул, по всем позициям для швеллера 50х40 неразбериха. Да и вообще по моему во всей ветке гнутых швеллеров косяк

[sbi]

G.A.W.,или gomer ,исправьте файл данных, Справочные данные, по-моему сместились для проката 3D

[gomer]

Сообщение от sbi Справочные данные, по-моему сместились для проката 3D

Они не сместились, база изначально была набрана не корректно
Я пока не готов выложить новую версию.
Попробуйте исправленные файлы базы из архива

[sbi]

gomer Спасибо, у меня пошло!

[marat_bil]

Не могли бы ещё раз описать процесс запуска для автокад 2015?

----- добавлено через ~3 ч. -----

Сообщение от marat_bil Не могли бы ещё раз описать процесс запуска для автокад 2015?

Разобрался, внимательно прочитал инструкцию! можно удалить.

----- добавлено через ~3 ч. -----

Сообщение от marat_bil Не могли бы ещё раз описать процесс запуска для автокад 2015?

Разобрался, внимательно прочитал инструкцию! можно удалить.

[brokman]

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

[marcis]

Слой вставки можно выбирать самому.

[marcis]

Сообщение от Alan Эта версия от gomer. М.б. он появится и ответит. Нет, я вечером гляну ----- добавлено через ~4 ч. ----- Да, ошибка есть. >VVA & gomer Необходимо исправить её в Сборке №458 (модуль prokat.lsp) и №568 (модуль Prokat2D.lsp) ЯТД Код: [Выделить все] ;;;-------------------------------------------------------------------------- ;;; общее для всех профилей ;;;-------------------------------------------------------------------------- ;;; вставка блока (defun clip_bl (name_fnc name_str / edat3 m mmark ptyp lst mask) .................. ВМЕСТО: Сделать: У меня там был немного другой способ масштабирования... Думаю ты сам сможешь это сделать пока коллеги подправят на форуме.

Alan, по Вашей подсказке подправил LISP. Теперь профили с заданной длиной в масштабе модели вставляются корректно. Но вылез новый баг. Если длину профиля задавать указанием точек на экране, то прифиль вставляется с уменьшенной длиной (коэффициент уменьшения длины равен знаменателю масштаба).
P.S. На цитируемом фрагменте не все отобразилось. Это пост #772.

[Alan]

Сообщение от marcis Если длину профиля задавать указанием точек на экране, то прифиль вставляется с уменьшенной длиной (коэффициент уменьшения длины равен знаменателю масштаба).

Не смог повторить.
В прилагаемом рисунке:
1. Вставка блока заданием Длина=500мм (проставлен размер для справки), масштаб вставки 1:1
2. Вставка блока указанием предыдущего изображения, масштаб вставки 1:1
3. Еще раз то же самое - Вставка блока указанием предыдущего изображения, масштаб вставки 1:1
4. Вставка блока указанием предыдущего изображения, масштаб вставки 1:10
Тут я указываю то же самое, но фактический размер в масштабе 500х10=5000,
масштабируется только высота блока в масштаб 1:10

[marcis]

Сообщение от Alan Не смог повторить... Тут я указываю то же самое, но фактический размер в масштабе 500х10=5000, масштабируется только высота блока в масштаб 1:10

Да, так и было. На мою просьбу, чтобы и длина масштаьировалась, в посте #772 вы мне написали, как подправить файл Prokat2D,lsp.
Что я и сделал. В итоге, профили с заданием длины (L=...) масштабируются. А если длину задовать указанием по предыдущему изображению - то тогда длина уменьшается в N раз (N - знаменатель масштаба 1:N).
Все это относится к масштабам, отличных от 1:1.

[Alan]

Сообщение от marcis А если длину задовать указанием по предыдущему изображению - то тогда длина уменьшается в N раз (N - знаменатель масштаба 1:N). Все это относится к масштабам, отличных от 1:1.

Я делал всё с последнего текста VVA, взятого с шапки темы. ИМХО. Всё работает правильно/
А у тебя масштабируется длина, а высота сечения нет. Непонятка
Пришли мне на почту свой исправленный текст Prokat2d.lsp

[marcis]

Сообщение от Alan А у тебя масштабируется длина, а высота сечения нет. Непонятка Пришли мне на почту свой исправленный текст Prokat2d.lsp

Как бы это объяснить...И высота сечения и длина (заданная через L=...) масштабируются. Это первая и вторая картинки сверху. Размерный стиль настроен под 10-й масштаб. Длина стала масштабировапься только после изменений, которые вы выложили в сообщении №772 этой же темы. Там всего-то и поменял "1" на "m". Вот только после этого стала ненормально масштабироваться длина, заданная в режиме "Указать" (третья картинка).
И сборка эта №568 (не VVA). Короче говоря, та длина что не масштабировалась, стала вставляться нормально. А та .что работала корректно - наоборот (третья картинка).
Просмотрите посты #771, 772 и будут понятны суть задачи и внесенные изменения. Можно ли сделать, чтобы оба варианта длины профиля масштабировались правильно?

Сообщение от Alan Я делал всё с последнего текста VVA, взятого с шапки темы. ИМХО. Всё работает правильно/

Может у VVA все нормально, только у меня другая сборка...

[Alan]

Сообщение от marcis Ну раз при масштабе 1:10 при заданной длине 500 выдает 5000, значит уже не правильно. При любом м-бе должно вставлять с длиной 500, т.е. масштаб высоты сечения должен соответствовать м-бу длины профиля.

При заданном масштабе 1:10, указывается расстояние в 500 мм рисунка (вставленного ранее при масштабе 1:1 блока длиной 500мм), т.е. вставляется блок с длиной 5000 мм конструкции.
Всё абсолютно правильно.

[marcis]

Сообщение от Alan При заданном масштабе 1:10, указывается расстояние в 500 мм рисунка (вставленного ранее при масштабе 1:1 блока длиной 500мм), т.е. вставляется блок с длиной 5000 мм конструкции. Всё абсолютно правильно.

С этим согласен, так и у меня было до правки. Да и сборка другая. Но вы не сделали последний тест - в масштабе 1:10 вставить профиль с заданной (L=500) длиной. Ведь именно в этом была проблема. И именно это вы исправили в посте №772.
Если у VVA это исправлено, то наверное можно по аналогии исправить сборку №568?

[Alan]

Да, ошибка имеет место быть...
Но сейчас немного занят переездом, посмотрю через неделю.

[Alan]

Сообщение от Alan Да, ошибка имеет место быть...

Снимаю сообщение.
Оказывается я увидел ошибку, которую сам и исправил в сообщении №772 этой же темы.
К сожалению в шапке лежит неисправленный текст Prokat2D.lsp. - Есть в шапке исправленный! Я недосмотрел, видно при переезде мозги затупились....
...... убрал строчку..............
Procat568 - делал gomer. Попробую глянуть на досуге.
Глянул - строка с масштабами не исправлена....

[brokman]

Парни какая рабочая версия последняя, что 568 ??

[Alan]

Сообщение от brokman Парни какая рабочая версия последняя, что 568 ??

Работают вроде все.
Но в 568 от gomer есть инсталлятор.
Лично у меня стоит версия близкая к версии 458

[getr]

Вопрос к VVA...а может ещё кто сможет выявить ошибку...
В версии проката №458 при выборе в окне из раскрывающегося списка строчки "Двутавры по ГОСТ 8239-89 с уклоном внутренних граней полок"
программа закрывается(вылетает) и профиль не отрисовывается ( автокад 2014-й русский).
Автокад в комстроке пишет-
Команда: PROKAT
неверный тип аргумента: stringp nil====55
Команда:
В автокаде 2005 eng этого не происходит, профиль отрисовывается.
Как это можно подправить?

[gomer]

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

[getr]

обновить базу для твоей сборки или для 458 ? база- это файлы dat?

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

Команда:
Программа ПРОКАТ загружена. Сборка 568 от 11.01.2012
URL http://forum.dwg.ru/showpost.php?p=637272&postcount=568
Запуск - PROKAT2D/PROKAT3D/NPZ.
Команда:
Команда:
Команда: Prokat2D
Ошибка в работе программы: неверный тип аргумента: stringp nil

спотыкается именно на двутавре с уклоном полок..всё остальное рисует

[gomer]

проверь наличие файла с размерами двутавра, конечно лучший способ найти ошибку - прогнать в режиме отладки, но не все это умеют. Глянул у себя, у меня работает, правда я перепиливал код на предмет совместимости с болтами и рефакторинга

[getr]

Чертовщина какая-то...придётся видимо попа звать...принёс все файлы домой,проверил на таком же автокаде2014 rus ,правда система х64,-всё работает нормально...завтра снова на работе попробую,может сам автокад глючит...сделаю ему восстановление пожалуй.

[G.A.W.]

Привет всем. Парни, а базы можно расширять самому? Т.е. файлы *.dat? Т.е. например, хочу пополнить базу труб прямоугольных, трубы хочу добавить по ГОСТ 8645-68. Зная то, что нифига не знаю в лиспе я не смогу создать новый файл по отрисовке профилей и все это тем более скомпоновать, а просто, например, в конец файла trpu.dat дописать нужные мне профили. Или это все везде фиксировано каким то образом и пополнять нельзя?

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

Offtop: Может, попробовать динамические блоки?

[G.A.W.]

Сообщение от Кулик Алексей aka kpblc Offtop: Может, попробовать динамические блоки?

Тут скорее дело привычки. Прирос уже я к этой хреновине. Поздно уже "перепривыкать" к дин блокам

[TuDim]

Привет всем. Не запускается программа "Прокат" (Procat_N458 от 2015.02.14) Василия Кондрата (AutoCAD 2019 Eng x32).
Вот что пишет:

Command: (if (= PROKAT nil)(Load(findfile "prokat.lsp")))
; error: bad argument type: stringp nil

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

Как вылечить?

Спасибо, уже разобрался.

[vedmak]

Добрый день. А можно добавить свои сечения в базу? Очень необходимы тюбинги меньше 40х40х2 по ГОСТ 8645-68 и
ГОСТ 8639-82

[Alan]

Сообщение от vedmak А можно добавить свои сечения в базу?

Можно, но муторно... В своё время это сделал Владимир М.
См.шапку темы

[vedmak]

Сообщение от Alan Можно, но муторно... В своё время это сделал Владимир М. См.шапку темы

может у кого-нибудь уже есть в базе доп сечения

[posetitel]

Сообщение от TuDim Привет всем. Не запускается программа "Прокат" (Procat_N458 от 2015.02.14) Василия Кондрата (AutoCAD 2019 Eng x32). Вот что пишет: Command: (if (= PROKAT nil)(Load(findfile "prokat.lsp"))) ; error: bad argument type: stringp nil 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 Как вылечить? Спасибо, уже разобрался.

Такая же ошибка.
Как справились?

[Alan]

Сообщение от posetitel Такая же ошибка. Как справились?

В этой теме столько раз уже справлялись с этой задачей... Глянь выше по теме

[posetitel]

нашел совет загружать прокат из 568 сообщения и делать через prokatsetup.lsp
после загрузки этого листа, выдает сообщение "введите имя файла адаптации, который необходимо загрузить"
файла адаптации prokat.cuix в архиве нет
если ввожу prokat.mnu, то как будто ничего не вводил, запрос появляется заново
если ввожу произвольное имя, пишет "не удалось загрузить файл адаптации. файл не найден"
если пытаюсь ввести имя файла, который уже есть, пишет "не удалось загрузить файл адаптации. эта группа адаптации уже существует" такой
обсуждения такой проблемы не нашел.

[Alan]

Если ты работаешь со сборкой 458 из шапки,
читай Read-Me.txt в папке Procat и сообщение 690

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

Ну и добавьте этот путь в - Сервис-Настройка-Файлы-Доверенные местоположения
Вот проверил только что Автокад 2019 64-bit взятую из шапки сборку

Команда: (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"

[posetitel]

Alan, респект, 458 сборка заработала.
А вот 568 которую описывал в предыдущем сообщении так и не работает

[Alan]

Сообщение от posetitel А вот 568 которую описывал в предыдущем сообщении так и не работает

Думаю что поможет мой совет из предыдущего поста к сборке 458.
RTFM

[APavl]

Здравствуйте . У меня почему-то вставляется поперечное сечение по команде : "PROKAT2D" без масштаба и в слой "0" только . По команде "PROKAT3D" - все нормально .
Может кто-то сталкивался с таким ? Подскажите , пожалуйста .
Autocad 2013(eng) Win10 (64)
(Программа ПРОКАТ загружена. Сборка 568 от 11.01.2012
URL http://forum.dwg.ru/showpost.php?p=637272&postcount=568
Запуск - PROKAT2D/PROKAT3D/NPZ.)

----- добавлено через ~17 ч. -----
Добрый день.
Сборка 458 тоже не масштабирует сечение и не меняет слой (при изменении)
(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"
Autocad 2013(eng) Win10 (64)
В чем может быть причина ? Подскажите где смотреть , пожалуйста .

[Alan]

Сообщение от APavl Сборка 458 тоже не масштабирует сечение и не меняет слой (при изменении) (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" Autocad 2013(eng) Win10 (64) В чем может быть причина ? Подскажите где смотреть , пожалуйста .

Повторил проверку.
Autocad 2019(рус) Win10 (64)
Команда: (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"
Команда: PROKAT

1. Взял первый тип двутавра 10Б1, поменял слой. Вставил
2. Взял первый тип двутавра 10Б1, поменял масштаб. Вставил
3. Взял другой тип двутавра 45Б1, поменял слой. Вставил
У меня ВСЁ нормально.
Проверяй себя. Давай протокол и слайды

[APavl]

Здравствуите . Alan, я пробовал все сборки , которые обнаружил на этой ветке . Все сортаменты вставляются только блоком в масштабе 1:1 на слой только 0. Хотя в окошке позволяет изменить и масштаб и слой и вставку полилинией , но в итоге вставляет только с настройками по-умолчанию (и 458 и 568 ). Убивает больше всего , что приходится работать со схемами КМ и после вставки дополнительно перемасштабировать вручную ..... Не реагирует на изменение масштаба . При новом вызове отмеченные поля остаются , кроме выбора чертить полилинией (устанавливается в "блоком") И чертит в слое 0 и в масштабе 1:1 .

[Alan]

Сообщение от APavl Здравствуите . Alan, я пробовал все сборки , которые обнаружил на этой ветке .

Я отвечаю за сборку 458! И у меня ВСЁ работает, впрочем у большинства пользователей этой программы тоже.

Вы же загружаете сборку 306 от 28.09.2007!!! См.протокол на своём слайде

Поэтому в ПЕРВУЮ очередь проверяйте себя! Проверьте пути, куда вы помещаете свои прожки.

P.S. Делая слайды, приврепляйте только значущую часть слайда. Вид твоего рабочего пространства меня не вдохновляет

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

Offtop: Что-то начинаю думать, что надо проект выкидывать на GitHub Найти какую-то версию уже сильно затруднительно

[Alan]

Алексей, да не надо ничего никуда перемещать!
Несколько лет эти два варианта (458 и 568 из шапки) у всех работают, а отдельные случаи возникают от "кривых ручек".

[posetitel]

еще раз вернусь к теме проката и лиспов.
уважаемый Alan, в прокате 458 почему-то не строятся 3д модели, а только 2д проекция.
устанавливал по инструкции: добавил папку в "путь доступа к вспомогательным файлам", загрузил лисп прокат 3д, набрал команду prkt3d, появляется окно с выбором проката, в нем нажимаю "длина L указанием", указываю на экране длину, нажимаю ОК и в начало координат вставляется 2д полилиния контура, но не 3д тело.
уважаемый gomer, так и не смог загрузить прокат 568. распаковал архив и в програм файлс, и в папку с акадом, добавил обе папки в путь к вспомогательным, загрузил prokatsetup (по очереди из разных папок делал). Появляется сообщение "введите имя файла адаптации, который необходимо загрузить" и поле для ввода имя файла. Методом проб и ошибок понял, что работает лисп только в том случае, если в пути к файлу меню нет пробелов (т.е. нельзя, например, помещать в папку "program files")
Как победить такие проблемы: для лиспа 458 - это вычерчивание 3д проката, а для лиспа 568 поместить лисп в папку с пробелами в пути?

[Alan]

Сообщение от posetitel еще раз вернусь к теме проката и лиспов. уважаемый Alan, в прокате 458 почему-то не строятся 3д модели, а только 2д проекция. устанавливал по инструкции: добавил папку в "путь доступа к вспомогательным файлам", загрузил лисп прокат 3д, набрал команду prkt3d, появляется окно с выбором проката, в нем нажимаю "длина L указанием", указываю на экране длину, нажимаю ОК и в начало координат вставляется 2д полилиния контура, но не 3д тело.

Как всегда начинаю проверять работу: записываю пути к файлам (пути добавляю в доверенные); загружаю

Команда: _appload Prcat3d.lsp успешно загружено. Команда: URL: http://forum.dwg.ru/showthread.php?t=9322&page=23 Программа ПРОКАТ (3d) загружена. Запуск - PRKT3D. Сборка 458 от 10.02.2009 Команда: Команда: PRKT3D от точки: до точки:

Повернул изображение для наглядности.
P.S. см.пп.833-834

[posetitel]

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

[Arx1meD-A1D]

Давно пользуюсь это программой. И как-то понадобилось добавить новый сортамент... Это было то ещё удовольствие. В итоге решился всё переделать. И, вроде бы, получилось.
Это моя изменённая версия программы. Работу проверял на AutoCAD 2007, 2013, 2014, 2019, 2021. При правильной установке всё работает гладко. И, конечно, я не против того что-бы эту версию изменяли те у кого есть к этому интерес.

Что мной изменео:
- версия 16.02.2022г (автор Arx1meD)
Практически полностью переписана основная функция PROKAT (старался сохранить
наработки предыдущих соавторов).
Совмещены PROKAT2D и PROKAT3D.
Изменены все слайды (рисунки видов проката) и добавлены новые.
Перерисованы иконки для панели инструментов.
В диалоговом окне выбора проката добавлены возможность выбора маркировки
проката (для построения выноски командой NPZ).
ОЧЕНЬ упрощено добавление новых сортаментов.
Изменена структура файла сортамента.
Пересмотрены все сортаменты. Уточнены геометрические характеристики сечений.
Добавлены новые сортаменты.
Написал краткую справку.

- версия 24.11.2022г (автор Arx1meD)
Изменено назначение толщины линии и типа линии.
Исправлена маркировка профилей начерченных полилиниями.
Исправлен "Номер символа в файле шрифта AutoCAD" для файлов сортаментов:
cgn_8282.dat ugl_8509.dat uglgn_19771.dat uglgnk_19771.dat zgn_13229.dat
zrgnk_13229.dat zrgn_13229.dat zgnk_13229.dat

В файле ReadMe.txt более подробное описание.

[DMSskop]

Как предполагается работать потом с этими вставленными блоками? Вручную таблицы объёмов заполнять?

[zenon]

Сообщение от DMSskop Как предполагается работать потом с этими вставленными блоками? Вручную таблицы объёмов заполнять?

А может стоит прочитать, что именно данная прога делает?

[DMSskop]

Сообщение от zenon А может стоит прочитать, что именно данная прога делает?

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

[zenon]

Сообщение от DMSskop А может стоит рассказать, что делать с блоками профилей которая она вставляет?

Эммм.., а точно в AutoCADе работаешь?

[DMSskop]

Сообщение от zenon Эммм.., а точно в AutoCADе работаешь?

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

[Arx1meD-A1D]

Сообщение от DMSskop Если есть динамические блоки с последующим извлечением данных и заполнением таблиц спецификаций, зачем такие пустые блоки?

Прога делает просто чистые блоки, без атрибутов и т.п.
А какую информацию вы из подобных блоков извлекаете?

[DMSskop]

Масса, длина для спецификации. Блоки такие https://dwg.ru/dnl/14275 или https://dwg.ru/dnl/14602 извлечение стандартными свойствами када и заполнение объектов таблиц или через https://dwg.ru/dnl/15370 и поля.

[G.A.W.]

а кто-то пытался ее адаптировать под nanocad?

[marcis]

Сообщение от Arx1meD-A1D Давно пользуюсь это программой. И как-то понадобилось добавить новый сортамент... Это было то ещё удовольствие. В итоге решился всё переделать. И, вроде бы, получилось.

Да уж, получилось...
Да вы просто диверсант какой-то... Мало того, что ваша программа не заработала, так еще перестала запускаться исходная программа Прокат. И плюс к этому теперь не работает команда "Штриховка". Модераторам хорошо бы удалить этот пост из темы.

[Владимир М]

Всем, привет! Как здорово, что моя тема в продолжения Василия Кондрата, не так напрасна и занимает вторую строчку по популярности! Приятно, что данные усилия помогли и помогут большому количеству инженеров в различных отраслях проектирования! Я жив, здоров, но уже давно отошёл от этих дел. С 2013 года я уже не занимаюсь конструированием и проектированием! Всем творческих успехов и добра)

[posetitel]

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

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

wsautosave ?

[posetitel]

Кулик Алексей aka kpblc, спасибо, помогло.
Хотя я принудительно сохранял параметры "сохранить текущее как", полагал, что уж там то железобетонно все расположение панелей запомнится, но не запоминалось