Майки от BearDyugin shop ;)

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

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

Войти
  1. Доброго времени суток всем. Отключена личная переписка для только что зарегистрированных, в связи с массовой регистрацией СПАМ-ботов и рассылками. Форумчане, настоятельно просим, не переходите по ссылкам в личных переписках от женщин с «низкой социальной ответственностью», в т.ч. «перечисляющих» Вам деньги.
    Скрыть объявление

Лиспы для AutoCad

Тема в разделе "Autodesk", создана пользователем arapovs, 26 июл 2008.

  1. arapovs

    arapovs Только чтение

    Ищу способ автоматической построения участков по 3 точкам. Помогите советом как это сделать!
     
    #1
  2. BearDyugin

    BearDyugin Модератор
    Форумчанин Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.189
    Симпатии:
    1.425
    Адрес:
    Сибирь
    CADuser.ru
    Найдёшь ответы на все вопросы связанные и с AutoCAD-ом и с Lisp-ом, так же множество готовых лиспов.
     
    #2
  3. #NICK#

    Форумчанин

    Регистрация:
    23 июл 2008
    Сообщения:
    177
    Симпатии:
    19
    Адрес:
    Астрахань
    Незнаю в тему будет или нет.у меня вот такой вопрос: как использовать(поставить) файлы на autocad типа ***.lsp (файл AutoLISP-приложения)?.У МЕНЯ AutoCAD 2008(RUS) ВЕРСИЯ B.51.0 (UNICODE).
     
    #3
  4. ТехТоп

    ТехТоп Алексей
    Форумчанин Форумчанин

    Регистрация:
    14 июл 2007
    Сообщения:
    7.131
    Симпатии:
    2.394
    Адрес:
    Город 54, Сибирь
    Колян. Тут где-то Disney, выкладывал несколько лиспов, и там заодно была инструкция по их установке и применению.
     
    #4
  5. Pavel-751

    Регистрация:
    8 июл 2009
    Сообщения:
    8
    Симпатии:
    0
    Адрес:
    Екатеринбург
    очень нравится работать с лиспами. но нахожу их "по случаю". на CADuser.ru не сумел найти (подскажите где). будьте так любезны ссылочки где можно разжиться лиспами. Хочу Tool Pac освоить нет ли русифицированного?
     
    #5
  6. Qvinto

    Qvinto Цивильный модератор
    Команда форума Форумчанин

    Регистрация:
    10 дек 2008
    Сообщения:
    4.050
    Симпатии:
    2.672
    Адрес:
    Украина, г.Калуш
    Во-первых, необходимо знать: какие задачи стоят перед Вами, что бы давать ссылки на лиспы.
    На Кадюзере выложено много лиспов, например в ветках: LISP или Готовые программы.
    А ещё больше в сообщениях разных тем. Оттуда и я беру, и составляю свою библиотеку.
    http://www.caduser.ru/forum/index.php?PAGE_NAME=list&FID=44
    http://www.caduser.ru/forum/index.php?PAGE_NAME=list&FID=23
    А ещё лучше самому освоить язык программирования Lisp. Тогда не надо будет ничего искать. Сами всё напишете.
    По поводу ToolPac. Перевода на русский справки я не видел. Пытался сам когда-то сделать, но забросил эту затею. По тому, как всё стало понятно. Хотя английского совсем не знаю. команды в Тулпаке говорят сами за себя.
    Если хотите освоить, то попробуйте зайти в справку тулпака, и там простым переводчиком переведите текст с английского, одной команды. Половина выражений будет переводится бессмыслицей, но надеюсь что суть команды уловите.
    Вот Вам ещё перевод команд ToolPac на русский язык.
    Руссификатор TOOLPAK 5
    ::cool24.gif::
     
    #6
  7. surveir

    Форумчанин

    Регистрация:
    30 окт 2007
    Сообщения:
    33
    Симпатии:
    0
    Адрес:
    Санкт-Петербург
    Подскажите на сайте выложена Lisp по загрузки в Autocad gsi файлы как это работает у меня что-то не получилось
     
    #7
  8. Qvinto

    Qvinto Цивильный модератор
    Команда форума Форумчанин

    Регистрация:
    10 дек 2008
    Сообщения:
    4.050
    Симпатии:
    2.672
    Адрес:
    Украина, г.Калуш
    Тот код, что выложен на сайте, для английской версии Автокада.
    Выкладываю подправленный код для всеядной версии.
    Код в спойлере.

    Раскрыть Спойлер
    Код:
    (defun norm (var_norm)
       (setq i_norm 1 v "t")
          (repeat 16
            (if (= v "t")
                (if (= (substr var_norm i_norm 1) "0")
                    (progn
                       (setq i_norm (+ i_norm 1))
                    )
                    (progn
                       (setq k_norm i_norm)
                       (setq v "f")
                    )
                )
            )
          )
      (setq var_norm (substr var_norm k_norm 16))
      (setq i_norm nil k_norm nil v nil) 
    var_norm
    )
    
    (defun c:risk()
     
    (command "_osnap" "_off")
    (setq file_gsi (getfiled "Select a gsi file" "" "gsi" 8))
    (setq gsi (open file_gsi "r"))
    (setq var (read-line gsi))
    (close gsi)
    
    (if (> (strlen var) 190)
      (progn
    
        (setq gsi (open file_gsi "r"))
        (setq var "t")
        (setq list_var '())
        (while  (/= var nil)
            (if (/= (strlen var) 0)
              (progn
    
          (setq var (read-line gsi))
                (setq list_var (cons var list_var))   
    
              )
            )
        )
        (close gsi)
        (setq list_var (reverse (cdr list_var)))
        (setq i 0 list_pic '() list_p '())
        (repeat (length list_var)
          (setq x (strcat (substr (nth i list_var) 111 7) "." (substr (nth i                list_var) 118 3))) 
          (setq y (strcat (substr (nth i list_var) 135 7) "." (substr (nth i                list_var) 142 3)))
          (setq z (strcat (substr (nth i list_var) 159 7) "." (substr (nth i                list_var) 166 3)))
    
          (setq k 1) (if (= (substr (nth i list_var) 152 1) "-") (setq k -1.))
         
          (setq pic (substr (nth i list_var) 9 16))     
          (setq pic (norm pic))
          (setq x (atof x) y (atof y) z (* k (atof z)) p (list x y z))
          (setq list_p (cons p list_p) list_pic (cons pic list_pic))
          (setq i (+ i 1))
        )
        (setq list_p (reverse list_p) list_pic (reverse list_pic))
        (command "_layer" "_m" "point" "")
        (command "_layer" "_c" "1" "" "")
        (command "_layer" "_m" "elevation" "")
        (command "_layer" "_c" "3" "" "")
        (command "_layer" "_m" "piket" "")
        (command "_layer" "_c" "7" "" "")
        (command "_layer" "_m" "polygon" "")
        (command "_layer" "_c" "5" "" "")
    
        (setq i 0)
        (repeat (length list_var)
          (command "_layer" "_m" "point" "")
          (command "_point" (nth i list_p))
          (setq p_n (polar  (nth i list_p) (/ pi 2.) 0.25))
          (setq p_e (polar  (nth i list_p) 0 0.25))
          (setq p_s (polar  (nth i list_p) (* 3 (/ pi 2.)) 0.25))
          (setq p_w (polar  (nth i list_p) pi 0.25))
          ;(command "_pline" p_w p_e "")
          ;(command "_pline" p_n p_s "") 
          (command "_circle" (nth i list_p) 0.25)
          (command "_layer" "_m" "piket" "")
          (command "_text" "_j" "_mc" (nth i list_p) "0.25" "" (nth i list_pic))
          (command "_layer" "_m" "elevation" "")
          (command "_text" "_j" "_mc" (nth i list_p) "0.25" "" (rtos (nth 2 (nth i list_p)) 2 2))
          (setq i (+ i 1))
        )
        (command "_osnap" "_center")
        (command "_layer" "_m" "polygon" "")
    
      )
      (progn
          (print "You is selected not right gsi-file") (princ)
      )                   
    
    )
    
    )


    Как использовать лисп, опубликованный на форуме
    Надеюсь, теперь всё получится.
     
    #8
  9. surveir

    Форумчанин

    Регистрация:
    30 окт 2007
    Сообщения:
    33
    Симпатии:
    0
    Адрес:
    Санкт-Петербург
    Я все загрузил, но что должно происходить я не понимаю. Должен файл gsi открываться прямо в каде или нет???
     
    #9
  10. Qvinto

    Qvinto Цивильный модератор
    Команда форума Форумчанин

    Регистрация:
    10 дек 2008
    Сообщения:
    4.050
    Симпатии:
    2.672
    Адрес:
    Украина, г.Калуш
    Если всё загрузили, то:

    В вашем случае, нужно набрать в командной строке Автокада: RISK
    Далее уже по ходу.......
    ::wink24.gif::
     
    #10
  11. Палыч

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.181
    Симпатии:
    159
    Адрес:
    Беларусь
    Я так понимаю этот лисп для подгрузки gsi-файлов в формате координат?
     
    #11
  12. look

    Регистрация:
    11 май 2012
    Сообщения:
    55
    Симпатии:
    1
    Ребята подскажите лисп для суммирования площадей.
    Имею DWG с множеством замкнутых полилиний, как посчитать сумму площадь.
    Делаю исполнительную на асфальтовое покрытие, так там сотни кусочков которые калькулятором устал считать.
     
    #12
  13. Qvinto

    Qvinto Цивильный модератор
    Команда форума Форумчанин

    Регистрация:
    10 дек 2008
    Сообщения:
    4.050
    Симпатии:
    2.672
    Адрес:
    Украина, г.Калуш
    Как для вас разработали.
    http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=44&TID=36136
     
    #13
    ВладимирВладимирович и look нравится это.
  14. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.084
    Симпатии:
    692
    Адрес:
    Новосибирск
    А если без приложений, то Сервис -- > Извлечение данных
     
    #14
    look нравится это.
  15. Qvinto

    Qvinto Цивильный модератор
    Команда форума Форумчанин

    Регистрация:
    10 дек 2008
    Сообщения:
    4.050
    Симпатии:
    2.672
    Адрес:
    Украина, г.Калуш
    А это как?
    по поводу приложения могу сказать, что много раз его загружать не надо, всего один раз. А дальше проще некуда, всегда под рукой (в панели свойств) будем иметь суммарную величину площади-длины-объема.
     
    #15
  16. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.084
    Симпатии:
    692
    Адрес:
    Новосибирск
    Выбрать все замкнутые (или, скажем, необходимые) полилинии при извлечении, извлечь необходимые данные в Excel и суммировать все площади...
    Эт то понятно... Я о том, что можно стандартными средствами... а там кому как удобнее...
     
    #16
    Krovlaf нравится это.
  17. look

    Регистрация:
    11 май 2012
    Сообщения:
    55
    Симпатии:
    1
    Не понял как этим работать.
    Перенес мышкой в чертеж файл, а вот какой командой это все запустить не понял.

    P.S. Разобрался.
     
    #17
  18. look

    Регистрация:
    11 май 2012
    Сообщения:
    55
    Симпатии:
    1
    Alexandr-GR, Отличный вариант при отсутствии интернета.
     
    #18
  19. Alexandr-GR

    Форумчанин Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.084
    Симпатии:
    692
    Адрес:
    Новосибирск
    Очень остроумно... Оценил...

    Однако при наличии интернета как то получилось, что
     
    #19
  20. look

    Регистрация:
    11 май 2012
    Сообщения:
    55
    Симпатии:
    1
    Alexandr-GR, Ну на пример будучи в командировке в глуши, работая на казенных компах, я знаю как воспользоваться командой Извлечение данных. И мне не нужно ломать голову как скачать лисп из интернета.
    И я в общем то без подкола оценил вашу мысль и шутить был не намерен. Давайте без обид.
     
    #20

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

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