[mamuk]

доброго времени суток! как можно получить координаты рамки текста?
в Книге Кудрявцева Е.М. написано textbox возвращает диагональные координаты рамки текста, пробовал такое проделать через
( setq a (enget( entlast)))
(textbox а)
получаю (такой результат и в хелпе описан, как я понял( хоть и с английским туговато))
((0.0 -7.10543e-015 0.0) (25.0 5.0 0.0))
где координатами и не пахнет
можно ли извлечь координаты с помощью textbox?
всем спасибо за внимание!

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

Вообще-то оно выдало как раз координаты Первый подсписок - левая нижняя точка; второй подсписок - верхняя правая.
Хотя вообще-то textbox не обрабатывает все возможные варианты написания многострочников, и на нем можно очень неплохо "обжечься". Я бы подумывал об использовании vla-getboundingbox с последующим преобразованием точек.

[mamuk]

(25.0 5.0 0.0) разве не длина текста 25.00, 5.00 высота, 0. угол поворота.?
далеко не силен в lispe т.к. принялся его изучать не давно
(0.0 -7.10543e-015 0.0) что это за координаты, когда графически там видны другие, я имею ввиду когда курсор подвожу к нижней рамки?
или я заблуждаюсь?
(текст использовал однострочный)

[ытя]

textbox возвращает координаты, относительно точки вставки текста.

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

Попробуй выполнить такой код:

Код:

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

(vl-load-com)
(defun test (/ ent lst vertex_lst ins)
  (if (and (= (type (setq ent (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (car (entsel "\nУкажите текст <Отмена> : "))
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'ename
              ) ;_ end of =
           (= (cdr (assoc 0 (entget ent))))
           ) ;_ end of and
    (progn
      (setq lst        (textbox (entget ent))
            ins        (cdr (assoc 10 (entget ent)))
            vertex_lst (mapcar
                         (function
                           (lambda (x)
                             (mapcar '+ ins x)
                             ) ;_ end of lambda
                           ) ;_ end of function
                         (list (car lst)
                               (list (caadr lst) (cadar lst))
                               (cadr lst)
                               (list (caar lst) (cadadr lst))
                               ) ;_ end of list
                         ) ;_ end of mapcar
            ) ;_ end of setq
      (entmakex (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100
                                                                          .
                                                                          "AcDbPolyline"
                                                                          ) '(90 . 4) '(70 . 1) '(43 . 0.0) '(38 . 0.0)
                              '(39 . 0.0) '(210 0.0 0.0 1.0)) ;_ end of list
 ;_ end of list
                        (mapcar '(lambda (x) (cons 10 x)) vertex_lst)
                        ) ;_ end of append
                ) ;_ end of entmakex
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

> ытя: по-моему, не совсем.

[mamuk]

ну точка вставки текста у меня допустим 100,100,0
он мне дожен вернуть (100,100,0) ( 105,125,0) так я понимаю?

[ытя]

Из Help-а

Return Values A list of two points, if successful; otherwise nil. The points returned by textbox describe the bounding box of the text object as if its insertion point is located at (0,0,0) and its rotation angle is 0. The first list returned is generally the point (0.0 0.0 0.0) unless the text object is oblique or vertical, or it contains letters with descenders (such as g and p).

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

Ну дык! Границы прямоугольника для текста, вставленного в 0,0,0. Или нихьть?

[mamuk]

а по русски как это звучит? я в мейле все переводил, так то понял что длжны быть координаты, а всех тонкостей в переведенном бреде мне не понять. я конечно откровенно туплю, но все же "(25.0 5.0 0.0) разве не длина текста 25.00, 5.00 высота, 0. угол поворота ". пробовал с разной длинной текста,
а наверное это первое координаты нижнего левого угла всегда, (0,0,0) да? а 25 это тебе и длина и коодината по x относительно координат (0,0,0) и по y 5 и высота текста, и относительно тойже нижней левой точки рамки тектса?!

[ытя]

Сообщение от ытя координаты, относительно точки вставки

Сообщение от Кулик Алексей aka kpblc Границы прямоугольника для текста, вставленного в 0,0,0

Результат один и тот же.

[mamuk]

так где бы текст не вставлял, нижняя левая координата всегда будет (0,0,0) у рамки?

[ытя]

unless the text object is oblique or vertical, or it contains letters with descenders (such as g and p). - За исключением случаев, когда текст наклонный, вертикальный или содержит символы типа "g" и "p".

[mamuk]

Сообщение от mamuk так где бы текст не вставлял, нижняя левая координата всегда будет (0,0,0) у рамки?

так это верно?

[ытя]

Вот я взял текст "Прим." высотой 5, получилось - ((0.0 -1.66667 0.0) (16.9444 5.0 0.0))

[mamuk]

но фактически если подвести курсор к тому месту где нижний угол рамки текста координаты явно не ((0.0 -1.66667 0.0).

[CB]

Почувствуй разницу

Код:

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

(textbox '((1 . "12345") (40 . 5.0)))
(textbox '((1 . "12345") (40 . 10.0)))

Т.е. textbox вычисляет координаты текста "виртуально", используя только системные переменные TEXTSIZE и TEXTSTYLE.
Вычислить реальные координаты можно так

Код:

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

(setq obj (entget (car (entsel "\nВыберите текст: "))))

(mapcar '(lambda (x)
           (mapcar '+
                   (cdr (assoc 10 obj))
                   x
           ) ;_ end of mapcar
         ) ;_ end of lambda
        (textbox (list (assoc 1 obj) (assoc 40 obj)))
) ;_ end of mapcar

[ытя]

Сообщение от mamuk но фактически если подвести курсор к тому месту где нижний угол рамки текста координаты явно не ((0.0 -1.66667 0.0).

Я сразу сказал:"textbox возвращает координаты, относительно точки вставки текста."

[mamuk]

(textbox '((1 . "12345"), а что означает еденица с точкой перед "12345" и выражение в скобках (40 . 5.0)? я теперь понял что вычисление происходит виртуально.
(40. 5.0) это задаются координаты верехней правой точки рамки?

[CB]

1. Посмотри список (setq obj (entget (car (entsel "\nВыберите текст: "))))
Это DXF-код текстового примитива, расшифровка - в HELP'е.
(40. 5.0) - это высота текста
2.

Я сразу сказал:"textbox возвращает координаты, относительно точки вставки текста."

Да нет, не относительно точки вставки. Текст может иметь точку и center, и right, и left. Все это нужно учитывать при расчете координат. В данном примере - это left. Еще нужно учитывать растяжение/сжатие т.е. fit, угол наклона и т.д.

[ытя]

Сообщение от CB Текст может иметь точку и center, и right, и left. Все это нужно учитывать при расчете координат. В данном примере - это left. Еще нужно учитывать растяжение/сжатие т.е. fit...

Я с этим полностью согласен, просто пытался объяснить mamuk

Сообщение от mamuk что это за координаты, когда графически там видны другие, я имею ввиду когда курсор подвожу к нижней рамки