[Сет]

Есть блок (штамп чертежа) с атрибутами. На скриншоте сверху как раз часть этого блока с надписью Узлы 5, 6. А снизу поле с источником из этого атрибута. Как видно в поле перед надписью содержится префикс \W0.8000;. Атрибут - это текст с несколькими строками, вписанный в рамку. Степень сжатия этого текста - 0.8. Если установить степень сжатия 1, то в поле никакого префикса нет и содержится только значение атрибута. Как сделать, чтобы и при степени сжатия 0.8 в поле содержалось только значение атрибута?

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

А поискать? http://forum.dwg.ru/showthread.php?t=92143 или http://forum.dwg.ru/showthread.php?t=111806
http://www.google.ru/cse?cx=partner-...%82&gsc.page=1

[Сет]

Попробовал лисп отсюда. Команда unf-mtext выдает ошибку:

no function definition: _KPBLC-CLEAR-MTEXTОшибка Automation. Неверный слой

Автокад 2016.

[AnatolyCB]

Алексей, здравствуйте!
Не могли бы Вы посмотреть lisp файл для вставки поля из любого источника.
Он раньше работал , на 2010 автокаде, по крайней мере, а потом перестал.
Думаю, многим было бы интересно.

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

Проблема в функции преобразования в десятичное значение указателя на объект. Сейчас переделываю...

Код:

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

           ;*********текст в поле в ***********
(vl-load-com)

(defun c:ttf (/ _kpblc-conv-string-hex-to-dec source dest err adoc)

  (defun _kpblc-conv-string-hex-to-dec (hexstr / n i a s fun_conv-string-to-value)
                                       ;|
*    Функция преобразования шестнадцатиричной строки в десятичное число. Автор: А.Ривилис
* http://www.autocad.ru/cgi-bin/f1/board.cgi?t=29431LT
* Возвращает число.
|;

    (setq n 0.0
          i 0
          ) ;_ end of setq
    (setq hexstr (strcase hexstr))
    (while (> (strlen hexstr) 0)
      (setq s (substr hexstr (strlen hexstr) 1)
            a (ascii s)
            ) ;_ end of setq
      (cond
        ((<= (ascii "0") a (ascii "9")) (setq a (- a (ascii "0"))))
        ((<= (ascii "A") a (ascii "F")) (setq a (+ 10. (- a (ascii "A")))))
        ) ;_ end of cond
      (setq n (+ n (* a (expt 16. i)))
            i (1+ i)
            ) ;_ end of setq
      (setq hexstr (substr hexstr 1 (1- (strlen hexstr))))
      ) ;_ end of while
    n
    ) ;_ end of defun

  (if
    (and (= (type (setq source (vl-catch-all-apply
                                 (function
                                   (lambda ()
                                     (car (nentsel "\nВыберите текст-источник <Отмена> : "))
                                     ) ;_ end of lambda
                                   ) ;_ end of function
                                 ) ;_ end of vl-catch-all-apply
                        ) ;_ end of setq
                  ) ;_ end of type
            'ename
            ) ;_ end of =
         (vlax-property-available-p (vlax-ename->vla-object source) 'textstring t)
         (= (type
              (setq
                dest (vl-catch-all-apply (function (lambda () (car (nentsel "\nВыберите текст-приемник <Отмена> : ")))))
                ) ;_ end of setq
              ) ;_ end of type
            'ename
            ) ;_ end of =
         (vlax-property-available-p (vlax-ename->vla-object dest) 'textstring t)
         ) ;_ end of and
     (progn
       (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
       (if (vl-catch-all-error-p (setq err
                                        (vl-catch-all-apply
                                          (function
                                            (lambda ()
                                              (entmod
                                                (subst
                                                  (cons
                                                    1
                                                    (strcat
                                                      "%<\\AcObjProp Object(%<\\_ObjId "
                                                      (rtos
                                                        (_kpblc-conv-string-hex-to-dec
                                                          (vl-string-trim
                                                            " <>"
                                                            (substr
                                                              (vl-princ-to-string (cdr (assoc -1 (entget source))))
                                                              (+ 2
                                                                 (vl-string-position (ascii ":")
                                                                                     (vl-princ-to-string (cdr (assoc -1 (entget source))))
                                                                                     ) ;_ end of vl-string-position
                                                                 ) ;_ end of +
                                                              ) ;_ end of substr
                                                            ) ;_ end of vl-string-trim
                                                          ) ;_ end of _kpblc-conv-string-hex-to-dec
                                                        2
                                                        0
                                                        ) ;_ end of rtos
                                                      ">%).TextString>%"
                                                      ) ;_ end of strcat
                                                    ) ;_ end of cons
                                                  (assoc 1 (entget dest))
                                                  (entget dest)
                                                  ) ;_ end of subst
                                                ) ;_ end of entmod
                                              (entupd dest)
                                              (vla-regen adoc acactiveviewport)
                                              ) ;_ end of lambda
                                            ) ;_ end of function
                                          ) ;_ end of vl-catch-all-apply
                                       ) ;_ end of setq
                                 ) ;_ end of vl-catch-all-error-p
         (princ (strcat "\n** error ** : Ошибка обновления приемника : " (vl-catch-all-error-message err)))
         ) ;_ end of if
       (vla-endundomark adoc)
       ) ;_ end of progn
     ) ;_ end of if
  (princ)
  ) ;_ end of defun

[AnatolyCB]

Мощно...
Все вставляется и обновляется...
Спасибо, Алексей!