|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
01.10.2008, 13:45 | #1 | |
скрипты и макросы в AutoCAD
Инженер
Екатеринбург
Регистрация: 01.10.2008
Сообщений: 4
|
||
Просмотров: 13639
|
|
||||
Остекляем!!! Алюминим!!! Регистрация: 21.02.2005
Москва
Сообщений: 3,825
|
Цитата:
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search: |
|||
|
||||
Инженер Регистрация: 01.10.2008
Екатеринбург
Сообщений: 4
|
Ну тогда так. Когда все объекты выделены, через палитру свойств выделяешь, например Мтекст, и там же в свойствах меняешь стиль текста. Вот этот момент "через свойства выделяешь, например Мтекст" - не знаю как прописать в кнопке . А все вариации с редактированием текста знакомы и используемы - широко
Последний раз редактировалось Сашура, 01.10.2008 в 14:16. |
|||
|
||||
Инженер-строитель Регистрация: 15.08.2007
Киров
Сообщений: 2,204
|
Посмотри здесь: http://www.caduser.ru/cgi-bin/f1/board.cgi?t=43895lY
Ситуация похожа на твою |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
http://dwg.ru/f/showthread.php?t=24790 уже не катит, я понимаю...
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Инженер Регистрация: 01.10.2008
Екатеринбург
Сообщений: 4
|
Благодаря участию Makswella, получилось заменить стиль текста, но все остальное (угол наклона -15градусо и расчленение Мтекста на простой однострочный) не подходит. И этот добрый человек послал такой вариант.
(defun test (/ adoc selset n txt_style prop_lst lw) (setq adoc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark adoc) (setq lw 25) (setq txt_style (cond ((tblobjname "STYLE" "GOST 2.304") "GOST 2.304") (t (getvar "TEXTSTYLE")) ) ) (setvar "TEXTSTYLE" txt_style) (setq selset (ssget "_X" '((0 . "TEXT")))) (if selset (progn (setq n 0) (while (< n (sslength selset)) (setq ent (entget (ssname selset n))) (setq prop_lst (list (cons 7 txt_style) (cons 370 lw))) (foreach item prop_lst (if (assoc (car item) ent) (setq ent (subst item (assoc (car item) ent) ent)) (setq ent (append ent (list item))) ) ) (entmod ent) (setq n (1+ n)) ) ) ) (repeat 3 (vla-purgeall adoc)) (vla-endundomark adoc) (princ) )Но что то его никак не получается запустить, выдает такого рода ошибку ; no function definition:C:TEST. Подскажите пожалуйста как быть. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
dwg.ru/art/8 - там описано как запускать.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Сашура, Может здесь что-нибудь подойдет
LISP. Замена текстового стиля
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Разбираться, откуда они (эти "серые") грузятся. Только там и можно отключить их загрузку.
Хотя я бы не советовал так поступать - могут перестать работать некоторые привычные команды и функции.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
запуск программы из AutoCADа | kminas | Программирование | 19 | 15.06.2012 13:42 |
О создании темы (раздела) для новичков в AutoCAD. | Profan | Разное | 110 | 23.10.2008 10:01 |
Макросы для Autocad | Sergk | Программирование | 5 | 22.08.2006 18:49 |
Макросы под AutoCAD | SUN | Программирование | 2 | 09.06.2006 11:17 |
AUTOCAD 2006 | Aragorn | AutoCAD | 14 | 01.04.2005 00:55 |