15.04.2016 10:23

83333    

aynı dert ben de de var


hepsını tek tek propertıesden kotlandırma ıstemıyorum cok zamanımı alıyor , yazan degere kotları kaldıran bır lısp yokmu

23.09.2021 05:16

89172    

yazi icerigini mi yoksa text nin z degerini mi kaldiracaksin .

bu lisp yazi icerigini kaldiriyor

forumda buldum

;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 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 3))
(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)
)

---

baha07 (23.09.2021 06:41 GMT)