şuradaki Ynt: Autocad seçili objenin dışında kalan tüm nesneleri silme yöntemi konusu: AutoCAD – Tüm Ürünler – Türkçe Forum

Autocad seçili objenin dışında kalan tüm nesneleri silme yöntemi

berke_yilmaz12SE4F — Mon, 30 Sep 2024 09:39:54 GMT

Merhabalar,

Autocad dosyamda seçili objemin dışında kalan (kapsadığı alan olarak) her şeyi silebilmek için bir komut var mı, önceki konuları (https://forums.autodesk.com/t5/autocad-tum-urunler-turkce/secili-alanin-disindaki-veya-icindeki-nesneleri-tek-komutla/td-p/10628053#:~:text=Bu%20i%C5%9Flem%20i%C3%A7in%20tek%20bir,ALL%20yaz%C4%B1p%20enter'a%20bas%C4%B1n.) araştırdım ancak burada yazmış olduğunuz lispi çalıştırdığımda sadece seçili olan obje kalıyor. Benim aradığım çözüm bu sınırlar dışında kalan her şeyin silinmesi.(Extrim komutuyla istediğim işlemi gerçekleştiremiyorum çünkü silmem gerekenler point olarak geçiyor.

Yardımlarınız için şimdiden teşekkür ederim

Ynt: Autocad seçili objenin dışında kalan tüm nesneleri silme yöntemi

Mehmet_Demiryurek — Mon, 30 Sep 2024 13:30:04 GMT

Merhaba @berke_yilmaz12SE4F

Ekteki lispi kullanabilirsiniz. Nesne türü CIRCLE veya Kapalı POLYLINE olmalı.

(defun koorlist (ee / ename tur data) (setq ename (ssname ee 0) tur (cdr (assoc 0 (entget ename))) data (vlax-ename->vla-object ename) lst '() tuz (vlax-get data (if (= tur "CIRCLE") 'circumference 'length)) uz (/ tuz 20.)) (if (= tur "CIRCLE") (repeat 20 (setq lst (append (list (vlax-curve-getpointatdist ename (setq uz (+ (/ tuz 20.)uz )))) lst))) (setq lst (mapcar 'cdr (vl-remove-if '(lambda (x)(/= (car x) 10)) (entget ename))))) ) (defun c:SIL (/ ent sec) (if (setq ent (ssget "+.:S" (list '(-4 . "<OR") '(0 . "CIRCLE") '(-4 . "<AND") '(0 . "LWPOLYLINE") '(70 . 1) '(-4 . "AND>") '(-4 . "OR>"))) ) (progn (koorlist ent) (if (setq sec (ssget "_WP" lst))(command "erase" "all" "r" sec ""))) (princ "\nSeçilecek dış hat CIRCLE yada kapalı POLYLINE olmalı..."))(princ))

Ynt: Autocad seçili objenin dışında kalan tüm nesneleri silme yöntemi

berke_yilmaz12SE4F — Mon, 30 Sep 2024 13:43:45 GMT

Merhabalar yeniden,

Öncelikle ilginiz ve cevabınız için teşekkür ederim. Lispi denedim ancak polyline seçtiğimde işlemi gerçekleştirmiyor. Deneme amaçlı herhangi bir yere dikdörtgen yerleştirdiğimde ise çalışıyor. Acaba seçtiğim polyline'ın kapalı olduğunu anlamanın bir yolu var mı(properties kısmında misc:closed kısmı yes acaba burası mı ? ), sizlerle ekran görüntüsünü ve dosyamın orijinalini paylaşıyorum size zahmet yardımcı olabilir misiniz ?

Ynt: Autocad seçili objenin dışında kalan tüm nesneleri silme yöntemi

Mehmet_Demiryurek — Mon, 30 Sep 2024 15:04:19 GMT

Çerçeve çizginizde koordinat olarak aynı noktalar içerirse lisp doğru çalışmaz.

Bu durum ile ilgili bölüm de yazmadım.

Dış çerçevenize OVERKILL komutunu uygulayıp lispi tekrar çalıştırırsanız işleminiz gerçekleşecektir.

Ynt: Autocad seçili objenin dışında kalan tüm nesneleri silme yöntemi

berke_yilmaz12SE4F — Tue, 01 Oct 2024 06:51:23 GMT

Merhabalar,

Mehmet Bey yardımlarınız için teşekkür ederim, dediğiniz gibi OVERKILL komutunu uyguladıktan sonra LISP doğru bir şekilde çalıştı.

Teşekkür ederim, iyi çalışmalar dilerim