[PL]

Был такой DWG True Convert, потом DWG True View 2009, сейчас Autodesk Design review 2010, но в нем уже нет встроенного конвертера. Может я просто найти не могу?
мне надо чтобы мтекст с фоном из старших версии превращался в мтекст младших версий без белого фона, который в младших версиях (2004) убрать без explode не возможно.

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

Может, надо просто настроить FillColor в диалоге? Я не уверен в правильности предлагаемого решения...

[PL]

а где настроить fillcollor, в каком диалоге? как на него выити? help- молчит. если открывать в AutoCAD2010 , выбирать весь мтехт- и там в своиствах убрать background mask - то нет проблем. но делать надо в каждом фаиле, в модели и в листе.
Но ведь если приходят много фаилов, довольно муторно все это делать. Конвертером - все фаилы - раз и в дамках, но там, в DWG true View 2009, такой опции нет.
fillmode? -остается рамка за текстом, да и солиды пропадают, нет не то.

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

Я имел в виду в самом AutoCAD'e...
Проверил, идея нежизнеспособна Можно попробовать лиспом выставить BackgroudColor в 256 цвет. Примерно так:

Код:

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

(defun test (/                       adoc
             selset                  _kpblc-ent-modify-autoregen
             _kpblc-conv-selset-to-ename
             entlst
             )

  (defun _kpblc-conv-selset-to-ename (selset / tab item)
                                     ;|
*    Преобразование набора, полученного через ssget, в список ename-представлени
* примитивов.
*    Параметры вызова:
	selset	набор примитивов
*    Примеры вызова:
(_kpblc-conv-selset-to-ename (ssget))
|;
    (cond
      ((not selset) nil)
      ((= (type selset) 'pickset)
       (repeat (setq tab  nil
                     item (sslength selset)
                     ) ;_ end setq
         (setq tab (cons (ssname selset (setq item (1- item))) tab))
         ) ;_ end repeat
       )
      ((listp selset) selset)
      ) ;_ end of cond
    ) ;_ end of defun

  (defun _kpblc-ent-modify-autoregen (ent        bit        value
                                      ext_regen  /          ent_list
                                      old_dxf    new_dxf    layer_dxf70
                                      )
                                     ;|
*    Функция модификации указанного бита примитива
*    Параметры вызова:
*	entity	- примитив, полученный через (entsel), (entlast) etc
*	bit	- dxf-код, значение которого надо установить
*	value	- новое значение
*	regen	- выполнять или нет регенерацию примитива сразу. t/ nil
*    Примеры вызова:
(_kpblc-ent-modify (entlast) 8 "0" t)	; перенести последний примитив на слой 0
(_kpblc-ent-modify (entsel) 62 10 nil)	; установить выбранному примитиву цвет 10
*    Возвращаемое значение:
*	примитив с модифицированным dxf-списком. Примитив перерисовывается в
* зависимости от значения ключа ext_regen
|;
    (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 adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-StartUndoMark
  (foreach item (_kpblc-conv-selset-to-ename (ssget "_:L" '((0 . "MTEXT"))))
    (setq entlst (entget item))
    (if (and (cdr (assoc 90 entlst))
             (/= (cdr (assoc 90 entlst)))
             ) ;_ end of and
      (_kpblc-ent-modify-autoregen
        (_kpblc-ent-modify-autoregen item 90 3 nil)
        63
        256
        t
        ) ;_ end of _kpblc-ent-modify-autoregen
      ) ;_ end of if
    ) ;_ end of foreach
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[PL]

не идет что-то...

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

Странно... Я вроде проверял код. Выложи образец - попробую поковырять (скажу честно - сейчас занят видео, на кад тупо не хватит ресурсов у машины)

[PL]

Алексей, извини, код рабочий, это что то у меня на работе переклинило, теперь только завтра попробую.
Спасибо в любом случае. А нельзя в том же коде вместо изменения цвета background, просто его выключить ?
если такои код будет работать только в 2010, не проблема.

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

Так там выполняется замена сразу 2 групп: 90 - с имеющегося на 3 и 63 - на 256. Первая (90) отвечает вообще за наличие маски (3 означает, а) что маска вообще используется и б) в качестве цвета маски использовать цвет окна рисования); вторая (63) - опциональна, указывает цвет маски, если значение 90 группы равно 1. Скажем так, меняю для страховки.

[PL]

понял. просто интересно, будет ли работать в 2004 каде который не знает про маску текста, завтра проверю.

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

Вот чего не знаю, того не знаю. 2004-го уже очень давно нет

[VVA]

PL,

Может я просто найти не могу?

Скорее всего так.
Autodesk DWG TrueView 2010 Download
Программы для просмотра проектов /DWG TrueView
DWG TrueView 2010 Available for Free Download

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

Одно "но" Если заказывать "bundle" DesignReview2010, то он весит 785 метров

[PL]

Алексей, огромное спасибо, код сносит маску даже в 2004 каде. Всех благ.

VVA - большое спасибо, третья ссылка выводит на TrueView 2010 , причем без картинки, что надо кликать на вторую а не на первую кнопку download, я бы не разобрался. первая кнопка выводит на Design Review 2010, что я тупо и устанавливал.
конвертер не сносит маску, но программа все равно нужная.

[Шерали]

нужен конвертер который без участия автокада преобразует версию файла dwg 2010 в 2004(2000), может есть у кого?

[Александр Ривилис]

Сообщение от Шерали нужен конвертер который без участия автокада преобразует версию файла dwg 2010 в 2004(2000), может есть у кого?

Есть у Autodesk: Dwg TrueView