Добро пожаловать!

Войдите или зарегистрируйтесь сейчас!

Войти

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

Тема в разделе "Autodesk", создана пользователем Германup, 3 фев 2014.

  1. paniva2010

    Форумчанин

    Регистрация:
    4 окт 2015
    Сообщения:
    73
    Симпатии:
    4
    Отлично. Спасибо. Вы - большой умница. Единственное, чтобы я добавил: не убирать нули после целого числа, чтобы, кто видел координаты, понимал, что - это не округленное значение.
     
    #1381
  2. alz

    alz
    Форумчанин

    Регистрация:
    26 май 2014
    Сообщения:
    371
    Симпатии:
    153
     

    Вложения:

    • test1001.rar
      Размер файла:
      5,9 КБ
      Просмотров:
      9
    #1382
    paniva2010 нравится это.
  3. paniva2010

    Форумчанин

    Регистрация:
    4 окт 2015
    Сообщения:
    73
    Симпатии:
    4
    Спасибо!!!
     
    #1383
  4. NNNZZZ

    Регистрация:
    13 мар 2019
    Сообщения:
    2
    Симпатии:
    0
    К существовующему функционалу программы хотелось бы добавить, чтоб в текстовом файле добавлялись отметки точек кромки. (Отметки по оси она проставляет) если будут отметки кромочных точек- можно будет рассчитать существующий поперечный уклон. (Для ведомости как раз надо ширину от оси до кромки и поперечный уклон)
     
    #1384
  5. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    Попробую доработать программу под ваши требования.
     
    #1385
    NNNZZZ нравится это.
  6. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    Доработал программу. Тестируй.
    test01.jpg
     

    Вложения:

    #1386
    chehoff и NNNZZZ нравится это.
  7. NNNZZZ

    Регистрация:
    13 мар 2019
    Сообщения:
    2
    Симпатии:
    0
    Огромнейшая благодарность! Программу можно добавить в золотую коллекцию!
    Как раз то, что надо- по дороге с заданным шагом производятся промеры поперечников со всеми необходимыми параметрами: отметки, ширина, уклон, расставляется пикетаж! Всё быстро и визуально информативно!
    Огромнейшее спасибо!
     
    #1387
  8. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    Предыдущая версия проги так же рассчитывает поперечный уклон в промилях и пишет их на чертеже и в файле CSV/
     
    #1388
    NNNZZZ нравится это.
  9. Hunter23071985

    Форумчанин

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

    Судя по этой теме, получается проще переписать, чем взломать... Поможете?
    С уважением.
     

    Вложения:

    • drgrid.vlx
      Размер файла:
      22,2 КБ
      Просмотров:
      3
    #1389
  10. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    NNNZZZ, маленькая подсказка по работе с прогой Poperechnik04_Anton.fas.
    Если на запрос проги "Расстояние кромки до пикетажа" набрать число со знаком минус, то пикетаж будет разбит с правой стороны. Результаты работы программы можно удалить командой Отмени (ctr +z).
     
    #1390
    NNNZZZ нравится это.
  11. alz

    alz
    Форумчанин

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

    Вложения:

    • PolarGrid.rar
      Размер файла:
      13,5 КБ
      Просмотров:
      2
    #1391
    Hunter23071985 нравится это.
  12. Hunter23071985

    Форумчанин

    Регистрация:
    30 янв 2014
    Сообщения:
    44
    Симпатии:
    3
    alz, огромное спасибо! То, что надо! :Hi:
     
    #1392
  13. Hunter23071985

    Форумчанин

    Регистрация:
    30 янв 2014
    Сообщения:
    44
    Симпатии:
    3
    alz, почему то изменение PolarGrid.dll.config никак не влияет на вид блока.
    Можно ли привести стандартный вид к виду "Сетка.dwg" (во вложении), введя радиус 40 вместо 30 и интегрировав поворот цифр сетки (использовал Geo_ALign_object_to_curve.VLX)?
    И ещё огромная просьба прокомментировать, правильно ли я понимаю параметры 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: видимость подписей

     

    Вложения:

    • Сетка.dwg
      Размер файла:
      112,3 КБ
      Просмотров:
      3
    #1393
  14. alz

    alz
    Форумчанин

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

    Вложения:

    • PolarGrid.rar
      Размер файла:
      14,1 КБ
      Просмотров:
      1
    #1394
    Последнее редактирование: 9 май 2023
    Hunter23071985 нравится это.
  15. Hunter23071985

    Форумчанин

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

    alz
    Форумчанин

    Регистрация:
    26 май 2014
    Сообщения:
    371
    Симпатии:
    153
    Для нумерации осей тоже сделал настраиваемый шаг в настройках, параметры по умолчанию поменял, но они будут такими только на новом компьютере, на вашем уже есть настройки и они такие, какие у вас уже выбраны.
     

    Вложения:

    #1396
    Hunter23071985 нравится это.
  17. Hunter23071985

    Форумчанин

    Регистрация:
    30 янв 2014
    Сообщения:
    44
    Симпатии:
    3
    alz, в PolarGridLast всё выглядит именно так, как хотелось бы. Большое человеческое спасибо!!! ::good1:::Hi:
     
    #1397
  18. SalemsGhost

    Регистрация:
    15 апр 2023
    Сообщения:
    3
    Симпатии:
    0
    Здраствуйте форумчане, очень нужен Lisp который позволял бы переместить текст или любой объект за точку вставки (синий квадрат) в центр ближайшей окружности, есть такие умельцы кто может сделать такое? И это вообще возможно?
     
    #1398
  19. alz

    alz
    Форумчанин

    Регистрация:
    26 май 2014
    Сообщения:
    371
    Симпатии:
    153
    Вопрос фигня, но мне кажется уже должны быть готовые лиспы в каком-нибудь пакете типа geotools которые могут это сделать, думаю кто нить подскажет. Если вдруг не найдется, завтра-послезавтра набросаю.
     
    #1399
    SalemsGhost нравится это.
  20. SalemsGhost

    Регистрация:
    15 апр 2023
    Сообщения:
    3
    Симпатии:
    0
    Вы правы, нечто похожее есть в CivilGeoTools только проблема в том что все дистрибутивы на версии до 2016 года, на моей 21 версии не работают, если не сложно помогите с этим Lisp-ом.
     
    #1400

Поделиться этой страницей

  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление