[wwalll]

Добрый день.
Имею опыт програмирования на различных языках програмирования ,но сейчас надо изучить программирование под автокадом.
Предлагаю - вы ставите задачи, я решаю и бесплатно отдаю решение вам.
Ограничения -
1. по времени (уделять более 2 часов в день на решение задачи не смогу)
2. по качеству (знаний "правильной работы" в автокаде нет )
3. по постановке/сопровождению (внятная задача предпочтительней обощеной "хотелки", человеческое общение (skype + teamviewer) предпочительней "хотелок")

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

[DEM]

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

[ShaggyDoc]

сейчас надо изучить программирование под автокадом

и

у меня опыт

как-то не вяжется. Вообще-то здесь все желающие публикуют сотни "решений" и тоже бесплатно. Но если хочется порешать "по спецзаказу", вот задачка для проверки:

Напиши под заказ на Lisp функцию транспонирования двухмерного списка.

У функции должен быть один аргумент - список ("таблица") из двух одномерных списков ("Поля" и "Записи") с одинаковым количеством элементов. На выходе - "транспонированный" (или как хочшь назови) список, у которого "поля" и "записи" поменялись местами. Например:

Было:

Код:

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

Папа     Мама    Дочка
Демократ Политик Лошадка

Стало:

Код:

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

Папа Демократ
Мама Политик
Дочка Лошадка

Условие:

Использовать только штатные средства Lisp (без всяких dll и т.п.)

Подсказка:

Список в Lisp можно сформировать так:

(list (list "Папа" "Мама" "Дочка") (list "Демократ" "Политик" "Лошадка"))

Т.е. заказанная функция должна вызываться примерно так:

Код:

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

 (my_super_puper_trans (list (list "Папа" "Мама" "Дочка") (list "Демократ" "Политик" "Лошадка")))

и возвращать

Код:

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

 (("Папа" "Демократ") ("Мама" "Политик") ("Дочка" "Лошадка")) 

А потом "посмотрим, что это за Сухов" (С)

[Profan]

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

[DEM]

Сообщение от Profan Автор темы, по всей видимости, хочет бесплатно научиться программированию в среде AutoCAD.

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

[MrBrown]

wwalll, добрый день! Я восхищён. Это - поступок! Я в своё время так же тренировался в создании макросов на VBA для Excel и простых сайтов на PHP+mysql. А теперь просьба:
вот макрос (см. вложение), прекрасно работающий в пространстве модели. Он автоматически отрисовывает защитную зону электрокабелей, в роли каковых выступают полилинии. Но он не хочет правильно работать, если развернуть видовой экран на листе. Помогите, пожалуйста, устранить это небольшое неудобство. Макрос не мой, пользователя Олега(jr.), спасибо ему за него. Но, видимо, он сейчас очень занят, поэтому прошу Вас.
Спасибо.
__________________
Значки - Калуга и область.

[Дима_]

Я одобряю инициативу автора - только поясните - на чем Вы программируете под автокад, и в каком диалекте программирования есть опыт (т.к. есть варианты когда опыт программирования на одном будет скорее мешать программировать на другом) бери задачи из уже решенных, реши сам а потом сравни чей вариант лучше. ShaggyDoc как старый "корефей" подсунул тебе любимую "красоту" решаемую в 1 строку лиспа - решишь (а не найдешь) ее так-же сам - без гугла (что в общем врядли) - значит лисп это точно для тебя (если до этого его еще не знал), но аккуратней - после него может прийти разочарование во многих "мэйнстримовых" языках и возращаться к ним уже не захочется, а это может сказаться в разные стороны на кошельке - знанием еще надо уметь воспользоваться.

[Do$]

Сообщение от Profan Автор темы, по всей видимости, хочет бесплатно научиться программированию в среде AutoCAD.

Вполне нормальное желание.

Добрый день. Имею опыт програмирования на различных языках програмирования ,но сейчас надо изучить программирование под автокадом. Предлагаю - вы ставите задачи, я решаю и бесплатно отдаю решение вам. Ограничения - 1. по времени (уделять более 2 часов в день на решение задачи не смогу) 2. по качеству (знаний "правильной работы" в автокаде нет ) 3. по постановке/сопровождению (внятная задача предпочтительней обощеной "хотелки", человеческое общение (skype + teamviewer) предпочительней "хотелок") Не смотря на ограниченя, с моей точки зрения это предложение выгодно всем - у вас решения, у меня опыт.

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

[wwalll]

> DEM
Потратите пару часов объясняя что такое изолинии? если да - то не вижу препятствий к написанию функции
> ShaggyDoc

(defun transformlist (flist slist)
;;; функция строит объединение списков
;;; пример вызова (transformlist (list 'Папа 'Мама 'Дочка) (list 'Демократ 'Политик 'Лошадка))
(if (eq (length flist) (length slist))
(mapcar 'list flist slist)
(nil)))
Я так онимаю задача была понять - знаю ли что такое map/apply/reduce?

> Profan
да. именно так.

> Дима
Лисп знаю (но любимый всеже любимый диалект - sbcl (по сравнению с которым автокадовский лисп - кастрированная лягушка))
> Do$
Повехностно знаком. Именно за этим и пришел - найти людей кто согласен потратить полчаса на объяснение задачи и показаать как можно работать с автокадом, я соответсвенно делаю функцию нужную вам.

Что касается языков программирования - любой . Все равно язык ничего не оппределяет.

[DEM]

wwalll
Могу ТЗ, написать со ссылкой на алгоритмы и т.п.

[wwalll]

Сообщение от DEM Могу ТЗ, написать со ссылкой на алгоритмы и т.п.

Тогда я полностью за.

[hwd]

Сообщение от wwalll Предлагаю - вы ставите задачи, я решаю и бесплатно отдаю решение вам. Что касается языков программирования - любой . Все равно язык ничего не оппределяет.

C++. Напиши модуль нормоконтроля, проверяющий чтобы имена слоёв соответствовали регулярному выражению, указанному во внешнем конфигурационном файле формата XML. Задачка не сложная и полезная.
Если не потянешь C++, можешь выбрать C# или AutoLISP\Visual LISP, ежели хотя бы один из обозначенных языков входит в твой обширный багаж знаний.
А это:

Сообщение от wwalll Имею опыт програмирования на различных языках програмирования. ... Что касается языков программирования - любой . Все равно язык ничего не оппределяет.

говорит о том, что автор - ламер.

[DEM]

Offtop:

Сообщение от hwd говорит о том, что автор - ламер.

Вечно у тебя все овощи...

[wwalll]

Сообщение от hwd говорит о том, что автор - ламер.

Ну я нигде вроде не утверждал что я - крутой мегаспециалист. Всего лишь учусь. А у всех чайников завышеное самомнение, и именно поэтому профессионалам они кажутся ламмерами. Это потом уже с опытом работы на С/С++/С# (хотя странно что вы еще ассемблер не указали) понимаешь что императивная парадигма - основа основ. А все остальное от лукавого. Если дойду до вашего высочайшего уровня - наверное тоже смогу судить о профпригодности по постам на форуме.

А за задачу спасибо. Как раз под мой начинающий уровень.

[hwd]

Сообщение от wwalll А у всех чайников завышеное самомнение, и именно поэтому профессионалам они кажутся ламмерами.

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

Сообщение от wwalll странно что вы еще ассемблер не указали

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

[gomer]

Научу блондинку автолиспу. Дорого

[zamtmn]

wwalll
Я как твой первый пост увидел, сразу сгонял за попкорном и уселся поудобнее, в ожидании подобной "прописки на хате"))

Заказик от меня:
Преобразовать выделенные штриховки в 3дфейсы.
Без лиспа я это делаю так - присваиваю штриховкам паттерн "солид", сохраняю в dxf12, закрываю, снова открываю этот dxf, расчленяю образованные блоки. В итоге на месте штриховок остаются фейсы и отрезки.
Конечно специфично, наврятли комута кроме меня надо, но малоли...

[Do$]

wwalll, с лабораторными работами из материалов тренинга по API AutoCAD знакомы? Может лучше с них начать. Найти можно на сайте Autodesk в разделе для программистов.

[ShaggyDoc]

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

Что касается проверки "посмотрим, что за Сухов":

(defun transformlist (flist slist) ;;; функция строит объединение списков ;;; пример вызова (transformlist (list 'Папа 'Мама 'Дочка) (list 'Демократ 'Политик 'Лошадка)) (if (eq (length flist) (length slist)) (mapcar 'list flist slist) (nil))) Я так онимаю задача была понять - знаю ли что такое map/apply/reduce?

Задача была проверить автора темы. Вот он написал "ставьте задачи" - я и поставил. Но решение не соответствует "ТЗ". В задании было запрошена обработка одного списка, а функция написана для двух списков. Это не годится - если уж работа "на заказ", надо делать точно по ТЗ. В общем, еще не "Сухов", но уже "Петька".

Решается она самым изящным способом так:

(defun transformlist (lst) (apply 'mapcar (cons 'list lst)) )

Такая кажущаяся итоговая простота требует большой работы по отсеканию всего лишнего.

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

Еще раз подчеркиваю - если беремся работать "на заказ" - точно выполняем ТЗ.

[Дима_]

Сообщение от wwalll Лисп знаю (но любимый всеже любимый диалект - sbcl (по сравнению с которым автокадовский лисп - кастрированная лягушка))

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

[hexD]

Offtop:

Сообщение от ShaggyDoc Зря набросились на автора темы...

с культурой поведения на DWG вообще плохо, менталитет чтоли такой у инженерного сословия...
Ведь всего 2 секунды надо чтобы понять - никому твоя личная злоба не интересна! нечего сказать - шагай дальше!
Да, в споре рождается истина, но в КОНСТРУКТИВНОМ споре. А не в травле...

[pan]

Вот здесь и здесь куча народа просит переписать код под 64 bit

[hwd]

Сообщение от pan Вот здесь и здесь куча народа просит переписать код под 64 bit

Плагин Александра Ривилиса (GeomProps), решающий аналогичную задачу (по подсчёту длин\площадей), откомпилирован под обе платформы: x86/x64. Правда его вариант отображает результат в свойствах, а не сохраняет в таблицы.

[Zorgand]

Задача: построить рамку вокруг обведенных объектов с заданным отступом.
Запускаем лисп, нам предлагают обвести какую-то область на экране, обводим, вычисляются границы всего, что попало в рамку и с заданным отступом рисуется прямоугольник вокруг этих объектов. Отступ зависит от переменной dimscale если dmiscale - 10 отступ 25, если dimscale 20 отступ 50 (25:75, 50:125, 100:250, 200:500).
Дополнительное пожелание: установить какую-то переменную отвечающую за имя слоя в котором рисуется рамка, чтобы обычный юзер смог его менять не вникая в лисп.

[gomer]

Сообщение от Zorgand Задача: построить рамку вокруг обведенных объектов с заданным отступом.

Та, ну, это слишком просто, вас не смущает, что на эскизе хрень полная нарисована?

[Олег (jr.)]

Сообщение от hexD с культурой поведения на DWG вообще плохо, менталитет чтоли такой у инженерного сословия...

Традиция форума, батенька, привыкайте

[Zorgand]

Сообщение от gomer Та, ну, это слишком просто, вас не смущает, что на эскизе хрень полная нарисована?

Нет не смущает, нарисовано то, что просили сварщики, и таких хреней они наделали достаточно.

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

P.S. прикладываю эскиз который никого не смущает

[X-DeViL]

Сообщение от Олег (jr.) Традиция форума, батенька, привыкайте

Offtop: Ну судя по тем темам, что я почитываю иногда - традиция всех форумов скатиться к обсуждению грамматики и личных качеств.
ДВЖру сильно изменился в этом плане за 9 лет которые я тут.

[gomer]

Сообщение от Zorgand прикладываю эскиз который никого не смущает

эммм, никого? Хотя меня, действительно не смущает. Вот только задача посложнее чуток...