社区 › Auto Lisp › XCLIP#039；d块

askrius 发表于 2022-7-6 15:23:47

XCLIP#039；d块

有没有办法检索与特定外部参照（在本例中为BlockRef）相关联的XCLIP边界？

VVA 发表于 2022-7-6 16:53:27

(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
)

注意第10组

查看完整版本: XCLIP#039；d块