[Ruslan19857]

Здраствуйте. Есть прямоугольник. Хочу вписать туда одностр. текст, мне это удается с помощью. Текс...Выравнивание...Поширине...Далее задаю Начало в нижнем левом углу прямоугольника, конец в правом нижнем углу. И высоту теста, по высоте прямоугольника. Все хорошо, кроме того что НЕКОТОРЫЕ буквы в нижнем регистре выпадают за нижнюю грань прямоугольника. Это буквы р, ф и тому подобные. Как быть?

[Лиспер]

Как вариант, накидал по-быстрому:

Код:

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

 (vl-load-com)

(defun txtin (/ *error* adoc ent pt1 pt2 minp maxp offset)

  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (and (= (type (setq ent (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (ssname (ssget "_+.:S:E:L" '((0 . "TEXT"))) 0)
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'ename
              ) ;_ end of =
           (= (type (setq pt1 (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (getpoint "\nУкажите одну из точек диагонали прямоугольника <Отмена> : ")
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'list
              ) ;_ end of =
           (= (type (setq pt2 (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (getpoint pt1 "\nУкажите вторую точку диагонали прямоугольника <Отмена> : ")
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'list
              ) ;_ end of =
           ) ;_ end of and
    (progn
      (setq offset 0.2) ; Можно, конечно, было запрашивать, но делать лениво
      (vla-getboundingbox (setq ent (vlax-ename->vla-object ent)) 'minp 'maxp)
      (setq minp (vlax-safearray->list minp)
            maxp (vlax-safearray->list maxp)
            ) ;_ end of setq
      (vla-put-height
        ent
        (abs (* (vla-get-height ent)
                (/ (- (apply '- (mapcar 'cadr (list pt1 pt2)))
                      (* 2. offset)
                      ) ;_ end of -
                   (apply '- (mapcar 'cadr (list minp maxp)))
                   ) ;_ end of /
                ) ;_ end of *
             ) ;_ end of abs
        ) ;_ end of vla-put-height
      (vla-put-scalefactor
        ent
        (abs (/ (- (apply '- (mapcar 'car (list pt1 pt2))) (* 2. offset))
                (apply '- (mapcar 'car (list minp maxp)))
                ) ;_ end of /
             ) ;_ end of abs
        ) ;_ end of vla-put-scalefactor
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[gomer]

Сообщение от Ruslan19857 есть ли более простой инструмент в Autocade для этого..

Есть лисп, а в нем функции grread... vla-getboundingbox и все остальные...
Если тебе для штампа, так это не принципиально... не страшно, если вылазиит...
ну вот =)

[Лиспер]

Ну вот еще, с grread заморачиваться! А потом туда же понадобится еще и привязки прикручивать... Не, мне лень

[gomer]

Сообщение от Лиспер Ну вот еще, с grread заморачиваться! А потом туда же понадобится еще и привязки прикручивать...

В данном случае привязки не нужны как раз... но эта тема не для этой ветки

[sbi]

Сообщение от gomer В данном случае привязки не нужны как раз... но эта тема не для этой ветки

Offtop: "Как вписать текст в траурную рамку"-это не для артистов. "Люди гибнут за металл"

[Ruslan19857]

Лиспом пока не пользуюсь. Нашел для себя оптимальное решение. С помощью команды МАСШТЕКСТ _scaletext.

[Лиспер]

Забавная команда - в 2008 ее не нашел. А другие версии сейчас не запустить

[gomer]

Сообщение от Лиспер Забавная команда - в 2008 ее не нашел.

на панели текст нету? в 2004 она есть... насколько я помню и в 2008 тоже