|
11.07.2013 08:32
 özkan-wien
|
|
Arkadaslar hayirli ramazanlar.
sirayla gösterdigim attributelarin 1. Valuesini A - B - C D diye sirayla degistirecek bi Lisp lazim.
simdiden tesekkürler.
|
|
12.07.2013 08:02
firaksiz
|
|
arkadaşlar öncelikle yapmış olduğunuz çalışmalardan dolayı çok teşekkürler
benim bir isteğim olacak
çok sayıda farklı yazı karakterleri var
bu yazı karakterlerini hepsinin seçtikten sonra hepsini tek karaktere çevirip tek layere geçiren
ve benim sectiğim noktaya hepsini bir araya toplayan bir lisp isteğim olacak
bunun daha sonrasında bu yazı karakterlerini exele aktaran birşeyde olurmu
|
|
12.07.2013 08:52
 Travaci
|
Select komutunu çalıştırın komut satırına
Kod:
(ssget "x" (list (cons 0 "*teXt")))
Yukarıdaki kodu yapıştırın, properties i açıp layerını ve karakterini değiştirin. Yazıları exel'e atan lisp sitede çok sayıda mevcut bakarsanız bulabilirsiniz.
|
|
13.07.2013 04:21
2032223351
|
|
iyi gunler arkadaslar yukseklikleri farkli iki paralel line cizgisinin arasini nasil istedigim araliklarda otomatik olarak bolebilirim ? biryerde 2010 da boyle bir ozellik oldugunu okumustum 2007 de nasil yapabilirim ?
|
|
15.07.2013 11:24
özkan-wien
|
|
cizim icinde iki tane olan seylerin birini silecek bir Lisp var mi acaba? neyle cizdilerse herseyden iki tane .
|
|
15.07.2013 11:28
Travaci
|
|
Overkill komutunu deniyebilirsin.
|
|
16.07.2013 07:31
özkan-wien
|
Alıntı
Travaci :
Overkill komutunu deniyebilirsin.
Tesekkürler, daha neler görecegiz.
Travacai bana sirayla harf atayan bi döngü yazarmisin? A,B,C,D diye nasil yapilir?
simdi ben baslayacam yazmaya sonra kizacan :-)
|
|
16.07.2013 08:07
Travaci
|
Hazır yazılmışı var sitede, ehya yazmıştı sanırım, hatta error kodlarına kadar incine cincine kadar yazılmış gayet güzel bi örnek.
Ahanda buradaymış
Travaci (16.07.2013 08:27 GMT)
|
|
22.07.2013 11:43
sinandarici
|
|
Arkadaşlar merhaba..
Bir sorum olacak. Acaba sırasıyla numara yazan ve bunları aynı anda daire içine alan bir lisp yazılabilir mi?
|
|
22.07.2013 20:58
Travaci
|
Alıntı
sinandarici :
Arkadaşlar merhaba..
Bir sorum olacak. Acaba sırasıyla numara yazan ve bunları aynı anda daire içine alan bir lisp yazılabilir mi?
İdare eder sanırım. Text boyutu için textsize komutunu kullanın.
Kod:
(defun c:aNo (/)
(command "_.undo" "group")
(setq yZi (geTreal "\nBaşlangıç numarasını giriniz: "))
(while
(setq pNt (poLar (geTpoint "\nYerleştirilecek nokta: ")
(/ pi 2) (geTvar "teXtsize")))
(entmake (list (cons 0 "teXt") (cons 10 pNt)
(cons 11 pNt) (cons 1 (rtos yZi 2 0))
(cons 40 (getvar "teXtsize")) (cons 72 1) (cons 73 2)))
(entmake (list (cons 0 "ciRcle") (cons 10 pNt)
(cons 40 (geTvar "teXtsize"))))
(setq yZi (+ 1 yZi))
) (command "_.undo" "e") (princ)
)
|
|
23.07.2013 06:43
sinandarici
|
Alıntı
Travaci :
Alıntı
sinandarici :
Arkadaşlar merhaba..
Bir sorum olacak. Acaba sırasıyla numara yazan ve bunları aynı anda daire içine alan bir lisp yazılabilir mi?
İdare eder sanırım. Text boyutu için textsize komutunu kullanın.
Kod:
(defun c:aNo (/)
(command "_.undo" "group")
(setq yZi (geTreal "\nBaşlangıç numarasını giriniz: "))
(while
(setq pNt (poLar (geTpoint "\nYerleştirilecek nokta: ")
(/ pi 2) (geTvar "teXtsize")))
(entmake (list (cons 0 "teXt") (cons 10 pNt)
(cons 11 pNt) (cons 1 (rtos yZi 2 0))
(cons 40 (getvar "teXtsize")) (cons 72 1) (cons 73 2)))
(entmake (list (cons 0 "ciRcle") (cons 10 pNt)
(cons 40 (geTvar "teXtsize"))))
(setq yZi (+ 1 yZi))
) (command "_.undo" "e") (princ)
)
Hocam teşekkür ederim. Gerçekten çok vaktimi alan bir işi kısa sürede yapabiliyorum.
|
|
23.07.2013 09:26
herolostist
|
|
(defun c:tpl ()
;td değişkeninin değerinin sıfır yapılması
(setq td 0)
;entsel fonksiyonu ile toplanacak sayının sectirilmesi ve ts degişkenine atanması
(setq ts (entsel "\ntoplanacak sayıyı seçiniz:"))
;while dongusu baslangıcı sart ts degişkeni nil oluncaya kadar
(while (/= ts nil)
;secilen text in okunması
(setq tsd (cdr (assoc 1 (entget (car ts)))))
;sayı kısmının ayrıştırılması
(setq ty (atof (substr tsd 2)))
;toplama işleminin yapılması
(setq td (+ td ty))
;diğer text in sectirilmesi
(setq ts (entsel "\ntoplanacak diger sayıyı seçiniz:"))
;while dongusunden cıkıs
)
;sonucun kullanıcıya gösterilmesi
(alert (strcat "toplam =" (rtos td 2 2)))
)
bu lisp tek tek seçerek işlem yapıyor ama çoklu seçim olarak düzeltebilir misiniz acaba(seçimin içinde harfleri okumayacak mesela c6+c5=11 gibi)
|
|
29.07.2013 07:10
ilkayuydu
|
|
Merhaba,
örnek lispler arasında seçilen textleri referans objeye göre çeviren lisp vardı. bu lispe text ile referans obje arasına mesafe ekletmek mümkünmü? yine texti seçilen obje üzerinde belirtilen noktaya taşıyacak eklemeler yapmak mümkün mü?
teşekkürler....
|
|
29.07.2013 11:04
2032223351
|
arkadaslar hepınıze kolay gelsın bana bır lısp lazım ve nasıl sekılde olacagını cızerek anlatmaya calıstım yardımcı olursanız cok mınnahtar olurum sımdıden ılgılerınız ıcın tesekkurlederım .  137626-kotfarki_mesafe.dwg
|
|
29.07.2013 11:34
Travaci
|
Alıntı
2032223351 :
arkadaslar hepınıze kolay gelsın bana bır lısp lazım ve nasıl sekılde olacagını cızerek anlatmaya calıstım yardımcı olursanız cok mınnahtar olurum sımdıden ılgılerınız ıcın tesekkurlederım . 137626-kotfarki_mesafe.dwg
Benzer bişi istenmişti ama işinizi görmez sanırım
|
|
29.07.2013 11:43
2032223351
|
|
ona baktım ama pek ısıme yarayacak gıbı degıl. =(
ama onun gıbı ben sonlandıra kadar devam ederse cok ıyı olur.
|
|
30.07.2013 07:19
kimim ben
|
|
Selamlar,
Arkadaşlar lisp ile bir kare seçip bu karenin noktalarını değişkenlere atamak istiyorum.
örneğin,
(defun c:karesec ()
(setq kare (entsel "\nkare Secimi:"))
(setq p1 birinci nokta)
(setq p2 birinci nokta)
(setq p3 birinci nokta)
(setq p4 birinci nokta)
yardımcı olursanız sevinirim.
|
|
30.07.2013 07:35
 ehya
|
kimim ben
Lisp yazmanın da bir kuralı olduğunu düşünürsek bu şekilde bir nesnenin koordinatlarını bir değişkene atamak doğru değil. istenilen değerin listeden çekilmesi daha mantıklı olur.
Hatta biraz daha detaya inersek, seçilen nesnenin kare olduğunu ayırt etmeniz gerekir ki, bu çok zor bir işlemdir. Sadece 4 noktası olan bir polyline nesnesi olduğunu öğrenebilirsiniz.
Ama illa bu şekilde olmasını isterseniz;
Kod:
(defun c:karesec ()
(setq ent (car (entsel "\nPline seç")))
(setq liste (mapcar 'cdr
(vl-remove-if
'(lambda (x) (/= 10 (car x)))
(entget ent)
)))
(setq p1 (nth 0 liste)
p2 (nth 1 liste)
p3 (nth 2 liste)
p4 (nth 3 liste))
(princ))
|
|
30.07.2013 07:54
kimim ben
|
|
tamamen katılıyorum size.Ben sorumu özetlemek için biraz basit yazdım.Dediğiniz gibi line vs. dxf kodu ile noktaları alabiliyorum ama pline gelince iş biraz karışıyordu.Ben zorunluluk kodlarını belirttiğiniz gibi ekleyeceğim.
teşekkürler teşekkürler
|
2032223351
|
Alıntı
Travaci :
Alıntı
2032223351 :
arkadaslar hepınıze kolay gelsın bana bır lısp lazım ve nasıl sekılde olacagını cızerek anlatmaya calıstım yardımcı olursanız cok mınnahtar olurum sımdıden ılgılerınız ıcın tesekkurlederım . 137626-kotfarki_mesafe.dwg
Benzer bişi istenmişti ama işinizi görmez sanırım
yardımcı olabılırsenız cok sevınırım tesekkur ederım
|
Sonraki Sayfa
