Вставить текст в центр прямоугольника

protorgovec · 17.05.2016, 15:18

Добрый день.
Возникла небольшая проблемка, может кто подскажет.

Код:

(vla-AddText (vla-get-PaperSpace Ch2) "1. Общие допуски ГОСТ 30893.2-mK." (vlax-3D-point 35 77 0) 5)

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

Кулик Алексей aka kpblc · 17.05.2016, 16:08

Получи границы созданного текста через vla-getboundingbox и выполняй соответствующие вычисления.

VVA · 17.05.2016, 16:50

В лиспе есть ф-ция textbox
Почитай тему Автоматический подбор высоты текста Там рассматривали, что точнее определяет габарит текста (мтекста): textbox, boundingbox, ACET-GEOM-OBJECT-POINT-LIST, ACET-GEOM-TXTBOX,

Кулик Алексей aka kpblc · 17.05.2016, 17:33

Насколько я помню, textbox и acet-* могут работать только с объектом текста, который лежит в текущем пространстве. Могу ошибаться.

protorgovec · 18.05.2016, 10:49

Цитата:

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

Получи границы созданного текста через vla-getboundingbox и выполняй соответствующие вычисления.

Получил эти границы

Код:

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

 (vla-getboundingbox T2 'minp 'maxp)
(vlax-safearray->list minp)
(vlax-safearray->list maxp)

Знаю координаты и прямоугольника куда вписать, а как заставить что бы он менял ширину текста? Не могу понять

Кулик Алексей aka kpblc · 18.05.2016, 11:03

Сними дамп объекта - увидишь свойство ScaleFactor. С ним и работай.

protorgovec · 18.05.2016, 15:15

Цитата:

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

Сними дамп объекта - увидишь свойство ScaleFactor. С ним и работай.

Снял дамп

Код:

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

 (vlax-dump-object T1 T)

много свойств. А почему не ставит такое свойство, как длина текста? Вообще можно как то определить длину текста? Что то не могу найти про длину текста ничего

Fedorino · 18.05.2016, 15:21

Если текст - строка, то функция (strlen "текст")

Получишь количество символов.

Кулик Алексей aka kpblc · 18.05.2016, 15:26

protorgovec, ты сначала расскажи, что в твоем понимании "длина текста". Количество символов?

protorgovec · 18.05.2016, 15:28

Цитата:

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

Получишь количество символов.

Количество символов мне наверное не поможет. Мне нужна длина в мм. А можно ли определив координаты описанного прямоугольника вокруг текста

Код:

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

 (vla-getboundingbox T1 'minp 'maxp)

вытащить координаты Х? Там бы уже я через математику

----- добавлено через ~1 мин. -----

Цитата:

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

ты сначала расскажи, что в твоем понимании "длина текста". Количество символов?

Длина мне нужна в мм

Кулик Алексей aka kpblc · 18.05.2016, 15:37

Можно. Вытаскивай.

protorgovec · 18.05.2016, 15:41

Цитата:

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

Можно. Вытаскивай.

аж настроение поднялось

А можешь подсказать как?

Сергей812 · 18.05.2016, 15:51

Цитата:

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

Длина мне нужна в мм

distance ?

protorgovec · 18.05.2016, 15:57

Цитата:

Сообщение от Сергей812

distance ?

distance мне выдает 0

Кулик Алексей aka kpblc · 18.05.2016, 15:57

Гидрит вашу перекись марганца за ногу! Получили minp, maxp, а дальше кто будет преобразования делать?

protorgovec · 18.05.2016, 16:00

Цитата:

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

Гидрит вашу перекись марганца за ногу! Получили minp, maxp, а дальше кто будет преобразования делать?

Ну дурная у меня голова

а нога тут не при чем

, забыл я про это. Сейчас сделаю

----- добавлено через ~21 мин. -----

Цитата:

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

Гидрит вашу перекись марганца за ногу! Получили minp, maxp, а дальше кто будет преобразования делать?

О смотрю видео с тобой

хоть увидел своего подсказчика

----- добавлено через ~60 мин. -----

Цитата:

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

Гидрит вашу перекись марганца за ногу! Получили minp, maxp, а дальше кто будет преобразования делать?

Не могу понять, как преобразовывать координаты

(((( совсем глупый!

----- добавлено через ~2 ч. -----

Цитата:

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

Гидрит вашу перекись марганца за ногу! Получили minp, maxp, а дальше кто будет преобразования делать?

Алексей, подскажи:

Код:

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

 (vla-getboundingbox T1 'minp 'maxp) (setq Xt1 (vlax-safearray->list minp)) (setq Xt2 (vlax-safearray->list maxp))
(setq Dlt1 (DISTANCE Xt2 Xt1))
(if (> Dlt1 120) (vla-put-ScaleFactor T1 0.6))

он назначает ширину 0,6 но в реале ширина текста не меняется. Не могу понять почему

VVA · 18.05.2016, 19:27

vla-getboundingbox не пойдет. Нарисуй один текст горизонтальный, второй - под углом (например 45 градусов)
Выполни код и посмотри, какие габариты возвращает vla-getboundingbox

Код:

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

(setq T1 (vlax-ename->vla-object(car(entsel "Select text"))))
 (vla-getboundingbox T1 'minp 'maxp) 
(setq Xt1 (vlax-safearray->list minp))
(setq Xt2 (vlax-safearray->list maxp))
(command "_PLINE" "_non"  Xt1 "_non" (list(car Xt1)(cadr Xt2)) "_non" Xt2 "_non" (list(car Xt2)(cadr Xt1)) "_C")

А вот пример ACET-GEOM-OBJECT-POINT-LIST Можно почитать дальше, пост #15
На картинке черным - результат vla-getboundingbox, красным - код из поста #14 по ссылке (ACET-GEOM-OBJECT-POINT-LIST )

----- добавлено через ~10 мин. -----

Цитата:

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

И как заставить ,что если текст выходит за рамки, что бы играл коэффициентом ширины?

Как вариант

Код:

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

(setq dst (getdist "\nУкажите требуемую длину текста :"))
(setq txt (car(entsel "\nВыберите текст")))
(setq ScaleFactor (cdr(assoc 41 (entget txt))))
(setq lst (ACET-GEOM-OBJECT-POINT-LIST txt 1e-3))
(while (> (setq Ltxt (distance (car lst) (cadr lst))) dst)
  (setq ScaleFactor (- ScaleFactor 0.01))
  (entmod (subst (cons 41 ScaleFactor)(assoc 41 (entget txt))(entget txt)))
  (entupd txt)
  (setq lst (ACET-GEOM-OBJECT-POINT-LIST txt 1e-3))
  )

Кулик Алексей aka kpblc · 18.05.2016, 20:59

Цитата:

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

он назначает ширину 0,6 но в реале ширина текста не меняется. Не могу понять почему

Либо REGENMODE в 1, либо vla-update для примитива текста.
VVA, я же говорю, что предложенные тобою функции работают только с примитивами, лежащими в текущем пространстве (единственное исключение, кажется - это textbox, но в какой СК он возвращает значения, я не знаю).

----- добавлено через 35 сек. -----
Добавлю: предварительно получить нормаль объекта и углы его поворота - не вопрос.

protorgovec · 18.05.2016, 21:02

Цитата:

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

vla-getboundingbox не пойдет. Нарисуй один текст горизонтальный, второй - под углом (например 45 градусов)
Выполни код и посмотри, какие габариты возвращает vla-getboundingbox

Код:

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

(setq T1 (vlax-ename->vla-object(car(entsel "Select text"))))
 (vla-getboundingbox T1 'minp 'maxp) 
(setq Xt1 (vlax-safearray->list minp))
(setq Xt2 (vlax-safearray->list maxp))
(command "_PLINE" "_non"  Xt1 "_non" (list(car Xt1)(cadr Xt2)) "_non" Xt2 "_non" (list(car Xt2)(cadr Xt1)) "_C")

А вот пример ACET-GEOM-OBJECT-POINT-LIST Можно почитать дальше, пост #15
На картинке черным - результат vla-getboundingbox, красным - код из поста #14 по ссылке (ACET-GEOM-OBJECT-POINT-LIST )

----- добавлено через ~10 мин. -----

Как вариант

Код:

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

(setq dst (getdist "\nУкажите требуемую длину текста :"))
(setq txt (car(entsel "\nВыберите текст")))
(setq ScaleFactor (cdr(assoc 41 (entget txt))))
(setq lst (ACET-GEOM-OBJECT-POINT-LIST txt 1e-3))
(while (> (setq Ltxt (distance (car lst) (cadr lst))) dst)
  (setq ScaleFactor (- ScaleFactor 0.01))
  (entmod (subst (cons 41 ScaleFactor)(assoc 41 (entget txt))(entget txt)))
  (entupd txt)
  (setq lst (ACET-GEOM-OBJECT-POINT-LIST txt 1e-3))
  )

спасибо. завтра на работе посмотрю. Только (command) не для меня

я все это пытаюсь делать в неактивном документе

VVA · 18.05.2016, 22:43

Цитата:

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

Только (command) не для меня

command чертит полилинию вокруг текста, это для наглядности.

Кулик Алексей aka kpblc · 18.05.2016, 23:39

Цитата:

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

в неактивном документе

Тогда только ActiveX, только хардкор

protorgovec · 19.05.2016, 06:41

Цитата:

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

Либо REGENMODE в 1, либо vla-update для примитива текста.
VVA, я же говорю, что предложенные тобою функции работают только с примитивами, лежащими в текущем пространстве (единственное исключение, кажется - это textbox, но в какой СК он возвращает значения, я не знаю).

Доброе утро.

не знаю почему так, но придя с утра на работу, ничего не меняя 4 раза прогнал прогу, и все 4 раза он менял фактор ширины

прикола конечно не понял, но все работает

Спасибо большое за ваши подсказки. Спасибо что вы есть!!!!!!!

----- добавлено через ~3 ч. -----

Цитата:

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

Получи границы созданного текста через vla-getboundingbox и выполняй соответствующие вычисления.

Алексей, вот что получилось у меня, может кому то пригодится

Код:

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

 (setq T1 (vla-AddText (vla-get-PaperSpace Ch2) P (vlax-3D-point 33 26 0) 3))
(vla-getboundingbox T1 'minp 'maxp) (setq Xt1 (vlax-safearray->list minp)) (setq Xt2 (vlax-safearray->list maxp))
(setq Dlt1 (DISTANCE Xt2 Xt1))
(while (> Dlt1 23)
(vla-getboundingbox T1 'minp 'maxp) (setq Xt1 (vlax-safearray->list minp)) (setq Xt2 (vlax-safearray->list maxp))
(setq Dlt1 (DISTANCE Xt2 Xt1))
(setq Sh1 (vla-get-ScaleFactor T1))
(if (> Dlt1 23) (vla-put-ScaleFactor T1 (- Sh1 0.05))))

Но вот у меня остался один вопрос, именно касательно темы

по умолчанию точка привязки текста стоит слева, как ее переместить в центр текста?

----- добавлено через ~7 ч. -----

Цитата:

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

Тогда только ActiveX, только хардкор

Люди помогите, не могу понять как выравнить текст по центру

понимаю что нужно задать параметр тексту bottomcenter, но как не могу понять. Пробывал так же как и с фактором ширины, но он вообще не принимаем данное словосочетание

protorgovec · 20.05.2016, 12:56

Цитата:

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

Тогда только ActiveX, только хардкор

Добрый день. Подскажите. Пытаюсь определить координаты точки привязки текста

Код:

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

 (setq obj (vlax-ename->vla-object (car (entsel))))
(setq temp (vla-GetAttachmentPoint obj 2 1))

Все как у Полищука, стр. 418-419, но в ответ получаю: ActiveX Server возвратил ошибку: неизвестное имя: GetAttachmentPoint
У меня автокад 2015

Fedorino · 20.05.2016, 15:14

protorgovec, у Полищука GetAttachmentPoint объект: Table указано.

ищи свойство InsertionPoint

Кулик Алексей aka kpblc · 20.05.2016, 16:32

... Или TextAlignmentPoint (если не ошибаюсь)

protorgovec · 20.05.2016, 19:56

Цитата:

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

у Полищука GetAttachmentPoint объект: Table указано.

Да, уже после понял что это не для текста. Просто времени на это мало, читаю в попыхах. Книжка не тонкая,

еще не все выучил что где примерно. Спасибо за подсказку

----- добавлено через ~1 мин. -----

Цитата:

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

Или TextAlignmentPoint (если не ошибаюсь)

Спасибо за подсказку, надеюсь в понедельник выйду на работы заставлю текст вставать как надо

Алексей, а какие лучше переменные вводить, если не желательно глобальные? Глобальные чем то плохи? Как опытный программист скажешь?

Кулик Алексей aka kpblc · 21.05.2016, 22:15

Глобальные плохи тем, что их начинаешь использовать даже когда они явно не объявлены. Меняются они тоже глобально. В одной функции у тебя D1 - диаметр внешний, во второй - внутренний. При этом в первой он целый, во второй - с плавающей точкой. В первой ты ее используешь в запросе типа:
(defun f1()
(if (not d1) (setq d1 10))
(getint (strcat "\nВведите значение внешнего диаметра <" (itoa d1) "> : ")))
)
Во второй:
(defun f2()
(if (not d1) (setq d1 12.5))
(getint (strcat "\nВведите значение внутреннего диаметра <" (rtos d1 2 4) "> : "))
)
В принципе, оба запроса верные. Только вызывать их один за другим не рекомендую: получишь ошибку на втором вызове.

protorgovec · 22.05.2016, 22:22

Цитата:

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

Глобальные плохи тем, что их начинаешь использовать даже когда они явно не объявлены. Меняются они тоже глобально. В одной функции у тебя D1 - диаметр внешний, во второй - внутренний. При этом в первой он целый, во второй - с плавающей точкой. В первой ты ее используешь в запросе типа:
(defun f1()
(if (not d1) (setq d1 10))
(getint (strcat "\nВведите значение внешнего диаметра <" (itoa d1) "> : ")))
)
Во второй:
(defun f2()
(if (not d1) (setq d1 12.5))
(getint (strcat "\nВведите значение внутреннего диаметра <" (rtos d1 2 4) "> : "))
)
В принципе, оба запроса верные. Только вызывать их один за другим не рекомендую: получишь ошибку на втором вызове.

Да я вроде бы когда пишу, рядом всегда бумажка с записанными всеми переменными. Очень внимательно слижу что бы переменные не повторялись. Да и после все эти переменные обнуляю, что бы если запускаю какую нибудь вторую программу, что бы не было повторений.

----- добавлено через ~10 ч. -----

Цитата:

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

Или TextAlignmentPoint (если не ошибаюсь)

Пробывал:

Код:

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

 (vla-get-Alignment T2)
(vla-put-Alignment T2 acAlignmentCenter)

Он мне ставит вторую точку выравнивания с отметкой 0,0 (координаты формата листа, текст стоит на том же месте.
InsertionPoint-точка вставки, мне нужна точка выравнивания.
TextAlignmentPoint - тоже самое что и при Alignment.
Почему так?

Кулик Алексей aka kpblc · 23.05.2016, 08:43

Некоторые вещи разбирал тут: http://autolisp.ru/2010/04/06/text-and-attrib-entities/

protorgovec · 23.05.2016, 09:12

Цитата:

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

Некоторые вещи разбирал тут: http://autolisp.ru/2010/04/06/text-and-attrib-entities/

Почитал

получается не одно свойство для текста нужно программно менять. Тогда наверное я оставлю по умолчанию слева, длину отыграю фактором ширины, если не влазиет. А если уж нормоконтроль заортачится что мол не совсем поцентру, ладно, подвину вручную

Кулик Алексей aka kpblc · 23.05.2016, 09:28

Ох, как же с тобой тяжело... Поменяй выравнивание, потом TextAlignmentPoint, потом InsertionPoint - в чем трудность-то?

protorgovec · 23.05.2016, 11:39

Цитата:

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

Ох, как же с тобой тяжело...

ну, может это просто тебе кажется?

я же написал. Я понял что нужно несколько параметров поменять. Просто для себя нашел иное решение.

nick49 · 23.05.2016, 19:40

to protorgovec
Нашел у Lee Mac Programming лисп
http://www.lee-mac.com/assoctextbox.html

protorgovec · 24.05.2016, 06:18

Цитата:

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

to protorgovec
Нашел у Lee Mac Programming лисп
http://www.lee-mac.com/assoctextbox.html

Спасибо!

P_S · 24.05.2016, 17:50

Хотелось для наглядности сделать красиво, но пошли затыки, и в результате получился вот такой модуль. Проверял в Model space, но почти уверен, что будет работать и в неактивном документе, и в Paper space.

Код:

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

 (vl-load-com)
(setq str "1. Общие допуски ГОСТ 30893.2-mK." ;Переменная с текстовой строкой (можно организовать выбор из списка и т.п.)
      txt(vla-AddText(vla-get-ModelSpace(vla-get-ActiveDocument(vlax-get-acad-object)))str(vlax-3D-point 0 0 0) 5);создаём
      ;текстовый объект в произвольных координатах в том же пространстве, где находится прямоугольник
      rt(vlax-ename->vla-object(ssname(ssget "_:S" '((0 . "LWPOLYLINE")))0))
      co(vlax-safearray->list(vlax-variant-value(vla-get-Coordinates rt))));Выбираем прямоугольник
      ;и получаем список координат вершин
(vla-put-Alignment txt acAlignmentMiddleCenter);задаём тексту выравнивание посередине по центру
(vla-put-TextAlignmentPoint txt(vlax-3D-point
(inters(list(car co)(cadr co))(list(nth 4 co)(nth 5 co))(list(caddr co)(cadddr co))(list(nth 6 co)(nth 7 co)))))
;задаём точку вставки посередине прямоугольника
(setq rt_lst(list(list(list(car co)(cadr co))(list(caddr co)(cadddr co)))
		 (list(list(caddr co)(cadddr co))(list(nth 4 co)(nth 5 co)))
		 (list(list(nth 4 co)(nth 5 co))(list(nth 6 co)(nth 7 co)))
		 (list(list(nth 6 co)(nth 7 co))(list(car co)(cadr co))))
;Тупо создаём список для обхода по 4 сторонам прямоугольника
      ind_dl(vl-sort-i rt_lst(function(lambda(pt1 pt2)(>(distance (car pt1)(cadr pt1))(distance(car pt2)(cadr pt2)))))))
;Получаем набор индексов списка, отсортированных по длине сторон (мы не знаем, в каком порядке они создавались)
(if(>(setq rot
(min(angle(car(nth(car ind_dl) rt_lst))(cadr(nth(car ind_dl) rt_lst)))
    (angle(car(nth(cadr ind_dl) rt_lst))(cadr(nth(cadr ind_dl) rt_lst)))))(/ pi 2))
  (setq rot(- rot pi)))
(vla-put-Rotation txt rot)
;из длинных сторон выбираем наименьшее направление, которое ближе всего к горизонтали и задаём поворот текста,
;если текст вверх ногами - переворачиваем на 180
(if(>(setq delta(-
(distance'(0.0 0.0 0.0)(list(caadr(textbox(entget(vlax-vla-object->ename txt))))0.0 0.0))
(distance(car(nth(car ind_dl) rt_lst))(cadr(nth(car ind_dl) rt_lst)))
))0);Если расстояние от точки вставки до конца textbox больше длины прямоугольника,
  (progn(setq insp(polar(vlax-safearray->list(vlax-variant-value(vla-get-InsertionPoint txt)))rot(/ delta 2))
	      alp(polar insp rot(distance(car(nth(car ind_dl) rt_lst))(cadr(nth(car ind_dl) rt_lst)))))
;вычисляем положение точек привязки текста, исходя из этой разности длин и известного угла поворота
  (vla-put-Alignment txt acAlignmentFit);задаём тексту выравнивание по ширине 
(vla-put-InsertionPoint txt(vlax-3D-point insp))
(vla-put-TextAlignmentPoint txt(vlax-3D-point alp));и указываем точки, определяющие при таком выравнивании его габариты
    );end of progn
  );end of if

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
LISP. Вставка в таблицу поля, соотвествующего площади примитива	Profan	Готовые программы	272	06.06.2021 23:12
Как вставить текст в AutoCad?	Александр36	Программирование	20	01.12.2010 22:24
Как вывести текст в model из приложения написанного на lisp?	paradoxvaha	AutoCAD	3	16.04.2007 03:54
Многострочный текст в атрибутах	медвежонок	AutoCAD	1	09.06.2006 12:05
Вставить текст программно	Flint	Программирование	13	03.10.2003 10:24

17.05.2016, 15:18		#1
Вставить текст в центр прямоугольника protorgovec газо- нефтепереработка Уфа Регистрация: 22.07.2015 Сообщений: 98 Добрый день. Возникла небольшая проблемка, может кто подскажет. Код: [Выделить все] (vla-AddText (vla-get-PaperSpace Ch2) "1. Общие допуски ГОСТ 30893.2-mK." (vlax-3D-point 35 77 0) 5) в нужные координаты вставляет текст. А как прописать, что бы вставлял в центр нужного прямоугольника. Как задаются координаты этого прямоугольника? И как заставить ,что если текст выходит за рамки, что бы играл коэффициентом ширины? Нужен именно однострочный, переносы нельзя.
Просмотров: 7090