[akullaaa]

Добрый день, друзья!

Не смог найти инфу по этому теме. Может направите в нужную тему.

Суть такая: есть блок в котором есть атрибут, надо чтобы он был всегда в горизонтальном положении как бы этот блок не крутили на плане.
Пояснение: Я могу сделать динамический блок чтобы он крутился, а атрибут нет и тем самым решить эту задачу. Но мне удобно пользоваться стандартными инструментами автокада для поворота.

Нашёл тему отражающую вопрос: http://forum.dwg.ru/showthread.php?t=28269 Но там он решается с помощью VBA и с преобразованием существующих блоков, а хочется чтобы при вставке блока "уже всё было" ))

Мой AutoCAD 2015.

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

Так там же предложили сделать дин.блок... ИМХО самое простое решение будет.

[akullaaa]

Сообщение от Кулик Алексей aka kpblc Так там же предложили сделать дин.блок... ИМХО самое простое решение будет.

Предложили. Это так. Я могу его сделать. Но вопрос весь в том чтобы при повороте блока стандартными инструментами атрибут оставался под углом 0 градусов к оси, то бишь не крутился вместе с блоком. А этого там не написано.

[engngr]

Задать атрибуту текстовый стиль с аннотативностью и с ориентацией текста по листу. (Подойдет, если текст нужен строго горизонтально.)

[akullaaa]

Сообщение от engngr Задать атрибуту текстовый стиль с аннотативностью и с ориентацией текста по листу. (Подойдет, если текст нужен строго горизонтально.)

А если мне не надо чтобы текст был аннотативный? Т.е. на разных масшатабах этот текст в блоке должен быть по размеру одинаков.

[Nike]

Программно блок крутить и угол атрибуту задавать.
Щас пороюсь, где-то было..

----- добавлено через ~12 мин. -----
вот

Код:

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

 ;;;;;;;;;;;;;;;;;;;; Функция поворота блока  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:rr (/ )
    (defun *error* (msg)
    (setvar "cmdecho" oldEcho)
    (setvar "nomutt" 0)
  ) ;_ end defun
  (setq oldEcho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq block (ssget "_:S" '((0 . "INSERT"))))
  (setq block_name (ssname block 0))
  (setq block_koord (list (car (cdr (assoc 10 (entget block_name)))) (caddr (assoc 10 (entget block_name)))))
  (setq ang (* (cdr (assoc 50 (entget block_name))) (/ -180.0 pi)))
  (command "_rotate" block_name "" block_koord ang)
  (command "_.rotate"
           block_name
           ""
           (list (car (cdr (assoc 10 (entget block_name)))) (caddr (assoc 10 (entget block_name))))
           pause
  ) ;_ end of command
;;;   
(kpblc-attr-rot block_name '(("*" . 0))) ; повернуть атрибуты
    
;;;  (c:am)  ; переместить атрибут, если надо
  
  (setvar "cmdecho" oldEcho) ;
  (princ)
)

 ;;;;;;;;;;;;;;;;;;;; Функция поворота аттрибута после вставки ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun kpblc-attr-rot (block ang-list / ang) ;block -имя примитива
    ;ang-list -список типа '(("STROKA_1" . 0 )  ("STROKA_2" . 60 ) ("STROKA_3" . 90 ))
  (foreach x (vlax-safearray->list
               (vlax-variant-value
                 (vla-getattributes (setq block (vlax-ename->vla-object block))) ;_ vla-GetAttributes
               ) ;_ vlax-variant-value
             ) ;_ vlax-safearray->list
    (cond ((= (vla-get-invisible x) :vlax-true))
          ((= (vla-get-constant x) :vlax-true))
          ((setq ang (assoc (vla-get-tagstring x) ang-list))
           (if (cdr ang)
             (vla-put-rotation x (* (cdr ang) (/ pi 180)))
             (vla-put-rotation x (vla-get-rotation block))
           ) ;_ if
          )
          (t
           (vla-put-rotation
             x
             (* (/ (angle (trans '(0.0 0.0) 1 0) (trans '(1.0 0.0) 1 0)) ;_ angle
                   pi
                ) ;_ /
                180
             ) ;_ *
           ) ;_ vla-put-rotation
          )
    ) ;_ cond
  ) ;_ foreach
) ;_ defun
 
;;;пример вызова
;;;(kpblc-attr-rot (car (entsel))
;;;    '(("STROKA_1" . 30) ("STROKA_2" . 60) ("STROKA_3" . 90) ("STROKA_4" . nil))
;;;) ;_ kpblc-attr-hor

[akullaaa]

Сообщение от Nike Программно блок крутить

Мне хочется крутить блок СТАНДАРТНЫМИ инструментами.

Но за пример спасибо. Правда пока не понимаю куда его девать.

[engngr]

Сообщение от akullaaa Мне хочется крутить блок СТАНДАРТНЫМИ инструментами.

Бред.

[akullaaa]

Сообщение от akullaaa Цитата: Сообщение от akullaaa Мне хочется крутить блок СТАНДАРТНЫМИ инструментами. Сообщение от engngr Бред.

Хм. Слушаю внимательно. Может я чего не понимаю.

[engngr]

Не понимаете, что вещи работают стандартно так, как они работают стандартно, в т.ч. и autocad. Если _rotate поворачивает вхождение блока с атрибутом, то атрибут, входя в блок, также будет повёрнут.
Вы бы показали свой блок и что хотите, так, возможно, будет понятнее, возможно обойтись обычными средствами или нет.

[akullaaa]

Сообщение от engngr Не понимаете, что вещи работают стандартно так, как они работают стандартно, в т.ч. и autocad. Если _rotate поворачивает вхождение блока с атрибутом, то атрибут, входя в блок, также будет повёрнут. Вы бы показали свой блок и что хотите, так, возможно, будет понятнее, возможно обойтись обычными средствами или нет.

Прекрасно понимаю. Что весь блок поворачиваается. И соотсно атрибут. Прикладываю блок. В файле слева блок повернут динамически, а справа стандартными инструментами.

[engngr]

Написал же, как.
поворот атрибута ed.dwg

[Nike]

akullaaa, о том и речь - "стандартными средствами" блок поворачивается только целиком, со всеми потрохами.

А вот как блок поворачивается вышеприведенной прогрраммулиной:

[akullaaa]

Я так понимаю что правильно понял. Но при изменении масштаба видового экрана изменяется и атрибут при таком подходе. Аннотативность я использую на листах.

[engngr]

Сообщение от akullaaa Но при изменении масштаба видового экрана изменяется и атрибут при таком подходе.

Изображение атрибута будет меняться и без такого подхода.

upd: ANNOAUTOSCALE уберите.

[akullaaa]

Сообщение от Nike akullaaa, о том и речь - "стандартными средствами" блок поворачивается только целиком, со всеми потрохами. А вот как блок поворачивается вышеприведенной прогрраммулиной:

Это ж получается надо кажды раз применять поворот для блока после того как его поставил. А автоматически при вставке блока это возможно делать?

[Хмурый]

в комплекте Express Tools к AutoCAD существует команда torient, которая работает с тестами и атрибутами блоков, поворачивая их на угол, указанный мышкой (две точки) или введённый с клавиатуры

[Nike]

Сообщение от akullaaa Это ж получается надо кажды раз применять поворот для блока после того как его поставил. А автоматически при вставке блока это возможно делать?

Можно, но тогда блок тоже придется программно вставлять.