[Владимир М]

Вот такой интерес - кто какими динамическими блоками работает для изображения видимых швов на чертежах?
Я вот такой сделал:
Кто какой предложит?
[ATTACH]1183523559.rar[/ATTACH]

[Krieger]

Не парся:
http://dwg.ru/dnl/537

[Владимир М]

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

[Krieger]

Ну вообщето у меня уже все сделано, но для личного пользования. Для масс надо кое что доделывать. У меня вот такая панель:
[ATTACH]1183533437.jpg[/ATTACH]

[Владимир М]

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

[Krieger]

Приеду с командировки - выложу.

[Krieger]

>Владимир М
Пробуй:
http://dwg.ru/dnl/2527

[Владимир М]

Спасибо, попробую на досуге...

[DEM]

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

[Krieger]

>DEM
Читай 2-ой и 7-ой посты.

[Zodchiy]

А чем вам не нравится VetCad?
На мой взгляд там неплохо реализовано построение сварных швов.

[Krieger]

Сообщение от Zodchiy А чем вам не нравится VetCad? На мой взгляд там неплохо реализовано построение сварных швов.

В VetCad??? УЖАС!!! [sm1101]
Это когда реснички получаются путем копирования отрезка? Хоть бы в блок загнал. Редактировать то это чудо после отрисовки как?

[Zodchiy]

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

Это когда реснички получаются путем копирования отрезка? Хоть бы в блок загнал. Редактировать то это чудо после отрисовки как?

[/quote]

[Владимир М]

В этом отношении мне VetCad тоже не нравиться, а вот у Krieger самый раз. Кстате я тут думая через макрос или через лисп выразить рисование сварных швов.
Если макрос то длинный получиться, но не знаю можно ли в макросе прописывать путь загрузки типа линий сварных швов с определенного места пути, цвет линни и обязательно через команду _PLINE. Или написать Лисп для этих всех дел с проверкой?

[Krieger]

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

[Krieger]

Сообщение от Владимир М Если макрос то длинный получиться, но не знаю можно ли в макросе прописывать путь загрузки типа линий сварных швов с определенного места пути, цвет линни и обязательно через команду _PLINE. Или написать Лисп для этих всех дел с проверкой?

Извини, нифига не понял.

[Diman111]

А вот по ГОСТ 5264-80 - см картинку - эту сварку кто нить автоматизировал?
[ATTACH]1184567246.gif[/ATTACH]

[Владимир М]

Макрос на подобие Примеров LISP-программок для макросов Дениса Флюстикова вот здесь http://www.autocad.ru/cgi-bin/f1/board.cgi?t=25210Bz
Дома у меня, что-то получилось вечером выложу.

[Владимир М]

Diman111, есть и такое написанное на Делфях разработчика Бабийчука Алексея с Украины по-моему. Программа называется Asymbol и где то здесь валяется в Download

[Krieger]

>Владимир М
То что у меня скрыто в лисп функциях в макрос не запихаешь.
Но можешь сделать проще. На кнопку со швом прописать макрос "^C^C_pline", и все параметры прописать в свойствах кнопки, это и слой, и тип линий. Если ты кнопку создашь с чертежа где загружены типы линий, то установив их в свойствах кнопки они прописываются в саму палетку xtp, и потом их даже подгружать не надо, автокад их сам создаст.

[Владимир М]

Во-во. Да, Krieger, как раз это сделать и хочу. А сослаться на полетку это хорошая идея. Но вот цвет линии мне нужен красный а не синий как сделано у тебя. Плохо, что у тебя компилированный Лисп – неплохо было посмотреть.
Я тут думаю, пора тему поменять, а то тут динамическими блоками не пахнет.

[Krieger]

>Владимир М
Ну ты блин даёшь. Ты реадмик читал? Там же написано:

(Kr_WeldLine "ШовЗаводскойУгловойВидимый" "PSK_Weld_09" 20 142), здесь: "ШовЗаводскойУгловойВидимый" - название слоя "PSK_Weld_09" - название типа линии из файла PSK_Line.LIN 20 - вес слоя умноженный на 100 142 - цвет слоя

142 - это цвет слоя - можешь поменять на любой другой. Хотя красный не одобряю, у нас по СТП он запрещен. Потом цвет можно применить по объекту, просто выставив цвет в свойствах палитры. Цвет слоя будет взят с параметра, а применен цвет по объекту со свойств кнопки.
Вообще отношение к цветам у нас демократичное, кому какое надо - такое и сделает (ну кроме красного). Но так-как настройки централизованные, пользователь может создать свой шаблон со своими цветами. Не одна моя прога насильно цвет не меняет. Так что если ты начинаешь работу со своего шаблона, то можешь просто прописать эти слои со своими цветами - они остануться нетронутыми.

[Владимир М]

Вот типа того - взял по примеру У Дениса Флюстикова - огромное емму спасибо
Вот макрос:
^C^C^P(defun C:weld_VVM ()(command "_.PLINE")(while(=(getvar 'CMDNAMES)"PLINE")(command pause))(if(tblsearch "Layer" "Сплошная тонкая")(entmod(subst(cons 8 "Сплошная тонкая")(assoc 8(entget(entlast)))(entget(entlast)))))(princ)); weld_VVM
Вот только одна проблема как добавить Тип линии например (tblsearch “LTYPE” “CONTINUOUS”) lkz DXF - кода (cons 6 " CONTINUOUS")
Пока пробую ... и еще если буду использовать другой тип линии, как в макросе его подгрузить? Может поможет кто в моих действиях. Буду рад любой подсказке.

[Sleekka]

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

Аналогичный вопрос к сисофту - зачем делать ARX - объект сварного шва.

[Krieger]

Владимир М

Вот типа того - взял по примеру У Дениса Флюстикова - огромное емму спасибо Вот макрос: ^C^C^P(defun C:weld_VVM ()(command "_.PLINE")(while(=(getvar 'CMDNAMES)"PLINE")(command pause))(if(tblsearch "Layer" "Сплошная тонкая")(entmod(subst(cons 8 "Сплошная тонкая")(assoc 8(entget(entlast)))(entget(entlast)))))(princ)); weld_VVM

По макросу:
- если слой будет отсутсвовать, то будет чертиться в текущем, поэтому надо бы его создать;
- если нажать esc, то слой не поменяется.

Чем тебе моя функция не нравится?
Можешь сделать такую кнопку:

Код:

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

(Kr_WeldLine "Сплошная тонкая" "continuous" aclnwt050 15)

Подгрузка линий - http://www.autocad.ru/cgi-bin/f1/board.cgi?t=22730iW
И вообще, все уже сделали до нас - http://www.autocad.ru/cgi-bin/f1/board.cgi?t=33159gI

[Владимир М]

Спасибо, Krieger. Инфы много - надо разобраться.

[Владимир М]

Krieger Чем тебе моя функция не нравится? Можешь сделать такую кнопку: Код: [Выделить все] (Kr_WeldLine "Сплошная тонкая" "continuous" aclnwt050 15)

Да кстати попробывал макрос к примеру к стыковому шву

Код:

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

^C^C(Kr_WeldLine "Сплошная тонкая" "PSK_Weld_01" aclnwt050 1)

Все работает. Хотелось бы на лиспе еще разобраться.
Кстати, _PLINE - это хорошо а если кругом захочется, хотя _PLINE тоже но, не очень хорошо (прирываем кривую)

[Krieger]

Сообщение от Владимир М Кстати, _PLINE - это хорошо а если кругом захочется, хотя _PLINE тоже но, не очень хорошо (прирываем кривую)

Если захочется кругом, то пользуем опцию "_Arc" у полилиний. Если хочется сплайном (да и любым другим entity), то рисуем этот сплайн в любом слое, выделяем и жмем мою кнопку с соответствующим типом шва - у выделеных entity слой поменяется на прописанный в параметрах функции Kr_WeldLine. На крайний случай можно вручную слой поменять, благо названия у них соответсвующие. Если надо развернуть тип линии у дуг, то меняем его по объекту на такой-же, но с литерой "R".

[Владимир М]

Все хорошо. Только вот - хотел поменть все слои сварных швов на один слой "Сварка" в файле палетки, но слои у вас Krieger все по слою. Можно ли это сделать? Работаю в Рус ACAD...

[Krieger]

Сделать то можно... А чем слои то не нравяться? По началу я сам так работал, но это было неудобно и я перешёл на слои. Свойства по объекту я назначаю в редких исключительных случаях и в блоках. А более оно не надо. Лучше переучитесь, тем более что лично вам то их дергать не надо и создаст и поменяет слой сама функция.
Переубедил?

[Владимир М]

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

[Krieger]

Да нифига не куча, от силы пользовать то будешь штуки 4-е. Да и потомом если их исключить в фильтрах, то их вообще не увидишь.

[Krieger]

Из спортивного интереса сделал свой вариант динамического блока сварного шва:
[ATTACH]1188884856.dwg[/ATTACH]

[Vasik]

вот мой блок, но он требует дороботки! может кто поможет довести до ума?!
[ATTACH]1189507948.dwg[/ATTACH]

[Krieger]

Vasik
Шо сие такое? С этим работать невозможно. Смотри пост №33.

[Владимир М]

Я с Krieger, совершенно согласен не стоит заниматься этим, уж ты мне поверь как затейнику данной темы, и согласиь у Krieger лучше и проще решение данной задачи!

[Vasik]

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

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

Vasik, ты меня, конечно, извини, но конкретной просьбы о помощи лично я не услышал. Фраза "Помогите довести до ума" слишком расплывчата.

[Vasik]

Сообщение от Кулик Алексей aka kpblc Vasik, ты меня, конечно, извини, но конкретной просьбы о помощи лично я не услышал. Фраза "Помогите довести до ума" слишком расплывчата.

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

[Krieger]

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

мне кажется у меня массив и растяжение не корректно заданы!

Мне тоже так кажется. Удали Полярный параметр, растяжение и массив и сделай заново. Причем масиив нужно делать после растяжения и не трогая горизонтальный отрезок. А в растяжении указать рамкой кончик горизонтального отрезка, выбрать его для растяжения и выбрать вертикальный при запросе "Specify objects to rotate only". И совмести начало отрезка с нулевой координатой.

[Vasik]

почти получилось! благодарю за советы!
только вот не могу разобраться с параметром и операцией поиска(Lookup)! у меня почему то не отображается таблица выбора - когда 2 раза щелкаю на операцию поиска вместо таблицы вылезает надпись в командной строке: "_.blookuptable Выберите действие поиска" и чтобы я не выбирал, ответ один: "_.blookuptable Выберите действие поиска: Выбранный объект не является операцией поиска.Выберите действие поиска". хотя параметр и операция поиска уже есть!
Из поста 40 я понял что без этого мне не добиться того чтобы ручка растяжения не прыгала при переключении между видимым и невидимым швом!

А пока выложу блок как есть:
[ATTACH]1189602339.dwg[/ATTACH]

[Krieger]

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

Я тебе их проставил в блоках (последний раз говорю - опомнись):
[ATTACH]1189660117.dwg[/ATTACH]

[Vasik]

У меня 2006 AutoCad! ты не мог бы еще раз закинуть этот файл, чтобы я его мог посмотреть и успокоится!
Заранее благодарен!

[Krieger]

Vasik
Заменил вложение в 42-м постиге.

[AMD]

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

[Krieger]

Могу только еще раз сослаться на палетку: http://dwg.ru/dnl/2527
Там вопрос с реверсом (отзеркаливанием) решен.

Сообщение от AMD В програмировании полный "0", подскажите что можно сделать для настройки изображения сварки.

Что именно?

[AMD]

Спасибо за ссылку, но можно по подробней:"Для её активации нужно создать группу и перетащить туда палетку" как это делатся?
Под настройкой изоражения сварки я имел ввиду длину и шаг ресничек

[Krieger]

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

Сообщение от AMD Под настройкой изоражения сварки я имел ввиду длину и шаг ресничек

У типа линий можно будет поменять только её масштаб, иначе делать новый тип.

[AMD]

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

[Krieger]

Сообщение от AMD Настройка изображения сварки в дин.блоке, вставил блок в чертеж в листе ОК, а в модели надо масштабировать, масштабирование через свойства превращает дин.блок в обычный, как быть?

Масштаб должен быть равным по всем осям. Т.е. если увеличиваешь в два раза, то надо двойку прописать и по x, и по y, и по z. Вообщем пропорциональным должен быть. Иначе динамические свойства работать не будут.

Сообщение от AMD Что называется группой?

Ну неужели сложно? Смотри рисунок:

[DEM]

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

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

DEM, тип линии не всегда корректно отображается на дуговых сегментах. А СПДС есть не у всех

[AMD]

Krieger
Настроил блок теперь все Ок, вся контора пищит от радости!
С группама действительно не сложно, но в 2004 ACАDе все по другому и в этом была сложность, поставил на 2006 все Ок, большое спасибо за помощь!

[Krieger]

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

[Krieger]

to AMD
В 2004-м ACADе ни динблок, ни палетка работать не будут.

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

По-моему, toolpalettes как раз в 2004 и появились... Правда, немного "кастрированные"

[AMD]

В 2004 ничего не работает, а как рисовать сварку?
В 2007 не дает прописать путь (говорит только для чтения)
и что мне теперь делать?
P.S. 2006 у меня глючный.

[Krieger]

Сообщение от AMD В 2004 ничего не работает, а как рисовать сварку?

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

Сообщение от AMD В 2007 не дает прописать путь (говорит только для чтения) и что мне теперь делать?

Кто, что и куда не дает?

[AMD]

Krieger
Сделал все по инструкции (путь прописал) пишет следующее:
(Kr_WeldLine "ШовЗаводскойУгловойВидимый" "PSK_Weld_09" aclnwt020 142) ; error: no function definition: KR_WELDLINE
что я сделал не так?

[Krieger]

Шестой пункт сделал?

[AMD]

В readme.txt их только пять

[Krieger]

AMD

6. Главное меню када -> Tools -> AutoLISP -> Load Application -> В появившемся окошке находим файл "D:\Weld\Kr_weld.VLX", выделяем его и жмем кнопку Load -> Потом там-же кнопку Contents (под портфелем) -> Add -> В появившемся окошке находим файл "D:\Weld\Kr_weld.VLX", выделяем его и жмем кнопку Add -> Close -> Close.

[AMD]

Krieger
Спасибо, все работает, но ОНИ НЕ ЗЕРКАЛЯТСЯ!!!!!!!!!!!!!
Проблема с типом линии только в том что нельзя зеркалить, как я понял, решение этой проблемы только блоки, или возможно что-то еще?

[Krieger]

А это что?

[AMD]

Krieger
А это, то что нужно!!!
Большое спасибо за помощь и терпение.

[Яшков Григорий]

В Downloads где-то была программа для работы с полилиниями. pltools называется. Там есть такая команда, как реверс объектов. Соответсвенно эта команда зеркалит тип линий.

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

http://dwg.ru/dnl/607 - вот там pltools лежат.

[Krieger]

Я зеркало с pltools и спер, о чем написал в реадмике.

[beholder]

Нашел эту старую тему дабы не создавать новой из-за банальности своего вопроса))) У меня файл - в нем начерчено всего-навсего 4 листа А2 узлов по металлоконструкциям с применением хорошо здесь известных типов линий от Krieger, объем файла - около 5 Мб!!! С чем это может быть связано? _purge выполнял, не помогло Кроме всего он бывает жутко подтормаживает при работе. Помогите разобраться, в чем тут дело... Если причина просто в большом количестве сложных линий, тогда сразу все понятно. Если надо будет, выложу файл. Сейчас просто инет висит ужасно.P.S. Работаю на нормальных машинах (Дома Pentium 4 3.06 GHz, на работе - Core 2 Duo 2.0, по 2 Гб оперативки), то есть проблема не в железе...

[Хмурый]

попробуй восстановить список масштабов

_-scalelistedit
Enter option [?/Add/Delete/Reset/Exit] <Add>: _r
Reset scale list to defaults? [Yes/No] <No>: _y
Scale list reset to default entries.
Enter option [?/Add/Delete/Reset/Exit] <Add>: _E

[beholder]

Сделал, ничего не помогло, объем файла - 4.59 Мб (как по мне, многовато будет...)

[Солидворкер]

beholder, будет проще, если ты выложишь файл

[beholder]

Извините, но проблемку нашел сам))) У меня было сохранение выставлено как для автокада 2000 версии ))) Выставил для 2004 - файл сразу стал весить около 1.4 Мб (стал легче больше чем в три раза!). В 2007-м пока не сохраняем, так как некоторые товарищи у нас работают еще в 2006-й версии. Почему-то не думал никогда, что такое может быть... Всем неравнодушным все равно спасибо.

[taddan]

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

Простите за ошибки

[vadim_evg1]

Так?

[taddan]

Сообщение от vadim_evg1 Так?

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

[vadim_evg1]

Так?

[taddan]

Сообщение от vadim_evg1 Так?

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


Еше одна головоломка для меня.
хочю себе зделать ДБ для обозночения сварки.
Покозал все расположения обозночений. Помогите зделать ДБ.