Помогу бесплатно разработать любую программу на autolisp.

Добрый день
Нужен лисп, который будет ставить точки (окружность, диаметр 0,4) в вершинах полилинии, подпишет вершины (однострочный текст, высота 1) 1А, 2А и т.д., поставит длины сторон (тоже однострочный текст) возле середины стороны. Рисунок прилагается.
Был бы благодарен, если скинете lsp файл, чтобы я мог сам покрутить/изменить его, если понадобится

 

Попробуйте.

 

Поставлена задача конвектировать shp (ArcView GIS 3.3) в dwg. Каждая линия имеет семантику ( ID, тип линии, параметры ( диаметр, глубина и т.д.).
В итоге получаю полилинию с текстом соответствующего параметра привязанного к этой полилинии. Помогите пож. автоматом выбрать полилинии, если они содержат точку с соответствующим текстом и выровнить по ним сам текст. В наличии nanoCAD Plus 11, разрешено иногда пользоваться AutoCAD Electrical 2008 :) и собственно сам ArcView GIS 3.3.

 

аннотации в Map 3D делают это автоматически

 

Да конечно, но я деньги на нанокад то выпросил с большим трудом (, и как то под сомнением, что mapcad может по условию идентичных аннотаций выделять объекты, хотя...., но трудиться после работы дома вечерами, как то не хочется....)

 

Спасибо за файл
Допилил под свои нужды
Программа ставит размеры и нумерует вершины
Работает корректно с замкнутыми полилиниями, вершины по часовой стрелке

 

Для "Спасибо" есть кнопка "Мне нравится"

 

Здравствуйте гуру Автокада!
Помогите разработать лисп, позволяющий автоматизировать следующие действия:
Есть некий файл автокада с чертежами. в нем есть некий контур в виде прямоугольника, например, размерами 20*20единиц(контур 1), в пределах этого контура имеются несколько маленьких контуров, например размерами 5*5 единиц (контур 2). Причем эти контура находятся на непечатаемом слое.
Я настраиваю виртуальный принтер с размерами листа, например, 20*20 единиц, в качестве рамки для печати выбираю контур 1 с масштабом, например 1*0.1; 1 полилинию из контура 2 перевожу на печатаемый слой, отправляю на печать, сохраняю файл с чертежом, полилинию 1 перевожу на непечатаемый слой, 2 полилинию из контура 2 перевожу на печатаемый слой и аналогично сохраняю файл. Таким образом перебираются все контура 2, после чего перехожу на следующий контур 1.
Подробности могу разъяснить в личке/удаленное подключение/ватсапп/скайп.
Готов рассмотреть вопрос соответствующего вознаграждения.

 

Добрый вечер, помогите пожалуйста, есть вот что:
Точки и рядом текст (наименование)
Необходимо получить наименование, а строго под ним высоту точки без плюса выноской.
Точек 1500...

--- Сообщения объединены, 10 дек 2019, Оригинальное время сообщения: 10 дек 2019 ---

С этим понятно, разобрался. Как теперь превратить наборы точка+текст в блоки? Т.е. чтобы каждая пара точка-текст была как единичный блок

 

Пробуй. Запуск программы, набрать число 11 и нажать Enter.

Вам нужно заменить точку и текст МД1 359 на блок из точки с атрибутом МД1 359 ?

 

А для nanoCAD 5.1 они подходят?

 

Здравствуйте!
А возможно ли сделать так:

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

Спасибо!

 

С 3Д гранями можно

 

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

 

Можно провернуть и для большого количества 3d граней (быстро)...
Посмотрите видео, вам нужна такая функция?

 

Приятное дополнение. Стандартные средства civil показывают с задержкой. Где можно скачать такую надстройку?

 

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

 

Что-то типа этого, но только и при вращении вида,
без переключения на ПСК.
*У вас это если на .NET то через PointMonitor реализовано.

 

barabashkasathalex, когда планируете выпуск программы? Она будет бесплатная или платная? (Если платная, то какая ориентировочная цена?)

 

Это на Lisp.
Для вращения (3d виды) эта функция не годится. Только вид сверху.