[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