[zayyaz]

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

AutoCAD 2008 + СПДС 5
пользуюсь шрифтом *.ttf

[zenon]

%%u

[Victor]

кучей

Код:

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

(defun c:tx- ( / nmset setlength i nm txtzir 
p_tx txtstr txtnum txtnew txtNew); 
(setq nmset (ssget "_:L" '(( 0 . "TEXT"))))
(setq i -1 setlength (sslength nmset)); dlina nabora
(repeat setlength
(setq i (1+ i) nm (ssname nmset i))
(setq sp_tx (entget nm) p_tx (assoc 1 sp_tx))
(setq txtstr (strcat "%%u" (cdr p_tx)))
(setq txtnew (cons 1 txtstr))
(setq sp_tx (subst txtnew p_tx sp_tx))
(entmod sp_tx)
(entupd (cdr (assoc -1 sp_tx))) 
)
)

[zayyaz]

zenon;
спасибо...

Victor;
большое спасибо...

разобрался...

[KronSerg]

Ещё можно выделить нужный текст и нажать Ctr+U.

[Рyslan]

Сообщение от KronSerg Ещё можно выделить нужный текст и нажать Ctr+U.

ты ничего не путаешь???

[progettista]

В многострочном тексте только.

[engngr]

У меня ктрл+у и с простым текстом работает (2008ru+sp1).

[Vova]

Ещё можно выделить нужный текст и нажать Ctr+U.

Не "выделить" а зайти в редактор текста и там выделить
И еще, лисп не проверял, но возникает необходимость не только подчеркнуть текст, но и отчеркнуть обратно. У меня есть подобный лисп, но после отчеркивания он оставляет точку (типа линию нулевой длины). Так что, если кто будет делать подобное, следует обратить на
это внимание

[KronSerg]

Да, впредь буду аккуратнее в формулировках.

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

Как варианты:

Код:

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

(defun c:tx- (/ *error* adoc selset text)

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

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if (= (type (setq selset (vl-catch-all-apply
                              (function (lambda ()
                                          (ssget "_:L" '((0 . "TEXT")))
                                          ) ;_ end of lambda
                                        ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (foreach ent
             (mapcar
               (function vlax-ename->vla-object)
               ((lambda (/ item tab)
                  (repeat (setq tab  nil
                                item (sslength selset)
                                ) ;_ end setq
                    (setq
                      tab (cons (ssname selset (setq item (1- item)))
                                tab
                                ) ;_ end of cons
                      ) ;_ end of setq
                    ) ;_ end of repeat
                  tab
                  ) ;_ end of lambda
                )
               ) ;_ end of mapcar
      (if (wcmatch (strcase (setq text (vla-get-textstring ent)))
                   "%%U*"
                   ) ;_ end of WCMATCH
        (vla-put-textstring ent (substr text 4))
        ) ;_ end of if
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

(defun c:tx+ (/ *error* adoc selset text)

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

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if (= (type (setq selset (vl-catch-all-apply
                              (function (lambda ()
                                          (ssget "_:L" '((0 . "TEXT")))
                                          ) ;_ end of lambda
                                        ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (foreach ent
             (mapcar
               (function vlax-ename->vla-object)
               ((lambda (/ item tab)
                  (repeat (setq tab  nil
                                item (sslength selset)
                                ) ;_ end setq
                    (setq
                      tab (cons (ssname selset (setq item (1- item)))
                                tab
                                ) ;_ end of cons
                      ) ;_ end of setq
                    ) ;_ end of repeat
                  tab
                  ) ;_ end of lambda
                )
               ) ;_ end of mapcar
      (vla-put-textstring
        ent
        (strcat
          "%%u"
          (if (wcmatch (strcase (setq text (vla-get-textstring ent)))
                       "%%U*"
                       ) ;_ end of wcmatch
            (substr text 4)
            text
            ) ;_ end of if
          ) ;_ end of strcat
        ) ;_ end of vla-put-textstring
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[zenon]

zayyaz, еще вот глянь тута
http://forum.dwg.ru/showpost.php?p=116922&postcount=6

[zayyaz]

всем большое спасибо...
много полезного )) делаю выводы..

крыс - как работает?... даже китайцы уже аннотации пишут.. криво, но пишут

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

Что "как работает"? tx- снимает подчеркивание с текстов, tx+ - ставит. Естественно, на выделенные.
P.S. Я не китаец. Аннотации пишу только на библиотечные функции. Код, который я написал, можно назвать командой. Ее проще опробовать, чем объяснять.

[zayyaz]

всем огромное спасибо...

крыс - спасибо что объяснил.. хоть и буркнул

считаю что вопрос полностью исчерпан...