04.12.2011 15:47    

eumer
Merhabalar,
birçok sistemi tek autocad paftasında birleştirdim(kuvvetli akım, zayıf akım, yangın..Vb)
bu paftadan çıktı alıp şantiyede yerinde inceleyeceğiz.
ancak burdaki sorun farklı dosyaları birleştirdiğim için üst üste gelen blokları ve blokla üst üste gelen çizgiler çıktıda görünmeyecektir, karışacaktır.
bu kesişimleri bulan herhangi bir yöntem var mıdır? tek tek incelemek zor oluyor. bana üst üste gelenler var ise yerini gösterecek bir yöntem var mıdır?(yerini göstermesi yeterli ben elle move yaparım)

teşekkürler şimdiden.

04.12.2011 17:37    

ProhibiT
Overkill<┘all<┘

04.12.2011 21:12    

eumer
Hocam cevap için teşekkürler.
ancak bu yöntem block'lar da uygulanmıyor. denedim olmadı. tekrar teşekkürler.

06.12.2011 12:18    

ProhibiT
Kod:

;|---------------------------------------------------------------------------|
| OverKiLL bLocks                                                           |
|    Seçilen bölüm veya tüm çizim içinde, aynı konumda (üst üste) olan      |
|    bLock'lar kontrol edilerek, çakışmalar varsa bir tanesi bırakılar,     |
|    diğerleri silinir. BLock'ların "BLock Name", "Insertion Point",        |
|    "Angle", "X Scale", "Y Scale" ve "Z Scale" değerleri biribirinin       |
|    aynı ise, diğer özelliklerine (Layer, CoLor, Linetype,... etc.)        |
|    bakılmaksızın çakışıyor kabul edilirler.                               |
|          Hazırlayan: M. Şahin Güvercin 06/12/2011 - www.autocadokulu.com  |
|---------------------------------------------------------------------------|;
(write-line "\nPrepared by: M. Sahin Guvercin www.autocadokulu.com")
(defun c:oKb (/ bLks L n sYc pVtbL m n0 i0 a0 x0 y0 z0 cmpbL n1 i1 a1 x1 y1 z1)
  (setvar "cmdecho" 0) (command "undo" "group")
  (defun *error* (er) (princ (strcat "\n" er)) (command "_.undo" "e")
    (setq *error* nil) (princ "\nM. Sahin Guvercin  www.autocadokulu.com"))
  (princ "\nSelect BLocks for Overkill operations: ")
  (setq bLks (ssget (list (cons 0 "INSERT"))) L (sslength bLks) n -1 sYc 0)
  (while (< (setq n (1+ n)) (1- L))
    (setq pVtbL (entget (ssname bLks n)) m n n0 (assoc 2 pVtbL)
          i0 (assoc 10 pVtbL) a0 (assoc 50 pVtbL)
          x0 (assoc 41 pVtbL) y0 (assoc 42 pVtbL) z0 (assoc 43 pVtbL))
    (while (< (setq m (1+ m)) L)
      (setq cmpbL (entget (ssname bLks m)) n1 (assoc 2 cmpbL)
            i1 (assoc 10 cmpbL) a1 (assoc 50 cmpbL)
            x1 (assoc 41 cmpbL) y1 (assoc 42 cmpbL) z1 (assoc 43 cmpbL))
      (if (and (mapcar '(lambda (p1 p2) (equal (eval p1) (eval p2)))
                       '(n0 i0 a0 x0 y0 z0) '(n1 i1 a1 x1 y1 z1)))
        (progn (ssdel (cdr (assoc -1 cmpbL)) bLks)
              (entdel (cdr (assoc -1 cmpbL)))
          (setq L (sslength bLks) m (1- m) sYc (1+ sYc))))))
  (princ (strcat "\n** " (itoa sYc) " overlapped bLocks removed **"))
  (setq *error* nil) (command "undo" "e") (prin1)
)

ProhibiT (07.12.2011 07:58 GMT)

06.12.2011 12:33    

waytooraider
Hocam overkill zaten üst üste blok siliyor..Belkide autocadin version farklılığından dolayıdır. 2012 kullanıyorum

06.12.2011 12:47    

ProhibiT
:) hem eski versiyonlarda kullanılır, hem de yalnızca blocklar için işlem yapmak isteyenler kullanabilir. bunların yanında 6 tane if-then-else gurubunun tek komutta birleştirilmesi yazar arkadaşlar için ilginç bir örnek olabilir...

17.12.2014 11:38    

spartacus24
ProhobiT Hocam;

Benim sorunum arkadaşımın ki ile aynı. Projeci arkadaşlar blok çalışmışlar fakat bir blok içerisinde üst üste 10 tane çizgi olduğu yerler var. Ben bunları sizin okb.lsp uygulamanızı deneyerek çözmeye çalıştım fakat işe yaramadı. Yardımcı olabilirmisiniz.

17.02.2016 13:31    

hasan5353
üstadlar merhaba,
ben bu lips ile şunu yapabilir miyim. eski tarihli süperpose projesinin üstüne aynı daire tiplerinden oluşan yeni tarihli süperpose projesini üst üste çakıştırıyorum ki yeni tarihlide bi değişiklik olmuşmu diye. overkill komutu hesabı ben istiyorum ki komutu girince block projesini karşılaştıracak ve aynı olan yerleri silecek. farklı olan yerler ortada kalıcak ve bende o bölgeler üzerinde çalışcam. yukarıdaki lips mükemmel ama çakıştırma yapmadan diğer bloğu koşulsuz sildi.

17.02.2016 14:29    

halilozcakir
overkil bloklarda işe yaramaz tavsiyem yedekleri aldıktan sonra dwg nin birini eskisini sarı reknkli yapıp ister xref ile ister blok yapıştır ile çak farklar sarı sarı çıkar ortaya.

17.09.2019 11:22    

TENTEN143
Beyler maalesef overkill hiç bir işe yaramıyor.overkill yapmama rağmen halen daha üst üste 5-10 tane çizgi buldum.Bu arada autocad 2019 kullanıyorum.

> 1 <
Copyright © 2004-2022 SQL: 1.998 saniye - Sorgu: 71 - Ortalama: 0.02814 saniye