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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как извлечь из размера значение, т.е. текст???

Как извлечь из размера значение, т.е. текст???

Ответ
Поиск в этой теме
Непрочитано 24.08.2009, 15:21 #1
Как извлечь из размера значение, т.е. текст???
Rubль
 
Россия, Воронеж
Регистрация: 24.08.2009
Сообщений: 8

Всем привет. Я еще новичок в общении с акадом на языках программирования... все как то до этого в рукопашную делал... сейчас только только начинаю осваивать "глубины" акада....

Но по роду деятельности (проектирование мебели) уже возникла необходимость оптимизировать один рабочий процесс...

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

Просьба помочь... Нуууу очень надо...

Всем кто откликнется на просьбу - ОГРОМНОЕ спасибо за потраченное время.
Просмотров: 5724
 
Непрочитано 24.08.2009, 15:45
#2
Кулик Алексей aka kpblc
Moderator

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


Не очень понял про что разговор. Это что, надо запросить расстояние через (getdist), а потом создать примитив TEXT?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 24.08.2009, 15:47
#3
zenon

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


почитай в Helpe про Field
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Автор темы   Непрочитано 24.08.2009, 16:17
#4
Rubль


 
Регистрация: 24.08.2009
Россия, Воронеж
Сообщений: 8
<phrase 1=


Попробую объяснить более подробно...

Допустим есть линия длиной 200 мм. Моя задача образмерить ее и поместить значение размера в виде текста рядом с ней. Т.е. операции такие: первая точка - вторая точка - вынос размера с надписью 200 - вставка однострочного текста "200" рядом с линией. Вот... Вроде теперь более понятно стало
Rubль вне форума  
 
Непрочитано 24.08.2009, 16:23
#5
Кулик Алексей aka kpblc
Moderator

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


Вариант 1. Поле
Вариант 2. Настроить размерный стиль.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 24.08.2009, 16:38
#6
Rubль


 
Регистрация: 24.08.2009
Россия, Воронеж
Сообщений: 8
<phrase 1=


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Вариант 1. Поле
Вариант 2. Настроить размерный стиль.
Алексей ты не мог бы чуть чуть попдробнее описать и первый и второй варианты?
Rubль вне форума  
 
Непрочитано 24.08.2009, 16:48
#7
357

бывший...
 
Регистрация: 13.08.2009
Краснодар
Сообщений: 1,171
<phrase 1=


1. Создай размерный стиль
2. Отключи в нем все (размерные и выносные линии) - останется один текст размера
3. Поставь в нем ручную установку размерного текста
4. Сохрани размерный стиль под индивидуальным именем и работай...
Кажется так ...
357 вне форума  
 
Автор темы   Непрочитано 24.08.2009, 17:01
#8
Rubль


 
Регистрация: 24.08.2009
Россия, Воронеж
Сообщений: 8
<phrase 1=


Благодарю за помощь!!!!
Rubль вне форума  
 
Непрочитано 24.08.2009, 17:03
#9
E-degtyarev

Помогаю, кому делать нечего.
 
Регистрация: 27.03.2009
Русская деревня
Сообщений: 394


Может такой простенький лиспик сгодится
Код:
[Выделить все]
(defun C:rd ()
  (setq dd (entlast))
  (setq otrez (entget dd))
  (setq p_n (cdr (assoc 10 otrez)))
  (setq p_k (cdr (assoc 11 otrez)))
  (setq rasst (distance p_n p_k))
  (setq ugol (angle p_n p_k))
  (setq p_c (polar p_n ugol (* 0.5 rasst)))
  (setq p_t (polar p_c (+ (* pi 0.5) ugol) 2))
  (setq ug_txt (* (/ ugol pi) 180))
  (command "_text" "_ce" p_t "5" ug_txt (rtos rasst 2 2))
)
Нарисуй отрезок, а потом на клавиатуре "rd".
Естественно этот лисп нужно сначала загрузить.
E-degtyarev вне форума  
 
Непрочитано 24.08.2009, 17:20
#10
Makswell

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


Ещё вот вариант:
Код:
[Выделить все]
(defun test (DimCommandName / pt txt)
  (vl-cmdf DimCommandName)
  (while (not (zerop (getvar "cmdactive"))) (vl-cmdf pause))
  (setq txt (rtos (cdr (assoc 42 (entget (entlast)))) 2 0))
  (setq pt (getpoint "\nТочка вставки текста:"))
  (entmakex
    (list '(0 . "TEXT")
	  '(100 . "AcDbEntity")
	  '(100 . "AcDbText")
	  (cons 40 2.5)			;высота текста
	  (cons 10 pt)
	  (cons 1 txt)
    )
  (princ)
  )
)
Запускать как:

Для повёрнутого размера
Код:
[Выделить все]
(test "_.DIMALIGNED")
Для линейного размера
Код:
[Выделить все]
(test "_.DIMLINEAR")
ну и так далее по аналогии...
Makswell вне форума  
 
Непрочитано 24.08.2009, 17:24
#11
Игорь Костюкович


 
Регистрация: 31.07.2009
Минск
Сообщений: 40


И хотя вопрос уже вроде бы решён, и хотя вопрос задан не совсем верно, отвечу всё-таки на вопрос вынесенный в заголовок: чтобы извлечь из размера значение (т.е. размерный текст) есть два свойства:
1. measurement (только для чтения) - фактически измеренное значение размера
2. TextOverride- текстовая строка, которая записана в размерный текст.
Игорь Костюкович вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как извлечь из размера значение, т.е. текст???

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как получить MTEXT но без форматирования, только текст? lexluther Программирование 14 13.09.2009 22:52
Как пустить текст вдоль изогнутой линии? Shaft AutoCAD 47 01.06.2009 16:13
Как наложить обычный текст на 3D модель Denim_ok AutoCAD 7 26.03.2009 10:50
Как найти текст без содержания и еще вопросы Елена AutoCAD 5 29.06.2004 14:16
Как перенести текст из AutoCAD'a в MS Word? sear_ch AutoCAD 4 12.01.2004 20:50