Search the Community
Showing results for 'lisp'.
-
Подскажите пожалуйста, куда прописать lisp, чтобы он выполнялся при открытии каждого файла чертежа? А то от этого геомаркера и сетки уже кровь из глаз -
Lisp.Изменение высоты и ширины MTEXTA (BoundMText) Описание- Lisp позволяет изменить ширину и высоту полей MTEXTA под фактический размер самого текста, удобно для тех, кто использует функцию "Скрытие заднего фона" Lisp умеет так же делать рамку вокруг MTEXTA , и делать заливку MTEXTA. Фон цвета может принимать, как различные цвет (ввод значения "1", по умолчанию применяется заливка фона белого цвета (255)), так по цвету чертежа( ввод значения "Да") Отдельное спасибо EdwardSt BoundMText.lsp
-
Lisp.Расстановка дин.блоков по вершинам полилинии (нумерация вершин) Описание- Данный Lisp пригодится тем, кто хочет быстро получить координаты полилинии. Функционал: Расставляет любой дин блок в вершины, задается любая начальная нумерация, вставка префиксов и суффиксов нумерации. Отдельное спасибо A.Kudrjashov Файл.dwg MD.lsp
-
Создание листа по шаблону
olga94 replied to olga94's topic in Технические вопросы и обсуждение функционала
Скажите пожалуйста, можно ли переопределить действие команды "ШЛИСТ" или "РЛИСТ/опция Шаблон"? Например, если эта команда запущена, то делай то-то: открой каталог, например, с помощью lisp, vbs или scr? -
Отличная тема, спасибо большое! Привык к таким полезностям в автокаде, теперь, работая в нанокаде, ощущаю что их очень не хватает! PS: как подгружать lisp'ы? -
Почему-то нету кнопки прикрепить в этой ветке форума у меня) Лисп удаления дублирующихся блоков во всём чертеже: https://ftp.nanosoft...665d415e5ade6d2 UPD. Кнопка появилась)) pl_bl-del-copy.LSP
-
Прошу помощи в адаптации Lisp под нанокад. А именно функцию команды PL-VFI Я так понимаю вся истина кроется тут (ssget "_:L" '((0 . "*POLYLINE,LINE,ARC,CIRCLE")))) А именно тут "_:L" pltools.lsp
-
А, я запутался, думал, внутри кнопки надо и картинку, и текст. А sld собственно где лежат? Если судить по теме https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/add-an-image-to-dcl-file/td-p/8232058 вроде как все должно болтаться рядом с dcl (как минимум).
-
Я малоопытен в использовании LISP'ов, но после загрузки вышепредставленного LISP'а при попытке проставить пикеты на полилинии выдает ошибку (NC 5.1) добавлено через 9 минут kpblc, нет, к сожалению дело не в этом...
-
Добрый день! Прошу помощи с загрузкой LISP в нанокад. В Автокаде он работает. Навыками программирования не обладаю. При загрузке LISP выдает ошибку В редакторе LISP, при запуске пишет "Неверный тип аргумента 2D/3D point: nil" Код: (vl-load-com) (defun C:adv_toolkit_installer (/ path sup_path my_path _adv-str-with-separator-to-lst) (defun _adv-str-with-separator-to-lst (str pat / i) (cond ((= str "") nil) ((setq i (vl-string-search pat str)) (cons (substr str 1 i) (_adv-str-with-separator-to-lst (substr str (+ (strlen pat) 1 i)) pat) ) ;_ cons ) (t (list str)) ) ;_ cond ) ;_ defun (setq sup_path (vla-get-supportpath (vla-get-files (vla-get-preferences (vlax-get-acad-object)) ) ;_ end of vla-get-files ) ;_ end of vla-get-supportpath ) ;_ end of setq ;| (PRINC "\n") (PRINC "Старые пути поддержки:") (PRINC "\n") (PRINC sup_path) (PRINC "\n") |; (setq sup_path (vl-remove-if '(lambda (x) (wcmatch x "*ADV*")) (_adv-str-with-separator-to-lst sup_path ";") ) ;_ end of vl-remove-if ) ;_ end of setq (setq path "") (mapcar '(lambda (x) (setq path (strcat path x ";"))) sup_path ) ;_ end of mapcar (vl-string-right-trim ";" path) (setq my_path ";C:\\ADV_Toolkit") (setq path (strcat path my_path)) (vla-put-supportpath (vla-get-files (vla-get-preferences (vlax-get-acad-object))) path ) ;_ end of vla-put-supportpath ;| (PRINC "\n") (PRINC "Новые пути поддержки:") (PRINC "\n") (PRINC (vla-get-supportpath (vla-get-files (vla-get-preferences (vlax-get-acad-object))))) (PRINC "\n") |; (vl-cmdf "_.-WSSAVE" "" "_y") (vl-cmdf "_.CUIUNLOAD" "adv_toolkit") (vl-cmdf "_.CUIUNLOAD" "adv_cad") (vl-cmdf "_.CUILOAD" "adv_toolkit") (setvar "WSCURRENT" (getvar "WSCURRENT")) ) ;_ end of defun (C:adv_toolkit_installer) (PRINC "\nADV_Toolkit успешно загружен и настроен.")
-
Добрый день Я новичок в lisp, прошу помощи. Хочу включить панель инструментов, а если панель инструментов уже включена, то не выключать ее при запуске lisp команды. Следующие строчки работают как включить панель инструментов, при повторном запуске выключить панель инструментов: (DEFUN c:test () (command "showtoolbar_3DREFEDIT") ) -
В объектной модели приложения многие элементы представляют собой коллекции. Помимо различных специфических свойств они имеют похожие методы/свойства "Item" и "Count" с достаточно очевидной интерпретацией. Вместе с тем, доступ к некоторым из них вызвал затруднения. Поясню на примере. Небольшой фрагмент кода: (vl-load-com) (defun c:Example_Collection() (setq acadObj (vlax-get-acad-object) v acadObj) (print "Исследуем коллекцию Application") (vlax-dump-object v 'T) (setq v (vla-get-MenuBar v)) (print "Исследуем коллекцию MenuBar") (vlax-dump-object v 'T) ;(setq v (vla-item v 0));Такой доступ не прокатывает (setq v (vla-item v "Файл")) (print "Исследуем коллекцию пункта меню") (vlax-dump-object v 'T) ) Все штатно и ожидаемо. Имеем свойство "menubar" - только для чтения. с попутным сообщением Т.е., средствами лиспа не удалось определить количество элементов Item. Не удается так же "добраться" до первого элемента меню через Item[0]. Теме не менее, удается извлечь Все параметры с ошибкой сопровождаются с похожими сообщениями об ошибке (см.выше). На основании этого кейса хотелось бы получить ответы на следующие вопросы: Как средствами lisp все-таки получить значения свойств, для которых отображается "ошибка" в функции (vlax-dump-object и всех сходных с ней типа (vlax-get-... и (vlax-get-property... ? Как получить размерность массивов Item, когда свойство "Count" недоступно (см. вопрос1) ? Как получить список доступных наименований, с помощью которых можно получить доступ к Item["Имя"] ?
-
Спасибо! Я в программировании полный профан, но не пойму как вызвать вышеуказанный lisp. Код скопировал - вставил в блокнот (файл pikettest.txt) - через UnrealCommander переименовал в pikettest.lsp - загрузил в NC 5.1... добавлено через 4 минут Такое выдает
-
Странные координаты полилинии
kpblc replied to nkurchanova's topic in Технические вопросы и обсуждение функционала
Если используется lisp, советую проверить нормаль (210-я DXF группа). Ну или на каждую вершину выполнять trans -
Всем привет! Обнаружил, что функция ANGLE в NC возвращает отличные от AC значение угла. в AC, функция возвращает угол в диапазоне от 0.0 до 2*Pi в NC, функция возвращает угол от 0.0 до Pi и от -Pi до 0.0 В итоге, для совместимости функции в AC и NC, использую такую обёртку: (defun ATP:angle (p1 p2 / ang) (if (minusp (setq ang (angle p1 p2))) (+ pi pi ang) ang ) )
-
Проблема с функцией SIN в LISP
streek posted a topic in Технические вопросы и обсуждение функционала
На парах в институте задали написать программу для вычисления синуса функции (B-X/Z)+5*(B+A-80). Всё работало до момента, пока не занёс эту вещь под SIN. Протестировал с любыми значениями, не только с функцией - всегда один и тот же ответ: "ошибка: неверное число аргументов: SIN". Тексты исходных программ: 1) Моя функция - (DEFUN SIN (A B X Z) (SIN (+ (- B (/ X Z)) (* 5 (- (+ B A) 80)))) ) 2) Функция для проверки из методического пособия - (DEFUN SINCOS (A) ( + (SIN A) (COS А)) ) -
Lisp vba c#
-
Здравствуйте, возможно кто-то сможет помочь. Имеется Lisp используемый в AutoCad, называется Parline. Суть в том, что ты задаешь точки привязки на плане и автоматически параллельно стене с заданным в Lisp отступом прорисовывается полилиния. Загружая в NanoCad это Lisp он работает отчасти, т.е. понимает, что нужно задать точки привязки, но потом теряет связь и вместо автоматической отрисовки полилинии с отступом, предлагает самому рисовать полилинию. Возможно ли интегрировать данный Lisp в NanoCad? Файл прикладываю. Один Lisp делает отступ наружу заданных точек (допустим контура), другой делает отступ внутрь. ParLine.LSP ParLine1.LSP
-
Попробовал, загрузил через настройки-дополнения-LISP, выполнил FULL_CLEAN, результатов, к сожалению не дало, виснет при вставке и все тут(
-
При запуске пишет неверный тип аргумента numberp nil. Подскажите, пожалуйста, с чем это связано? Я в этой теме вообще новичок (((( Программа с окном dcl и так-то и лично для меня много уже подфункций. + знаете как уменьшить масштаб размеров? - в автокаде приемлемо, но в нанокаде очень большие RCHsovstroknom.lsp OknoRCH.dcl
.png.2ef721d9e3fa8671ae9808416e2c6bee.png)
.png.39e9b5f01f80d3ff4e94f82dee407e0d.png)
-
Здравствуйте. Еще раз повторите пожалуйста, как расчленить мн блок? Из вышеуказанного сообщения dows, загрузила в скрипты LISP, после команды разбить не получается "Некоторые объекты не могут быть разбиты. Найдено: 1 объектов. Разбито: 0 объектов".
-
В АК крутит атрибуты в ноль по ПСК, по объекту и на произвольный угол... В НК на произвольный угол не умеет. Посмотрите пожалуйста, кто разбирается.. может можно починить? AttrRot.lsp
-
Добрый день. Автокад 21 Нанокад 22 После перевода "самодельной" лисп программы под нанокад - долгое время выполнения программы. Для исключения проблем в дилетанском коде прилагаюcircle_test.lsp простую тестовую программку. Время выполнения в автокад: 1 сек. Время выполенния в нанокад: 12 сек. Есть ли способ ускорить? (Может системные переменные какие либо?) Всем ответившим заранее спасибо. -
Возможно... Начал постепенно осваивать .Net, в силу того, что халява OpenDCL не поддерживается в NС и теперь создаю диалоги в VS. Не хотелось бы уходить от Lisp'a, т.к. очень уж к ниму привык. Надеюсь, что со временем, разработчики реализуют в .Net возможность создание собственных Lisp функций (я про это...), и тем самым, будет возможность расширить его функционал и в некоторых моментах увеличить скорость выполнения. Тогда, как мне кажется, у Lisp'а будут шансы на жизнь, хотя-бы на энтузиазме сторонних разработчиков.- 9 replies
-
- 2
-
-
- vl-catch-all-apply
- *error*
- (and 1 more)
-
nanoCAD 23, NET, загрузка типа лини
kpblc replied to kpblc's topic in Программирование под платформу nanoCAD
Добавлю: попытка загрузки типа линии через lisp типа: (vl-load-com) (setq adoc (vla-get-activedocument (vlax-get-acad-object))) (vla-load (vla-get-linetypes adoc) "jis_09_08" "ncadiso.lin") Также приводит к ошибке ошибка: Сервер ActiveX (TeighaX) вернул ошибку: File access error --- При этом "ручная" загрузка срабатывает корректно. Попытка вызова команды _.-linetype <Enter> _load <Enter> сработала бы, если б не вываливалось окно с запросом файла с описанием.
