26.03.2009 16:28

47714    

Seçilen nesnelerin alanlarını toplayıp istenilen bi açıklama ile ekranda istediğiniz yere yazdırabileceğiniz bir lisp...

Aşağıdaki lisp kodlarını kullanmak için komut: m2



Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi


Linkleri görebilmek için Üye Ol veya Giriş Yap


konusunu inceleyiniz.

admin (09.04.2009 20:56 GMT)

Çizim Okulu Ekibi

09.04.2009 20:42

48130    

Lisp içerisinde (defun c:m2 () bölümü bulun. Burada koyu olarak belirttiğim gibi "c:" den sonraki yazı lispi çalıştırma komutudur. Bu lispi çalıştırma komutu M2 dir

03.07.2009 13:33

50276    

sağol kanki

20.05.2010 11:22

57539    

topladıgı alanı nerey yazar bu komut yardım arkadaşlar

23.11.2010 10:21

60832    

ben yükleyemedim ya. orjinalini doğrusunu bi daha gönderirimisin. yemek tarifi gibi olmasın. tam olarak yaz biz öyle yükleyelim.

25.03.2011 09:18

63565    

Teşekkürler :)))

06.07.2011 08:35

64965    

Arkadaşım lisp sounsuz çalışıyor yanlız 15.10 m2 olaması gereken yere 15.1 m2 atıyor yanı '' 0 '' yok sayıyor bunla ılgılı bi düzeltme yapabilirmiyiz acil yardım



şimdiden emeklerinizden dolayı tşk.

06.07.2011 09:20

64968    

Alıntı

---

ehya :
dimzin değerini 0 yap

---

( ehya )

kardeşim bana yardımcı olabilirmisin daha yeni öğrenmekteyim söylemiş olduğunu tam anlamıyla yapamadım burdan göstermen mümkünmü ??? tşk emeklerinden dolayı




(defun m2_br_sec ()
(if (= cizim_birim nil)
(progn
(initget 1 "mEtre Cm Mm")
(setq cizim_birim (getkword "
Çizim Birimini seçiniz [mEtre / Cm / Mm]:")))))
(defun m2_stil ()
(setq m2_stil_ara (tblsearch "style" "m2"))
(if (= m2_stil_ara nil)
(progn
(setq m2_yaz_yuk 12)
(setq m2_yaz_y (getdist (strcat "
Yazı Yüksekliği:< " (rtos m2_yaz_yuk) ">:")))
(if (= m2_yaz_y nil)
(setq m2_yaz_y m2_yaz_yuk))
(setq m2_yaz_yuk m2_yaz_y)
(command "style" "m2" "arial.Ttf" m2_yaz_yuk "0.8" "" "" ""))))
(defun c:m2 ()
(setvar "modemacro" "archme design 2008 © by --> ehya <--")
(setvar "cmdecho" 0)
(m2_br_sec)
(if (= cizim_birim "metre")
(progn
(setq m2_bol 100)))

(if (= cizim_birim "cm")
(progn
(setq m2_bol 10000)))
(if (= cizim_birim "mm")
(progn
(setq m2_bol 1000000)))
(setq m2_secim (ssget '((-4 . "<or")
(0 . "lwpolylıne")
(0 . "polylıne")
(0 . "cırcle")
(0 . "ellıpse")
(0 . "splıne")
(0 . "regıon")
(0 . "3dsolıd")
(-4 . "or>"))))
(if (= m2_secim nil)
(progn
(princ))
(progn
(setq m2_secim_say (sslength m2_secim))
(setq m2_c 0)
(setq m2_toplam 0)
(while (< m2_c m2_secim_say)
(setq m2_secim_tek (ssname m2_secim m2_c))
(command "area" "e" m2_secim_tek)
(setq m2_tek_alan (/ (getvar "area") m2_bol))
(setq m2_toplam (+ m2_toplam m2_tek_alan))
(setq m2_c (+ m2_c 1)))
(m2_stil)
(setq m2_aciklama (getstring t "
yazılacak metni yazınız:"))
(setq m2_yer (getpoint "
yer gösterin:"))
(if (= m2_yer nil)
(progn
(princ "
yer gösterilmediği için komut bitirildi !!!..."))
(progn
(command "text" m2_yer "0" m2_aciklama)
(command "text" "" (strcat (rtos m2_toplam 2 2) " m2"))
))))(princ))
(prınc "--> 'www.autocadokulu.com' çizim yardımları yüklendi !")

06.07.2011 09:30

64970    

Alıntı

---

ehya :
kod içine yazmana gerek yok
komut olarak kendin de yazabilirsin
ama illa kod içine yazacağım diyorsan

ikinci satıra
(setvar "dimzin" 0)
kodunu yaz.

---

kardeşim emeğine sağlık çok tşk

(+ birşey daha isteyebilirmiyim ''m2'' olan kısmı sembol olarak ''m²'' olmasını itiyorum m üstü kare şeklinde )

06.07.2011 10:15

64974    

Alıntı

---

ehya :
Aşağıdaki satırda m2 ifadesi var. onu kod içinde bul ve istediğin gibi değiştir.

(command "text" "" (strcat (rtos m2_toplam 2 2) " m2"))

---

EMEĞİNE SAĞLIK KARDEŞİM SAĞOLASIN YANLIZ AUTO CAD DOSYAMI KAPAYIP AÇTIKTAN SONRA LİSP BİRDAHA KULLANAMIYORUM TEKRAR YÜKLEMEM GEREKİYE NEDEN ACABA ????? NERDE YANLIŞ YAPIYORUM