| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > скрипты и макросы в AutoCAD

скрипты и макросы в AutoCAD

Ответ
Поиск в этой теме
Непрочитано 01.10.2008, 13:45 #1
скрипты и макросы в AutoCAD
Сашура
 
Инженер
 
Екатеринбург
Регистрация: 01.10.2008
Сообщений: 4

Как превратить в реальные действия. При открытии чертежа, необходимо заменить стиль Мтекста и простого Текста на другой. И все эти действия закинуть в одну кнопку, ну максимум в две. Посоветуйте, лучше с помощью чего это можно сделать и как.
Просмотров: 13639
 
Непрочитано 01.10.2008, 13:51
#2
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,825
<phrase 1=


Цитата:
Сообщение от Сашура Посмотреть сообщение
Как превратить в реальные действия. При открытии чертежа, необходимо заменить стиль Мтекста и простого Текста на другой. И все эти действия закинуть в одну кнопку, ну максимум в две. Посоветуйте, лучше с помощью чего это можно сделать и как.
Сперва почитать тут, потом можно зайти сюда и еще воспользоваться поиском.
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Автор темы   Непрочитано 01.10.2008, 14:04
#3
Сашура

Инженер
 
Регистрация: 01.10.2008
Екатеринбург
Сообщений: 4


Ну тогда так. Когда все объекты выделены, через палитру свойств выделяешь, например Мтекст, и там же в свойствах меняешь стиль текста. Вот этот момент "через свойства выделяешь, например Мтекст" - не знаю как прописать в кнопке . А все вариации с редактированием текста знакомы и используемы - широко

Последний раз редактировалось Сашура, 01.10.2008 в 14:16.
Сашура вне форума  
 
Непрочитано 01.10.2008, 14:12
#4
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,204


Посмотри здесь: http://www.caduser.ru/cgi-bin/f1/board.cgi?t=43895lY
Ситуация похожа на твою
Makswell вне форума  
 
Непрочитано 01.10.2008, 14:19
#5
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


http://dwg.ru/f/showthread.php?t=24790 уже не катит, я понимаю...
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 09.10.2008, 14:05
#6
Сашура

Инженер
 
Регистрация: 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. Подскажите пожалуйста как быть.
Сашура вне форума  
 
Непрочитано 09.10.2008, 14:11
#7
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


dwg.ru/art/8 - там описано как запускать.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 09.10.2008, 15:45
#8
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Сашура, Может здесь что-нибудь подойдет
LISP. Замена текстового стиля
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 10.10.2008, 07:57
#9
Сашура

Инженер
 
Регистрация: 01.10.2008
Екатеринбург
Сообщений: 4


Как выгрузить из журнала, тускло серого цвета LISP приложения???
Сашура вне форума  
 
Непрочитано 10.10.2008, 08:05
#10
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Разбираться, откуда они (эти "серые") грузятся. Только там и можно отключить их загрузку.
Хотя я бы не советовал так поступать - могут перестать работать некоторые привычные команды и функции.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > скрипты и макросы в AutoCAD

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
запуск программы из 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