09.02.2010 10:47

55450    

s.a.

lisplerle yeni tanıştım. tesadüf oldu.

istediğim lisp;
Ölçülerini klavyenin sağ tarafında bulunan sayı bolmesinden giriyoruz.
Sayı 10 olunca sorun yok ama 10,25 olunca klavyenin solunda bulun harf bölümünden giriyoruz. çünkü sayı bölümünde nokta yok virgül var.

Şimdi ben klavyenin sağ tarafında bulunan virgülü nokta yapmak istiyorum.
yani ben 10,25 yazınca program 10.25 olarak değiştirip işlem yapsın.
mümkünmüdür.

teşekkür ederim..

09.02.2010 12:59

55456    

HIPHOP öncelikle iyi dileklerin için teşekkür ederim.
Neden olmasın :) imzamın birinci kısmında zaten bu yazıyor... Eğer istek varsa, mutlaka bir yol vardır. Lisp ile yazmayı seviyorsanız, istiyorsanız, bir de günlük kullanımda ihtiyaç duyuyorsanız... Mutlaka öğrenirsiniz.

besalti arkadaşımızın sorusuna gelince, bahsettiğiniz konu işletim sistemi ile ilgili. AutoCAD ve AutoLisp ile uzak yakın bir ilgisi yok. Çözümü de çok basit aslında; Control Panel i (Denetim Masası) açın, Country and Region (Bölge ve Dil seçenekleri) bölümünde, Clock, Region, Language (saat, bölge, dil) seçin, buradan additional settings (ek ayarlar) seçin ve Decimal seperator (ondalık ayracı) bulun, sizde virgül (,) olması lazım... onun yerine nokta (.) girdiğinizde... artık klavyenizin nümerik kısmındaki ondalık tuşuna bastığınızda nokta çıkacaktır...

Böyle bir değişiklik yaptığınızda, mesela excel dosyalarınızda da ondalık ayracı olarak bu seçiminizin geçerli olacağını unutmayınız. Bir yandan düzeltirken diğer yanını bozmuş olmayalım :)

Kolay gelsin...

ProhibiT (11.03.2010 17:35 GMT)

Beğenmek için anlamak lazım...

09.02.2010 13:47

55460    

ehya nın vermiş yazmış (düzenlemiş veya yayımlamış) olduğu lisp kitabını biraz inceledim ama birinin bana anlatmadan lisp yazabileceğimi pek sanmıyorum :D ama görürsünüz çözcem bu işi....

__________________________________

10.02.2010 16:00

55512    

AutoLisp fonksiyon yazmaya gerek yok;

Quick Select Diyalog kutusunun sol alt tarafındaki
- Include new Selection Set (Yeni seçim setinde dahil et)
- Exclude from new selection Set (Yeni seçim setinde hariç tut)
- Append to Current Selection Sets (Mevcut Seçim setine ekle)

seçenekleri uygun düzende kullanarak, seçiminizi tek seferde yapabilirsiniz.

Kolay Gelsin...

Beğenmek için anlamak lazım...

11.02.2010 13:13

55544    

bu tarz istekler çok oluyor ve gelen cvp ta hep aynı oluyor :D ben şuanda senin bu isteğin için freemust kurdum. sırf freemust ın kısayollarından faydalanabilmek için 2007 kullanıyorum ara sıra. orada hızlı seçim için güzel bir menü var. siteden freemust indirip kurabilirsin.

__________________________________

11.02.2010 15:54

55551    

Arkadaşlar, çok sorulan soruya aynı cevap olsun diye yazmadığımdan emin olabilirsiniz.
Bir AutoLisp Fonksiyonu hayal ederken ufkunuzu dar tutuyorsunuz.
Böyle bir seçim seti yapabilmek için o kadar çok parametre var ki;
Örnek verirken yeşil çizgiler, mavi çemberler diye kolayca özetleyiveriyorsunuz.
Yazmaya kalkınca bundan ibaret olmadığını görüyorsunuz.

Sizin düşündüğünüz gibi Object Type olarak bir Line bir de Circle, Object Properties olarak ta bir tek Color ele alınıp, buna göre bir selection set oluşturursanız. Fonksiyon çok sınırlı ve kullanışsız olur.
Böyle bir şeyi yazmak aslında bir kaç satır;


Ama biliyorum ki istediğiniz bundan ibaret değil.
Ben kodu verdiğimde anında geri dönüşler başlayacak;
Şunu da yapabilir mi? Böyle de seçebilir mi?... gibi.

Bahsettiğiniz fonksiyonu yazan insan geniş ve genel düşünmek zorunda.
Mesela obje tipleri için hiç olmazsa;
3DFace, 3dPolyline, 3DSolid, Arc, AttributeReference, BlockRef, Circle, Dimension, Ellipse, ExtrudedSurface, Hatch, Helix, LightweightPolyline, Line, LoftedSurface, MLeader, MLine, MText, PlaneSurface, Point, PolyfaceMesh, PolygonMesh, Polyline, Ray, Region, RevolvedSurface, Shape, Solid, Spline, Surface, SweptSurface, Text, Trace, Viewport, Wipeout, XLine
obje tiplerini göz önüne almak zorunda.
Ve bu obje tipleriyle birlikte bu objelerin Color, Layer, Linetype, Lineweight, Space... gibi pek çok özelliğini göz önüne almak zorunda.

Hal böyle oluncada, yazılacak fonksiyon qselect komutundan daha fazla bir şey yapmayacak, Amerika'yı yeniden keşfetmek niye?

Size bir tavsiyem var;


Şeklinde bir fonksiyonu silinecek her gurup için bir kere tekrarlayarak kullanın...
Object Type ve Color özelliği seçilen örnek obje ile çakışan bütün objeleri seçip silecektir.
Hadi hatırınız için buna bir de sürekli seçim katalım :)


Şekline gelir...
Siz obje seçmeye devam ettiğiniz sürece seçilen obje örnek alınarak silme işlemine devam edilir.
Ne kadar işe yarar tartışılır!

Not: yazdıklarımı test etmedim, doğrudan doğruya buraya yazdım.

Kolay Gelsin.

ProhibiT (11.02.2010 20:17 GMT)

Beğenmek için anlamak lazım...

12.02.2010 08:48

55563    

İşinize yaramasına sevindim.
Ama, bence Object Type ve Color yeterli ve kullanışlı parametreler değil.
örnek; seçtiğiniz Obje TEXT, rengi de ByLayer... bu durumda bulunduğu Layer'ın rengine sahip (biribirinden farklı renklerdeki) Text objelerini aynı renkte (ByLayer) göreceğinden silcektir.
Bu noktada, yeni eklemeler yapmaya gerek var. Haydi bakalım, Layer'ları da aynı olan objeleri silsin... Bununla da bitmez, LineType'ları aynı objeleri de silsin... Bu Liste uzar gider...
Kolay gelsin.

ProhibiT (12.02.2010 10:59 GMT)

Beğenmek için anlamak lazım...

02.03.2010 11:08

55904    

sebnemaskun

bu değişikliği yapabilmek için sizin attribute nesnesini göndermeniz gerekir. Çünkü seçilen pline'nın alanını attibute içindeki value değerine göre değitirilmesi gerekir.

09.03.2010 07:34

56028    

Obje tipleri biribirinden o kadar faklı ki; böyle bir Lisp yazmak için epeyce uğraşmak gerek... Gerçekten buna ihtiyaç var mı? Bunun yerine "BPoLy" komutunu girip Region'ın içinde bir nokta seçerek yeni PloyLine yapmak daha pratik...
Kolay Gelsin.

Beğenmek için anlamak lazım...

18.03.2010 21:16

56212    

Merhaba HIPHOP :)
AutoLisp öğrenmeyi çok istediğini biliyorum. Onun için aşağıda kodunu verdiğim fonksiyonun adım, adım açıklamalarını da verdim. Öncelikle fonksiyonu yükleyip, farklı konum ve durumlar için denemeni tavsiye ederim. Sonra açıklamalara bir göz atmalısın.
Yazdığımız her fonksiyonun mümkün olduğunca genel amaçlı olmasına, uygulamada karşılaşılabilecek farklı durumlara uygun olmasına dikkat etmemiz gerekiyor.
Altına Grobeton işleyeceğimiz temel tabanı her zaman yatayda çizilmiş olmayabilir.
Temel kalıp Planında Kesitlerden biri Y eksenine paralel çizilmiş olabilir.
Ya da temel tabanı yataydır da, sağdan sola doğru... Düşeydir de yukarıdan aşağı çizilmiştir.
Temel tabanına konacak Grobeton kalınlığı her zaman 10 cm. olmayabilir. Ya da cm. birimi değil de mesela mm. birimi kullanılmıştır.
Fonksiyonumuzu yazarken bütün bunları göz önüne almak zorundayız...
[IMG]http://img339.imageshack.us/img339/5778/grbtn.png[/IMG]
(defun c:grbtn ()
;;;Fonksiyonumuzu çalıştırırken komutumuz grbtn olsun.
  (setq ttc (car (entsel "\nTemel Taban Çizgisiniz Seçiniz..."))
;;;Seçtiğimiz Temel Taban Çizgisi Objesinin "Entity Name" ini ttc değişkenine atadık
        thc (getreal "\nGrobeton Kalınlığını Giriniz: ")
;;;Grobeton kalınlığı değerini thc değişkenine atadık.
        czg (entget ttc)
;;;ttc objesinin (Temel Taban Çizgisi) database bilgilerini (Association List) czg
;;;değişkenine atadık.
        bnok (cdr (assoc 10 czg))
;;;czg içinden assoc 10 ile çizginin başlangıç noktası koordinatlarını alıp bnok
;;;değişkenine atadık.
        snok (cdr (assoc 11 czg))
;;;aynı şekilde assoc 11 ile çizginin bitiş noktası koordinatlarını snok değişkenine atadık
        leng (distance bnok snok)
;;;Çizginin uzunluğunu leng değişkenine atadık.
        aci (angle bnok snok)
;;;Çizginin açısını aci değişkenine atadık.
  )
;;aci değerinin pi'ye eşit ya da büyük olması durumunu kontrol ediyoruz.
;;aci değeri pi'ye eşit ya da büyükse, çizgimiz ya sağdan sola, ya da yukarıdan aşağıya çizilmiştir.
;;Bunu düzeltmek için, aci değerinden pi'yi çıkarıyoruz ve bnok ve snok
;;;noktalarının koordinatlarını karşılıklı yer değiştiriyoruz.
  (if (>= aci pi)
    (setq aci (- aci pi)
          kkl bnok
;;;bnok'un değerlerini kaybetmemek için kukla bir değişken olan kkl'de tutuyoruz.
          bnok snok
          snok kkl
    )
  )
  (setq p1 (polar bnok (+ aci pi) thc)
;;;bnok yani başlangıç noktamızdan başlayarak aci+pi yönünde thc
;;;(grobeton kalınlığı) kadar ilerleyip p1 noktasını buluyoruz.
        p2 (polar p1 (+ aci (* pi 1.5)) thc)
;;;p1 noktasından aci+1.5*pi yönünde gene thc kadar gidip p2
;;;noktasını buluyoruz.
        p3 (polar p2 aci (+ leng thc thc))
;;;p2 noktasından aci yönünde leng (çizgi uzunluğu) + 2*thc
;;;kadar ilerleyip p3 noktasını buluyoruz.
        p4 (polar p3 (+ aci (* 0.5 pi)) thc)
;;;p3 noktasından aci+0.5*pi yönünde thc kadar gidip p4
;;;noktamızı buluyoruz.
  )
  (entmake (list (cons 0 "LINE") (cons 10 bnok) (cons 11 p1)))
;;;bnok'tan başlayıp p1'de biten çizgiyi çizdik.
  (entmake (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2)))
;;;p1'den p2'ye çizgi çizdik.
  (entmake (list (cons 0 "LINE") (cons 10 p2) (cons 11 p3)))
;;;p2'den p3'e çizgi çizdik.
  (entmake (list (cons 0 "LINE") (cons 10 p3) (cons 11 p4)))
;;;p3'ten p4'e çizgi çizdik.
  (entmake (list (cons 0 "LINE") (cons 10 p4) (cons 11 snok)))
;;p4'ten başlayıp snok'ta biten çizgiyi çizip işimizi tamamladık.
  (prin1)
)
Görüldüğü gibi, bir fonksiyonu yazarken her durumu göz önüne almaya çalışıyoruz.
Bu fonksiyon, temel taban çizgisi hangi açıda olursa olsun, altına verdiğimiz kalınlıkta grobeton çizecektir. Temelin asla kafa aşağı durmadığını kabul ediyoruz elbette :)

Kolay gelsin...

ProhibiT (19.03.2010 16:21 GMT)

Beğenmek için anlamak lazım...