Kot gösterme, yazdırma lispi | Forumlar

Forumdan

99 kategoride 17 binden fazla konu başlatıldı bu konulara yaklaşık 90 bin cevap verildi tüm bunlar yaklaşık 109 milyon kez görüntülendi

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Özel Yazılımlar

Program Ekle

Ziyaretçi: 638, Üye: 1
admin

Detaylar »

Forumlar > AutoLISP Kodları > Kot gösterme, yazdırma lispi

İnceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
30.03.2009 13:17 47818	yazgunesi Editör 608 ileti Teknik Ressam Çanakkale
Aşağıdaki lisp, gösterilen noktanın Z koordinatını gösterilen noktanın sağına yazar. Komut ismi NY. Kod: (defun c:ny () (setq ny_yazi_yuk 12) (setq ny_os (getvar "osmode")) (setq ny_nok (getpoint "\nNoktayı gösterin :")) (if (= ny_nok nil) (progn ) (progn (setq ny_z (caddr ny_nok)) (setq ny_yn (polar ny_nok (angtof "0") (/ ny_yazi_yuk 3.00))) (setvar "osmode" 0) (command "text" ny_yn ny_yazi_yuk "0" (rtos ny_z 2 2)) (setvar "osmode" ny_os) ) ) (princ) ) *Konunun geçtiği forum sayfası :* Linkleri görebilmek için Üye Ol veya Giriş Yap cizimokulu.com

16.12.2013 09:44 75395	burcu1r Girişimci 1 ileti inş. teknikeri istanbul
merhaba benim mevcutta bulunan lisplerim 2014 de hata veriyor. kot lispi kullanırken kot sadece command satırında çıkıyor. kot kutucuğunun üzerine yazmıyor. aynı lipi 2012 de kullanırken bu sorun yoktu neden 2014 var. ve 2014 de autocad her açıldığında lispleri güncellemek istiyor yoksa çalışmıyor. kullandığım lisp aşağıdaki gibidir. (defun C:kot () (command "osnap" "nea,end,mid,per,cen,int") ;; BAZ KOT NOKTASI (setq baz (getpoint "\n Baz Kot Noktasını Seçiniz...")) (setq xkoor(car baz)) (setq ykoor(cadr baz)) ;; BAZ KOT (setq bazkot (getreal "\n Baz Kotu giriniz...")) (setq olcek (getreal "\n Kaç AutoCAD birimi 1 metredir ?")) );; function sonu (defun C:kot10 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "0.2" "0.2" "0" yazi) );; while sonu );; function sonu (defun C:kot20 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "0.4" "0.4" "0" yazi) );; while sonu );; function sonu (defun C:kot25 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "0.5" "0.5" "0" yazi) );; while sonu );; function sonu (defun C:kot50 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "1" "1" "0" yazi) );; while sonu );; function sonu (defun C:kot75 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "1.5" "1.5" "0" yazi) );; while sonu );; function sonu (defun C:kot100 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "2" "2" "0" yazi) );; while sonu );; function sonu (defun C:kot200 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "4" "4" "0" yazi) );; while sonu );; function sonu (defun C:kot250 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "5" "5" "0" yazi) );; while sonu );; function sonu (defun C:kot500 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "10" "10" "0" yazi) );; while sonu );; function sonu (defun C:kot1000 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "20" "20" "0" yazi) );; while sonu );; function sonu (defun C:kot2 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; Y YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(car yeni)) (setq yuzak (- yeniy xkoor)) (setq yuzak (abs yuzak)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 2)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "1" "1" "90" yazi) );; while sonu );; function sonu (defun C:kot1 (/ aa yeni yeniy yuzak yenikot fixi fixstr reali kalan yazi yy1 fixstr1 reali kalan) ;; X YONUNDE (setq aa 0) (while (= aa 0) (setq yeni (getpoint "\n Baz Kot noktasını giriniz...")) (setq yeniy(cadr yeni)) (setq yuzak (- yeniy ykoor)) (setq yenikot (/ yuzak olcek)) (setq yenikot (+ yenikot bazkot)) (setq yenikot (rtos yenikot 2 3)) (setq fixi (atoi yenikot )) (setq fixstr (itoa fixi)) (setq reali (atof yenikot )) (setq kalan (rem reali fixi)) (if (= kalan 0) (progn ;; burada tam sayıyı al sonuna 00 koy (setq yazi (strcat fixstr "")) );;progn sonu (progn (setq yy1 (* kalan 10)) (setq fixi (fix yy1 )) (if (= fixi 0) (progn (setq yazi yenikot) );; progn sonu (progn (setq fixstr1 (itoa fixi)) (setq kalan1 (rem yy1 fixi)) (if (<= kalan1 0.1) (progn (setq yazi (strcat yenikot "0")) );; progn sonu (progn (setq yazi yenikot) );;progn sonu );; if sonu );;progn sonu );;if sonu );;progn sonu );; if sonu ;; simdi buraya ilgili bloğu koy ve yazıyı yazdırt. (command "_.insert" "kot" yeni "0.01" "0.01" "0" yazi) );; while sonu );; function sonu

16.12.2013 09:50 75396	özkan-wien Üstad 448 ileti Ankara
AutoCAD 2014 de lisplerinizi asagidaki ayarlari yaparak Rutin olarak yükleyebilirsiniz. APPAUTOLOAD (4) SECURELOAD (0) TRUSTEDPATHS...(Lisplerinizin oldugu klasör) "C:\Lisp"

16.12.2013 09:53 75397	özkan-wien Üstad 448 ileti Ankara
Ayrica kot icin 2014 de Lisp kullanmaya gerek yok. cok basit bir dinamikblok isinizi görür 15847-kot.dwg kot isaretinin aktuel degferi vermesi iicn "regen" ya da "save" ediniz.

> 1 <