ölçüye çap ve pah işareti verme lispleri

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: 586, Üye: 1
mateus

Detaylar »

Forumlar > AutoLISP Kodları > ölçüye çap ve pah işareti verme lispleri

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

İleti	Yazar
25.10.2009 20:50 52792	yazgunesi Editör 608 ileti Teknik Ressam Çanakkale
seablemoon Şu çap işareti veren lispin linki bozulmuş.... Linkleri görebilmek için Üye Ol veya Giriş Yap *Ölçüye çap verme lispi : (orjinal olan)* Kod: ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; ; Omschrijving :Deze Lisp-routine voegt rondtekens (%%C) ; toe aan geselecteerde dimensions, zowel bij ; default dimensiontext ( <> ) als bij zelf ; ingegeven dimensiontext ; Auteur :Kees Neele ; ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (defun c:rond (/ d1 lijst1 oldtxt a new) (setq d1 (entsel)) (setq d1 (car d1)) (setq lijst1 (entget d1)) (setq oldtxt (cdr (assoc 1 lijst1))) (if (= oldtxt "") (setq oldtxt "<>") (setq a b) ) (setq new (strcat "%%C" oldtxt)) (command "dim1") (command "newtext" new d1) (PRINC) ) (PRINC) *Ölçüye çap verme lispi : (yeni versiyon)* Komut ismi: cap Kod: (defun c:cap () (setq olcu_secimi (entsel"\nÖlçü çizgisine tıkla ->>")) (setq olcu_secimi (car olcu_secimi)) (setq mylist1 (entget olcu_secimi)) (setq eskiyazi (cdr (assoc 1 mylist1))) (if (= eskiyazi "") (setq eskiyazi "<>") (setq a b) ) (setq yeniyazi (strcat "%%C" eskiyazi)) (command "dim1") (command "newtext" yeniyazi olcu_secimi) (princ) ) (Princ "Lisp'i çalıştırmak için > cap < yazınız! www.autocadokulu.com ") *Ölçüye x45 derece yazdırma lispi :* Komut ismi: ph45 Kod: ;********************************** ; x 45 derece pah lispi ; ; powered by yazgunesi ; www.autocadokulu.com ; ; ********************************* (defun c:ph45 () (setq olcu_secimi (entsel"\nÖlçü çizgisine tıkla ->>")) (setq olcu_secimi (car olcu_secimi)) (setq mylist1 (entget olcu_secimi)) (setq eskiyazi (cdr (assoc 1 mylist1))) (if (= eskiyazi "") (setq eskiyazi "<>") (setq a b) ) (setq yeniyazi (strcat eskiyazi "x45%%D" )) (command "dim1") (command "newtext" yeniyazi olcu_secimi) (princ) ) (Princ "Lisp'i çalıştırmak için > ph45 < yazınız! www.autocadokulu.com ") Yukarıda gözüken autolisp programını nasıl kullanacağınızı bilmiyorsanız eğer aşağıdaki linkten; AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi konusunu incelemenizi öneririm... cizimokulu.com

08.12.2009 06:51 53820	alirizasahin Kıdemli Uzman 118 ileti Makina Mühendisi
Hergün bu siteyi takip ettiğim halde nasıl da gözden kaçırmışım bu lispleri. Emeği geçen arkadaşlara teşekkürler

09.12.2009 12:52 53869	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
Merhaba arkadaşlar :) Burada paylaşılan çap ve pah lispleriyle ilgili olarak; - Bazı satırların gereksiz olduğu. - AutoCAD'in DIM1 komutu kullanıldığı için komut prompt'larının ekranda göründüğü. - if komut blokunda Else bölümünün gereksiz olduğu. - İşlem görmüş bir ölçünün yanlışlıkla bir daha seçilmesi durumunda 2 tane çap işareti olacağı. şeklinde bazı eleştirilerim olmuş ve bunları yazgunesi arkadaşımızla özel mesaj yoluyla paylaşmıştım. yazgunesi eleştirilerimi olgunlukla karşıladı. Yabancı bir kaynaktan alıntı yaptığını zaten orijinalini de burada verdiğini, fazla detaya inmeden düzenlemeler yapıp burada paylaştığını söyledi. Eleştirilerimi anlayışla karşıladığı için buradan bir kere daha teşekkür etmek isterim. Bahsettiğim eleştiriler doğrultusunda Bu AutoLisp programlar; Kod: (defun c:cap () (setq mylist (entget (car (entsel "\nÖlçü çizgisini tıkla ->>")))) (if (= (cdr (assoc 1 mylist)) "") (setq mylist (subst (cons 1 "<>") (assoc 1 mylist) mylist))) (if (not (wcmatch (cdr (assoc 1 mylist)) "%%C")) (progn (setq mylist (subst (cons 1 (strcat (cdr (assoc 1 mylist)) "%%C")) (assoc 1 mylist) mylist)) (entmod mylist) (entupd (cdr (assoc -1 mylist))) ) (princ "\nZaten Çap yazılmış...") ) (prin1) ) ve Kod: (defun c:ph45 () (setq mylist (entget (car (entsel "\nÖlçü çizgisini tıkla ->>")))) (if (= (cdr (assoc 1 mylist)) "") (setq mylist (subst (cons 1 "<>") (assoc 1 mylist) mylist))) (if (not (wcmatch (cdr (assoc 1 mylist)) "x45%%D")) (progn (setq mylist (subst (cons 1 (strcat (cdr (assoc 1 mylist)) "x45%%D")) (assoc 1 mylist) mylist)) (entmod mylist) (entupd (cdr (assoc -1 mylist))) ) (princ "\nZaten Pah yazılmış...") ) (prin1) ) şeklinde yazıldıklarında daha doğru olacaktır. Buraya kadar tamam da neden bunları buraya yazıyorum? Bunları yazıp bitirdikten sonra aklıma bir şey geldi; AutoCAD'de DIMPOST adlı bir sistem değişkeni var. DIMPOST değişkeninin varsayılan değeri "" yani boş. Bu değişkenin değerini ayarlayarak, ölçü rakamına ön ek veya son ek olarak ilaveler yapabiliyoruz. AutoCAD komut satırından DIMPOST girip %%C<> değerini girersek. Bu durumda yeni vereceğimiz ölçü rakamlarının önüne çap işareti konacaktır. Ya da DIMPOST değişkenini ayarladıktan sonra mevcut bir ölçüyü güncellediğimizde (update) gene çap işareti yazılacaktır. Benzer şekilde; DIMPOST değişkenine <>x45%%D değerini atayarak pah gösterimini de halletmiş oluyoruz. Bunu farkettiğimde çok güldüm kendi kendime. Hep birlik olmuş, İncir çekirdeğine amma eziyet etmişiz diye düşündüm. Genede komut satırından bir sürü değer girip, dimemsion komutuyla uğraşıp, işin bitince dimpost değerini eski haline getirmeye üşenen arkadaşlarımız; Kod: (defun c:cap () (setq odmpst (getvar "dimpost")) (setvar "dimpost" "%%C<>") (command "dim1" "upd" (car (entsel "\Ölçü çizgisini tıkla ->>")) "") (setvar "dimpost" odmpst) ) ve Kod: (defun c:ph45 () (setq odmpst (getvar "dimpost")) (setvar "dimpost" "<>x45%%D") (command "dim1" "upd" (car (entsel "\Ölçü çizgisini tıkla ->>")) "") (setvar "dimpost" odmpst) ) fonksiyonlarını kullanabilirler :) Selamlar, Sevgiler, Herkese Kolay Gelsin... Beğenmek için anlamak lazım...

24.03.2010 14:10 56320	yazgunesi Editör 608 ileti Teknik Ressam Çanakkale
Saçilen ölçüye %%c çap işareti yazdırma lispi : (oguzka* arkaşımızın forum sayfasında yazdığı istek .. )* Komut ismi: capyeni Kod: ;********************************** ; %%o%%c%%o kodlu çap işaretini %%c şeklinde yapma lispi ; ; coded by yazgunesi ; www.autocadokulu.com ; ; ********************************** (defun c:capyeni () (setq mylist (entget (car (entsel "\nÖlçü çizgisine tıkla ->>")))) (if (= (cdr (assoc 1 mylist)) "%%o%%c%%o<>") (setq mylist (subst (cons 1 "%%o%%c%%o") (assoc 1 mylist) mylist))) (if (not (wcmatch (cdr (assoc 1 mylist)) "%%o%%c%%o<>")) ; 1. if start (progn (setq mylist (subst (cons 1 (strcat "%%C<>")) (assoc 1 mylist) mylist)) (entmod mylist) (entupd (cdr (assoc -1 mylist))) ) ; if son bitiş parantezi ) ; iptal edilen uyarı satırı için fonksiyon sonlandırma parantezi .. ; (princ "\nZaten Çap yazılmış...")) ; bu satır iptal edildi.. (prin1)) (Princ "Lisp'i çalıştırmak için > capyeni < yazınız! ") cizimokulu.com

> 1 <