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

Отлично. Спасибо. Вы - большой умница. Единственное, чтобы я добавил: не убирать нули после целого числа, чтобы, кто видел координаты, понимал, что - это не округленное значение.

 

Спасибо!!!

 

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

 

Попробую доработать программу под ваши требования.

 

Доработал программу. Тестируй.

 

Огромнейшая благодарность! Программу можно добавить в золотую коллекцию!
Как раз то, что надо- по дороге с заданным шагом производятся промеры поперечников со всеми необходимыми параметрами: отметки, ширина, уклон, расставляется пикетаж! Всё быстро и визуально информативно!
Огромнейшее спасибо!

 

Предыдущая версия проги так же рассчитывает поперечный уклон в промилях и пишет их на чертеже и в файле CSV/

 

Всем привет!
Помогите создать сетку для полярных координат, подобную такой.
Вроде бы подходит drgrid.vlx (прилагаю), но есть 3 проблемы:
1) сложно редактировать (только в Visual Lisp, а хотелось бы в блокноте)
2) при запуске пишет "ошибка: Член группы не найден"
3) спрашивает много данных - вписать бы их в скрипт, ввести DRGRID и получить сетку:
Базовая точка: 0,0
Высота/радиус: 40
Слой: Сетка
Масштаб: 1
Цвет основных линий: 8 (шаг по Y 30 градусов, по Х - 10)
Цвет промежуточных линий: 9 (шаг по Y 1 градус, по Х - нет)
Тип линий: точечный (DOTTED)
Прозрачность: 0
Судя по этой теме, получается проще переписать, чем взломать... Поможете?
С уважением.

 

NNNZZZ, маленькая подсказка по работе с прогой Poperechnik04_Anton.fas.
Если на запрос проги "Расстояние кромки до пикетажа" набрать число со знаком минус, то пикетаж будет разбит с правой стороны. Результаты работы программы можно удалить командой Отмени (ctr +z).

 

Загружать через netload
PolarGridSettings - изменить параметры
PolarGrid - построить сетку используя сохраненные параметры. Сетка представляет собой блок, если блок с текущими настройками находится на чертеже то вставляет его, если нет то создает новый блок по параметрам и вставляет уже новый. Тип линий вписывается названием, нужные названия брать из файла acad.lin. Если параметр шага осей равен нулю то такие оси не рисуются.

 

alz, огромное спасибо! То, что надо!

 

alz, почему то изменение PolarGrid.dll.config никак не влияет на вид блока.
Можно ли привести стандартный вид к виду "Сетка.dwg" (во вложении), введя радиус 40 вместо 30 и интегрировав поворот цифр сетки (использовал Geo_ALign_object_to_curve.VLX)?
И ещё огромная просьба прокомментировать, правильно ли я понимаю параметры PolarGrid.dll.config, и то, что их можно переставлять внутри PolarGrid.dll.config в любом порядке.
Спасибо!

Параметры PolarGrid.dll.config (раскрыть) Параметры PolarGrid.dll.config (свернуть)

- Базовые параметры:
maxRad=40: радиус сетки
lineStyle=Continuous: тип линий сетки
- Баз. сетка:
osnLine=30: частота основных линий, град.
osnRadCircle=30: частота подписей, град.
osnColorIndex=253: цвет линий
osnTextHeight=1: высота подписей
- Доп. сетка:
prLine=1: частота дополнительных линий, град.
prRadCircle=2: частота подписей, град.
prColorIndex=254: цвет линий
prTextHeight=1: высота подписей
prText=True: видимость подписей

 

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

 

alz, благодарю!
С ходу не понял, что можно использовать команду POLARGRIDSETTINGS, - очень удобно!
Можно ли:
- вписать эти настройки по умолчанию?
- заменить слово "радиусы" на "кольца" (вроде понятнее?)?
- переместить основные оси и текст на передний план?
- сделать нумерацию в формате 000°, для промежуточных осей через 2°?
Это не обязательно, без проблем поправлю вручную. Огромнейшее Вам спасибо!

 

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

 

alz, в PolarGridLast всё выглядит именно так, как хотелось бы. Большое человеческое спасибо!!!

 

Здраствуйте форумчане, очень нужен Lisp который позволял бы переместить текст или любой объект за точку вставки (синий квадрат) в центр ближайшей окружности, есть такие умельцы кто может сделать такое? И это вообще возможно?

 

Вопрос фигня, но мне кажется уже должны быть готовые лиспы в каком-нибудь пакете типа geotools которые могут это сделать, думаю кто нить подскажет. Если вдруг не найдется, завтра-послезавтра набросаю.

 

Вы правы, нечто похожее есть в CivilGeoTools только проблема в том что все дистрибутивы на версии до 2016 года, на моей 21 версии не работают, если не сложно помогите с этим Lisp-ом.