如何查找外部参照剪裁的数据?

mn1k

<P>外部参照用XCLIP命令剪裁后,用VLISP如何取得边界参数?<BR>现在只能取得(102 . {ACAD_XDICTIONARY)(360 . &lt;图元名: 7ef91830&gt;)(102 . }),<BR>剪裁的边界参数如何取得?</P>

alin

This is a rouitne written by Joe Burke

 ;; Based on code by John Uhden 4/16/2005.
;; Argument: a block reference ename or vla-object.
;; Returns: the xclip boundary WCS point list if the block is clipped,
;; otherwise nil.
(defun GetClipBoundary (obj / xdict filter spatial elst ptlst)
  (if (= (type obj) 'ENAME)
    (setq obj (vlax-ename->vla-object obj))
  )
  (setq    elst
     (vl-catch-all-apply
       '(lambda ()
          (setq xdict (vla-getextensiondictionary obj))
          (setq filter (vla-getobject xdict "ACAD_FILTER"))
          (setq spatial (vla-getobject filter "SPATIAL"))
          (entget (vlax-vla-object->ename spatial))
        )
     )
  )
  (if (not (vl-catch-all-error-p elst))
    (foreach x elst
      (if (eq 10 (car x))
    (setq ptlst (cons (cdr x) ptlst))
      )
    )
  )
  ptlst
) ;end

mn1k

谢谢alin。