[Apelsinov]

Есть объект вставки блока, как можно программно определить обработана она xclip или нет? Лучше объектными методами.

[VVA]

Код:

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

(defun mip:block-GetXclip ( vla-obj / result )
;;Если блок подрезан, возвращает SPATIAL_Filter (можно узнать координаты подрезки ) , иначе nil
;;If the block is clipped, returns SPATIAL filter, differently return nil
;; test
;; (mip:block-GetXclip (vlax-ename->vla-object(car(entsel "\nSelect clipped xref"))))
  
   (vl-catch-all-apply
      '(lambda ( )
           (if
               (and
		 (eq (vla-get-ObjectName vla-obj) "AcDbBlockReference")
                   (eq :vlax-true
                       (vla-get-HasExtensionDictionary vla-obj)
                   )
               )
               (setq result
                   (entget
                       (vlax-vla-object->ename
                           (vla-item
                               (vla-item
                                   (vla-getExtensiondictionary vla-obj)
                                   "ACAD_FILTER"
                               )
                               "SPATIAL"
                           )
                       )
                   )
               )
           )
       )
   )
   result
)

PS Добавлено Если проанализировать 71 группу SPATIAL_Filter то можно узнать, включен или нет показ подрезки.

[Apelsinov]

VVA,
есть проблемка небольшая, если у блока был удален xcip, то

Код:

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

(vla-item 
 (vla-getExtensiondictionary vla-obj)
    "ACAD_FILTER"
)

выдает ошибку

[VVA]

Apelsinov, И если его не было то же. Поэтому операция взята в обертку vl-catch-all-apply. Используй не фрагмент кода, а ф-цию целиком
*** ДОБАВЛЕНО
Вот вариант через lisp без vla

Код:

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

(and (setq blk (car(entsel "\nУкажи подрезанный блок")))
     (setq dict (cdr(assoc 360 (entget blk))))
     (if (and
           (setq sp (member '(3 . "ACAD_FILTER") (entget dict)))
           (setq sp (cdr(assoc 360 sp)))
           (setq sp (member '(3 . "SPATIAL")(entget sp)))
           (setq sp (cdr(assoc 360 sp)))
           )
       (progn
         (if (= (cdr(assoc 71 (entget sp))) 1)
           (alert "Блок подрезан\nКонтур включен")
           (alert "Блок подрезан\nКонтур ОТКЛЮЧЕН")
         )
         )
       (alert "Блок не подрезан")
         )
     )

[Apelsinov]

VVA,
про vl-catch-all-apply это все понятно, просто я думал, что есть возможность отловить ошибку на не нахождение vla-item