Forum
Download
Galeri
Üye Ol
|
Giriş
AutoCAD
•
AutoLISP
•
Programlama
•
Püfler
•
Komutlar
•
Terimler
•
Eğitim
aLd
•
TCad
•
FacadeCAD
•
Cephe Kot
•
HQ Library
•
FreeMUST
•
Pasdoc.A
Forumlar
>
AutoLISP
>
Yol kotlarını güncelleyen Autolisp fonksiyonu
35680
14.04.2008 10:20
sinanc
Yol kotlarını güncelleyen AutoLISP fonksiyonu. Text objesi olarak yazılmış yazılardaki kotları günceller.
Kod:
;Yol Kotlarını güncelleyen Autolisp kodu
;Kot yazıları "TEXT" objesi olmak zorunda !
;kotg - Nisan 2008 (c) Sinan COŞKUN
(defun c:kotg()
(setvar "cmdecho" 0)
(command "undo" "group")
(setq ssl 0)
(setq k_g nil)
(while(= k_g nil)(setq k_g(getreal"\nKotlara ilave edilecek veya çıkarılacak rakam ? ")))
(while
(setq VeriAl(entsel"\nİşlem yapılacak kotlar için tip Obje seçiniz !"))
(setq Lay(cdr(assoc 8(entget(car VeriAl)))))
(setq Aci(cdr(assoc 50(entget(car VeriAl)))))
(prompt"\nRevize edilecek kot yazılarını seçiniz !:")
(setq a(ssget(list(cons 8 Lay)(cons 50 Aci)(cons 0 "TEXT"))))
(if(null a)
(alert "\nHATA : Boş Liste..!")
(progn
(setq rep(sslength a))
(repeat rep
(setq temp(entget(ssname a ssl)))
(setq yz_ktrl(angtof(cdr(assoc 1 temp))))
(if(= yz_ktrl nil)
(alert"\nSeçilen Objelerin arasında 'Harf veya Sembol' içeren YAZI(lar) tespit edildi !\nİşlemden sonra kontrol ediniz !")
(progn
(setq yz_tmp(atof(cdr(assoc 1 temp))))
(setq yzg(rtos(+ yz_tmp k_g)2 2))
(if(= yzg "0.00")(setq yzg "%%p0.00"))
(setq temp(subst(cons 1 yzg)(assoc 1 temp)temp))
(entmod temp)
)
)
(setq ssl(+ ssl 1))
)
(princ(strcat"\n"(itoa rep)" Obje üzerinde işlem yapıldı!"))
);progn
);end if
);while
(command "undo" "e")
(princ)
)
Kot güncelleme lisp dosyasını buradan indirebilirsiniz:
1-kot-guncelleme.lsp
admin (12.12.2017 20:18 GMT)
35683
14.04.2008 10:51
tunç26
tşk güzel olmuş yardımların için tşk
>
1
<
Copyright © 2004-2022 SQL: 0.82 saniye - Sorgu: 45 - Ortalama: 0.01822 saniye