;;;CADALYST 10/06 Tip2151: ximageclip.lsp Image Clip Using Lightweight Polyline (c) Pedro Ferreira
;;;Author: Pedro Miguel da Silva Ferreira Email:pedro_ferreira@netcabo.pt or pferreira@wsatkins.pt
;;;Web page: http:pwp.netcabo.pt/pedro_ferreira
;;;Location: Portugal, Lisboa
;;;RDS: PMSF
;;;Command Name: xic
;;;Date: 16 of June 2006
;;;Version: 1.0
;;;Description: Visual Lisp Routine that creates a new clipping boundary for an image object by selecting a lwpolyline.
)
)
)
(if (/= chkraster
"IMAGE") )
)
)
)
)
)
(if (/= chkpoly
"LWPOLYLINE") )
)
)
)
)
)
(defun getcoordvariant
() )
)
)
)
vlax-vbdouble
)
)
)
)
)
)
)
(activexsupport)
(getraster)
(getpoly)
(getcoordvariant)
(clipbound)
)
"Type [xic] in the command line\n\nAuthor: Pedro Ferreira\nweb page: http://pwp.netcabo.pt/pedro_Ferreira\n\nTHIS PROGRAM IS PROVIDED \"AS IS\" AND WITH ALL FAULTS.\n\nPress OK to continue."
)