Seçilen nesnelerin alanlarını toplayıp yazan lisp

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 604, Üye: 4
mttlp, serkancali, sspinss, Travaci

Detaylar »

Forumlar > AutoLISP Kodları > Seçilen nesnelerin alanlarını toplayıp yazan lisp

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
26.03.2009 16:28 47714	admin Üst Yönetici 613 ileti Proje Yöneticisi İstanbul
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 Kod: (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 . "LWPOLYLINE") (0 . "POLYLINE") (0 . "CIRCLE") (0 . "ELLIPSE") (0 . "SPLINE") (0 . "REGION") (0 . "3DSOLID") (-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)) (PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !") 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 olmalısınız. konusunu inceleyiniz. admin (09.04.2009 20:56 GMT) Çizim Okulu Ekibi

09.04.2009 16:11 48121	sgadarkelf Yeni üye 1 ileti Ziraat Mühendisi Aydın
ya lipslerin nasıl çalışacağına dair kodu yazmamışınız ne yazcazda çalışcak bu lisp?

09.04.2009 20:42 48130	ehya Yönetici 3554 ileti Teknik Ressam Ankara
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

09.04.2009 20:58 48131	admin Üst Yönetici 613 ileti Proje Yöneticisi İstanbul
Lisp in komutunu yazmayı unutmuşum, konuyu düzelterek lispin kullandığı kısayolu ekledim :) Çizim Okulu Ekibi

03.07.2009 13:33 50276	rodymyccc Yeni üye 1 ileti inşaat müh. ankara
sağol kanki

02.09.2009 14:46 51724	lostswordfish Yeni üye 1 ileti RESSAM van
hepsi tamamda alanları toplamını nasıl gösteriyor onu yapamadım.
cengiz10
20.05.2010 11:22 57539	matasi Girişimci 1 ileti inşaat müh. istanbul
topladıgı alanı nerey yazar bu komut yardım arkadaşlar

18.08.2010 05:39 59118	bud_0782 Üstad 322 ileti Yapı Öğr.+Teknik Res. Antalya
teşekkürler ~~~~~~~~~~~~~~~~~~~~~~~~ Düşün , hisset, uygula… İşte hepsi bu… ~~~~~~~~~~~~~~~~~~~~~~~~

23.11.2010 10:21 60832	handanturan Yeni üye 1 ileti kalıpçı istanbul
ben yükleyemedim ya. orjinalini doğrusunu bi daha gönderirimisin. yemek tarifi gibi olmasın. tam olarak yaz biz öyle yükleyelim.

23.02.2011 22:52 62932	mimarzeki Yeni üye 1 ileti mimar istanbul
Arkadaslar biurturlu alan hesaplama lispini yukleyemedim. 2009 ingilizce autocad im var ama bir turlu yukleyemedim. command: _appload area.Lsp successfully loaded. command: ; error: bad character read (octal): 0 hep bu hatayi veriyor. yardimci olabilir misiniz?

25.03.2011 09:18 63565	fk7878 Girişimci 1 ileti tekniker istanbul
Teşekkürler :)))

07.05.2011 07:09 64208	oguzhangirgin Girişimci 1 ileti Mimar Ankara
Ya çok iyi oldu tamda aradığım buydu valla.. bununla birlikte seçili nesnelerin alanını autocad yerine excele yazan bişey olsa o zaman benim için "yemede yanında yat" gibi bişey olacaktı :)) ellerine sağlık çok teşekkür ederizz..

06.07.2011 08:35 64965	hsyn-06 Yeni üye 8 ileti İNŞAAT TEKNİSYEN ANKARA
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 08:43 64967	ehya Yönetici 3554 ileti Teknik Ressam Ankara
dimzin değerini 0 yap

06.07.2011 09:20 64968	hsyn-06 Yeni üye 8 ileti İNŞAAT TEKNİSYEN ANKARA
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:25 64969	ehya Yönetici 3554 ileti Teknik Ressam Ankara
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.

06.07.2011 09:30 64970	hsyn-06 Yeni üye 8 ileti İNŞAAT TEKNİSYEN ANKARA
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 09:46 64971	ehya Yönetici 3554 ileti Teknik Ressam Ankara
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"))

06.07.2011 10:15 64974	hsyn-06 Yeni üye 8 ileti İNŞAAT TEKNİSYEN ANKARA
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

06.07.2011 10:38 64980	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Alıntı hsyn-06 : 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 Teşekkür ederim de, bu forumda kardeşim, bilader v.S. gibi kelimelerin kullanılmaması daha uygun olur.. malum yaşı büyük abilerimiz ve hocalarımızda forumda katkıda bulunuyor. az önce bu isteğin ile ilgili konu açtın ve bende sildim. sebebi ise konuyu açmadan 2dk önce bir önceki konuya sorununun cevabını yazmıştım. bi zahmet en azından ana sayfadaki konulara göz atarsanız sorunuzun cevabını bulacaksınız.

> 1 < [2]

Sonraki Sayfa