Текст вдоль полилинии или сплайна (по кривой)

Denioska · 13.03.2007, 06:38

Доброго времени суток! Возникла такая задача - расположить текст по кривой линии (Например название реки на карте). Corel сам предлагает расположить текст по кривой при наведении курсора "текст" на линию.
Как делать текст по окружности - это в Акаде понятно, а как расположить его по заданной линии нет. Или Акад вообще такого не позволяет делать. В Helpe ничего такого не нашел. Может лисп какой есть?
И второй вопрос - как привязать текст "Цифру" к линии, чтобы его можно было перемещать вдоль линии ("как по рельсам"). Нужно для проставления меток на изолинии.
Заранее благодарен.

zenon · Регистрация: 21.02.2005

Цитата:

Сообщение от Denioska

Возникла такая задача - расположить текст по кривой линии (Например название реки на карте). Corel сам предлагает расположить текст по кривой при наведении курсора "текст" на линию.
Как делать текст по окружности - это в Акаде понятно, а как расположить его по заданной линии нет. Или Акад вообще такого не позволяет делать. В Helpe ничего такого не нашел. Может лисп какой есть?
И второй вопрос - как привязать текст "Цифру" к линии, чтобы его можно было перемещать вдоль линии ("как по рельсам"). Нужно для проставления меток на изолинии.
Заранее благодарен.

В ToolPAC есть команда _DSTP_TXTONOBJ (Text->Alonq Objects)
распологает текст вдоль линий (различных), данная команда создает блок.
А насчет привязки или лисп или просто за маркер привязки текста и таскать с привязкой к ближайшей точке линии.

Denioska · 13.03.2007, 10:07

Большое спасибо, про ToolPac как то забыл

Ставил один раз, не очень понравился, надо будет есчо раз попробовать, вдруг мнение изменится. Так как не все команды испробовал, например рекомендуемую.
Еще раз спасибо.

KAI · 14.03.2007, 01:01

Как вариант могу предложить CURVED_T (подробнее geol-dh.ru/kai_stru.html)

Denioska · 14.03.2007, 03:54

Спасибо, хороший вариант Demo Версию вашей программы ставил, оч понравилась. Сейчас работаю с шефом по вопросу возможного приобретения.

Neznayka · 22.10.2010, 11:59

Может кто встречал просто лисп для сей проблемы. Без установки kai или ToolPAC.

Кликнул по тексту, затем кликнул по полилинии/отрезку и угол поворота текста стал равен углу сегмента полилинии.
Спасибо.

VVA · 22.10.2010, 12:21

CurveAlignedText - просто выравнивание
Dynamic Text Curve Align - выравнивание с реакторами
Автор: Lee Mac
Сайт www.lee-mac.com
http://lee-mac.com/curvealignedtext.html
http://lee-mac.com/dtcurve.html

Neznayka · 22.10.2010, 12:34

VVA, уже который раз вы меня выручаете.
Спасибо.

Добавлю еще, это просто супер. Не думал что такое лисп может.
это даже больше чем нужно.
функции + - O P чудо

qrj12 · 15.04.2011, 15:27

Лисп не располагает текст вдоль дуги или сплайна например.Он его просто привязывает.Есть ли лиспы или команды,которые выгибали бы текст "дугой".Только вот нет возможности установки ToolPAC или Expresstools.ПК рабочий,программы устанавливать никто не будет.Целый ряд процедур нужно проделать чтоб что-то установить.

Э-ге-гей!!!Гуру!Можно ли в голом Акаде текст сделать вдоль Сплайн как делает ToolPAC только без ToolPAC ??? Неужели нет?

Аааааааааааааааааауууууууууууууу!!!!! Есть живые??? Можно ли cделать так без ToolPAC ???

Ермак@ · 05.10.2012, 12:20

ой, и мне понравилось. Спасибо VVA.

VVA · 05.10.2012, 22:23

Цитата:

Сообщение от qrj12

Есть ли лиспы или команды,которые выгибали бы текст "дугой"

Slinky Text

G-RAV · 31.03.2013, 13:57

 Select or Type Text:

Почему то не получается написать по-русски?

CHESNOK · 23.05.2018, 04:53

Добрый день. Не подскажите есть ли такая функция или лисп позволяющая сдвинуть текст к заданной лини по ее траектории (см. рисунок). Конкретно в моем случаи имеется продольный проектный профиль и рабочие отметки в виде текста и расположенные на одной прямой. Нужно текст с рабочими отметками по оси Y перенести к линии проектного продольного профиля.
Те лиспы которые я видел позволяли расположить текст вдоль заданной кривой но они меняли положение текста по оси X, мне же нужно просто опустить текст по оси Y вдоль заданной линии, но чтобы по оси X положение не менялось.
Есть ли какое-то решение?

kp+ · 23.05.2018, 08:53

Цитата:

Сообщение от CHESNOK

см. рисунок

Где смотреть рисунок? К посту не прикрепился.

CHESNOK · 23.05.2018, 11:04

kp+, извиняюсь, добавил

Пока писал забыл прикрепить)

kp+ · 23.05.2018, 11:40

Создать ПСК по объекту этого самого отрезка (_ucs->_ob->выбрать отрезок) и в панели свойств присвоить текстам Y-коорд. 0 или +1...+2

zenon · 23.05.2018, 13:09

Цитата:

Сообщение от CHESNOK

Добрый день. Не подскажите есть ли такая функция или лисп позволяющая сдвинуть текст к заданной лини по ее траектории (см. рисунок). Конкретно в моем случаи имеется продольный проектный профиль и рабочие отметки в виде текста и расположенные на одной прямой. Нужно текст с рабочими отметками по оси Y перенести к линии проектного продольного профиля.
Те лиспы которые я видел позволяли расположить текст вдоль заданной кривой но они меняли положение текста по оси X, мне же нужно просто опустить текст по оси Y вдоль заданной линии, но чтобы по оси X положение не менялось.
Есть ли какое-то решение?

http://lee-mac.com/dynamictextalignment.html

CHESNOK · 23.05.2018, 13:56

Нет эти способы не подходят. На картинки я привел пример какого-то участка. Представьте что это продольный профиль. Вы знаете как выглядит продольный профиль? Эта линия не прямая, она меняет свою траекторию то вверх то вниз, она может быть с вписанными радиусами или углами.
Теперь я думаю будет понятнее прикрепил картинку. Важно чтобы по оси X текст оставался на том же месте.

trir · 23.05.2018, 14:30

проще использовать Civil 3D

kp+ · 23.05.2018, 15:28

Цитата:

Сообщение от CHESNOK

Вы знаете как выглядит продольный профиль?

Не все тут геодезисты. Эту картинку надо было выкладывать сразу, а не вводить в заблуждение первой картинкой.

Цитата:

Сообщение от trir

проще использовать Civil 3D

+1 - если CHESNOK'у нужно грамотное и комплексное решение.
А если достаточно уровня "склепано на коленке" - то можно написать и лисп в несколько строк.

Setvar · 23.05.2018, 16:09

Простейшая программа для выравнивания вертикального текста вдоль профиля. Желательно профиль иметь в виде сплайна или полилинии, сглаженной сплайном.

Код:

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

(defun C:PRT ( / echo osm tm vtm txt tvs xl vxl intp ip mip)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq tm (car (entsel "\nУкажите профиль: ")))
(setq vtm (vlax-ename->vla-object tm))
(setq txt T)
(while txt
(setq txt (car (entsel "\nУкажите текст: ")))
(if txt
    (progn
    (setq tvs (cdr (assoc 10 (entget txt))))
    (vl-cmdf "_XLINE" "_V" tvs "")
    (setq xl (entlast))
    (setq vxl (vlax-ename->vla-object xl))
    (setq intp (vla-IntersectWith vtm vxl acExtendNone))
    (setq ip (vlax-safearray->list (vlax-variant-value intp)))
    (setq mip (list (nth 0 ip) (+ (nth 1 ip) 250) (nth 2 ip)))
    (vl-cmdf "_MOVE" txt "" tvs mip)
    (entdel xl)
    ) ; progn
) ; if
) ; while
(setvar "CMDECHO" echo)
(setvar "OSMODE" osm)
(princ)
)

trir · 23.05.2018, 19:24

Цитата:

А если достаточно уровня "склепано на коленке" - то можно написать и лисп в несколько строк.

это только кажется что можно, а на самом деле там одно за другое цепляется - и вот уже надо половину функционала Civil'а реализовать, ну и нафига стараться?

CHESNOK · 24.05.2018, 03:58

Цитата:

Сообщение от trir

проще использовать Civil 3D

Как? Вообще профиль был сделан в Civil3D в том то и проблема что что метки рабочих отметок он подписывает в один ряд над профилем. А по ГОСТу они должны быть вдоль линии профиля (правда отрицательные еще должны быть под линией а положительные над, но упустим этот факт). Поэтому и приходится вручную их двигать. В принципе конечно можно оставить и как есть, не думаю что для эксперта это важно, однако так как сделано по ГОСТу чертеж читать легче особенно когда большие перепады рельефа. Я конечно не исключаю того что в Civil как-то можно настроить метку чтобы она выравнивалась по профилю но в интернете я такого способа не находил. Я знаю что существует приложение C3D Extensions которая подписывает рабочие отметки в виде текста по ГОСТу, но она не всегда правильно работает. Например была у меня проблема что все рабочие отметки подписывались не в тех местах. Как я понял это было связано с рублиным пикетом на трассе. После рубленного пикета отметки расставлялись не с тем шагом, были со смещением. Кстати об этой проблеме я писал автору программы. Но вопрос не в этом.
Т.к. профиль в любом случаи дорабатывается в ACADе в итоге проще рабочие отметки сдвинуть вручную. Но т.к. это простая и однотипная работа я подумал что существует подобный лисп поэтому и обратился сюда, вдруг кто знает. Готов выслушать и другие варианты решения.

Setvar, Большое спасибо. Это то что нужно.
Единственное, а можно ли как-то сделать чтобы выбор текста был не по одному а можно было выбрать рамкой выделения целую группу?
Правильно ли я понимаю что цифра 250 отвечает за отступ текста от линии по которой происходит выравнивание?

Код:

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

(setq mip (list (nth 0 ip) (+ (nth 1 ip) 250) (nth 2 ip)))

Setvar · 24.05.2018, 07:18

1. Групповой выбор можно сделать, но попозже.
2. Правильно понимаешь. Можно ввести запрос на отступ текста от профиля, но здесь важно выравнивание текста. В моем примере предполагается, что текст выравнен "влево" относительно точки вставки.

trir · 24.05.2018, 09:36

Цитата:

Я конечно не исключаю того что в Civil как-то можно настроить метку чтобы она выравнивалась по профилю но в интернете я такого способа не находил.

я сел и за пять минут нашёл - "Группа меток пикетов продольного профиля" в метках профиля

CHESNOK · 24.05.2018, 10:45

Цитата:

Сообщение от Setvar

1. Групповой выбор можно сделать, но попозже.
2. Правильно понимаешь. Можно ввести запрос на отступ текста от профиля, но здесь важно выравнивание текста. В моем примере предполагается, что текст выравнен "влево" относительно точки вставки.

1. Буду признателен если вы сможете добавить эту возможность.
2. Вводить данный запрос думаю нет необходимости просто у меня текст улетал далеко вверх (видимо я в другом масштабе работаю) поэтому я сначала не понял что происходит. Я в лиспе сам задал отступ какой мне нужно, изменять думаю все равно его не придется. Просто написании лиспов ни чего не понимаю поэтому решил спросить.

Цитата:

Сообщение от trir

я сел и за пять минут нашёл - "Группа меток пикетов продольного профиля" в метках профиля

ссылочку можете добавить, пожалуйста? Я пока не понимаю что вы нашли.

trir · 24.05.2018, 10:53

Цитата:

ссылочку можете добавить, пожалуйста? Я пока не понимаю что вы нашли.

http://help.autodesk.com/view/CIV3D/...2-44ABF04BB1C1

CHESNOK · 24.05.2018, 12:14

Цитата:

Сообщение от trir

http://help.autodesk.com/view/CIV3D/...2-44ABF04BB1C1

Не вижу где там описано как сделать так чтобы метки рабочих отметок профиля выравнивались по линии проетного продольного профиля как требует ГОСТ 21.701-2013 пункт 7.4
Вопрос был в выравнивании подписей рабочих отметок по оси Y относительно линии проектного профиля, а не в том как получить эти отметки на профиле.

trir · 24.05.2018, 12:23

Выбираешь "Стиль метки профиля" = "Основные пикеты" и метки раставляются по пикетам по линнии поверхности

CHESNOK · 24.05.2018, 15:31

Цитата:

Сообщение от trir

Выбираешь "Стиль метки профиля" = "Основные пикеты" и метки раставляются по пикетам по линнии поверхности

Давайте по порядку. Правильно ли я вас понимаю? Я выделяю "профиль компоновки" нажимаю правую клавишу мыши >"Редактировать метки..." Правильно? Дале делаю то что показано на скрине.
Однако для создания рабочей отметки в списке свойств не существует нужного параметра. Как создать такую метку? Может конечно существует какое-то выражение для создания данного свойства но мне оно не известно.
Рабочая отметка - это разность между отметкой проектного профиля и отметкой существующего профиля поверхности. (красная минус черная).
Значение пикета или значение отметки таким способом я могу расставить, но рабочую отметку (разность красного и черного профиля) не могу. Ну или не понимаю как

Setvar · 24.05.2018, 16:34

Вариант программы со стандартным выбором текстовых объектов, включая рамку, секрамку и т.д.

Код:

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

(defun C:PRT ( / echo osm tm vtm sst lensst txt tvs xl vxl intp ip mip)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq tm (car (entsel "\nУкажите профиль: ")))
(if (and tm (or (= (cdr (assoc 0 (entget tm))) "POLYLINE")
                (= (cdr (assoc 0 (entget tm))) "LWPOLYLINE")
                (= (cdr (assoc 0 (entget tm))) "SPLINE"))
    ) ; and
    (progn
    (setq vtm (vlax-ename->vla-object tm))
    (princ "\nВыберите текстовые объекты: ")
    (setq sst (ssget (list (cons 0 "TEXT"))))
    (if sst
        (progn
        (setq lensst (sslength sst) n 0)
        (repeat lensst
            (setq txt (ssname sst n))
            (setq tvs (cdr (assoc 10 (entget txt))))
            (vl-cmdf "_XLINE" "_V" tvs "")
            (setq xl (entlast))
            (setq vxl (vlax-ename->vla-object xl))
            (setq intp (vla-IntersectWith vtm vxl acExtendNone))
            (setq ip (vlax-safearray->list (vlax-variant-value intp)))
            (setq mip (list (nth 0 ip) (+ (nth 1 ip) 3) (nth 2 ip)))
            (vl-cmdf "_MOVE" txt "" tvs mip)
            (entdel xl)
            (setq n (+ n 1))
        ) ; repeat    
        ) ; progn
    ) ; if _sst
    ) ; progn
) ; if _tm
(setvar "CMDECHO" echo)
(setvar "OSMODE" osm)
(princ)
)

CHESNOK · 24.05.2018, 16:57

Setvar, спасибо ОГРОМНОЕ! Все работает.
Скажите а чтобы с МТекст'ом тоже работало трудно сделать? Но вообще это не критично, если марочиться нужно то и так все отлично. МТекст легко превратить в Текст.
Еще раз спасибо. Уже давно хотел такую штуку

Setvar · 24.05.2018, 17:18

Чтобы программа работала как с текстом, так и с мультитекстом, достаточно строку

Код:

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

(setq sst (ssget (list (cons 0 "TEXT"))))

заменить на строку

Код:

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

(setq sst (ssget (list (cons 0 "*TEXT"))))

Замечу, что программа сделана под частный случай, стили текста в ней не анализируются.

CHESNOK · 24.05.2018, 17:28

Цитата:

Сообщение от Setvar

Чтобы программа работала как с текстом, так и с мультитекстом, достаточно строку
....
заменить на строку...

Понятно. Еще раз спасибо.

Цитата:

Сообщение от Setvar

Замечу, что программа сделана под частный случай, стили текста в ней не анализируются.

А на что это влияет, в смысле чем грозит? Шрифт меняться будет или что? Это не важно.

Setvar · 24.05.2018, 17:56

Выравнивание в тексте и мтексте несколько разное. В мтексте может быть свое форматирование. Высота текста не проверяется, единицы чертежа не проверяются...
Возможно, все это не важно...

CHESNOK · 24.05.2018, 18:50

Цитата:

Сообщение от Setvar

Выравнивание в тексте и мтексте несколько разное. В мтексте может быть свое форматирование. Высота текста не проверяется, единицы чертежа не проверяются...
Возможно, все это не важно...

Я проверил со звездочкой все работает как надо, текст и мтекст смещаются строго по оси Y ни каких проблем не заметил. Спасибо

Stich_76 · 26.05.2018, 03:24

Доброго всем дня! Подскажите, что нужно поменять в ЛИСПЕ для выравнивания текста по оси Х? Спасибо!

asas · 01.06.2018, 11:03

Цитата:

Сообщение от VVA

Тип файла: lsp CurveAlignedText.lsp (17.6 Кб, 867 просмотров)
Тип файла: lsp Dynamic Text Curve Align V2.9.lsp (67.2 Кб, 717 просмотров)

Здравствуите, помогите разобартъся с сим чудом, мне необходимо разместитъ поле над линиеи и чтобы поле было с привиазкои к линие, в поле хочу разместит обект с длинои линии. Возможно так сделатъ, если да то как? У меня автокад 2018, пыталса по описанию сделатъ, не получаетъса. Спасибо

Кулик Алексей aka kpblc · 01.06.2018, 11:35

Че?
Ну созайд опле, стаьвв его и томоп перемещай

asas · 01.06.2018, 11:41

Цитата:

Сообщение от Кулик Алексей aka kpblc

Ну созайд опле, стаьвв его и томоп перемещай

Спасибо, у меня линии под разными углами, когда нету привязки сложно выдержатъ ростояние до лини и чтобы по середине была надписъ

trir · 01.06.2018, 11:44

используй стили

Кулик Алексей aka kpblc · 01.06.2018, 11:44

Сильно подозреваю, что:
1. Надо показать "что было" и "что хочется получить"
2. Это вопрос совершенно отдельный и к данной теме имеет весьма опосредованное отношение.

asas · 01.06.2018, 12:09

Цитата:

Сообщение от Кулик Алексей aka kpblc

Надо показать "что было" и "что хочется получить"

Пример

trir · 01.06.2018, 12:22

asas · 01.06.2018, 12:50

Цитата:

Сообщение от trir

del

Простите, что ето

?

trir · 01.06.2018, 13:01

не в ту тему написал

Dimitriy · 10.09.2022, 12:58

Цитата:

Сообщение от VVA

CurveAlignedText - просто выравнивание
Dynamic Text Curve Align - выравнивание с реакторами
Автор: Lee Mac
Сайт www.lee-mac.com
http://lee-mac.com/curvealignedtext.html
http://lee-mac.com/dtcurve.html

В AutoCad 2022 когда выбрал текст вылезает такое сообщение:

Команда: DTCurve
Type or Select Text <10> :
** Error: неверный тип аргумента: lentityp nil **

Что делать?

VitalyAF · 10.09.2022, 17:58

Цитата:

Сообщение от Dimitriy

Что делать?

Выложить свой пример!

Dimitriy · 10.09.2022, 21:55

Цитата:

Сообщение от VitalyAF

Выложить свой пример!

В смысле пример? Проблемный файл?

13.03.2007, 06:38		#1
Текст вдоль полилинии или сплайна (по кривой) Denioska Геолог Иркутск Регистрация: 24.08.2006 Сообщений: 27 Доброго времени суток! Возникла такая задача - расположить текст по кривой линии (Например название реки на карте). Corel сам предлагает расположить текст по кривой при наведении курсора "текст" на линию. Как делать текст по окружности - это в Акаде понятно, а как расположить его по заданной линии нет. Или Акад вообще такого не позволяет делать. В Helpe ничего такого не нашел. Может лисп какой есть? И второй вопрос - как привязать текст "Цифру" к линии, чтобы его можно было перемещать вдоль линии ("как по рельсам"). Нужно для проставления меток на изолинии. Заранее благодарен.
Просмотров: 40050