31.07.2010 16:10

58808    

Cevabınız için çok teşekkur ederim, açıkçası bu kadar hızlı cevap beklemiyordum:)

Bu lispin içerisine dairelerin çaplarını ve eklenecek olan dairelerin çaplarını girerek hepsini bir defada ekletmek mümkünmü? eklenecek dairelerin katmanınıda o an acık olan katmana gore ekleyebilirmiyiz.

Aynı koordinattaki dairelere sadece bir adet daire ekletebilirmiyiz, mesela aynı koordinatta aynı çapta 3-4 tane daire çizilmiş ama ben o koordinata sadece 1 adet daire ekletmek istiyorum.
bu şekilde olursa bana buyuk kolaylık sağlamış olacak.
çok teşekkur ederim...

CAN123 (31.07.2010 16:52 GMT)

31.07.2010 23:36

58815    

Teşekkur ederim.

Katman sorunu dediğiniz gibi yapınca düzeldi. Aslında istemiş olduğum şey lispin içerisine mevcut dairelerin çaplarını girip bunlara yeni daireleri eklemesi. Mesela komut çalıştıgında

Ø24'e Ø18
Ø30'a Ø22
Ø18'e Ø14
Ø36'ya Ø24
daire eklemesi.

Teşekkur ederim...

CAN123 (03.08.2010 15:45 GMT)

15.08.2010 22:01

59077    

Merhaba;
Bir dialog kutusu oluşturdum(***.dcl)İçersinde 3-4 tane edit_box var.Aynı şekilde oluşturduğum lisp sayesinde dialog kutusunu ve keylerini yönetmeye çalışıyorum.
Sizlere sorum;
block yaptığım Attribute çift çıkladığımda(EATTEDIT), en başta yaptığım dialog kutusunun açılmasını istiyorum.
Bunun için lispi düzenleyemedim.bu konudaki komutları veya yöntem ile ilğili örneğiniz varsa paylaşırsanız sevinirim.
Bu şekilde attribute deki verileri dialog kutumdaki edit_box larla girerek ,keyler ile işlem yaptıracağım.
İyi geceler...

02.11.2010 09:52

60436    

Harbi65 hocam, teşhisiniz doğru, real sayılarda böyle bir özellik var.

Reals A real is a number containing a decimal point. Numbers between -1 and 1 must contain a leading zero. Real numbers are stored in double-precision floating-point format, providing at least 14 significant digits of precision.
Note that VLISP does not show you all the significant digits. Reals can be expressed in scientific notation, which has an optional e or E followed by the exponent of the number (for example, 0.0000041 is the same as 4.1e-6).
Numbers such as 3.1, 0.23, -56.123, and 21,000,000.0 are valid AutoLISP reals.

... diyor AutoDesk.

Real sayılar çifte-hassasiyetli kayar-noktalı sayı formatında saklanırlar.
Ondalık noktasından sonra 14 basamağa kadar anlamlıdır.
VLisp anlamlı basamakların hepsini göstermez.

(atof "30494.84") returns 30494.8 ve (distof "30494.84") returns 30494.8

Göstermemekle birlikte; (= (atof "30494.84") 30494.84) returns T'dur. Yani göstermediği basamakları da aslında gözardı etmiyor :)

(= (distof (rtos 30494.84 1 6)) 30494.84) returns T

Eğer "30494.84" sayısını bir kıyaslama ve kontrol için kullanacaksanız, 3.049484E+04 şeklinde tutun.

(setq a (rtos 30494.84 1 6)) returns "3.049484E+04"
şeklinde a değişkeninde tuttuğumuzda;

(= (distof a) 30494.84) returns T ve (= (atof a) 30494.84) returns T



Linkleri görebilmek için Üye Ol veya Giriş Yap

Linkinde paylaştığım fonksiyonda;
(setq ln (strlen X) yr (vl-string-position 46 X))
(cond ((= yr 0) (setq X (strcat "0" X))) ((= yr nil) (setq X (strcat X ".00"))) ((= (- ln yr) 2) (setq X (strcat X "0"))))
(setq ln (strlen Y) yr (vl-string-position 46 Y))
(cond ((= yr 0) (setq Y (strcat "0" Y))) ((= yr nil) (setq Y (strcat Y ".00"))) ((= (- ln yr) 2) (setq Y (strcat Y "0"))))
şeklinde bir uygulama yapmıştım. Probleminiz bununla ilgili mi? tam kestiremedim, belki bir faydası olur...

Konunun detayına inersek;
(+ 2147483647 1) returns -2147483648
şeklinde iki pozitif tamsayının toplamından negatif bir sayı çıkar! :)

AutoLisp ve Visual Lisp'in sayıları hafızada tutma şekli ve sınırlarından kaynaklanıyor...

Kolay gelsin...

ProhibiT (02.11.2010 10:12 GMT)

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

02.11.2010 12:16

60442    

(vl-string-position [Ascii Code] [String]) detaya girmeden genel anlamıyla bakarsak, ascii codu verilen karakterin, string içindeki sırasını veriyor. Sıra numaraları 0'dan başlıyor.

Verdiğim örnekte ascii kodu 46 olan karakter nokta (.) karakteri. Real sayıdan çevirdiğim string içinde noktanın yerini buluyorum. (vl-string-position 46 "125.60") -> 3 olarak veriyor. buradan da ondalık noktasının solunda 3, sağında 2 basamak olduğunu buluyorum...

Ben önce XLisp, ZetaLisp ve Lisp gibi genel Lisp dilini öğrenip sonradan AutoLisp'e geçtiğim için, bazı detayları algılamam ve kullanışım farklı olabiliyor. Yeri geldikçe ve fırsat buldukça, kıyıda köşede kalmış detayları paylaşmak istiyorum.



Linkleri görebilmek için Üye Ol veya Giriş Yap

Linkinde paylaştığım fonksiyonda da farklı bir incelik kullandım
(if (equal (* nKs aRm) MsF 0.000001) (setq bLm "tam") (setq bLm "ksr"))

örneği açarsak;
(setq a 12.00 b 12.01) c b d 12.01) değerlerini verdiğimizde;
(= a b) -> nil
(equal a b 0.01) -> T
(= b c d) -> T

(setq x1 '(a b c) x2 '(a b c) x3 x2) değerlerini girdiğimizde;

(= x1 x2) -> nil
(eq x1 x2) -> nil
(equal x1 x2) -> T

(= x1 x3) -> nil
(eq x1 x3) -> nil
(equal x1 x3) -> T

(= x2 x3) -> T
(eq x2 x3) -> T
(equal x2 x3) -T olduğunu görüyoruz.

Pek çok yazar arkadaşımıza göre her üçü de aynı ne gerek varki diye düşündüğümüz operatörlerin ne kadar farklı olduklarını görebiliyoruz...

Kolay gelsin.

ProhibiT (04.01.2011 15:38 GMT)

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

03.12.2010 11:28

61040    

Mrb .Yardımcı olabilirseniz benim ve haritacılara kolaylık sağlayacak.Eğer oluyorsa tabi ki.Ben Harita Teknikeriyim.Sorum şöyle olacak...Autocad dosyasında bir yerin halihazırı alınmış olarak çizimi vardır.Autocadde noktalar gözükmezler.Nokta isimleri ve kotlar text halinde görünürler.Netcad de bende kübaj hesabı yapmak isitiyorum.Kübaj hesabı yapabilmemiz için nokta dosyası(xyz koordinat sistemi)olması lazım.Autocad deki dosyayı Netcade dönüştürdüğümüzde nokta dosyası oluşmuyor.Bir sürü nokta var.Ve tek tek girersek çok vakit alır.Daire içine point yapabileceğimiz (çoğul olarak) ve bunu text e (koordinatlı_xyz olarak)yazdırabilecek lisp varmıdır?Yardımcı olursanız teşekkür ederim.Yapamasanız da canınız sağolsun.
Kolay gelsin.İyi günler...

men3455 (03.12.2010 11:35 GMT)

03.01.2011 10:16

61809    

Lispi aşağıdaki gibi kullanabilirsin....

04.01.2011 14:53

61850    

İyi günler;

Herhangi bir auto cad dosyasını kaydettiğim zaman bulunduğu klasör içinde dosya isminde lisp dosyası oluşuyor. Bunu nasıl çıkmasını önleye bilirim?

Teşekkürler

İyi çalışmalar

ehya (04.01.2011 15:54 GMT)

Araştırmadan Öğrenemezsin...!

04.01.2011 18:14

61855    

ehya hocam,

Bu mesajı okuyunca bir şey dikkatimi çektmişti. Arkadaşımız; "Herhangi bir auto cad dosyasını kaydettiğim zaman bulunduğu klasör içinde dosya isminde lisp dosyası oluşturuyor" demiş. Üç defa "dosya" kelimesi kullanılmış, belirgin bir sıfat kullanılmadığı için, değişik yerlerine virgül koyarak anlamaya çalıştım. Sonuçta, DrawingName.Lsp şeklinde bir dosya kasdedildiğini düşünerek, arkadaşımıza özel mesaj yazıp, bahsettiği dosyanın tam ismini yazmasını ve eğer benim tahmin ettiğim gibi ise o dosyayı mail ile göndermesini istemiştim. Bana bir dönüşü olmadı arkadaşımızın.

Yeri gelmişken, genelde biribirine karıştırılan bir kaç detaydan bahsetmek istiyorum.

1) acaddoc.lsp dosyası oluşuyorsa... Buna sebep olan ALS/Pasdoc.A virüsü. Çözümünü burada paylaşmıştık. Söz konusu çözüm yolunu daha basit, daha işlek hale getirmek için yazmaya başladım. Tüm Sabit Diskler, CDROM sürücüler, Taşınabilir aygıtlar ile Network sürücülerini de bir seferde tarayıp temizleyen fonksiyon bitmek üzere, daha doğrusu fırsat bulup son noktayı koyamadım.

2) acad.lsp dosyası oluşuyorsa... Buna sebep olan ALS.Bursted.A virüsü. Bu virüsle ilgili buradan bir arkadaşımız sabırla, bir haftadan uzun süre uğraşarak bana virüslü dosyayı ulaştırdı sağolsun. Virüsün her türlü davranışını çözdüm. Manuel olarak temizleme işini de çözdüm. Bahsettiğim temizleme işlemi pek çok kullanıcının kolayca uygulayabileceği sadelikte olmadığı için, bir temizleme fonksiyonu yazıyorum. Bitmek üzere, umarım kısa sürede paylaşmış olacağım.

3) Bunlara benzer bir başka virüs te, Acad.vLx ve logo.gif dosyalarını kullanan virüs. Bu virüsün temizleme mantığı AutoDesk'in sitesinde verilmiş. Yukarıda bahsettiğim gibi, pek çok kullancının zorlanacağını düşünerek, basit bir fonksiyon da bunun için yazmayı düşünmüştüm. ALS/Pasdoc.A ve ALS.Bursted.A için yazdıklarımı bitirince buna sıra gelecek.

Arkadaşımızın bahsettiği, gerçekten benim anladığım gibi DrawingName.Lsp ise, yukarıdakilere benzemiyor. Söz konusu -.Lsp dosyası elimize geçerse, ona da bir çözüm bulunur elbette.

Herkese kolay gelsin...

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

05.01.2011 13:51

61881    

muhendis010 arkadaşımızın mesajını bu sabah aldım...
-----------------------------------------------------------------------
Bugün itibari ile kaydettiğim dosyalarda acad isminde lisp oluşmaya başladı. Nedenini bilmiyorum yılbaşından sonra başladı çalışdığım dosya ismi "mu" ise "mu.lsp" ismi çıkıyordu 05/04/2011 tarihinden itibaren acad.lsp olarak çıkmaya başladı.
-----------------------------------------------------------------------
demiş...
Bu durumda net olarak anlaşılıyor ki; ALS.Bursted.A virüsünden muzdarip olmuş.

aslanv, sen virüs konusunda tecrübeli kardeşlerimizden birisin, sıkıntın olursa da bir kaç ipucu paylaşırız, manuel olarak temizlersin. :)

Kolay gelsin.

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