[SkaBoy]

Здравствуйте, подскажите, есть ли возможность в AutoCAD выставлять форматирование текста по ширине, как это делается к примеру в ворде, заранее спасибо

[BM60]

Есть, конечно, в окне редактирования текста. Только зачем по ширине? Тут нет ширины. Тут есть коэффициент ширины

[Солидворкер]

Имелось в виду центрирование текста.

[SkaBoy]

Да, имелось ввиду центрирование (выравнивание) по ширине

[BM60]

Тогда пусть автор пояснит, что он разумеет под форматированием по ширине: растянуть текст на ширину строки (как в Ворде) или центрировать (расположить текст в середине строки)?

Вордовые тремины центрировать и выравнивать по ширине = разные. Второе растянет три слова на всю строку с интервалом между словам в километр.

[SkaBoy]

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

[Хмурый]

команда _textfit из комплекта Express Tools работает только с однострочным текстом

[BM60]

Для однострочного также 2ЛК на тексте и в окне Ширина выставить опытным путем число, большее, чем умолчательная 1. Но это устроит, смотря где, например, слово План, чтоб поширше было.
Многострочным не пользуюсь принципиально.

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

Втупую, без особых проверок:

Код:

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

(defun change-text-width (/ adoc ent dist)
  (vl-load-com)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (and (= (type (setq ent (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (setq ent (ssget "_+.:S:E" '((0 . "TEXT,MTEXT"))))
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'pickset
              ) ;_ end of =
           (setq ent (vlax-ename->vla-object (ssname ent 0)))
           (= (type (setq dist
                           (vl-catch-all-apply
                             (function
                               (lambda ()
                                 (getdist
                                   (cond
                                     ((= (vla-get-objectname ent) "AcDbMText")
                                      (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent)))
                                      )
                                     (t
                                      (cond
                                        ((= (vla-get-alignment ent) acalignmentleft)
                                         (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent)))
                                         )
                                        (t (vlax-safearray->list (vlax-variant-value (vla-get-textalignmentpoint ent))))
                                        ) ;_ end of cond
                                      )
                                     ) ;_ end of cond
                                   "Укажи ширину строки <Отмена> : "
                                   ) ;_ end of getdist
                                 ) ;_ end of lambda
                               ) ;_ end of function
                             ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'real
              ) ;_ end of =
           ) ;_ end of and
    (vl-catch-all-apply
      (function
        (lambda (/ dx minp maxp ang normal)
          (setq ang    (vla-get-rotation ent)
                normal (vla-get-normal ent)
                ) ;_ end of setq
          (vla-put-rotation ent 0.)
          (vla-put-normal ent (vlax-3d-point '(0. 0. 1.)))
          (vla-getboundingbox ent 'minp 'maxp)
          (setq minp (vlax-safearray->list minp)
                maxp (vlax-safearray->list maxp)
                dx   (- (car maxp) (car minp))
                ) ;_ end of setq
          (vla-put-rotation ent ang)
          (vla-put-normal ent normal)
          (cond
            ((= (vla-get-objectname ent) "AcDbMText")
             (vla-put-width ent 0.)
             (vla-put-textstring
               ent
               (strcat "{\\W"
                       (vl-princ-to-string (/ dist dx))
                       ";"
                       (vla-get-textstring ent)
                       "}"
                       ) ;_ end of strcat
               ) ;_ end of vla-put-TextString
             )
            (t (vla-put-scalefactor ent (/ dist dx)))
            ) ;_ end of cond
          ) ;_ end of lambda
        ) ;_ end of function
      ) ;_ end of vl-catch-all-apply
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[zinger]

Сообщение от Кулик Алексей aka kpblc Втупую, без особых проверок: Код: [Выделить все] (defun change-text-width (/ adoc ent dist) (vl-load-com) (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object)))) (if (and (= (type (setq ent (vl-catch-all-apply (function (lambda () (setq ent (ssget "_+.:S:E" '((0 . "TEXT,MTEXT")))) ) ;_ end of lambda ) ;_ end of function ) ;_ end of vl-catch-all-apply ) ;_ end of setq ) ;_ end of type 'pickset ) ;_ end of = (setq ent (vlax-ename->vla-object (ssname ent 0))) (= (type (setq dist (vl-catch-all-apply (function (lambda () (getdist (cond ((= (vla-get-objectname ent) "AcDbMText") (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent))) ) (t (cond ((= (vla-get-alignment ent) acalignmentleft) (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent))) ) (t (vlax-safearray->list (vlax-variant-value (vla-get-textalignmentpoint ent)))) ) ;_ end of cond ) ) ;_ end of cond "Укажи ширину строки <Отмена> : " ) ;_ end of getdist ) ;_ end of lambda ) ;_ end of function ) ;_ end of vl-catch-all-apply ) ;_ end of setq ) ;_ end of type 'real ) ;_ end of = ) ;_ end of and (vl-catch-all-apply (function (lambda (/ dx minp maxp ang normal) (setq ang (vla-get-rotation ent) normal (vla-get-normal ent) ) ;_ end of setq (vla-put-rotation ent 0.) (vla-put-normal ent (vlax-3d-point '(0. 0. 1.))) (vla-getboundingbox ent 'minp 'maxp) (setq minp (vlax-safearray->list minp) maxp (vlax-safearray->list maxp) dx (- (car maxp) (car minp)) ) ;_ end of setq (vla-put-rotation ent ang) (vla-put-normal ent normal) (cond ((= (vla-get-objectname ent) "AcDbMText") (vla-put-width ent 0.) (vla-put-textstring ent (strcat "{\\W" (vl-princ-to-string (/ dist dx)) ";" (vla-get-textstring ent) "}" ) ;_ end of strcat ) ;_ end of vla-put-TextString ) (t (vla-put-scalefactor ent (/ dist dx))) ) ;_ end of cond ) ;_ end of lambda ) ;_ end of function ) ;_ end of vl-catch-all-apply ) ;_ end of if (vla-endundomark adoc) (princ) ) ;_ end of defun

Алексей вы меня пугаете !

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

Ух ты, меня опять много!

[SkaBoy]

Сообщение от Кулик Алексей aka kpblc Втупую, без особых проверок: Код: [Выделить все] (defun change-text-width (/ adoc ent dist) (vl-load-com) (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object)))) (if (and (= (type (setq ent (vl-catch-all-apply (function (lambda () (setq ent (ssget "_+.:S:E" '((0 . "TEXT,MTEXT")))) ) ;_ end of lambda ) ;_ end of function ) ;_ end of vl-catch-all-apply ) ;_ end of setq ) ;_ end of type 'pickset ) ;_ end of = (setq ent (vlax-ename->vla-object (ssname ent 0))) (= (type (setq dist (vl-catch-all-apply (function (lambda () (getdist (cond ((= (vla-get-objectname ent) "AcDbMText") (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent))) ) (t (cond ((= (vla-get-alignment ent) acalignmentleft) (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent))) ) (t (vlax-safearray->list (vlax-variant-value (vla-get-textalignmentpoint ent)))) ) ;_ end of cond ) ) ;_ end of cond "Укажи ширину строки <Отмена> : " ) ;_ end of getdist ) ;_ end of lambda ) ;_ end of function ) ;_ end of vl-catch-all-apply ) ;_ end of setq ) ;_ end of type 'real ) ;_ end of = ) ;_ end of and (vl-catch-all-apply (function (lambda (/ dx minp maxp ang normal) (setq ang (vla-get-rotation ent) normal (vla-get-normal ent) ) ;_ end of setq (vla-put-rotation ent 0.) (vla-put-normal ent (vlax-3d-point '(0. 0. 1.))) (vla-getboundingbox ent 'minp 'maxp) (setq minp (vlax-safearray->list minp) maxp (vlax-safearray->list maxp) dx (- (car maxp) (car minp)) ) ;_ end of setq (vla-put-rotation ent ang) (vla-put-normal ent normal) (cond ((= (vla-get-objectname ent) "AcDbMText") (vla-put-width ent 0.) (vla-put-textstring ent (strcat "{\\W" (vl-princ-to-string (/ dist dx)) ";" (vla-get-textstring ent) "}" ) ;_ end of strcat ) ;_ end of vla-put-TextString ) (t (vla-put-scalefactor ent (/ dist dx))) ) ;_ end of cond ) ;_ end of lambda ) ;_ end of function ) ;_ end of vl-catch-all-apply ) ;_ end of if (vla-endundomark adoc) (princ) ) ;_ end of defun

Было бы здорово если бы вы пояснили как этим пользоваться, куда вбивать, и вообще что это такое

Мне это необходимо для многострочного текста, причём, больших объёмов, сам пользуюсь версией 2007, сегодня увидел что есть растягивание по ширине AutoCAD 2008 Architecture, мне он не очень нравится, но если есть такая возможность в обычной 2008 версии, я бы на неё перешёл, если есть возможность - проверьте пожалуйста

[zinger]

у меня АС 2008 LT на работе , там эта функция есть, по началу вообще не понял в чем проблема, сейчас окткрыл 2004й , понял ,что есть неудобство с этим текстом работать . Смело переходи на 2008 !

[SkaBoy]

Сообщение от zinger у меня АС 2008 LT на работе , там эта функция есть, по началу вообще не понял в чем проблема, сейчас окткрыл 2004й , понял ,что есть неудобство с этим текстом работать . Смело переходи на 2008 !

спасибо большое, правда есть и сложности, на работе комп тормозной, незнаю потянет ли, но попробую, думаю тоже ЛТ ставить, если кто-то знает как это возможно сделать в 2007, буду очень благодарен