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

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

  1. ivsem

    ivsem Форумчанин

    Я разве говорил, что дело в чертеже. Чертеж, плюс возможно еще какие то исходные данные, нужны для построчного тестирования работы найденного на просторах интернета лиспа.
     
  2. 1958

    1958 Форумчанин

    Наша сборка на сторону исключительно из файлов *.fas. Вы умеете их корректировать? ::huh.gif:: Научите.
     
  3. 1958

    1958 Форумчанин

    Для того, чтобы понять, что у нас в нашей сборке, прикладываю файл справки. Правда там не включены и не описаны разделы "Трасса и профиль" и "Конвертирование GeoniCS". И что-то еще изменено и дополнено, но основное описано.
     

    Вложения:

  4. 1958

    1958 Форумчанин

    Хотел загрузить мою панель, но 10.2 мб оказывается слишком много. Поэтому загрузил на Яндекс.Диск:
    https://yadi.sk/d/A48dF6HpiHhZcw

    Демонстрационная версия на 3 дня. ::rolleyes24.gif::

    Порядок установки:

    Инсталляция пакета TopoSurvey

    Пакет TopoSurvey поставляется неупакованным.
    Инсталляция пакета производится вручную, установочной программы нет,
    однако установка довольно проста. Далее описывается порядок установки.

    ----------------------------------------------------------------------------

    1. Поместите папку "ACAD-надстройки" в C:\ACAD-надстройки.
    2. Запустите AutoCAD. В основном меню выбрать пункты Tools > Options
    (в русской версии Сервис> Настройка). Затем в закладке Files выбрать группу
    Support File Search Path (Файлы Поддержки), щелкнуть кнопку Add (Добавить)
    и записать в появившееся новое место путь к папкам:
    C:\ACAD-надстройки
    C:\ACAD-надстройки\Survey
    C:\ACAD-надстройки\Survey\000
    C:\ACAD-надстройки\Survey\Block
    C:\ACAD-надстройки\Survey\Image
    C:\ACAD-надстройки\Survey\Patern_topo
    C:\ACAD-надстройки\Survey\TS_lisp
    Это так называемая прописка программы.
    3. Для прописки файла шаблона в основном меню выбрать пункты Tools > Options
    (в русской версии Сервис> Настройка), или просто набрать в командной
    строке команду _options. Затем в закладке Files выбрать группу
    Параметры шаблонов> Шаблон по умолчанию для команды БСОЗДАТЬ.
    В эту строку нужно поместить ссылку на файл C:\ACAD-надстройки\Survey\3DService.dwt.
    4. В основном меню выбрать пункты Tools > Customize > Interface (в русской
    версии Сервис > Адаптация > Интерфейс), на закладке Адаптация найти
    пункт Частичные файлы НПИ, навести на него мышь и нажать правую кнопку
    мыши. В появившемся контекстном меню выбрать пункт Загрузить файл
    частичной настройки..., затем в диалоговом окне найти и выбрать файл TopoSurvey.cui.
    После этого он появится в списке файлов Частичных файлов НПИ.
    Теперь в нижней части окна нажать кнопку Применить и закрыть окно
    Настройки интерфейса пользователя. После этого в AutoCAD появится панель TopoSurvey.

    На всякий случай перегрузите AutoCAD.

    Теперь можно приступать к работе, инсталляция завершена.​
     
    Мимокрокодил нравится это.
  5. X-Y-H

    X-Y-H Администратор Команда форума

    1958, в ресурсах ограничение другое
     
  6. 1958

    1958 Форумчанин

    Пробовал, одна петрушка. ::mad24.gif::
     
  7. X-Y-H

    X-Y-H Администратор Команда форума

    хм....
     
  8. Палыч

    Палыч Форумчанин

    В связи с ограниченностью времени на изучение успеваю прочитать только Справку. ::biggrin24.gif:: Понравилось. Не так , чтоб WAU! но все равно хорошо. Есть вопрос для консультации, но это в личку, если позволите?
     
  9. 1958

    1958 Форумчанин

    Почему бы и нет?
    --- Сообщения объединены, 26 окт 2018, Оригинальное время сообщения: 26 окт 2018 ---
    В принципе мы делали всё исходя из понятия "под дурака". Так что, читать не обязательно, просто используйте гениальный способ обучения "методом тыка". ::apstenu::
     
    Мимокрокодил нравится это.
  10. 1958

    1958 Форумчанин

  11. Палыч

    Палыч Форумчанин

    1958, Приветствую! Если есть такая возможность в програмке (которая pt_lay.fas) приблизить отметку к точке на максимально возможное ( в пределах разумного) расстояние ,но не садить на точку.
     
  12. 1958

    1958 Форумчанин

    Предел разумного? 1мм, 0,5мм, 0,1мм, 0,05мм? Или предоставить выбор пользователю?
     
  13. Палыч

    Палыч Форумчанин

    Пусть будет так.
     
  14. 1958

    1958 Форумчанин

    Пожалуйста.
     

    Вложения:

    • pt_lay.fas
      Размер файла:
      1,1 КБ
      Просмотров:
      5
    • точка_1мм.jpg
      точка_1мм.jpg
      Размер файла:
      22,2 КБ
      Просмотров:
      19
    AdrasMan и Палыч нравится это.
  15. Sergey B.

    Sergey B. Форумчанин

    Здравствуйте. Может кто сделать или есть уже готовое решение, нужно добавить в стандартную команду Смещение (она же Подобие) возможность её использования не только на каждом объекте отдельно, но и применять сразу ко всем выделенным объектам? Желательно, чтобы объекты смещения создавались на отдельном слое.
     
  16. 1958

    1958 Форумчанин

    Посмотри, может устроит:
    http://www.lee-mac.com/dynamicoffset.html
     
  17. 1958

    1958 Форумчанин

    Без отдельного слоя - ss_off.lsp
    --- Сообщения объединены, 30 окт 2018, Оригинальное время сообщения: 30 окт 2018 ---
    С созданием "отдельного" слоя для копий объектов смещения - ss_off_lay.lsp

    Хотелось бы знать, зачем это надо?
     

    Вложения:

    • ss_off.LSP
      Размер файла:
      591 байт
      Просмотров:
      1
    • ss_off_lay.LSP
      Размер файла:
      934 байт
      Просмотров:
      6
    chehoff, Sergey B. и Qvinto нравится это.
  18. Sergey B.

    Sergey B. Форумчанин

    Нужно для создания разбивочного листа на монолитных работах. От фундаментов рисую подобием смещение на 20 - 30 см наружу, затем по вершинам полилиний создаю точки, а их координаты использую для выноса в натуру.
    Ваш лисп у меня не работает. После указания размера смещения ничего не проиходит. В командной строке появляется следующее:
    Команда:
    Команда: SS_OFF_LAY
    Имя слоя?123
    Выберите объекты: найдено: 1
    Выберите объекты:
    Размер и направление смещения?2
    ((-1 . <Имя объекта: b6276394a0>) (0 . "LWPOLYLINE") (330 . <Имя объекта: b627e4e1f0>) (5 . "31252") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "123") (62 . 5) (370 . 40) (100 . "AcDbPolyline") (90 . 4) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 14.64 1.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.67 1.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.67 1.26) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.64 1.26) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210 0.0 0.0 1.0))
    Аналогично с вторым лиспом:
    Команда: SS_OFF
    Выберите объекты: Противоположный угол: найдено: 3
    Выберите объекты:
    Размер и направление смещения?2
    #<%catch-all-apply-error%>
    Добавил файл с конструктивом в 2007 версии автокада
     

    Вложения:

  19. 1958

    1958 Форумчанин

    Курсором надо указать две точки. Я так понял, что вы забиваете расстояние на клавиатуре.
    В вашем чертеже включены привязки, это вносит путаницу при выполнении лиспа. Поэтому я добавил в лисп отключение/восстановление привязки. Но всё равно, что-то не так с объектами синего цвета. Я не разобрался.
     

    Вложения:

    • ss_off_lay.LSP
      Размер файла:
      1,2 КБ
      Просмотров:
      1
    Последнее редактирование: 30 окт 2018
  20. Sergey B.

    Sergey B. Форумчанин

    Да, всё верно, на клавиатуре. Попробовал не с клавиатуры, результат аналогичный
    Команда: SS_OFF_LAY
    Имя слоя?123
    Выберите объекты: найдено: 1
    Выберите объекты:
    Размер и направление смещения? Вторая точка: ((-1 . <Имя объекта: b53b1c64a0>) (0 . "LWPOLYLINE") (330 . <Имя объекта: b53b9789f0>) (5 . "31252") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "123") (62 . 5) (370 . 40) (100 . "AcDbPolyline") (90 . 4) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 14.64 1.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.67 1.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.67 1.26) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.64 1.26) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210 0.0 0.0 1.0))
    --- Сообщения объединены, 30 окт 2018, Оригинальное время сообщения: 30 окт 2018 ---
    Странно. В новом чертеже всё получилось. Спасибо
     
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление