Merhaba,
Sitede biraz araştırdım fakat istediğim özellikte bir lisp bulamadım. Mahal etiketlerine ben numara ve isimlerini giriyorum fakat alan ve çevresini girmek biraz vaktimi alıyor, proje büyüdükçe bu ciddi zaman kaybı oluyor. Mahal etiketinde yer alan attributeları excele attığımda mahal listesini oluşturmak benim için çok kolay oluyor (hem projede hem excelde bu bilgileri görmek ve kullanmak durumundayım), dolayısı ile sitede verilen lisplerin açıklamlarında anlatıldığı gibi kapalı alanın içine text yazdırıp sonra bunu excele mahal karşılığına yazmak benim için yine zaman kaybı olacaktır. Kapalı mahaller için böyle bir lisp var mı, bulamadım, yardımcı olabilir misiniz? Yapmak istediğime başka şekilde ulaşabileceğim lispler de olabilir.
Hatta kendi polylinenı kendi oluşturan varsa bu daha da kullanışlı olacaktır.
Teşekkürler,
Metraj cikarmada buyuk kolaylik saglayacak olan;
ACAD 15 de ,
Polyline ile imalati yapilan mahalleri poligon olarak cizen ve ardindan o mahalin icine Alan=.. m2 ve Perimeter=.. m, diye yazdiran, ve bunu diger mahaller icin tekrarlayan, mahaller bittiginde (ornegin 20 mahal) sonuclari bir tabloda cizimde istenilen bir yere paste eden, bir
LISP modulu var midir?
Mahal No: Alan (m2) Perimeter (m)
001 112.25 80.45
....................................................
gibi.
;;;============================================================================
;;; Komut adı: ALn
;;; Belirlenen seçim setindeki tüm LwPoLyLine, PoLyLine, 3DPoLyLine, SpLine,
;;; CircLe, Region ve Hatch objelerinin alanlarını hesaplayıp merkezine yazar.
;;; Sonunda istenirse Yazılan alanların toplamını seçilen yere yazar.
;;; Hazırlayan: M. Şahin Güvercin - www.autocadokulu.com
;;;============================================================================
BU LISP 64 bit için güncellenebilir mi
autocad 2018 de çalışmıyor daha önce autocad 2013'te kullanıyordum
AlıntıProhibiT :
Fonksiyonun başında, "Yazı Yüksekliği olarak TextSize, ondalık basamak sayısı olarak Luprec değişkenlerinin değeri alınır." diye net olarak açıklanmış. O an geçerli Text Style'ın kullanıldığı da zaten belli.
Hocam Textsize ve ondalik basamak için luprec değişkenlerini ;
Bu kısımdan mı ve nasıl değiştireceğiz örneğin text size 15 luprec ise virgülden sonra 2 basamak için
TxH (getvar "TextSize") pR (getvar "Luprec")
Merhaba,
Öncelikle emeğiniz için çok teşekkür ederim. Yazmış olduğunuz bu kod işlerimizi oldukça hızlandırmış oldu. Size bir sorum olacak, koda ekleme yaparak alan ve çevre değerlerinden sonra birim de (m² ve m) yazdırabilmemiz mümkün müdür? Teşekkürler.
Kodları aldım autolispe yapıştırdım kaydettim ancak çalıştıramadım. Teamwievar veya herhangi bir uzaktan erişim programıyla bilgisayarıma bağlanıp çalıştırma imkanınız olur mu ? veya da bu lisp nasıl çalıştırılır 3 dakikalık bir video çekme imkanınız olmaz mı youtubede yayınlasanız. ?
Emeğinize sağlık ne olursa olsun ? iyi akşamlar, iyi ramazanlar herkese.
Birde zoom üzerinden uzaktan eğitim verir misiniz hocam ücretli olarak veya herhangi bir platform da bu tip bir kursunuz var mıdır? böyle bir kurusunuz varsa yazılmak isterim . Ankara'dayım her yerde böyle kurs yok sonuçta.
iyi çalışmalar dilerim.
Alıntıkardescik06 :
Kodları aldım autolispe yapıştırdım kaydettim ancak çalıştıramadım.
kodları boş bir not defteri sayfasına yapıştırarak uzantısı .lsp olacak şekilde kaydet.
autocadde appload komutu ile kaydettiğin .lsp uzantılı dosyanı yükle. plac ile komutu çalıştır.
çalışmamaya devam ediyorsa autocad versiyonunun LT olup olmadığını kontrol et.
Merhaba, öncelikle lisp için teşekkür ederim.
Benim sorum ise, bu lisp'i kullanarak yazdırdığım alan ve çevre text'leri properties'te text olarak görünmesine rağmen find komutu ile bulunamıyor. Örneğin; "A=" ifadesini arattığımda "0 matches found." mesajı geliyor.
Text komut ile kendi oluşturduğum veya projedeki mevcut text objeleri üzerinde denediğimde bu sorunla karşılaşmıyorum.
Bunun nedeni nedir? Düzeltebileceğim bir durum mudur?
Alıntıeemree :
Merhaba, öncelikle lisp için teşekkür ederim.
Benim sorum ise, bu lisp'i kullanarak yazdırdığım alan ve çevre text'leri properties'te text olarak görünmesine rağmen find komutu ile bulunamıyor. Örneğin; "A=" ifadesini arattığımda "0 matches found." mesajı geliyor.
Text komut ile kendi oluşturduğum veya projedeki mevcut text objeleri üzerinde denediğimde bu sorunla karşılaşmıyorum.
Bunun nedeni nedir? Düzeltebileceğim bir durum mudur?
---------
text yi mtext ye degistir toplu sekilde assagidaki lisp ile yapabilirsin . sorun duzeliyor .
(princ "\nType T2M to start")
(defun c:t2m ()
(setq Tset (ssget '((0 . "*TEXT")))) ;filter text in selection set
(setq Setlen (sslength Tset) ;setq number of entties in selection set, setq count(er) to 0
Count 0
)
(repeat SetLen ;repeat setq times
(setq Ename (ssname Tset Count)) ;setq ename to be the "0..." entity in selection set Tset
