помогите с лиспом !!!!!!!!

помогите с лиспом !!!!!!!! · 28.03.2007, 15:17

доброго времени суток, форумяне. вобщем нужно сделать сёму по АвтоЛиспу-начертить детальку, сделать штриховку и оформить интерфейс. кто может помочь обращаться 89177209080.
ps: я с волжского, поэтому звоните кто сам оттуда или на крайняк с волгограда. ждем-с. заранеее благодарен.
[ATTACH]1175231075.jpg[/ATTACH]

Кулик Алексей aka kpblc · 28.03.2007, 16:57

сёму - это кого?
Не Волгоградским не помогать?

T-Yoke · 28.03.2007, 17:19

Все Сёма, теперь и тебя сделают!

Profan · 28.03.2007, 19:02

Может, не интерфейс Сёме надо оформить, а просто фейс? Деталькой заштриховать вдоль и поперек...
Сами мы не местные.

САПР · 29.03.2007, 10:58

сёма-эт семестровая

не волгоградским м не с волжского не помогать? не знаю, но я то с волжского, а отправить на мыло задание не могу в силу независящих от меня обстоятельств. поэтому и предложил откликатьься волгоградцам или волжанам.
---
подумал и решил: добрые люди могут мне помочь следущим образом:
гайка по ГОСТ 16047-70 (если у кого есть компас-то советую посмотреть там в разделе менеджер библиотек-конструкторская библиотека-трубопроводы-по внутр. конусу-гайки-гайка ГОСТ 16047-70, там заодно и штриховочка есть). всем кто откликнется-огромное спасибо, ибо вы, я надеюсь, не хотите чтобы я вылетел из инста.
заранее благодарен всем кто поможет.

fenix · 29.03.2007, 16:51

да пофиг, вылетай

Кулик Алексей aka kpblc · 29.03.2007, 17:07

> САПР: ищи Довески от Геннадия Поспелова (здесь известен как Геннадий aka PG), у него на сайте есть. Посмотришь реализацию...

САПР · 29.03.2007, 17:16

вот пробую выложить чертеж требуемой детали. помогите пожалуйста кто может
ps: какой сайт у Геннадий aka PG. неужели у него готовые работы на автолиспе?
[ATTACH]1175174179.jpg[/ATTACH]

Геннадий aka PG · 29.03.2007, 18:05

http://cadhlp.kulichki.com/
конкретно такой детали нет, но программ много
Есть прога вычерчивающая крепежные элементы по ГОСТу
тут http://cadhlp.kulichki.com/pgmake.htm
(для скачивания http://cadhlp.kulichki.com/1-make/blts.zip
Хотя для "сёмы" это будет круто (прога отличная)

САПР · 30.03.2007, 00:20

Цитата:

Есть прога вычерчивающая крепежные элементы по ГОСТу
тут http://cadhlp.kulichki.com/pgmake.htm
(для скачивания http://cadhlp.kulichki.com/1-make/blts.zip
Хотя для "сёмы" это будет круто (прога отличная)

мда. преклоняюсь перед вашим знанием лиспа. правда для семы эт перебор

, но попробуем. если кто сможет попроще сделать, то телефон мой сотовый написан-не стесьняйтесь.
пс-огромное спасибо Геннадий aka PG

DEM · 30.03.2007, 06:22

Цитата:

Сообщение от САПР

ибо вы, я надеюсь, не хотите чтобы я вылетел из инста.

Вы знаете в армии сейчас недобор, почему бы вам не попробовать сходить туда :wink:

САПР · 30.03.2007, 09:03

Цитата:

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

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

nikolaev · 30.03.2007, 09:14

Делай так:
Рисуешь гайку в автокаде (надеюсь, умеешь?).
Дальше пишешь лисп.
Примерный код:
(C:gayka (/)
(setq p1 "\nУкажите 1-ую точку :" ;; скалываешь первую точку
p2 "\nУкажите следующую точку :" скалываешь вторую точку
и так далее
)
(Command "pline" p1 p2 .... "") ;; рисуешь заштрихованный контур,
(Command _bhatch "A" "B" "N" L) ;; синтаксис уточнишь сам
повторяешь для незаштрихованного контура,
ну и так далее.
)
Как добавить обработку переменных и ошибок - спроси у Крыса.

Кулик Алексей aka kpblc · 30.03.2007, 09:27

Я бы делал не так (раз уж помянули, сами виноваты

). Сделал бы лиспик, в который передается только наружный диаметр труб; на основании этого параметра делается блок; рисование идет внутрь блока; вставить блок. Код (если делать таким образом) получится очень длинным. И все время будет использоваться vla-методы.
Хотя... примитивы-то можно создать и через entmakex, засунуть их в список; и потом каждому элементу списка поменять 330-ю группу можно

Если сейчас меня не сильно по работе напрягут, попробую что-нибудь нарисовать

nikolaev · 30.03.2007, 11:11

>Крыс
Бьюсь об заклад, что в Вашем лиспе и преподаватель ни хрена не разберется, не то что бедный студиозус.

Кулик Алексей aka kpblc · 30.03.2007, 11:20

Там вся проблема в том, чтобы "состав" гайки отрисовать. Точнее, не проблема, а просто разработка алгоритма

---
Добавлено: никак не могу решить "попроще" задачу, все с каким-то выкрутасами

nikolaev · 30.03.2007, 11:56

>Крыс
Да не нужен ему параметрический чертеж, а всего лишь чертеж детальки (!) для "сёмы". Самый простой путь - сколоть точки готового чертежа.

Krieger · 30.03.2007, 12:13

Кто-нибудь объяснит мне, ламеру, что на картинке изображено-то? Ну ведь не гайка это? Иль это вид сбоку такой...

Кулик Алексей aka kpblc · 30.03.2007, 12:15

Гайка это, гайка.
ГОСТ 16047-70* Гайки накидные сферических ниппелей для соединений трубопроводов по внутреннему конусу.
[ATTACH]1175242546.rar[/ATTACH]

Krieger · 30.03.2007, 12:17

Самая простая прога:

Код:

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

(command "_-insert" "гайка")

CB · 30.03.2007, 14:42

А размеры у этой детальки какие-нибудь есть или
нужно строить параметрически???

САПР · 02.04.2007, 22:34

доброй всем ночи. по поводу размеров: они вводятся с клавы и потом должны ,после построения детали, быть обозначены(т.е. лисп должен начертить деталь, а потом проставить введенные размеры)
ps: пробовал через автокад-УВЫ-не получилось

, но сознаюсь, я мало еще в нем разобрался. мож как по-другому можно сделать? готов людей которые мне помогут как-то отблагодарить.я серьезно-правда очень надо сделать эту сему! :cry:
ps2: у этой гайки верхнюю часть можно сделать обычной прямоугольной вместо наклонной!
[ATTACH]1175574167.jpg[/ATTACH]

САПР · 03.04.2007, 08:26

т.е. верхушка м.б. такой:
[ATTACH]1175574389.jpg[/ATTACH]

САПР · 04.04.2007, 09:27

доброго здравия всем присутствующим. УЖАС!!!!!!!! в пятницу надо показать полдетали(т.е. верхнюю часть, которая без штриховки), а у меня так ничего и не получилось. ПОЖАЛУСТА ПОМОГИТЕ КТО МОЖЕТ. :cry: :cry: :cry:

ShaggyDoc · 04.04.2007, 09:51

Ты же САПР! Тут народ спорит, есть ли вообще САПР или нет. А ты вот он - практически готов к воинской службе. А в САПР должна быть ОДНА БОЛЬШАЯ КНОПКА!

Ладно, вот тебе программа:

Код:

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

(ru-3d-pipe-draw-any 
  (quote  ru-3d-pipe-copper-nut-cocket) 
  (list 22 1.5   46) "Начало муфты" "Направление конца" 69)

А вот результат:
[ATTACH]1175665918.jpg[/ATTACH]

Кулик Алексей aka kpblc · 04.04.2007, 10:23

Хорошая шутка

CB · 04.04.2007, 12:11

Да сделать то лисп не сложно, но:

Цитата:

поводу размеров: они вводятся с клавы

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

.

Цитата:

пробовал через автокад-УВЫ-не получилось,
мож как по-другому можно сделать

Что означает сия фраза вообще не понятно. Как это по другому - не в ACAD'е что-ли? А в чем?

Кулик Алексей aka kpblc · 04.04.2007, 17:01

Лови примерный код.
Чего НЕ сделано: не сделана нижняя часть почти полностью - я не смог допетрить, как там эта область штриховки прорисовывается. Не сделаны дуги (не хватило меня на аналитику такую, помню, что вроде как несложно точки вычисляются, но конкретику вспомнить не удалось).
По-моему, там инфы достаточно, чтобы самому сделать как минимум штриховку и отрезки, уходящие "вниз" от оси.
[ATTACH]1175691694.rar[/ATTACH]

CB · 04.04.2007, 17:41

Цитата:

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

Как в воду глядел

САПР · 04.04.2007, 21:13

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

DEM · 04.04.2007, 21:49

Кулик Алексей aka kpblc
Когда поедешь в Волжский за металлоломом

Кулик Алексей aka kpblc · 05.04.2007, 09:18

Цитата:

Сообщение от САПР

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

Рад, если поможет.
Там с кодом разобраться будет основная проблема, причем (ЯТД) не с функциями создания примитивов, а с вычислением их контрольных точек.
P.S. Если что - обращайся, попробую рассказать

nikolaev · 05.04.2007, 14:40

>Крыс
Ну зачем же по мышиным норам палить крылатыми ракетами!!!
Я уважаю Вас как теоретика, но напрасно Вы взялись за применение высокой теории на практике. Почитайте "Инженерная компьютерная графика" А.Хейфиц изд. "ДиалогМифи", для самообразования.

Кулик Алексей aka kpblc · 05.04.2007, 14:56

> nikolaev : Ну не совсем я теоретик - больше практик, которому просто надо много писать

Брал практически свои библиотечные функции, и их применял. Вот и вся моя вина. У меня вопрос: вставлять готовый кусок удобно? Работает в любых условиях? Удалять созданный блок удобно? Если да, то я считаю, что это написано более или менее нормально.
===
P.S. Наверное, надо объяснить, почему я начал делать именно так. В свое время я видел код, создававший саморезы. Написано было на vba, но качество работы кода лично меня не удовлетворяло (изменил цвет, к примеру,- и все, привет, блок создается не так, как ожидается).
Видел и код, который создавал рисунки шайб пружинных. Там вообще создавались отдельные примитивы через command. Удаление такой шайбы на достаточно насыщенном чертеже превращалось в сущее мучение.
Сам пробовал создавать блоки через командные методы, но обнаружил, что это не всегда гуд. Использование entmake-методов для создания блоков лично мне не понравилось из-за одной-единственной проблемы: добавить или удалить примитив из описания блока достаточно проблематично мне было. vla-функции дали больше гибкости и эффекта.
И вот еще. Любой другой метод потребует установки системных переменных с последующим возвратом, обработчика ошибок и тому подобное. Здешний код тоже не фонтан в некоторых случаях (например, для некоторых сочетаний заблокированных и / или замороженных слоев результат может быть неверным).
P.P.S. Пора закругляться, а то я распинаться буду доолго...

Румын · 05.04.2007, 15:21

Господа! Тут одна девушка стесняется у вас спросить/попросить, так что я готов выступить ее рупором!
Надо подчеркнуть большое кол-во однострочного текста - не будет ли кто-нибудь столь любезен, чтобы набросать маленький лиспик по вставке %%u перед выделенным текстом?

Zouss · 05.04.2007, 15:26

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

Румын · 05.04.2007, 15:36

Zouss
Могу только вот такую фотку дать

http://dwg.ru/forum/profile.php?mode=viewprofile&u=7682

Кулик Алексей aka kpblc · 05.04.2007, 15:50

Цитата:

Сообщение от Румын

Господа! Тут одна девушка стесняется у вас спросить/попросить, так что я готов выступить ее рупором!
Надо подчеркнуть большое кол-во однострочного текста - не будет ли кто-нибудь столь любезен, чтобы набросать маленький лиспик по вставке %%u перед выделенным текстом?

Код:

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

(defun c:under (/ adoc selset)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-StartUndoMark
  (if (setq selset (ssget "_:L" '((0 . "TEXT"))))
    (foreach item (mapcar 'vlax-ename->vla-object
                          (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
                          ) ;_ end of mapcar
      (vla-put-textstring
        item
        (strcat "%%u"
                (vl-string-left-trim
                  "%%U"
                  (vl-string-left-trim "%%u" (vla-get-textstring item))
                  ) ;_ end of VL-STRING-left-TRIM
                ) ;_ end of strcat
        ) ;_ end of vla-put-TextString
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

tusiko · 05.04.2007, 16:24

kpblc, спасибо вам большое.....

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

только вопрос, я вставила код в Tools->AutoLIST->Visual LISP Editor он работает только в этом файле, в других не понимает.....что делать?

Румын.
Вы меня конечно выручили - я ваш должник, но это нечестная игра.

tusiko · 05.04.2007, 16:27

сохранила, подгрузила как Румын посоветовал - все супер!
еще раз спасибо

Кулик Алексей aka kpblc · 05.04.2007, 16:28

> tusiko : Ну не обижайтесь, Румын хотел Вам помочь

По поводу сохранения: http://dwg.ru/forum/viewtopic.php?t=10474
Оффтоп: чего-то найти тему по сохранению кода на этом форуме найти не смог. А там была неплохая статья по этому делу...
P.S. добавил в FAQ. Если не будет мешаться, оставим

tusiko · 05.04.2007, 16:33

Цитата:

Сообщение от Zouss

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

а я ее не умею подгружать

Admin · 05.04.2007, 16:37

Цитата:

Сообщение от Кулик Алексей aka kpblc

Оффтоп: чего-то найти тему по сохранению кода на этом форуме найти не смог. А там была неплохая статья по этому делу...

http://dwg.ru/art/8

Кулик Алексей aka kpblc · 05.04.2007, 16:44

Понял, FAQ сейчас подправлю.

Zouss · 05.04.2007, 17:04

Алексей несомненно круче, поэтому очаровывать буду бонусами.
В прикрепленном файле 4 команды:
u1text - подчеркивает тексты по одному
utext - позволяет выбрать кучку текстов
o1text и otext соответственно надчеркивают тексты, т.е. ставят "%%о" в начале
проверок на уже наличие данных последовательностей в текстах нет
[ATTACH]1175778238.zip[/ATTACH]

28.03.2007, 15:17		#1
помогите с лиспом !!!!!!!! САПР волжский Регистрация: 20.02.2007 Сообщений: 14 доброго времени суток, форумяне. вобщем нужно сделать сёму по АвтоЛиспу-начертить детальку, сделать штриховку и оформить интерфейс. кто может помочь обращаться 89177209080. ps: я с волжского, поэтому звоните кто сам оттуда или на крайняк с волгограда. ждем-с. заранеее благодарен. [ATTACH]1175231075.jpg[/ATTACH]
Просмотров: 9825