[mikmik]

Ситуация: Автокад2008. Получил чужой файл DWG и вставил его xref-ом в свой чертёж. Некоторые тексты (не все!) не отображаются... Открыл отдельно полученный файл - показывает все тексты, а в xref - часть текстов исчезает.
Вопрос: Почему некоторые тексты из пристёгнутого xref-ом файла исчезают?

[VVA]

Без xrefa (можно фрагмента) не определить. Только что сегодня решал подобную проблему. Оказалось, что текст - это не текст, а определение атрибута (ATTDEF). При погрузке файла он становится атрибутом с пустым значением. Посмотри что показывают свойства этого "текста"

[Солидворкер]

Файлы в студию

[mikmik]

Сообщение от VVA Без xrefa (можно фрагмента) не определить. Только что сегодня решал подобную проблему. Оказалось, что текст - это не текст, а определение атрибута (ATTDEF). При подгрузке файла он становится атрибутом с пустым значением. Посмотри что показываюс свойства этого "текста"

Так и есть! И что же теперь с этим делать?

[VVA]

Сообщение от mikmik И что же теперь с этим делать?

Например, сказать спасибо T.Willey

Код:

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

(defun c:AttDef2Text (/ ActDoc LayoutCol tmpLayoutBlk *error*)
   ; Changes attdef entities (attributes that haven't been put into a block) 
into text in the whole drawing
   ;T.Willey
   ; http://forums.augi.com/showthread.php?t=40372
   ; Конвертирование определений атрибутов в текст   
  ; convert attribute to text
  (vl-load-com)
   (defun *error* (msg)
      (if msg
            (progn
                (vl-bt)
                (prompt (strcat "\n\n Error-> " msg))
            )
        )
    )
    ;----------------------------------------------------
    (setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
    (vla-EndUndoMark ActDoc)
    (vla-StartUndoMark ActDoc)
    (setq LayoutCol (vla-get-Layouts ActDoc))
    (vlax-for LayoutObj LayoutCol
        (setq tmpLayoutBlk (vla-get-Block LayoutObj))
        (vlax-for Obj tmpLayoutBlk
            (if (= (vla-get-ObjectName Obj) "AcDbAttributeDefinition")
                (progn
                    (setq TextObj
                        (vla-AddText
                            tmpLayoutBlk
                            (vla-get-TagString Obj)
                            (vla-get-InsertionPoint Obj)
                            (vla-get-Height Obj)
                        )
                    )
                    (vla-put-Alignment TextObj (vla-get-Alignment Obj))
                    (if (/= (vla-get-Alignment TextObj) 0)
                        (vla-put-TextAlignmentPoint TextObj (vla-get-TextAlignmentPoint Obj))
                    )
                    (vla-put-Backward TextObj (vla-get-Backward Obj))
                    (vla-put-Layer TextObj (vla-get-Layer Obj))
                    (vla-put-Normal TextObj (vla-get-Normal Obj))
                    (vla-put-ObliqueAngle TextObj (vla-get-ObliqueAngle Obj))
                    (vla-put-Rotation TextObj (vla-get-Rotation Obj))
                    (vla-put-ScaleFactor TextObj (vla-get-ScaleFactor Obj))
                    (vla-put-StyleName TextObj (vla-get-StyleName Obj))
                    (vla-put-UpsideDown TextObj (vla-get-UpsideDown Obj))
                    (vla-Delete Obj)
                )
            )
        )
    )
    (vla-EndUndoMark ActDoc)
    (princ)
)

[mikmik]

Спасибо! Самое оно.