[САПР]

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

[CB]

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

[САПР]

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

[САПР]

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

[САПР]

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

[ShaggyDoc]

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

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

Код:

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

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

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

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

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

[CB]

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

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

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

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

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

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

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

[CB]

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

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

[САПР]

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

[DEM]

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

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

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

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

[nikolaev]

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

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

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

[Румын]

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

[Zouss]

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

[Румын]

Zouss
Могу только вот такую фотку дать
http://dwg.ru/forum/profile.php?mode=viewprofile&u=7682

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

Сообщение от Румын Господа! Тут одна девушка стесняется у вас спросить/попросить, так что я готов выступить ее рупором! Надо подчеркнуть большое кол-во однострочного текста - не будет ли кто-нибудь столь любезен, чтобы набросать маленький лиспик по вставке %%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]

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

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

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

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

[tusiko]

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