
Автоматическое создание атрибутов блоков в автокад. LISP.
По просьбе подписчика с моего канала на YouTube выкладываю скрипт на языке LISP для создания атрибутов блоков, из поста Демонстрация работы связки AutoCad и MS SQL для создания смет, спецификаций и др.. Для товарищей, которые считают себя гуру LISP : не нравится — не используйте. Я не претендую на звание супер-разработчика. У меня работает и мне этого достаточно. Собственно лисп: (defun begin_activex ( / ) (vl-load-com) (setq acad_application (vlax-get-acad-object)) (setq active_document (vla-get-ActiveDocument acad_application)) (setq model_space (vla-get-ModelSpace active_document)) (setq paper_space (vla-get-PaperSpace active_document)) )(begin_activex)(defun c:attsCreate ( / ) (defun-q createLayer (layerName layerColor / ) (entmakex (list (cons 0 "LAYER") (cons 100 "AcDbSymbolTableRecord")... Читать далее...