Hi, I am using this code to move all images from model and paper space to the layer Image.
I want to update this code to move all images from model space to layer Image_Model and all images from paper space to layer Image _Lay.
Can any one help me?
HTML Code:
(vl-load-com)
(defun c:LinkLayerImage (/ *error* acDoc layerName oLayer ss)
(defun *error* (msg)
(if ss
(vla-delete ss)
)
(if acDoc
(progn
(vla-endundomark acDoc)
(vla-regen acDoc acallviewports)
)
)
(cond ((not msg)) ; Normal exit
((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or (quit)
((princ (strcat "\n** Error: " msg " ** "))) ; Fatal error, display it
)
(princ)
)
(if (ssget "_X" '((0 . "IMAGE") (8 . "~Image")))
(progn
(vla-startundomark
(setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
)
;; get or create layer
(setq oLayer
(vla-add (vla-get-layers acDoc) (setq layerName "Image"))
)
;; set image layer
(vlax-for x (setq ss (vla-get-activeselectionset acDoc))
(vla-put-layer x layerName)
)
;(setvar 'clayer "Line1")
)
)
;(alert "image done")
(*error* nil)
)
Thanks