AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP Kodları > Rename block name (change name)
11.07.2017 10:03    
alumina
Alıntı
mantık85 :

Secilen bloklari yenisiyle degistirir.
Kod:

(defun c:bn (/ dc sl ns m) (vl-load-com)
  (if (and (ssget '((0 . "insert"))) (setq dc (vlax-get (vlax-get-acad-object)
        'activedocument) sl (vla-get-activeselectionset dc))
          (setq ns (ssget ":s" '((0 . "insert")))))
    (progn (vla-startundomark dc)
      (vlax-for m sl (vla-InsertBlock (vlax-get dc 'modelspace) (vla-get-InsertionPoint m)
        (vla-get-EffectiveName (vlax-ename->vla-object (ssname ns 0))) 1 1 1
          (vla-get-Rotation m)) (vla-delete m)) (vla-endundomark dc) (vla-delete sl)
    )
  ) (prin1)
)
11.07.2017 11:57    
mantık85
Teşekkür ederim. Hemen denedim şu şekilde; ilk olarak yerine konmasını istediğim bloğu seçtim enter dedim gitmesini istediğim bloğu seçtim enter dedim. İlk seçtiğim blok gitti yeri boşaldı, ikinci blok ise aynı şekilde yerindeydi.
Demek istediğim, yeri boşalmasın da biri diğerinin yerine geçsin; mesela a bloğunu seçtim sonra b bloğunu seçtim a bloğu projede bulunan bütün b bloklarının yerini alsın.. Mümkün müdür acaba?
Derseniz ki insertpointler yüzünden mümkün değil, blok içinden değiştirerek aynı hale getirmek mümkün olur mu?
İlginiz için çok teşekkürler

11.07.2017 12:53    
alumina
Alıntı
mantık85 :

Lispin kullanimi asagidaki videoda anlatilmistir.
https://cizimokulu.com/datas/users/333661-blok-change.rar

11.07.2017 14:01    
mantık85
Benim bloklarımın merkezleri farklı olduğu için uzayda bir yere gidiyormuş (zoom-extend). Video ile daha rahat anladım çok teşekkür ederim.

11.07.2017 14:21    
alumina
Alıntı
mantık85 :

Bloklarin elevation lari 0 dan farkli bile olsa lispin calismasini etkilemez. Sonucta bloklar, '(x y z) nokta yapisi dikkate alinarak insert edilir.

31.05.2021 09:50    
mantık85
Merhabalar,
Projede 300den fazla kot var hepsi aynı block ama bazıları rotate olmuş. seçtiğim blockları oldukları yerde rotate yapan lisp var mıdır?

31.05.2021 10:25    
Travaci
Hepsini seçip properties ten açısını 0 yapın.

31.05.2021 10:58    
mantık85
çok teşekkür ederim

Önceki Sayfa [1] > 2 <
Copyright © 2004-2022 SQL: 0.881 saniye - Sorgu: 65 - Ortalama: 0.01355 saniye