Лиспы для AutoCad

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

 

CADuser.ru
Найдёшь ответы на все вопросы связанные и с AutoCAD-ом и с Lisp-ом, так же множество готовых лиспов.

 

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

 

очень нравится работать с лиспами. но нахожу их "по случаю". на CADuser.ru не сумел найти (подскажите где). будьте так любезны ссылочки где можно разжиться лиспами. Хочу Tool Pac освоить нет ли русифицированного?

 

Во-первых, необходимо знать: какие задачи стоят перед Вами, что бы давать ссылки на лиспы.
На Кадюзере выложено много лиспов, например в ветках: 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

 

Подскажите на сайте выложена Lisp по загрузки в Autocad gsi файлы как это работает у меня что-то не получилось

 

Тот код, что выложен на сайте, для английской версии Автокада.
Выкладываю подправленный код для всеядной версии.
Код в спойлере.

Раскрыть Спойлер Свернуть Спойлер

Код:

(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)
  )                   

)

)

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

 

Я все загрузил, но что должно происходить я не понимаю. Должен файл gsi открываться прямо в каде или нет???

 

Если всё загрузили, то:

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

 

Я так понимаю этот лисп для подгрузки gsi-файлов в формате координат?

 

Ребята подскажите лисп для суммирования площадей.
Имею DWG с множеством замкнутых полилиний, как посчитать сумму площадь.
Делаю исполнительную на асфальтовое покрытие, так там сотни кусочков которые калькулятором устал считать.

 

Как для вас разработали.
http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=44&TID=36136

 

А если без приложений, то Сервис -- > Извлечение данных

 

А это как?
по поводу приложения могу сказать, что много раз его загружать не надо, всего один раз. А дальше проще некуда, всегда под рукой (в панели свойств) будем иметь суммарную величину площади-длины-объема.

 

Выбрать все замкнутые (или, скажем, необходимые) полилинии при извлечении, извлечь необходимые данные в Excel и суммировать все площади...

Эт то понятно... Я о том, что можно стандартными средствами... а там кому как удобнее...

 

Не понял как этим работать.
Перенес мышкой в чертеж файл, а вот какой командой это все запустить не понял.

P.S. Разобрался.

 

Alexandr-GR, Отличный вариант при отсутствии интернета.

 

Очень остроумно... Оценил...

Однако при наличии интернета как то получилось, что

 

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