13.09.2013 12:06
Travaci
|
Güzel olur bende kafa yoramamıştım, command'a talip :D
|
06.10.2013 13:01
refleksif24
|
arkadaşlar bende metraj ve keşif için şöyle bir komut arıyorum(yeni başladım pek bilgim yok komut mu lisp mi) bütün line'ların kesiştiği noktaları bulsun ve kesişimde bölünen line çizgisi o noktadan kırılsın. var mı fikri olan..
|
06.10.2013 13:10
Travaci
|
Kesişim noktalarından aşağıdaki kod ile kırabilirsiniz.
Kod:
(defun c:bRk (/ e n)
(redraw (setq e (car (entsel))) 3)
(command "break" e (setq n (getpoint)) n)
(rerdaw e 1) (redraw entlast 1))
|
06.10.2013 14:23
refleksif24
|
Alıntı Travaci :
Kesişim noktalarından aşağıdaki kod ile kırabilirsiniz.
Kod:
(defun c:bRk (/ e n)
(redraw (setq e (car (entsel))) 3)
(command "break" e (setq n (getpoint)) n)
(rerdaw e 1) (redraw entlast 1))
öncelike teşekkür ederim. yukardaki kod ile kırılıyor dediğiniz gibi. ama şöyle anlatayım. örneğin bir yangın tesisatı var ve ana boru katlara dağılıyor yani uzun bir line a 5 farklı yerden farklı line larla kesiştirimiş. ben komple bu bu çizimi seçicem ve diyecem ki kesişim noktalarını bul ve sürekli çizgiyi bu noktalardan kır..bu mümkün müdür
|
06.10.2013 14:39
Travaci
|
Alıntı refleksif24 :
İllaki mümkündür ama benim yapabileceğim birşe değil : )
|
06.10.2013 15:10
refleksif24
|
Alıntı Travaci :
Alıntı refleksif24 :
İllaki mümkündür ama benim yapabileceğim birşe değil : )
anladım belki diğer arkadaşlar arasından bilen birileri çıkar.size de çok teşekkürler..
|
20.10.2013 18:06
Uğur İNCE
|
merhaba arkadaşlar cephe de kot verirken sıfır noktasını belırtıyorum, kot vermeye başlayınca sureklı 0 kotu atıyor nerde yanlış yapıyorum acaba yardım edersenız sevinirim teşekkurler
|
21.10.2013 06:21
ehya
|
Uğur İNCE
command "text" uyguluyorsan lisp içerisinde, aktif stilin yazı yüksekliğini kontrol et.
|
31.10.2013 16:28
özkan-wien
|
(setq cab_sec (ssget "_X" ' ((8 . "*ABB*") ) ))
arkadaslar su secim setinin icine sadece "on" layerlari nasil ekleriz. kapali layerlardaki objeleri de seciyor bu halde.
Color negatifse layer off demek oluyormus onu nasil kontrol etcez.
simdiden tesekkürler
|
02.11.2013 08:52
ehya
|
özkan-wien
bunun için tek bir satırda işlem yapamazsın. Açık olan layerları tespit edip listeledikten sonra ssget fonksiyonuna filtre olarak bu katmanları eklemelisin.
|
07.01.2014 11:18
faroz54
|
Arkadaşlar kolay gelsin, bana çelik konstrüksiyon da kullanılan örneğin; HEA, UNP, IPE gibi profillere ait lispler lazım yardımcı olabilir misiniz?
Teşekkür ederim.
|
09.01.2014 10:34
Travaci
|
faroz54
Sadece eşit kollu L profiller için lisp
|
13.01.2014 09:33
Travaci
|
Kod:
(vlisp-compile 'mode filename [out-filename])
The compiler mode, which can be one of the following symbols:
Kod:
st Standard build mode
lsm Optimize and link indirectly
lsa Optimize and link directly
Yukarıdaki 3 modun birbirinden farkı nedir ?
|
13.01.2014 15:46
ehya
|
travaci
Önemi varmı travaci. 2nci ve 3ncü hakkında örnek verilmemiş. Sadece yazılıp geçilmiş. Tüm örnekler ilki için geçerli. Sende öyle yap geç... :)
|
13.01.2014 15:55
Travaci
|
ehya
Zaten verilmediği için önemli kılıyor :D
|
21.01.2014 14:32
miyatu
|
Iki cizginin uclarini arc ile birlestirmek istiyorum. Her sartta dogru yonde arc cizebilmek icin yazilabilecek fonksiyon nasil olmalidir.
Referans olan iki cizgi arasindaki aci sifir ve 180 derece olmamak kaydiyla herhangi bir acida olabilir.
Cizilecek arc yari capi sabit bir degerdir.
Not: Arc Entmake fonksiyonu ile cizilecektir.
Umarim anlasilir bir sekilde sorabilmisimdir.
|
22.01.2014 07:17
ehya
|
miyatu
Öyle bi mesaj yazmışsın ki, emir mi veriyorsun? Yoksa istekde mi bulunuyorsun?
|
22.01.2014 08:36
miyatu
|
Alıntı ehya :
miyatu
Öyle bi mesaj yazmışsın ki, emir mi veriyorsun? Yoksa istekde mi bulunuyorsun?
Amacim tavsiyelerinizi almaktan baska birsey degildir. Yazdiklarim kirici bir uslup iceriyorsa ozur dilerim.
Kod:
(defun c:acr_ciz()
(setq radius 150)
(setq p1 (getpoint "\nBaslangic noktasini sec:")
p2 (getpoint "\nikinci noktayi sec:")
p3 (getpoint "\nucuncu noktayi sec:"))
(command "line" p1 p2 p3"")
(setq ang_1 (angle p1 p2)
ang_2 (angle p2 p3))
(setq ptn1 (polar p1 (+ ang_1 (/ pi 2)) radius)
ptn2 (polar p2 (+ ang_1 (/ pi 2)) radius)
ptn3 (polar p2 (+ ang_2 (/ pi 2)) radius)
ptn4 (polar p3 (+ ang_2 (/ pi 2)) radius))
(if (= nil (inters ptn1 ptn2 ptn3 ptn4))
(progn
(setq ptn1 (polar p1 (- ang_1 (/ pi 2)) radius)
ptn2 (polar p2 (- ang_1 (/ pi 2)) radius)
ptn3 (polar p2 (- ang_2 (/ pi 2)) radius)
ptn4 (polar p3 (- ang_2 (/ pi 2)) radius))))
(setq ptnx (inters ptn1 ptn2 ptn3 ptn4))
(setq arc_tan_point_1 (polar ptnx (angle ptn1 p1) radius)
arc_tan_point_2 (polar ptnx (angle ptn4 p3) radius))
(setq arc_ang_1 (angle ptnx arc_tan_point_1)
arc_ang_2 (angle ptnx arc_tan_point_2))
(if (< arc_ang_1 arc_ang_2)
(progn
(setq arc_str_ang arc_ang_1)
(setq arc_fns_ang arc_ang_2))
(progn
(setq arc_str_ang arc_ang_2)
(setq arc_fns_ang arc_ang_1)))
(if (> (- arc_fns_ang arc_str_ang)pi)
(progn
(setq arc_str_ang_x arc_str_ang)
(setq arc_str_ang arc_fns_ang)
(setq arc_fns_ang arc_str_ang_x)))
(entmake
(list
(cons 0 "ARC")
(cons 8 "deneme")
(cons 10 ptnx)
(cons 40 radius)
(cons 50 arc_str_ang)
(cons 51 arc_fns_ang)
)
))
Fonksiyonun amaci iki cizgi ucunu entmake fonksiyonunu kullanarak arc ile birlestirmek.
Fonksiyonun hatali bir kismi yada gereksiz bir kismi varmidir(Daha kisa nasil yazilabilir)
Yardimlariniz ve gorusleriniz icin simdiden tesekkurler.
miyatu (23.01.2014 06:58 GMT)
|
26.02.2014 17:07
Travaci
|
Yukarıdaki resimde iskeleti
Kod:
dialog
boxed_column
row
button
button
row
button
button
row
button
button
ok_cancel
Şeklinde kullandım butonlara ve edit boxlara genişlik verdim. Bu genişlikler sabit kalıcak şekilde hepsini yatayda ve dikeyde nasıl aynı hizzaya getiricem ? Buttonların genişliği sabit olmasına rağmen aralık yazısı butonu daraltıyor :s
Ancak sol ve sağ tarafı ayrı ayrı columna alırsam hizzalanıyorlar ben ise yukarıda yaptığım gibi hizzalamak istiyorum
Aralık yazısı 6 karakter hepsine 6 karakter olucak sekılde boşluk eklersem
Bu şekilde oluyor ama dikkatlı bakıldığında yine karakterlerden dolayı küçük bir kayma war
Alignment kullanıp yapmaya çalıştım olmadı :dozingoff
Travaci (26.02.2014 17:56 GMT)
|
ProhibiT
|
İletişim pencerelerinde kullanılan font (sistem yazı tipi) fixed spacing değilde, proportional spacing olduğundan karakter sayısı aynı olan yazılar aynı uzunlukta olmazlar. Boşluk karakteri de diğer karakterlerden çok daha küçük bir genişliğe sahiptir. Açıklama için verilen kod'da görünmeyen TextBox tanımlarını alingment=right şeklinde kullanarak veya başına ve sonuna spacer, spacer_0 veya spacer_1 tile tanımları koyarak ince ayar yapılıp aynı hizaya getirilebilirler.
|