Reklam

* E Posta Adresiniz:
* Kodu Girin:

> 1 <
İleti Yazar
12.04.2008 13:20
35623    
sinanc

[3] Kıdemli Girişimci

Online Durumu

31 ileti
programci
ankara

Yazı (TEXT) ile ilgili ufak-faydalı Autolisp kodlarından biri.
Seçilen yazıları birleştirir.
Birinci yazıdan sonrakileri birinci yazıya dahil edip çizimden siler!
Autocad harici programlardan aktarılan çizimlerde yazılar patlamış olarak gelebiliyor.
O yazıları birleştirmek için ihtiyaçtan yazılmış bir Autolisp kodudur.

Kod:

;Seçilen yazıları birleştirir !
;Birinci yazıdan sonrakileri birinci yazıya dahil edip çizimden siler !
;Açıklama : Autocad harici programlardan aktarılan çizimlerde yazılar patlamış olarak gelebiliyor..
;o yazıları birleştirmek için ihtiyaçtan yazılmış bir Autolisp kodudur !
;SCYz V1.0 - Nisan 2008 (c) Sinan COŞKUN
(defun c:yzb()
(setvar "cmdecho" 0)
(setq bslk " "); iki yazı arasına boşluk
(while
(setq yz(entsel"\nSabit yazıyı seçiniz !"))
(setq yz(entget(car yz)))
(if(/=(cdr(assoc 0 yz))"TEXT")
  (alert"\nSeçtiğiniz Obje Yazı değil !")
  (progn
   (while
    (setq yzs(entsel"\rSırayla birleştirilecek yazıları seçiniz !"))
    (setq yzs(entget(car yzs)))
    (if(/=(cdr(assoc 0 yzs))"TEXT")
     (alert"\nSeçtiğiniz Obje Yazı değil !")
     (progn
     (if(or(=(cdr(assoc 1 yzs))(cdr(assoc 1 yz)))(=(cdr(assoc 10 yzs))(cdr(assoc 10 yz))))
     (alert"\nSabit yazıyı tekrar seçtiniz !")
     (progn
     (setq yzb(strcat(cdr(assoc 1 yz))bslk(cdr(assoc 1 yzs))))
     (setq yz(subst(cons 1 yzb)(assoc 1 yz)yz))
     (entmod yz)
     (entdel(cdr(assoc -1 yzs)))
     );progn
     );if
     );progn
    );if
   );while
  );progn
);if
);while
(princ)
);defun


Yazıları birleştiren lisp fonksiyonunu buradan indirebilirsiniz: 1-yazilari-birlestiren-lisp.lsp


admin (12.12.2017 23:32 GMT)

12.04.2008 16:34
35632    
tunç26

[3] Kıdemli Girişimci

Online Durumu

15 ileti
Topoğraf
ankara

Eline sağlık güzel olmuş. Benin isteğim olacak elimizde yol kesitleri var bunların kotlarında bazen değişiklik oluyor. Bunları tek tek değiştirmek zorunda kalıyoruz. Hepsini seçip benin istediğim rakam kadar ekleme ve çıkarma yapan bir lisp olabilir mi tşk


admin (12.12.2017 23:35 GMT)

12.12.2017 23:39
85800    
admin

[99] Üst Yönetici

Online Durumu

531 ileti
AutoCAD, 3ds Max, V-Ray Eğitmeni
İstanbul, İzmir

Yol kotlarını güncelleyen Autolisp fonksiyonu. Bu dosyada aradığınız bilgiler mevcut.



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

 

Çizim Okulu Ekibi

04.04.2018 21:50
86208    
balik123

[2] Girişimci

Online Durumu

8 ileti
muhendis
kahramanmaraş

seçtiğiniz obje yazı değil diyor mtext yardımı istiyorum

> 1 <
Copyright © 2004-2018 | Tüm Hakları Saklıdır | 2463 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam