[ssn]

Раскажите, как построен этот файл, потому как я что то не догоняю....
есть в пространстве листа рисунки. они сделаны в видовых экранах. внутрь экрана зайти можно, попадаешь в пространство модели... как я думаю, тогда, при открытии вкладки модель - должно бы там все быть, однако нифига, в модели все чисто...
рисунки сделаны блоками, но думаю это не важно...

просто интересно, как руками создать такое. Этот файл получился при экспорте из инвентора в автокад.

[lee]

при команде "выделить все" в модели определяются 5 блоков. Причем они не выделяются, редактировать себя не дают. Прикольно

[ssn]

что, ни у кого никаких идей нет? странненько....
такой хитрый способ мозг завинтить файлом для "хороших" партнёров

[VVA]

ssn, У видовых экранов отключена видимость (Visibility). Этим лиспом можно включить.

Код:

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

(defun C:AV ()
  (vlax-for Blk	(vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)))
    (if	(= (vla-get-IsXref Blk) :vlax-false)
      (vlax-for	Obj Blk
	(if (and (vlax-write-enabled-p Obj)
		 (vlax-property-available-p Obj 'Visible)
	    ) ;_ end of and
	  (vla-put-Visible Obj :vlax-true)
	) ;_ end of if
     ) ;_ end of vlax-for
    ) ;_ end of if
  ) ;_ end of vlax-for
)

А вот блоки странные.

(vlax-dump-Object(vlax-ename->vla-object(car(entsel)))) ; IAcadBlockReference: Интерфейс AutoCAD для работы с вхождениями блоков. ; Значения свойств: ; Application (RO) = #<VLA-OBJECT IAcadApplication 00d74d3c> ; Document (RO) = #<VLA-OBJECT IAcadDocument 01475c58> ; EffectiveName (RO) = "*I1" ; Handle (RO) = "E2" ; HasAttributes (RO) = 0 ; HasExtensionDictionary (RO) = 0 ; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0ab5b624> ; InsertionPoint = (-10928.5 -10928.5 0.0) ; InsUnits (RO) = "Миллиметры" ; InsUnitsFactor (RO) = 1.0 ; IsDynamicBlock (RO) = 0 ; Layer = "IDW_BlockReferenceLayer" ; Linetype = "ByLayer" ; LinetypeScale = 1.0 ; Lineweight = -1 ; Material = "ByLayer" ; Name = "*I1" ; Normal = (0.0 0.0 1.0) ; ObjectID (RO) = 2127573712 ; ObjectName (RO) = "AcIdBlockReference" ; OwnerID (RO) = 2128256936 ; PlotStyleName = "Цвет_7" ; Rotation = 0.0 ; TrueColor = #<VLA-OBJECT IAcadAcCmColor 079096a8> ; Visible = -1 ; XEffectiveScaleFactor = 1.0 ; XScaleFactor = 1.0 ; YEffectiveScaleFactor = 1.0 ; YScaleFactor = 1.0 ; ZEffectiveScaleFactor = 1.0 ; ZScaleFactor = 1.0

*** Добавлено

Я так думаю, что *I - это Inventor. Потому что 2006 Автокад ругается на Proxi Inventora и ничего не показывает.

[VVA]

Вот вторая часть, которая выдирает примитивы в модель

Код:

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

(defun C:IX (/ adoc blks bnameNew i ss lst bnamepat)
  (vl-load-com)
  (setq	adoc (vla-get-activedocument (vlax-get-acad-object))
	blks (vla-get-blocks adoc)
  ) ;_ end of setq
  (if (setq ss (ssget "_X" '((0 . "ACIDBLOCKREFERENCE"))))
    (progn
      (repeat (setq i (sslength ss)) ;_ end setq
	(setq lst (cons (ssname ss (setq i (1- i))) lst))
      ) ;_ end repeat
      (setq bnamepat "IX"
	    i 0
      )
      (foreach item lst
	(setq acid-ref (vla-item blks (cdr (assoc 2 (entget item)))))
	(setq objlist (_dwgru-conv-vla-object-to-list acid-ref))
        (vla-copyobjects
                     adoc
                     (vlax-make-variant
                       (vlax-safearray-fill
                         (vlax-make-safearray
                           vlax-vbobject
                           (cons 0 (1- (length objlist)))
                         ) ;_ end of vlax-make-safearray
                         objlist
                       ) ;_ end of vlax-safearray-fill
                     ) ;_ end of vlax-make-variant
              (vla-get-ModelSpace adoc)
              )
	)
      )
    )
  (command "_.ZOOM" "_ALL")
  (princ)
  )

;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2007  DWGru Programmers Group
;;; *
;;; *  _dwgru-conv-vla-object-to-list
;;; *
;;; * 03/12/2007 Версия 0001. 
;;; ************************************************************************

(defun _dwgru-conv-vla-object-to-list (value / res)
 ;;; Назначение:
   ;;;Преобразовывает ... не могу сформулировать :(
    ;;; Низкоуровневая функция. Контроль соответствия типов производится
    ;;; Параметры: 
    ;;; value - объект со свойством count
    ;;; Возврат:
    ;;;      - список vla-объектов 
    ;;;      - nil если не объект или нет сво-вы count
  ;;;; Пример
  ;|
(_dwgru-conv-vla-object-to-list (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
 |;

(if (and
     (= (type value) 'vla-object)
     (vlax-property-available-p value 'count)
     (> (vla-get-count value) 0)
     )
     (reverse (vlax-for item value (setq res (cons item res))))
)
)

Прохоже, что блоки с именем *In (ename представление "ACIDBLOCKREFERENCE") - специальные блоки-контейнеры, которые видны только через видовой экран.

[ssn]

а есть возможность такое создать руками?
всмысле повторить этот файл..

а выдирать эти объекты... можно же просто вставлять блок из базы чертежа...
понятно что ели их много, придётся посидеть.

а вот как их туда затолкать...