AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP Kodları > Kot gösterme, yazdırma lispi
30.03.2009 13:17    
yazgunesi
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 olmalısınız.
16.12.2013 09:44    
burcu1r
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    
özkan-wien
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    
özkan-wien
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 <
Copyright © 2004-2022 SQL: 0.931 saniye - Sorgu: 50 - Ortalama: 0.01863 saniye