AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoCAD Acil Yardım > Toplu Döndürme
14.12.2019 08:27    
asamet
SSX veya Selectsımılar ile seçtiğim birkaç tane (50-60) text in, her biri kendi merkez noktalarını baz alarak oldukları yerde toplu olarak döndürme (Rotate) işlemi nasıl yapabilirim? Oldukları yerde 180 derece dönmelerini istiyorum mesela.

14.12.2019 13:13    
ehya
Bunun için en uygun işlem,

TJUST komut ile seçilen yazıların yerleşim yerlerini MC (Middle Center) olarak ayarlayın.
Daha sonra rotate işlemini uyguladığınızda merkez noktasından döndürülecektir.

14.12.2019 21:18    
asamet
Yazılar zaten justify i middle center. Ama yazılar oldukları yerde ters duruyorlar. İkinci cümledeki rotate işlemi dediğinizden tek tek yapın demek istediğinizi anlıyorum. Ama ben sayı çok olduğu için hepsinin birden 180 derece dönebilme olasılığını sordum. Bu şekilde bir kolaylık var mı acaba?

16.12.2019 06:30    
ehya
Mevcut değerlerine 180 derece mi eklemek istiyorsunuz;?
Yoksa hepsinin açılarını 180 derece mi yapmak istiyorsunuz?

18.12.2019 10:50    
asamet
Hepsini birden tek seçimde 180 derece döndürmek istiyorum

18.12.2019 12:29    
mttlp
Lisp ile yapılır buluduğu açıyı alıp 180 derece üzerine ekleyip acısını güncelliyecek

18.12.2019 13:32    
alumina
Alıntı
mttlp :

Mantik dogru. Simdi de yaz :)

18.12.2019 14:55    
mttlp
Alıntı
alumina :
Alıntı
mttlp :

Mantik dogru. Simdi de yaz :)


Sağolun hocam :)

19.12.2019 12:19    
onurkurnaz
Alıntı
asamet :

Soyle bir kod yazdim. Umarim isinizi gorur.
Kod:

(defun c:tr (/ dc ad sl) (vl-load-com)
  (if (and (ssget ":L" '((0 . "*text")))
        (setq dc (vla-get-ActiveDocument
          (vlax-get-acad-object))
            ad (getreal "\nEnter the angle to add:")))
    (progn (vla-StartUndomark dc)
      (vlax-for m (setq sl (vla-get-ActiveSelectionSet dc))
        (vla-put-Rotation m (+ (vla-get-Rotation m)
          (* (/ ad 180.) pi))))
      (vla-EndUndomark dc) (vla-Delete sl)
    )
  ) (prin1)
)
19.12.2019 14:48    
asamet
Yorumlarınız için çok teşekkürler. Onur Hocam elinize sağlık tam olarak karşılıyor bu kod. Eminim sadece bana değil diğer arkadaşların da işine yarayacak bir kod yazıp denize atmışsınız. Size de ayrıca teşekkür ederim.

20.12.2019 09:10    
onurkurnaz
Alıntı
asamet :


üzerimde sayısız emeği geçen saygı değer abim ''ALUMİNA'' ya sonsuz teşekkürler..

> 1 <
Copyright © 2004-2022 SQL: 1.644 saniye - Sorgu: 71 - Ortalama: 0.02316 saniye