20.12.2019 09:21
kral87
|
Merhabalar,
Bir mimari projede çok fazla hatch (tarama) nesneleri mevcut
bu hatchlar bir veya bir kaç kez bloklanmış
bu bloklu olan hatchleri nasıl silebiliriz yada bir lisp yazılabilirmi
yardımlarınız için teşekkürler
Travaci (23.01.2020 14:17 GMT)
|
20.12.2019 13:09
alumina
|
Alıntı kral87 :
Lisp yazilirsa silinmemesi gereken bloklarinda silinme olasiligi var. "qselect" komutu ile blok adina gore secim yapip daha kontrollu silebilirsiniz.
|
21.12.2019 11:13
kral87
|
teşekkürler
|
24.12.2019 06:34
kral87
|
merhaba alumina bey,
Aslında sormak istediğim bir mimari dosya için çok fazla taramalar var.
bunların bir kısmı çizimlerle (örneğin tefrişlerin içinde kolonlarda vs) bloksuz bazıları normal blok bazılarında dinamik blok yapılmış
yapmak istediğim sadece tarama (hatch) ları çizimden silebilmek
bunun kısa yolu varmıdır yada lispi yazılabilirmi
iyi çalışmalar
|
24.12.2019 10:04
alumina
|
Alıntı kral87 :
Silinecek olan hatch orneklerinden bir kacini isaretleyip (bloklu, bloksuz vs.) ornek dosya paylasirsaniz yardimci olmaya calisiriz.
|
25.12.2019 15:51
kral87
|
Linkleri görebilmek için ÜYE olmalısınız.
MERHABA ALUMİNA BEY,
RESİM OLARAK EKLEYEBİLDİM DOSYAYI
İYİ ÇALIŞMALAR
|
25.12.2019 16:08
mttlp
|
Yapılır.
|
25.12.2019 18:46
alumina
|
Alıntı kral87 :
.dwg dosyasi gerekli.
Alıntı mttlp :
Yapta gorelim !!!!
|
25.12.2019 21:47
mttlp
|
Hocam yaptım zaten mimari temizlemede kullanıyorum.
İster blok içinde olsun çizimde modelde layotlarda hepsini seçip siliyor.
|
25.12.2019 22:15
alumina
|
Alıntı mttlp :
Paylas o zaman yada kral87'ye ozelden gonder. Cok onemli bir kod degilse :)
|
26.12.2019 06:17
kral87
|
merhaba mttlp bey
taramaların ne yapılarak silindiğini paylaşma durumunuz varsa paylaşabilirmisiniz.
iyi çalışmalar
|
26.12.2019 08:06
mttlp
|
Autolisp ile yazmadım kodu mantığı anlatıyım hatch olarak komble çizimi arıyor hatch olanları bulup siliyor kod
|
26.12.2019 08:43
kral87
|
mttlp bey
kod nedir paylaşabilirmisiniz özel değilse
|
26.12.2019 08:55
Travaci
|
Kod:
(defun c:dbh (/ et x y)
(setq et (vla-get-Activedocument (vlax-get-acad-object)))
(vla-startundomark et)
(vlax-for x (vla-get-blocks et)
(if (and (eq :vlax-false (vla-get-isLayout x))
(eq :vlax-false (vla-get-isXref x)))
(vlax-for y x
(if (eq "AcDbHatch" (vla-get-objectname y))
(vl-catch-all-apply 'vla-delete (list y))
)
)
)
)
(vla-endundomark et)
(vla-regen et acAllViewports)
(princ)
)
internette ufak bi araştırmayla bulabilirsiniz.
|
26.12.2019 09:27
kral87
|
TEŞEKKÜRLER TRAVACİ BEY,
İYİ ÇALIŞMALAR
|
26.12.2019 09:46
kral87
|
Linkleri görebilmek için ÜYE olmalısınız.
Merhaba
silmek istediğim taramalar olan dwg dosyası bloklu bloksuz
|
27.12.2019 07:49
kral87
|
merhaba travaci bey,
paylaşımınız için teşekkürler
lisp sadece bloklu olan hatchlari siliyor bloksuz hatchlari silmiyor lisp bütün sadece hatch nesneleri için düzenlenebilirmi
birde bu lispi bütün bloklu bloksuz dimension ölçü nesnelerinede uygunalacak şekilde yapılabilirmi
iyi çalışmalar
|
27.12.2019 13:23
mühendisce
|
tüm bloksuz hatch leri siler
(vl-load-com)
(defun c:erase-hatch (/ adoc)
(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for blk_def (vla-get-blocks adoc)
(if (equal (vla-get-isxref blk_def) :vlax-false)
(vlax-for ent blk_def
(if (= (vla-get-objectname ent) "AcDbHatch")
(vl-catch-all-apply
(function
(lambda ()
(vla-erase ent)
) ;_ end of lambda
) ;_ end of function
) ;_ end of vl-catch-all-apply
) ;_ end of if
) ;_ end of vlax-for
) ;_ end of if
) ;_ end of vlax-for
(vla-endundomark adoc)
(princ)
) ;_ end of defun
|
27.12.2019 13:28
mühendisce
|
tüm blok olan hatch leri siler
(vl-load-com)
(defun c:Test (/ ss i sn name bd l)
;; Tharwat 18. Sep. 2013 ;;
(or acdoc
(setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
)
(if (setq ss (ssget "_:L" '((0 . "INSERT"))))
(repeat (setq i (sslength ss))
(setq sn (ssname ss (setq i (1- i))))
(if (not
(member (setq name (cdr (assoc 2 (entget sn)))) l)
)
(progn
(setq l (cons name l))
(vlax-for x (setq bd
(vla-item (vla-get-blocks acdoc)
name
)
)
(if
(and (eq :vlax-false (vla-get-isxref bd))
(eq (vla-get-objectname x) "AcDbHatch")
)
(vl-catch-all-apply 'vla-delete (list x))
)
)
)
)
)
(princ)
)
(if ss
(vla-regen acdoc acAllViewports)
)
(princ)
)
|
kral87
|
MERHABALAR
PAYLAŞIMLARINIZ İÇİN TEŞEKKÜRLER
BU LİSPLER BLOKLU BLOKSUZ ÖLÇÜLERİDE SİLMEK İÇİN YAPILABİLİRMİ
|