下面是一个较短的图像分离代码-但当图像被删除时，它仍然无法工作。
- (defun c:imgdel (/ imGLst)
- (vlax-for Obj
- (vla-get-ModelSpace
- (vla-get-ActiveDocument
- (vlax-get-acad-object)))
- (if (eq "AcDbRasterImage" (vla-get-ObjectName Obj))
- (setq imGLst (cons (vla-get-Name Obj) imGLst))))
- (mapcar '(lambda (x) (command "_-image" "_D" x)) imGLst)
- (princ (strcat "\n" (itoa (length imGLst)) " Image(s) Detached."))
- (princ))
| 
