Numara atayan (daire içinde) lisp | Forumlar

AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim

aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A

Forumlar > AutoLISP > Numara atayan (daire içinde) lisp

04.06.2012 14:46

earthworm

hocam ;

(defun C:Noyaz ()

(setq yazıyüksekliği (getdist (strcat "
Yazi Yuksekligini Giriniz : ")))
(setq başsayı (getdist (strcat "
Başlangıç sayısını yazınız : ")))
(setq koordinat (getpoint "
yazılacak yeri tıklayınız :"))
(setq koordinatx (car koordinat))
(setq koordinaty (cadr koordinat))
(setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0))
(command "text" "m" koordinatxy yazıyüksekliği "0" (fix başsayı))

(while (> 10000)
(setq başsayı (+ 1 başsayı))
(setq koordinat (getpoint "
yazılacak yeri tıklayınız :"))
(setq koordinatx (car koordinat))
(setq koordinaty (cadr koordinat))
(setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0))
(command "text" "m" koordinatxy yazıyüksekliği "0" (fix başsayı))
)
)

lispini nasıl daire içinde yazdırıcak şekilde düzenleyebiliriz
saygılar

69077

04.06.2012 17:51

Travaci

Tıkladığınız koordinatı tekrar bulmanız ve strcat komutu gereksiz olmuş

Kod:

(defun C:Noyaz ()
(setq yazıyüksekliği (getdist "\nYazi yuksekligini giriniz : "))
(setq başsayı (getdist "\nBaşlangıç sayısını yazınız. : "))
(setq koordinat (getpoint "\nYazılacak yeri tıklayınız."))
(command "text" "j" "mc" koordinat yazıyüksekliği "0" (fix başsayı))
(entmake (list(cons 0 "CIRCLE")(cons 67 0)(cons 100 "AcDbCircle")(cons 10 koordinat)(cons 40 yazıyüksekliği)))
(while (> 10000)
(setq başsayı (+ 1 başsayı))
(setq koordinat (getpoint "\nYazılacak yeri tıklayınız."))
(command "text" "j" "mc" koordinat yazıyüksekliği "0" (fix başsayı))
(entmake (list(cons 0 "CIRCLE")(cons 67 0)(cons 100 "AcDbCircle")(cons 10 koordinat)(cons 40 yazıyüksekliği)))
)
)

Entmake fonksiyonunu bilmiyorsanız

Kod:

(defun C:Noyaz ()
(setq yazıyüksekliği (getdist "\nYazi yuksekligini giriniz : "))
(setq başsayı (getdist "\nBaşlangıç sayısını yazınız. : "))
(setq koordinat (getpoint "\nYazılacak yeri tıklayınız."))
(command "text" "j" "mc" koordinat yazıyüksekliği "0" (fix başsayı))
(command "circle" koordinat yazıyüksekliği)
(while (> 10000)
(setq başsayı (+ 1 başsayı))
(setq koordinat (getpoint "\nYazılacak yeri tıklayınız."))
(command "text" "j" "mc" koordinat yazıyüksekliği "0" (fix başsayı))
(command "circle" koordinat yazıyüksekliği)
)
)

Travaci (04.06.2012 18:52 GMT)

69078

05.06.2012 05:53

earthworm

Teşekkürler

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş