[Gotch]

Получаем данные с полевых работ, загоняем в программку Credo MIX, обрабатываем. Выгоняем в DXF 3D. DXF дорабатываем в акаде.

Проблема в следующем. Существует огромная куча надписей и отметок. У большинства из них различно сориентированная UCS (в разных направлениях). Объясните, пожалуйста, доступным языком как их все привести к мировой системе?

В приложенном файле после реки пошел нормальный текст с мировой UCS, а до реки по неизвестным причинам текст с неизвестным UCS.
[ATTACH]1170827165.dwg[/ATTACH]

[den001]

UCS в файле одна - мировая. UCS можно применить к видовому экрану, но никак не к отдельному объекту, вроде текста. Нужно менять угол проворота текста. Если к одному значению, то самый простой путь: Ctrl+A -> В панели Свойства выбрать в списке Текст -> Задать угол (здесь - в градусах/минутах/секундах)
P.S. А где там река-то?

[Profan]

Для den001.
Не глядя в файл, можно сказать, что UCS (ПСК) очень даже можно привести к объекту, для этого и опция специальная есть. А вот текст через "Свойства" можно повернуть только в "собственной" системе координат, а не в пространстве.

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

Код:

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

(defun c:tr (/ *kpblc-activedoc* selset _kpblc-ent-modify-autoregen)
;;;;|=============================================================================
;;;*** Компонент интегрированной системы CADWare
;;;*******************************************************************************
;;;*** Автор системы: Кулик Алексей aka kpblc
;;;*** www: www.my.opera.com\kpblc\
;;;*** При разработке системы были использованы материалы:
;;;*	ruCAD (www.kurganobl.ru)
;;;*	"САПР на базе AutoCAD - как это делается", авторы Зуев С.А., Полещук Н.Н.
;;;*		при участии Лоскутова П.В.
;;;*	конференций www.dwg.ru; www.autocad.ru; www.arcada.com.ua; 
;;;*		www.thswamp.com; www.cadtutor.net; www.forums.augi.com
;;;*** Автор выражает самую искреннюю благодарность всем, принимавшим участие в
;;;*** разработке системы.
;;;*******************************************************************************
;;;*** Разрешено использование компонента в любых целях при указании автора и при
;;;*** условии поставки этой части с исходными текстами
;;;*******************************************************************************
;;;
;;;*    Функция модификации указанного бита примитива
;;;*    Параметры вызова:
;;;*	entity	- примитив, полученный через (entsel), (entlast) etc
;;;*	bit	- dxf-код, значение которого надо установить
;;;*	value	- новое значение
;;;*	regen	- выполнять или нет регенерацию примитива сразу. t/ nil
;;;*    Примеры вызова:
;;;(_kpblc-ent-modify-autoregen (entlast) 8 "0" t)	; перенести последний примитив на слой 0
;;;(_kpblc-ent-modify-autoregen (entsel) 62 10 nil)	; установить выбранному примитиву цвет 10
;;;*    Возвращаемое значение:
;;;*	примитив с модифицированным dxf-списком. Примитив перерисовывается в
;;;* зависимости от значения ключа ext_regen
;;;=============================================================================|;
  (defun _kpblc-ent-modify-autoregen (ent        bit        value
                                      ext_regen  /          ent_list
                                      old_dxf    new_dxf    layer_dxf70
                                      )
    (setq ent ent)
    (if (not
          (and
            (or
              (= (strcase (cdr (assoc 0 (entget ent))) nil) "STYLE")
              (= (strcase (cdr (assoc 0 (entget ent))) nil) "DIMSTYLE")
              (= (strcase (cdr (assoc 0 (entget ent))) nil) "LAYER")
              ) ;_ end of or 
            (= bit 100)
            ) ;_ end of and 
          ) ;_ end of not 
      (progn
        (setq ent_list (entget ent)
              new_dxf  (cons bit
                             (if (and (= bit 62) (= (type value) 'str))
                               (if (= (strcase value) "BYLAYER")
                                 256
                                 0
                                 ) ;_ end of if 
                               value
                               ) ;_ end of if 
                             ) ;_ end of cons 
              ) ;_ end of setq 
        (if (not (equal new_dxf (setq old_dxf (assoc bit ent_list))))
          (progn
            (entmod (if old_dxf
                      (subst new_dxf old_dxf ent_list)
                      (append ent_list (list new_dxf))
                      ) ;_ end of if 
                    ) ;_ end of entmod
            (if ent_regen
              (entupd ent)
              (redraw ent)
              ) ;_ end of if
            ) ;_ end of progn 
          ) ;_ end of if 
        ) ;_ end of progn 
      ) ;_ end of if 
    ent
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-StartUndoMark
  (if (setq selset (ssget (list '(0 . "TEXT")
                                '(-4 . "<NOT")
                                (cons 210 '(0. 0. 1.))
                                '(-4 . "NOT>")
                                ) ;_ end of list
                          ) ;_ end of ssget
            ) ;_ end of setq
    (progn
      (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
        (vl-catch-all-apply
          '(lambda ()
             (_kpblc-ent-modify-autoregen
               ent
               10
               (trans (cdr (assoc 10 (entget ent))) ent 0)
               t
               ) ;_ end of _kpblc-ent-modify-autoregen
             (if (or (cdr (assoc 72 (entget ent)))
                     (cdr (assoc 73 (entget ent)))
                     (/= 0 (cdr (assoc 72 (entget ent))))
                     (/= 0 (cdr (assoc 73 (entget ent))))
                     ) ;_ end of or
               (_kpblc-ent-modify-autoregen
                 ent
                 11
                 (trans (cdr (assoc 11 (entget ent))) ent 0)
                 t
                 ) ;_ end of _kpblc-ent-modify-autoregen
               ) ;_ end of if
             (_kpblc-ent-modify-autoregen ent 210 '(0. 0. 1.) t)
             ) ;_ end of lambda
          ) ;_ end of vl-catch-all-apply
        ) ;_ end of foreach
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark *kpblc-activedoc*)
  (princ)
  ) ;_ end of defun

[den001]

Profan
У текстового объекта нет свойства UCS (ПСК). Есть только угол поворота, угол наклона и т.п.
Я прошелся по предложенному самим собой пути - все работает.

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

У текста (точно так же как и у lwpolyline, к примеру) есть ОБЪЕКТНАЯ система координат. Вот она-то в некоторых объектах файла и отличается от мировой.
P.S. для VBA-представления это свойство Normal объекта. Проверь

[Хмурый]

А вот взгляд с точки зрения юзера:
текст пишется в текущей системе координат, которая может отличаться от мировой поворотом не только вокруг оси Z, но и вокруг осей X и Y со всеми вытекающими последствиями. В Вашем предложении можно вращать текст только вокруг оси Z

[Gotch]

а можно по русски насчет той лисповской комманды
для чего как и почему??

Ден ты не прав
посмотри свойства разных текстов
и посмотри их UCS
тогда увидешь разницу

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

http://www.autocad.ru/cgi-bin/f1/boa...part_faq=23#44

[Gotch]

Кулик Алексей aka kpblc ОГРОМНОЕ спасибо за помощь!!!
лисповский файл помог!
Ещё раз СПАСИБО!!!!!!

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

Сообщение от Хмурый А вот взгляд с точки зрения юзера: текст пишется в текущей системе координат, которая может отличаться от мировой поворотом не только вокруг оси Z, но и вокруг осей X и Y со всеми вытекающими последствиями. В Вашем предложении можно вращать текст только вокруг оси Z

Ну можно еще и угол поворота отслеживать, но вроде бы и так работает

[Хмурый]

Sorry!
Мое сообщение за №7 адресовано den001

[Gotch]

Всё замечательно, только после обработки предложенным лисповским файлом, немного меняется толщина обработанного текста - т.е. он становится как бы "жирным", хотя свойства становятся такими же как и у нормального (необработанного) текста Как это можно исправить?
И ещё вопросик. Этот лиспик работает ТОЛЬКО с текстом или с полилиниями тоже?

[Profan]

И я уточню для den001.
У текста нет, конечно, свойства UCS (а про это никто и не говорит), зато у команды "_UCS" есть опция "_OBject" ("ОБъект").

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

> Gotch : Только с текстом. Увеличения толщины на представленном файле я не заметил, если честно. Приложи скриншоты "кривых" объектов, если не трудно. Возможно, просто требуется регенерация чертежа?

[Gotch]

Всем спасибо! особенно Кулику Алексею
Разобрался! Надо ещё подредактироватать Position Z скинуть на 0,00

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

Чтоб не мучиться и не выставлять все Z в 0, спробуй:

Код:

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

(defun c:tr (/ *kpblc-activedoc* selset _kpblc-ent-modify-autoregen tmp)
;;;;|=============================================================================
;;;*** Компонент интегрированной системы CADWare
;;;*******************************************************************************
;;;*** Автор системы: Кулик Алексей aka kpblc
;;;*** www: www.my.opera.com\kpblc\
;;;*** При разработке системы были использованы материалы:
;;;*   ruCAD (www.kurganobl.ru)
;;;*   "САПР на базе AutoCAD - как это делается", авторы Зуев С.А., Полещук Н.Н.
;;;*      при участии Лоскутова П.В.
;;;*   конференций www.dwg.ru; www.autocad.ru; www.arcada.com.ua;
;;;*      www.thswamp.com; www.cadtutor.net; www.forums.augi.com
;;;*** Автор выражает самую искреннюю благодарность всем, принимавшим участие в
;;;*** разработке системы.
;;;*******************************************************************************
;;;*** Разрешено использование компонента в любых целях при указании автора и при
;;;*** условии поставки этой части с исходными текстами
;;;*******************************************************************************
;;;
;;;*    Функция модификации указанного бита примитива
;;;*    Параметры вызова:
;;;*   entity   - примитив, полученный через (entsel), (entlast) etc
;;;*   bit   - dxf-код, значение которого надо установить
;;;*   value   - новое значение
;;;*   regen   - выполнять или нет регенерацию примитива сразу. t/ nil
;;;*    Примеры вызова:
;;;(_kpblc-ent-modify-autoregen (entlast) 8 "0" t)   ; перенести последний примитив на слой 0
;;;(_kpblc-ent-modify-autoregen (entsel) 62 10 nil)   ; установить выбранному примитиву цвет 10
;;;*    Возвращаемое значение:
;;;*   примитив с модифицированным dxf-списком. Примитив перерисовывается в
;;;* зависимости от значения ключа ext_regen
;;;=============================================================================|;
  (defun _kpblc-ent-modify-autoregen (ent        bit        value
                                      ext_regen  /          ent_list
                                      old_dxf    new_dxf    layer_dxf70
                                      )
    (setq ent ent)
    (if (not
          (and
            (or
              (= (strcase (cdr (assoc 0 (entget ent))) nil) "STYLE")
              (= (strcase (cdr (assoc 0 (entget ent))) nil) "DIMSTYLE")
              (= (strcase (cdr (assoc 0 (entget ent))) nil) "LAYER")
              ) ;_ end of or
            (= bit 100)
            ) ;_ end of and
          ) ;_ end of not
      (progn
        (setq ent_list (entget ent)
              new_dxf  (cons bit
                             (if (and (= bit 62) (= (type value) 'str))
                               (if (= (strcase value) "BYLAYER")
                                 256
                                 0
                                 ) ;_ end of if
                               value
                               ) ;_ end of if
                             ) ;_ end of cons
              ) ;_ end of setq
        (if (not (equal new_dxf (setq old_dxf (assoc bit ent_list))))
          (progn
            (entmod (if old_dxf
                      (subst new_dxf old_dxf ent_list)
                      (append ent_list (list new_dxf))
                      ) ;_ end of if
                    ) ;_ end of entmod
            (if ent_regen
              (entupd ent)
              (redraw ent)
              ) ;_ end of if
            ) ;_ end of progn
          ) ;_ end of if
        ) ;_ end of progn
      ) ;_ end of if
    ent
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-StartUndoMark
  (if (setq selset (ssget (list '(0 . "TEXT")
                                '(-4 . "<NOT")
                                (cons 210 '(0. 0. 1.))
                                '(-4 . "NOT>")
                                ) ;_ end of list
                          ) ;_ end of ssget
            ) ;_ end of setq
    (progn
      (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
        (vl-catch-all-apply
          '(lambda ()
             (_kpblc-ent-modify-autoregen
               ent
               10
               (list (car (setq tmp (trans (cdr (assoc 10 (entget ent))) ent 0)))
                     (cadr tmp)
                     0.
                     ) ;_ end of list
               t
               ) ;_ end of _kpblc-ent-modify-autoregen
             (if (or (cdr (assoc 72 (entget ent)))
                     (cdr (assoc 73 (entget ent)))
                     (/= 0 (cdr (assoc 72 (entget ent))))
                     (/= 0 (cdr (assoc 73 (entget ent))))
                     ) ;_ end of or
               (_kpblc-ent-modify-autoregen
                 ent
                 11
                 (list
                   (car (setq tmp (trans (cdr (assoc 11 (entget ent))) ent 0)))
                   (cadr tmp)
                   0.
                   ) ;_ end of list
                 t
                 ) ;_ end of _kpblc-ent-modify-autoregen
               ) ;_ end of if
             (_kpblc-ent-modify-autoregen ent 210 '(0. 0. 1.) t)
             ) ;_ end of lambda
          ) ;_ end of vl-catch-all-apply
        ) ;_ end of foreach
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark *kpblc-activedoc*)
  (princ)
  ) ;_ end of defun

Этот код не тестировал вообще, так что если что не так - сообщи

[den001]

Ладно, черти, убедили! Был неправ, извиняюсь.

[Zouss]

вот и всплывает старый спор
210 dxf группа задает направление вектора выдавливания и использовать ее как "индикатор" системы координат объекта несколько опрометчиво
если для размеров этот номер проходит (их нельзя выдавить) то текст в данном случае получается выдавленным наискось и при взгляде сверху на этот текст он действительно кажется полужирным, так как вектор выдавливания не совпадает с нормальным направлением выдавливания

как то не очень внятно написал да? в общем раньше, когда были только shx шрифты таким хитрым образом можно было изготовить bold в тексте чертежа

[Gotch]

Кулик Алексей aka kpblc - спасибо большое!!!!!
очень сильно выручил!!!!!!
спасибо!!!!!
если нужна будет в чем помощь и что в моих силах тем помогу!!!!!
спасибо!!!!!!!!!!

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

> Zouss: А что ж тогда еще использовать как индикатор OCS? Свойство Normal после перевода в лисп-вид все одно принимает значения 210-й группы.
> Gotch: Рад что помогло

[den001]

Zouss
Что касаемо bold'a, то сейчас можно просто вес линии к shx-шрифту применить

[Zouss]

в общем всем огромная уважуха - подкинули идею на мысль по поводу этих самых OCS счас сижу думаю её - интересное что будет отпишусь

[Perezz!!]

Сообщение от Gotch Кулик Алексей aka kpblc - спасибо большое!!!!! очень сильно выручил!!!!!! спасибо!!!!! если нужна будет в чем помощь и что в моих силах тем помогу!!!!! спасибо!!!!!!!!!!

Лучше деньгами отблагодарили бы! :P