[Джаз]

Прошу помощи в следующем.
Тошнит от следующей рутины:
Выделяю параллельный размер, захожу в его свойства. Руками в поле "Текстовая строка" ввожу округлённую до см величину размера. И переношу этот размер из слоя "Привязки" в слой "Привязки_Редакт".



Поле ввода обвёл красным. Подскажите, какой функцией считать величину размера и какой отредактировать его текстовую строку.

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

А настроить размерный стиль не катит?

[Джаз]

Размерный стиль настроен. С округлением до см.
Но некоторые привязки приходится разносить и двигать. А величина размера должна оставаться первоначальная. Отсюда и вписываем в текстовую строку.
P.S.Некоторые взрывают размер и располагают кусочки, как нужно.

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

А потом начинается "неправильные подсчеты", "несходимость габаритов" и т.п. Меняй подход. ИМХО это будет более правильным решением.

[Джаз]

Этот подход мне тоже не нравится, но это компромисс.
Чертежи испoлнительные, результат на бумаге и в .dwf
Поэтому подсчёты и несходимость не про это.
Текущий пример.



Зеленые привязки не редактированные. А вот жёлтые - редактированные вышеописанным способом. Плюс к размеру приставлена дуга.
Привязки в разных слоях, с разным цветом. Чтобы отличать.
P.S. Пытался делать динамический блок на криволинейные привязки, писал лисп. Но всё не то.

[Reka]

В Дауне имеются DimDen.lsp и LD.lsp. Спасибо Денису Флюстикову и Lee McDonnell, соответственно! Давно с успехом пользуюсь.
Думаю в Вашем случае решат проблему.

[Джаз]

Спасибо, буду пробовать.

[VVA]

Сообщение от Джаз Но некоторые привязки приходится разносить и двигать. А величина размера должна оставаться первоначальная. Отсюда и вписываем в текстовую строку. P.S.Некоторые взрывают размер и располагают кусочки, как нужно.

Перед тем как разносить, обработай размеры командой DIMTXT. Она запишет значение размера в Textoverride

Код:

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

(vl-load-com)
(defun c:dimtxt (/ adoc ss dim-get-text-string)
  (defun dim-get-text-string ( dim / str)
 (if (= (type dim) 'VLA-OBJECT)(setq dim (vlax-vla-object->ename dim)))
 (setq str "")
   (vlax-for item (vla-item (vla-get-blocks
                         (vla-get-activedocument (vlax-get-acad-object))
                       ) ;_ end of vla-get-Blocks
                       (cdr (assoc 2 (entget dim)))
             ) ;_ end of vla-item
     (if (vlax-property-available-p item 'Textstring)
          (setq str (vla-get-textstring item))
       )
     )
  str
  )
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (= (type (setq ss (vl-catch-all-apply
                              (function
                                (lambda ()
                                  (ssget "_:L"
                                         '((0 . "DIMENSION")
                                           (-4 . "<OR")
                                           (1 . "")
                                           (1 . "<>")
                                           (-4 . "OR>")
                                           )
                                         ) ;_ end of ssget
                                  ) ;_ 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)
                         (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
                         ) ;_ end of mapcar
;;;      (vl-catch-all-apply(function(lambda ()(vla-put-color ent 62)))) ;;;Цвет размера
      (vl-catch-all-apply
        (function
          (lambda ()
            (vla-put-textoverride ent (dim-get-text-string ent))
            ) ;_ end of lambda
          ) ;_ end of function
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Джаз]

VVA, выручили!
То, что доктор прописал.
Уже использую по назначению.