社区 › Auto Lisp › 需要帮助解决这个问题。ls

Lee Mac 发表于 2022-7-6 15:35:21

下面是一个较短的图像分离代码-但当图像被删除时，它仍然无法工作。
 

(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))

Lee Mac 发表于 2022-7-6 15:42:56

你可以从Wizman那里试试：
 
7

DVDM 发表于 2022-7-6 15:46:30

谢谢李，
 
我快速尝试了最后一个动作，似乎效果很好。我还没有机会在阿卡多克中测试它。lsp还没有。
 
再次感谢您的帮助！

Lee Mac 发表于 2022-7-6 15:52:58

 
没问题——我又看了一遍——但我认为Wizmans代码比我想象的要多得多

查看完整版本: 需要帮助解决这个问题。ls