26.05.2008 10:22    

mesela aşağıdaki lispi komut olarak yaptığımız gibi icon haline getirip toolbara koymak için bi lisp yazmam gerekiyor sanırım ama ben bilmiyorum bilen arkadaşlar yazabilirlermi herkese iyi çalışmalar...
Kod:
(defun c:tb (/ secim sayi topboy cizsay say ata ata1 ata2 tip nok1 nok2 uzun ort)
(print " Çizgilerin toplam boyu... ")
(prompt " Uzunlukları toplanacak çizgileri seçiniz <Tümü>: ")
(setq secim (ssget))
(if (= secim nil)
(progn
(command "select" "all" "")
(setq secim (ssget "p"))
)
)
(setq sayi (sslength secim))
(setq topboy 0)
(setq cizsay 0)
(setq say 0)
(while (> sayi say)
(setq ata1 (ssname secim say))
(setq ata2 (entget ata1))
(setq tip (cdr (assoc 0 ata2)))
(if (= tip "LINE")
(progn
(setq ata (entget ata1))
(setq nok1 (cdr (assoc 10 ata)))
(setq nok2 (cdr (assoc 11 ata)))
(setq uzun (distance nok1 nok2))
(setq cizsay (1+ cizsay))
(setq topboy (+ uzun topboy))
)
)
(setq say (1+ say))
)
(setq ort (/ topboy cizsay))
(prompt (strcat "
Seçilen nesne: <" (itoa sayi) ">/Çizgi sayısı: <" (itoa cizsay) ">/Ortalama boy: <" (rtos ort) ">."))
(prompt (strcat "
Toplam çizgi boyu:*<" (rtos topboy) ">*"))
(princ)
)
(Princ "
Komutu çalıştırmk için [TB] yazınız!")
(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")

28.05.2008 14:27    

dediğiniz gibi yaptım iconu yerleştirdim ancak mesela başka komut kullandıktan sonra örneğin line arkasından komuttan çıktıktan sonra icon'a tıklıyorum tekrar bir önceki komut neyse o komut çalışıyor ancak line mesela kullandım arkasından regen yapıcamki ondan sonra icon komutu çalıştırıyor yani bir önceki komutu algılıyor komut regensiz çalışmıyor gibi

29.05.2008 10:09    

sorun halloldu teşekkür ederim peki blocklarımızıda icon yapabiliyormuyuz onuda anlatırsanız harika olur