[elena_k]

Подскажите пожалуйста, как в Vlisp отличить и затем удалить пустые растровые изображения. На прикрепленном чертеже, кроме одного видимого растра, есть еще 39 (если через свойства искать, или выбрать (ssget "_x" '((0 . "IMAGE"))) ). Может быть можно выбрать только видимые?, но свойства (cdr (asoc 280 (entget (ssname ss_image k_image)))) у невидимых дает ошибку. Что-то я не так делаю. Подскажите пожалуйста, а то таких чертежей наплодилось очень много. Заранее благодарна.

[Sleekka]

может быть поможет команда tfames из Express, она кстати в открытом коде.

[kp+]

Например, так: http://forum.dwg.ru/showthread.php?t=4983

[elena_k]

Спасибо за советы, пока не получилось, буду разбираться.

[VVA]

elena_k, ImgDet не удаляет?
Здесь важно чтобы растры были вставлены в этот чертеж, а не пришли вместе с xref'ами. Иначе нужно открывать ссылки и делать ImgDet там

[Makswell]

Код:

[Выделить все]

(vlax-for fam_item (vla-get-ModelSpace
		     (vla-get-ActiveDocument (vlax-get-acad-object))
		   )
  (if
    (and
      (= (vla-get-ObjectName fam_item) "AcDbRasterImage")
      (vl-catch-all-error-p
	(vl-catch-all-apply '(lambda (x) (vla-get-ImageFile x)) (list fam_item))
      )
    )
     (vla-Delete fam_item)
  )
)

Добавлено:

Сообщение от elena_k Подскажите пожалуйста, как в Vlisp отличить и затем удалить пустые растровые изображения...

Удалить см. код выше, а отличить - см. фрагмент кода:

Код:

[Выделить все]

(vl-catch-all-error-p
	(vl-catch-all-apply '(lambda (x) (vla-get-ImageFile x)) (list fam_item))
)

возвращает t, если растр пустой

[CB]

>elena_k

но свойства (cdr (asoc 280 (entget (ssname ss_image k_image)))) у невидимых дает ошибку

Попробуй так

Код:

[Выделить все]

(defun test (/ ss_image)
  (if (setq ss_image (ssget "_x" '((0 . "IMAGE"))))
    (mapcar
      '(lambda (x)
  (if (not (entget (cdr (assoc 340 (entget x)))))
    (vl-cmdf "_erase" x "")
  ) ;_ end of if
       ) ;_ end of lambda
      (vl-remove-if
 'listp
 (mapcar 'cadr
  (ssnamex ss_image)
 ) ;_ end of mapcar
      ) ;_ end of vl-remove-if
    ) ;_ end of mapcar
  ) ;_ end of if
  (princ)
) ;_ end of defun

[VVA]

VVA, В посте #5 идет речь о неиспользуемых растрах. Т.е. тех, которые были вставлены, потом удалены, и в Диспетчере изображений имеют статус "неиспользуемое"

[elena_k]

VVA, ImgDet не удаляет, и растраы пришли с элементами TurboCad-a

[elena_k]

СВ, Спасибо огромное, все замечательно. Все получилось!!!