CADuser.ru Найдёшь ответы на все вопросы связанные и с AutoCAD-ом и с Lisp-ом, так же множество готовых лиспов.
Незнаю в тему будет или нет.у меня вот такой вопрос: как использовать(поставить) файлы на autocad типа ***.lsp (файл AutoLISP-приложения)?.У МЕНЯ AutoCAD 2008(RUS) ВЕРСИЯ B.51.0 (UNICODE).
Колян. Тут где-то Disney, выкладывал несколько лиспов, и там заодно была инструкция по их установке и применению.
очень нравится работать с лиспами. но нахожу их "по случаю". на 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 Далее уже по ходу.......
Ребята подскажите лисп для суммирования площадей. Имею DWG с множеством замкнутых полилиний, как посчитать сумму площадь. Делаю исполнительную на асфальтовое покрытие, так там сотни кусочков которые калькулятором устал считать.
А это как? по поводу приложения могу сказать, что много раз его загружать не надо, всего один раз. А дальше проще некуда, всегда под рукой (в панели свойств) будем иметь суммарную величину площади-длины-объема.
Выбрать все замкнутые (или, скажем, необходимые) полилинии при извлечении, извлечь необходимые данные в Excel и суммировать все площади... Эт то понятно... Я о том, что можно стандартными средствами... а там кому как удобнее...
Не понял как этим работать. Перенес мышкой в чертеж файл, а вот какой командой это все запустить не понял. P.S. Разобрался.
Alexandr-GR, Ну на пример будучи в командировке в глуши, работая на казенных компах, я знаю как воспользоваться командой Извлечение данных. И мне не нужно ломать голову как скачать лисп из интернета. И я в общем то без подкола оценил вашу мысль и шутить был не намерен. Давайте без обид.
