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

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

  1. paniva2010

    paniva2010 Форумчанин

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

    alz Форумчанин

     

    Вложения:

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

    paniva2010 Форумчанин

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

    ivsem Форумчанин

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

    ivsem Форумчанин

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

    Вложения:

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

    ivsem Форумчанин

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

    Hunter23071985 Форумчанин

    Всем привет!
    Помогите создать сетку для полярных координат, подобную такой.
    Вроде бы подходит 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
  10. ivsem

    ivsem Форумчанин

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

    alz Форумчанин

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

    Вложения:

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

    Hunter23071985 Форумчанин

    alz, огромное спасибо! То, что надо! :Hi:
     
  13. Hunter23071985

    Hunter23071985 Форумчанин

    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
  14. alz

    alz Форумчанин

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

    Вложения:

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

    Hunter23071985 Форумчанин

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

    alz Форумчанин

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

    Вложения:

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

    Hunter23071985 Форумчанин

    alz, в PolarGridLast всё выглядит именно так, как хотелось бы. Большое человеческое спасибо!!! ::good1:::Hi:
     
  18. Здраствуйте форумчане, очень нужен Lisp который позволял бы переместить текст или любой объект за точку вставки (синий квадрат) в центр ближайшей окружности, есть такие умельцы кто может сделать такое? И это вообще возможно?
     
  19. alz

    alz Форумчанин

    Вопрос фигня, но мне кажется уже должны быть готовые лиспы в каком-нибудь пакете типа geotools которые могут это сделать, думаю кто нить подскажет. Если вдруг не найдется, завтра-послезавтра набросаю.
     
    SalemsGhost нравится это.
  20. Вы правы, нечто похожее есть в CivilGeoTools только проблема в том что все дистрибутивы на версии до 2016 года, на моей 21 версии не работают, если не сложно помогите с этим Lisp-ом.
     
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление