21.07.2013 08:19    

guvenzuhal
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,

17.08.2017 07:50    

mustafacamci
tebrikler elinize sağlık çok işime yaradı

22.09.2017 21:50    

bozukplak
Merhaba quick select ten layer seçip polyline 'ın sadece çevresini veya sadece alanını yazan ayrı ayrı lisp mevcutmudur.

05.01.2018 13:02    

kesinhesapci
Sevgili Hocam.

Kullandıkça teşekkür etmek istediğim bir lisp.

Selamlar.

10.01.2018 10:55    

demiryay
Moskovadan herkese merhaba;

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.

Ilginize simdiden tesekkurler,

admin (10.01.2018 12:35 GMT)

23.02.2018 12:04    

knggizmo
ÇOK TEŞEKKÜRLER... ACAİP İŞİMİ GÖRDÜ...

29.06.2018 10:52    

ozcansahin
TEŞEKKÜRLER...

27.07.2018 09:34    

ada007
;;;============================================================================
;;; 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

ada007 (27.07.2018 11:05 GMT)

27.07.2018 09:59    

Travaci
ada007


Autolisp için 32 veya 64 gibi bit ayrımı yoktur.

20.04.2019 06:08    

saadullah
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")

Kusura bakmayın teşekkürler.

20.04.2019 08:49    

Travaci
komut satırına textsize ve luprec yazıp yeni değerleri girin.

13.10.2019 13:31    

kesinhesapci
Başta ProhibitT Hocam olmak üzere üstadlarımızın hepsine selam olsun.

Bu güne kadar vakit ayırarak "Anlamsız" isteklerimize bile karşılık verdiğiniz için hepinize teşekkürü bir borç (namı hesabıma) bilirim.

Değerli üstadlarım, ALn lispimizde ufacık bir dokunuş ile toplam çevreyi de yazan bölüm eklememiz mümkünmüdür.

Saygılarımızla.

19.12.2020 11:09    

eyalim
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.

03.05.2021 22:55    

kardescik06
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.

04.05.2021 06:26    

ozkul
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.

23.09.2021 07:28    

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?

23.09.2021 07:55    

baha07
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

(command "_txt2mtxt" Ename "")
(setq Count (+ 1 Count)) ; add 1 to Count(er)

) ; Repeat
(princ)
)

23.09.2021 08:18    

eemree
Alıntı
baha07 :


Çok teşekkür ederim :)

Copyright © 2004-2022 SQL: 1.987 saniye - Sorgu: 94 - Ortalama: 0.02114 saniye