[Shaft]

Доброго времени суток уважаемые знатоки!
У меня возник вопрос, как заставить текст повторить линию вдоль, которой он написан. Текст написанный на рисунке должен пойти вдоль линии жёлтого цвета. (если конечно такое возможно).

PS поиск по форуму результатов не дал. Поэтому если данный вопрос уже обсуждался, то прошу дать ссылку. И заранее хочу извиниться за возмжный offtop

[RomaV]

в "Короле" такая фишка есть, в КАДе можно тип линии с такой надписью попробовать сделать. Хотя может в последних версиях КАДа тоже можно текст вдоль кривой рапологать.

[Наифа]

У меня 2008 стоит. Как пустить текст вдоль дуги, найти не могу. Помогите. Срочно надо.

[Profan]

Вдоль дуги - это в Express Tools.
Вдоль произвольной кривой - вроде есть в ToolPack (где взять не знаю).

Сообщение от Profan Вдоль дуги - это в Express Tools.

_.ARCTEXT

[serov]

Посмотри:http://forum.dwg.ru/showthread.php?t...F0%E8%E2%EE%E9

[Огурец]

Пользуйтесь экспрессами, там эта команда есть в разделе текстов.

[zenon]

можно это сделать используя только базовые команды AutoCADа, без привлечения ET и ToolPac.

[Profan]

Так ET привлекать не надо, они уже привлечены.
Shaft, попробуй вот такой Лисп:

Код:

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

 
;Txtpath.LSP: Отрисовка текста по кривой. Вы должны сначала
;             создать полилинию для выполнения этого MACRO.
;___________________________________________________________
(defun c:txtpath (/ path ent1 pt1 txt tleng txtlst entlst
                    loc ang loclst count ctx cht rvs)
(Setvar "cmdecho" 0)
(setvar "blipmode" 0)
(initget "д l н")
(setq path (getkword "\n Путь для текста уже нарисован? <д>: "))
(if (or (= path "д") (= path "l") (= path nil))
(progn
(if (NOT (TBLSEARCH "BLOCK" "_$CHAR"))
  (command "_point" (getvar "viewctr")
           "_block" "_$char" (getvar "viewctr") "_l" "")
)
(setq ent1 (entsel "\n Укажите путь для текста: "))
(setq pt1 (cadr ent1))
(setq txt (getstring T "\n Введите текст: "))
(initget "Д")
(setq rvs (getkword "\n Перевернуть текст? <Н>: "))
(princ " Пожалуйста ждите")
(setq tleng (strlen txt))
(command "_divide" pt1 "_b" "_$char" "" (1+ tleng))
(setq txtlst '())
(setq count tleng)
(while (> count 0)
 (setq entlst (entget (entlast)))
 (setq loc (cdr (assoc 10 entlst)))
 (setq ang (* 57.2958(cdr (assoc 50 entlst))))
 (setq loclst (append loclst (list (cons loc ang))))
 (entdel (entlast))
 (princ ".")
 (setq count (1- count))
)
(setq count 1)
(IF (not RVS)
(setq loclst (reverse loclst))
)
(setvar "blipmode" 0)
 (while (< count (1+ tleng))
 (setq loc (car (car loclst)))
  (if (not rvs)
   (setq ang (cdr (car loclst)))
   (setq ang (+ 180 (cdr (car loclst))))
  )
 (setq loclst (cdr loclst))
 (setq ctxt (getvar "textstyle"))
 (setq cht (cdr (assoc 40 (tblsearch "style" ctxt))))
 (if (= cht 0.0)
   (command "_text" "_c" loc "" ang (substr txt count 1))
   (command "_text" "_c" loc ang (substr txt count 1))
 )
 (setq count (1+ count))
)
)
(alert "\n Сначала надо нарисовать путь для текста!")
;(princ "\n Сначала надо нарисовать путь для текста!")
)
(setvar "blipmode" 0)
(PRINC)
)

[Огурец]

Сообщение от zenon можно это сделать используя только базовые команды AutoCADа, без привлечения ET и ToolPac.

Можно. Хоть через divide, хоть через measure, только редактировать буквы придётся.

[serov]

Profan Подскажите пожалуста, почему у меня лисп работает только в пространстве листа, а в модели не хочет: "Перевернуть текст? <Н>:
Пожалуйста ждите............."и все, жду, жду... до следущей Command:.AutoCAD2005.

[Profan]

Да я и не пробовал в пространстве листа. В модели все работает. Кстати, привязки надо отключить.

[Наифа]

Я конечно прошу прощения, я лузер полный... Объясните на пальцах как расположить текст по дуге.... Автокад русский.
Что такое Express Tools и где его искать...

[Shaft]

Спасибо тебе Profan за код, щас вот только узнаю как его использовать (где-то я такую темку видел) и объязательно отпишусь работает или нет.


А тебе Наифа могу сказать только (так как сам около месяца как начал в автокаде работать) следующее.
Express Tools-это некая дополнительная надстройка в автокаде. И кнопка вызова этой панели находиться рядом со словом "Справка" в верхней строке. Так называемом главном меню, откуда производиться доступ ко всем инструментам и прочим настройкам программы.
Так вот в этой надстройке есть много весьма полезных инструментов, в которых (по мере осваивания автокада) возникает необходимость.

Важно: Во время установки автокада, нужно поставить галочку напротив строки @Express Tools@ в противном случае она у тебя просто не установиться.

PS Объяснил так как смог, надеюсь что помог! Если что напутал, пожалуйста поправте!

[sasha_lif]

Express Tools - это куча дополнительных команд, расширяющих возможности акада. Ставится обычно вместе с самим акадом, но по идее можно и после доставить, см. ссылку:
http://forum.dwg.ru/showthread.php?t...=Express+Tools
и самая толстая ветка, даже закреплена как важная!!
http://forum.dwg.ru/showthread.php?t=1893

[serov]

Сообщение от Profan Да я и не пробовал в пространстве листа. В модели все работает. Кстати, привязки надо отключить.

Нашел текст. Лисп работает и в модели, но тект улетает далеко-далеко приходится искать, что еще отключить?

[Profan]

Проверь в новом чертеже.

[sbi]

Сообщение от Profan Проверь в новом чертеже.

Извини, замучаю: пускаю лисп в 9-ке, а он паразит все буквы в одну точку поместил и ещё посмеивается, выделяя каждую букву по очереди,
принцип по виду понимаю- делим полилинию, находим касательную в каждой точке, вставляем туда блок, состоящий из введенных букв в соответствии с устаноленным стилем , все ясно, но так как, я со скобками не владах - ничего поделать не могу. В ручную, по командам быстрее, но хочется-ой как хо...кнопочку найти-большую и "красную" "Что делать?"
PS О, забыл про osnap, завтра попробую

[KAI]

Может подойдет. Программа CURVED_T (описание на htpp://geol-dh.ru/kai_stru.html).

[skif58]

Сообщение от Profan Вдоль дуги - это в Express Tools. Вдоль произвольной кривой - вроде есть в ToolPack (где взять не знаю).

Да, в ToolPack это делается очень просто: Text->Alonq Objects
ToolPac11.rar

[Наифа]

Спасибо за помощь. Доставила Экспресс. А что дальше делать не знаю. Все на инглише. Подскажите! По порядку.

[sbi]

Сообщение от Наифа Спасибо за помощь. Доставила Экспресс. А что дальше делать не знаю. Все на инглише. Подскажите! По порядку.

Изучать английский, Expess (меню выпадает) text (текст- он и в Африке-текст) Arc-Aligned Text (по дуге значит)

[Shaft]

Знатоки автокада, у меня есть вопрос по поводу Express Tools.(раз уж мы тут затронули эту тему)
Где нибудь есть подробное описание всех содержащихся в нем комманд?
Что бы всех начинающих (включая и меня) можно было бы просто ткнуть носом в эту инстркцию и всех делов!

[skif58]

Наифа, если этот файлик из архива кинуть в папку:
C:\Documents and Settings\User\Application Data\Autodesk\AutoCAD 2008\R17.1\rus\Support, то хотя бы меню будет по русски.

[Хмурый]

есть

[Shaft]

Сообщение от Хмурый есть

Хмурый, а можно поподробнее

[Хмурый]

Shaft, справка в Express Tolls есть. В ней про все команды- подробно

[sbi]

Сообщение от Shaft Знатоки автокада, у меня есть вопрос по поводу Express Tools.(раз уж мы тут затронули эту тему) Где нибудь есть подробное описание всех содержащихся в нем комманд? Что бы всех начинающих (включая и меня) можно было бы просто ткнуть носом в эту инстркцию и всех делов!

На каком языке?

[Shaft]

Согласен Хмурый, но она ведь тоже на английском! А я имел ввиду русский вариант.
___________________________________________________________________________
skif58, спасибо большое за руссификатор express tools!!!!!

Теперь ориентироваться стало НАМНОГО ПРОЩЕ!!!!!!!

[Profan]

Express Tools всегда были на английском. Но в некоторых клонах AutoCAD'а (например, в ZWCAD) эти примочки переведены на русский язык.
Описание можно посмотреть здесь:
http://www.cad.dp.ua/stats/book7et.php

[Shaft]

Сообщение от Profan Express Tools всегда были на английском. Но в некоторых клонах AutoCAD'а (например, в ZWCAD) эти примочки переведены на русский язык. Описание можно посмотреть здесь: http://www.cad.dp.ua/stats/book7et.php

Спасибо большое Profan, теперь осталость только опробовать все команды на приерах. Чтобы до конца их освоить. Сегодня вечером займусь

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

Кто-нибудь, напомните, сколько команд в Express Tools? 200? 300?
По-моему, за вечер их освоить будет весьма затруднительно...

[sbi]

Сообщение от Кулик Алексей aka kpblc Кто-нибудь, напомните, сколько команд в Express Tools? 200? 300? По-моему, за вечер их освоить будет весьма затруднительно...

Наша молодежь все может!
Offtop: Offtop: "Поэт-самоучка,ученый поэт...
В чем разница здесь или разницы нет?
Один до вершин добирается сам.
И за уши тянут другого к азам.
......
Иного субъекта учи не учи,
Но каркуют рифмой убогой грачи."

[Хмурый]

хорош флудить в теме Как пустить текст вдоль изогнутой линии?
для Экспрессов есть своя тема Express Tools

[Shaft]

Сообщение от Кулик Алексей aka kpblc Кто-нибудь, напомните, сколько команд в Express Tools? 200? 300? По-моему, за вечер их освоить будет весьма затруднительно...

Да ладно тебе придираться, я же имел виду что займусь изучением, а не говорил что освою ВСЁ за вечер.
__________________________________________________________

Полностью согласен с Хмурым по поводу флуда.
Лучше давайте поговорим про ToolPac. А то я его скачал, установил... а как его запустить на могу сообразить.
В самом автокаде никаких новых кнопок или менюшек не появилось. И попытка набрать в командной строке "ToolsPac" не увенчалась успехом.

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

Shaft, ToolPac, насколько я помню, не всегда работал в локализованных версиях. Требовалась переделка кода (на lavteam вроде что-то делали).

[skif58]

Сообщение от Shaft Полностью согласен с Хмурым по поводу флуда. Лучше давайте поговорим про ToolPac.

У меня ToolPac работает в локализованных 2006 и 2008 рус. (Загружал через _menuload, можно через _CUI. В настройках указать пути...)
Хотя есть и непонятности, например, в той же команде _DSTP_TXTONOBJ (Text->Alonq Objects), при попытке пустить текст ниже кривой, на ввод в команде:
DS> Generate on <Top>/Bottom: bottom пишет:Неправильное ключевое слово.
А при вводе b, вместо bottom- срабатывает нормально.

[Shaft]

Сообщение от skif58 У меня ToolPac работает в локализованных 2006 и 2008 рус. (Загружал через _menuload, можно через _CUI. В настройках указать пути...) Хотя есть и непонятности, например, в той же команде _DSTP_TXTONOBJ (Text->Alonq Objects), при попытке пустить текст ниже кривой, на ввод в команде: DS> Generate on <Top>/Bottom: bottom пишет:Неправильное ключевое слово. А при вводе b, вместо bottom- срабатывает нормально.

Точно, получилось!
Спасибо skif58

[skif58]

Молодец! Вечером освоишь все команды.

[Shaft]

Буду стараться!
_____________________________________________________

Ладно мой рабочий день на сегодня закончен! Пошёл я домой!
Желаю всем отличных выходных!!!!!!!!
Спасибо всем ещё раз за помощь в решении моей проблемы! Без вашей помощи я бы мог вообще не справиться!

До понедельника Всем пока!

[Наифа]

skif58, спасибо за русик!

[Наифа]

Ребят, помогайте. Сама не могу разобраться с текстом... Надо всего-то нарисовать овалы и вписать текст. Фотографию того, что надо начертить, прилагаю. Размер внешнего эллипса 4000*6000 мм. Отсальное на глаз сойдет. Очень надо для диплома1

[Огурец]

Что-то я сомневаюсь, что в дипломе такая печать требуется... Впрочем дело нехитрое:

[Наифа]

Огурец, СПАСИБО! СПАСИБО! Почему сомневаетесь? мне надо было вынести на лист образцы ветеринарных клейм и штампов. Все они прямоугольные (сделала сама), только одно вот это овальное.

[Огурец]

Пожалуйста! Только каких же чудовищ Вы планируете клеймить штампами размером 6х4 метра? Очень круто!

[Солидворкер]

Сообщение от Огурец Пожалуйста! Только каких же чудовищ Вы планируете клеймит печатями 6х4 метра? Очень круто!

Кит?

[Огурец]

Наифа, откуда Вы? Китов только японцы в последнее время добывают?

[T-Yoke]

Сообщение от Огурец Пожалуйста! Только каких же чудовищ Вы планируете клеймить штампами размером 6х4 метра? Очень круто!

Может они где-то генно-модифицированных динозавров разводят, а мужики-то и не знают...