Программа для отрисовки зданий на топопланах. (автор Семенов

Написал программку для отрисовки зданий на топопланах. Рисует по пикетам и промерам.
В функции "Многоугольные здания" можно ипользовать пикеты и промеры (указав направление мышкой). Здание достраивается до начальной точки построения автоматически.
Поиск пикетов по именам (можно набирать номера пикетов из абриса - один диктует, другой набирает и здания рисуются очень быстро) реализован для пикетов-блоков которые я использую в своих чертежах, у Вас работать не будет.
Программы можно поместить в директорию откуда загружается файл *.dwg или указать в настройках Автокада, где искать файлы.
Для запуска нужно создать кнопку в Автокаде.

Создание кнопки в Autocad 2002 (раскрыть) Создание кнопки в Autocad 2002 (свернуть)

1.Зайти в Tools->Customize->Tulbars нажать кнопку New, набрать название тулбара (или оставить по умолчанию).
2.Зайти во вкладку Commands, выбрать в окне Categories поле User defined и из окна Commands перетащить (нажав левую кнопку мыши) поле User Defined Button на созданный Вами тулбар.В тулбаре появится пустая кнопка.
3. (Меню Customize не закрывать!) Щелкнуть правой кнопкой на пустой кнопке выбрать Properties и нижнем окне дописать после СС ( load "1_13.fas" ). В поле Name и в поле Description можно написать "подсказки" которые будут высвечиваться, как только курсор мыши коснется Вашей кнопки. Можно также что-нибудь изобразить на кнопке
нажав Edit и попав в простенький редактор изображения.
Внимание! Если Вы прервете работу программы при рисовке зданий в режимах Промеры или Многоугольное здание в чертеже останется пользовательская система координат.
Для перехода в Мировую систему нужно зайти в падающее меню Tools->Named UCS и в окне выбрать систему World, нажать кнопку Set Current и кнопку ОК.

 

Не смог протестировать :( AutoCAD2012

Если код не секретный выложи lisp пожалуйста.

 

Disney
Загрузи программу через командную строку ( load "1_13" )
или создай кнопку (или что там сейчас вместо кнопок в AutoCAD 2012)
Через "стандартный" акадовский загрузчик приложений программа не работает.
Функция "3угла" предназначена для быстрой рисовки множества "четрырехугольных" сооружений
по "трем" пикетам. Начинать отрисовку лучше с длинной стороны здания. Появляющаяся "вспомогательная" пунктирная линия реально в чертеже не рисуется и исчезает при регенерации чертежа.

 

А должна...
Но даже при загрузке через Load, после работы программы всё равно в ком строке остаётся сообщение об ошибки

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

Да, в последние годы Autodesk отказался от кнопок, а вместо них использует телепатические приёмники

 

Код:

(command "_-osnap" "_end")
(setq xy1 (getpoint "\n(Включена пpивязка - конечная) Укажите точку  "))

Попробуй через акадовский загрузчик выполнить отот код.
(Добавление)

В англоязычных автокадах таких сообщений нет. Проверено в Acad2002 и Acad2008.

 

ругается, но ,тем не менее, всё работает, а вот так даже и ругаться не будет

Код:

(setvar "OSMODE" 1)
(setq xy1 (getpoint "\n(Включена привязка - конечная) Укажите точку  "))

Очень веселый момент: -"Там так всё удобно и автоматизированно, но у вас работать не будет" ::smile5::
Блок выложи, если он не секретный, а лучше в архив с программой засунь, тогда и у нас будет возможность попробовать "рисовать очень быстро"

Очень мало вероятно, что тут каким-то боком виновата локализация.

Если тебе интересна конструктивный критика, выложи код.

 

При выполнении в LISP программе функции "command", автокад пытается выполнить предыдущую пользовательскую команду. В данном случае повторно загрузить лиспприложение. Это проявляется только при загрузке приложений через акадовский загрузчик. При запуске
программы, через (load ...) все нормально.
Эта "ошибка" появилась начиная с AutoCAD2000 и благополучно дожила до AutoCAD2012.
В AutoCAD 14 такой "фигни" не было.

 

Желающим попробовать отрисовку сооружений вводом номеров пикетов с клавиатуры
прилагаю файл dwg в версии acad2000. Номера пикетов 1 дом - 1,2,3 и тд
Внимательно следите за подсказками.

 

Оффтоп

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

 

Описываю самый простой способ попробовать программу.
1. Создайте папку на диске компьютера.
2. Поместите в папку файлы 1_13.fas, PoiskPoint.fas и файл ivsem_ac2002.dwg
3. Двойным щелчком левой кнопки мыши по файлу ivsem_ac2002.dwg запустите автокад.
4. В командной строке автокада наберите (load"1_13") , запустится программа и далее
следуйте подсказкам.
Как создать кнопку в автокад 2002 и повесить на нее запуск программы, я написал в предыдущем сообщении.
У Disney выложен целый фильм о запуске программ в последних версиях Автокада.

 

Подправил программу черчения зданий на топоплане для работы в руссифицированном автокаде. Тестировал в автокаде 2012 рус.Там по правой кнопке мыши вызывается меню с последним вводом пользователя. Таким образом можно быстро перезапускать программу.
Команда программы "<0>-веранда" отрисовывает незамкнутый прямоугольник со здвигом в указанном пользователем направлении на указанное расстояние.

 

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

 

Добавил в программу такую возможность. Направление стены указывается мышью.

 

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