[CAHTEXHuK]

Приветствую всех пользователей форума.
Я делаю только первые шаги на пути автоматизации своих идей в автокаде, поэтому прошу сильно не пинать, если спрошу очевидную для кого-то вещь...
Итак ... появилось желание сделать функцию, чтобы добавлять в открытый чертеж своих стилей (текста, размера, таблицы, мультивыноски) типов линий, ну и может еще чего, что понадобится... в последствии было бы неплохо загружать все стили мультилиний в файл ... сразу прошу про шаблоны не рассказывать... необходимо в имеющийся чертеж добавлять...
может у кого-нить уже есть наработки...
мои пока прилагать стыдно... примерно так...

Код:

[Выделить все]

(defun C:workit ( ) 
(command "_-insert" "N1" "@" "" "" "")
(command "_erase" "п" "") 
(command "_-dimstyle" "В" "N1")
(setvar "Textstyle" "N1")
(setvar "CMLEADERSTYLE" "N1")
(setvar "CTABLESTYLE" "N1")
(command "_.-purge" "_ALL" "*" "Н")
(command "filedia" "0")
(command "-типлин" "З" "штриховая" "acadiso.lin" "Д" "" )
(command "filedia" "1")
(princ)
)

жду ваших предложений и пожеланий...

[VVA]

Сообщение от CAHTEXHuK разу прошу про шаблоны не рассказывать... необходимо в имеющийся чертеж добавлять..

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

[Кулик Алексей aka kpblc]

http://forum.dwg.ru/showthread.php?t=24790
http://www.caduser.ru/forum/index.ph...CD%E0%E9%F2%E8
http://www.caduser.ru/forum/index.ph...0631&PAGEN_1=2
http://www.arcada.com.ua/forum/viewt...2648cf1adb1c12
http://autolisp.ru/2009/11/02/dimstyle-create/

[CAHTEXHuK]

Сообщение от VVA Принцип как у шаблона, только создаешь dwg файл со всеми загруженными типами линий, стилями и проч. Вставляешь в сущесвующий чертеж этот файл как блок.

так у меня в самом начале он и вставляется... только после этого я хочу установить все по умолчанию... все впринципе и так работает, только тип линий не получается загрузить... точнее в

Код:

[Выделить все]

(command "-типлин" "З" "штриховая" "acadiso.lin" "Д" "" )

Запрос остается ... я походу туплю... больше всего бесит, что не получается завершить запрос после этой строки...

[Рyslan]

почему у тебя типлин по-русски написан?

[CAHTEXHuK]

_-linetype ... это принципиально для работы в русском акаде ?

Код:

[Выделить все]

(command "_-Linetype" "_L" "штриховая" "acadiso.lin" "_y" "" )

точно так же работает... если вставить в коммандную строку автокада... все работает...

а после использования этой же строки в функции...

в коммандной строке...

Код:

[Выделить все]

Команда: filedia
Новое значение FILEDIA <1>: 0
Команда: _-Linetype
Текущий тип линий:  "ПоСлою"
Задайте опцию [?/Создать/Загрузить/Установить]: _L
Какие типы линий загрузить: штриховая В каком файле проводить поиск 
<acadiso.lin>: acadiso.lin
Тип линий "штриховая" загружен.
Задайте опцию [?/Создать/Загрузить/Установить]: _y
Неправильное ключевое слово.
; ошибка: Функция отменена
Задайте опцию [?/Создать/Загрузить/Установить]:

и еще ... если я хочу использовать _.-purge, но чтобы типы линий остались, а все остальное почистилось ? как это написать коммандой ?

[VVA]

CAHTEXHuK,
1. посмотри переменную EXPERT
2. LISP. Загрузка типа линии. Универсальная

PS
Сравни

Команда: _-Linetype Текущий тип линий: "ПоСлою" Задайте опцию [?/Создать/Загрузить/Установить]: _L

и

Command: _-linetype Current line type: "ByLayer" Enter an option [?/Create/Load/Set]: _L

[CAHTEXHuK]

VVA, спасибо, за эксперта и ссылку на функцию... а что все кроме меня в шаблонах работают и переносят стили через дизайн центр ?

[Кулик Алексей aka kpblc]

CAHTEXHuK, я ж тебе в #3 до дури ссылок накидал...

[Profan]

(command "filedia" "0")

Это странная строка, ведь filedia - переменная, а не команда. Однако, такая запись срабатывает.