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
>
lisp isteği
83225
26.03.2016 06:03
mehmet_zaza
arkadaşlar resimde gördüğünüz text kotların noktaları yok ve text kotlarını 100 mt kaldırmam lazım hem tümden hemde tek tek
kaldıracak lisp lazım bana yardımcı olursanız sevinirim...
83333
15.04.2016 10:23
sercan05
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
83334
15.04.2016 10:24
sercan05
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
89172
23.09.2021 05:16
baha07
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)
>
1
<
Copyright © 2004-2022 SQL: 0.97 saniye - Sorgu: 50 - Ortalama: 0.01939 saniye