xclip boundaries

[Mark Dubbelaar]

hi

i was wondering how to determine if a drawing has an existing xclip boundary
via lisp??? i am writing a routine that clips all xrefs to the viewport and
if the xrefs have already been clipped, the program falls over....

thanks in advance

cheers
mark

[Adam Wuellner]

"Mark Dubbelaar" <mark.du...@bigpond.com> wrote in message
news:33A2A4FF4067AD40...@in.WebX.maYIadrTaRb...

how about
(command "xclip" ss "delete")
before clipping?

[Dan Allen]

Group code 360 is for xlipped blocks/xrefs.
Example code - requires two subroutines not included.

;;; One-step draw xclip boundary
(defun c:XCP ( / elst clay)
(princ "\nSelect xref to draw polyline boundary on layer Z-XCLIP: ")
(command "select" "si" (BCV_CMDACTIVE nil)) ;;; BCV_CMDACTIVE waits
until command is done
(if (assoc 360 (entget (ssname (ssget "P") 0))) ;check to see if xref has
boundary
(progn
(setq elst (entlast)) ;;; set flag for BCV_AFTER
(command "xclip" "P" "" "Polyline")
(command "-layer" "thaw" "z-xclip" "") ;thaw layer whether it exists
or not
(if (not (tblsearch "LAYER" "Z-XCLIP"))
(command "-layer" "make" "z-xclip" "color" "7" "" "") ;make layer if
it doesn't exist
)
(command "chprop" (BCV_AFTER elst) "" "layer" "z-xclip" "")
;;;BCV_AFTER returns entities created since flag was set
)
(princ "\nNo clip boundary found for Xref")
)
(princ)
)

"Mark Dubbelaar" <mark.du...@bigpond.com> wrote in message
news:33A2A4FF4067AD40...@in.WebX.maYIadrTaRb...