AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > İstekleriniz > Bloklanmış yazılar
01.04.2019 07:27    
kral87
Merhabalar
Bir çizimle birlikte bloklanmış yazıları blogu patlatmadan yazının yerini değiştiren aşağıya yukarıya çekmemizi sağlayan lisp varmı
teşekkürler.

kral87 (21.10.2020 09:27 GMT)

01.04.2019 08:39    
ehya
Kod:

(defun c:nk ()
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(if (= nk-mes nil)(setq nk-mes 100))
(princ (strcat "\nMesafe : < " (rtos nk-mes 2 2)))
  (if (setq ss (ssget ":L"))
    (progn
      (setq ac-sec (vla-get-ActiveSelectionSet doc))
      (vla-startundomark doc)
      (vlax-for tt ac-sec
(vla-move  tt (vlax-3d-point 0 0 0)(vlax-3d-point nk-mes 0 0)))
      (vla-endundomark doc)))(princ))


Komut ismi NK :)

25.05.2019 11:06    
kral87
Merhaba Ehya bey,
Yardımlarınız için teşekürler.
demek istediğim örneğin bir mimari plandaki kolonlar duvarlar tefrişler yazılar vs hepsini blok yaptıktan sonra sadece yazının yada yazıların yerini herhangi bir yere bloklu iken de blogu patlatmadan değiştirebilen bi lisp yazılabilir mi?
NK komutu blokla beraber sadece sağ tarafa 100 birim taşıma işlemi yapıyor.
iyi çalışmalar.

10.06.2019 07:52    
kral87
Merhaba Ehya bey
Aşağıdaki linkte LeeMac tarafından blok içindeki nesneleri ve yazıları taşımak için yazılmış lisp vardır.
Taşınacak nesneler tek tek seçilmesi gerekiyor. Nesneleri çizgi yazı vs birlikte tek seferde seçilerek blok içinde taşıma yapılacak şekilde düzenlenebilir mi? Teşekkürler.



LeeMac yardımları için teşekkürler.


Linkleri görebilmek için ÜYE olmalısınız.

(reklam amaçlı değildir.)

10.06.2019 08:27    
ehya
Alıntı
kral87 :
Merhaba Ehya bey,
Yardımlarınız için teşekürler.
demek istediğim örneğin bir mimari plandaki kolonlar duvarlar tefrişler yazılar vs hepsini blok yaptıktan sonra sadece yazının yada yazıların yerini herhangi bir yere bloklu iken de blogu patlatmadan değiştirebilen bi lisp yazılabilir mi?
NK komutu blokla beraber sadece sağ tarafa 100 birim taşıma işlemi yapıyor.
iyi çalışmalar.



Blok nesnelerinde bu tür işlemler için lisp yazmaktan ziyade, blok içine girip istenilen düzenlemeleri yapmak yada refedit komutu ile aynı şekilde değiştirme yapılması daha sağlıklı olacaktır.

LeeMac bunu tekil nesne için yazdıysa, çoğul nesne için uğraşmamak ve saygı duymak gerekir.

10.06.2019 08:33    
kral87
Teşekkürler Ehya Bey

> 1 <
Copyright © 2004-2022 SQL: 1.304 saniye - Sorgu: 57 - Ortalama: 0.02287 saniye