[编程交流] XCLIP#039；d块

(defun bg:block-GetXclip ( vla-obj / result )
;;Если блок подрезан, возвращает SPATIAL, иначе nil
;;If the block is clipped, returns SPATIAL filter, differently return nil
;; test
;; (bg: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
)