22.07.2024 07:31    

karakayotti
Merhaba arkadaşlar,

Firmamızda maliyetler nedeniyle autocad den zwcad e geçiş yaptık. kullandığım lispleri de aynı şekilde aktardım. Ancak lisplerimden en sık kullandığım oval delik oluşturduğum slot lisbim çalışmıyor. Diğerlerinde sorun yok. Sebebini anlayamadım.

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.


(defun C:SLOT () ; V1.00
;


(setq c1 (getpoint "Slot Merkez Noktasini Seçiniz: ")
sw (getdist c1 "\nSlot Genisligini Giriniz: ")
sl (getdist c1 "\nSlot Uzunlugunu Giriniz: ")
phi (getangle c1 "\nSlot Açisini Giriniz (Rakam Zorunlu): ")
dW (mapcar '- (polar c1 (+ phi (/ pi 2)) (/ sw 2)) c1) ;1/2 width vector
dL (mapcar '- (polar c1 phi (/ (- sl sw) 2)) c1) ;1/2 length vector
v1 (mapcar '+ dL (mapcar '* '(-1 -1) dW)) ; vector frm cen to p1
v3 (mapcar '+ dW dL) ; vector frm cen to p3
p1 (mapcar '+ c1 v1)
p2 (polar c1 phi (/ sl 2))
p3 (mapcar '+ c1 v3)
p4 (mapcar '- c1 v1)
p5 (polar c1 phi (/ sl -2))
p6 (mapcar '- c1 v3)
)
(setvar "cmdecho" 0)
(setq tmp (getvar "pdmode"))
(setvar "pdmode" 0)
(command "point" c1)
(command "pline" p6 p1 "A" p3 "L" p4 "A" "CL")
(setvar "pdmode" tmp)
(princ)
(princ)
)
(prompt "\nKomutu çalistirmak için SLOT yaziniz.")

22.07.2024 08:02    

ehya
Zwcad olmadığı için test edemiyorum. Ancak kodlara baktığımda çalışmamasını gerektiren özel bir komut yok gibi.
Komutu kullanırken ne hatası veriyor?

22.07.2024 08:29    

karakayotti
Merhabalar,

Komut adını yazdığımda, sırasıyla ölçü istenen değerler geliyor. Ölçüleri girip normalde autocad de direkt oval delik oluşturduğu aşamada, ekte gönderdiğim şekilde farklı detaylar beliriyor. Ekte göndermeye çalıştım

zwcad

22.07.2024 09:25    

ehya
Başka bir cad programında test ettim. Herhangi bir sıkıntı yok. Dediğim gibi klasik autolisp kodları ile yazılmış. Sıkıntı vermemesi gerek.

Ancak resimde dikkatimi çeken, neden nesnelerde çok fazla width değeri var?
Bu değeri sıfırlayıp tekrar denermisiniz?

22.07.2024 11:15    

karakayotti
Tekrar merhaba,
Dediğiniz gibi ilgili değerleri 0 yaparak devam etmeyi denedim ancak yine de saçmalıyor.
Önceki ekte belirtilen şekilde kalın çizgiler oluşturuyor.
son olarak farklı ölçüler girerek slot oluşturmaya çalıştım. Ø100x400 şeklinde bir slot oluşturmak istediğimde, "tekrardan istenen ölçüleri girmeden" aşağıdaki gibi 300mm uzunluğunda bir çizgi ve çizgi merkezinin 50 mm üzerinde bir nokta ile lisp sonlanıyor.
Bu lisp işimi çok kolaylaştırıyordu. Ayrıca zwcad de oval delik oluşturmak autocad e göre biraz daha meşakkatli. Rectangle komutunun kullanımı birbirlerinden biraz farklı.
Farklı çözüm yolları denemeye çalışacağım artık.
Kullandığım lisp ile aynı işlevi gören farklı bir kodlaması olan lisp olabilir mi? Bulup denemeye çalışacağım. (Lisp yazacak kadar iyi değilim maalesef)
İlginize teşekkür ederim.
zwcad2

22.07.2024 15:13    

ehya
Burada çizimi oluşturan kısım

(command "point" c1)
(command "pline" p6 p1 "A" p3 "L" p4 "A" "CL")

bölümü. Bu iki kısmın zwcad'de çalışma prensibi farklı ise düzenlenmesi gerekir.

23.07.2024 05:51    

birber
Alıntı
karakayotti :
Merhaba arkadaşlar,
Firmamızda maliyetler nedeniyle autocad den zwcad e geçiş yaptık. kullandığım lispleri de aynı şekilde aktardım. Ancak lisplerimden en sık kullandığım oval delik oluşturduğum slot lisbim çalışmıyor. Diğerlerinde sorun yok. Sebebini anlayamadım.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
(defun C:SLOT () ; V1.00
;
(setq c1 (getpoint "Slot Merkez Noktasini Seçiniz: ")
sw (getdist c1 "\nSlot Genisligini Giriniz: ")
sl (getdist c1 "\nSlot Uzunlugunu Giriniz: ")
phi (getangle c1 "\nSlot Açisini Giriniz (Rakam Zorunlu): ")
dW (mapcar '- (polar c1 (+ phi (/ pi 2)) (/ sw 2)) c1) ;1/2 width vector
dL (mapcar '- (polar c1 phi (/ (- sl sw) 2)) c1) ;1/2 length vector
v1 (mapcar '+ dL (mapcar '* '(-1 -1) dW)) ; vector frm cen to p1
v3 (mapcar '+ dW dL) ; vector frm cen to p3
p1 (mapcar '+ c1 v1)
p2 (polar c1 phi (/ sl 2))
p3 (mapcar '+ c1 v3)
p4 (mapcar '- c1 v1)
p5 (polar c1 phi (/ sl -2))
p6 (mapcar '- c1 v3)
)
(setvar "cmdecho" 0)
(setq tmp (getvar "pdmode"))
(setvar "pdmode" 0)
(command "point" c1)
(command "pline" p6 p1 "A" p3 "L" p4 "A" "CL")
(setvar "pdmode" tmp)
(princ)
(princ)
)
(prompt "\nKomutu çalistirmak için SLOT yaziniz.")




Merhaba, ZWCAD hangi sürüm kullanıyorsunuz? ZWCAD 2025 de denedim hatasız çalışıyor.

Belirttiğiniz gibi genişlik 100, uzunluk 400 ve açı olarak 90 girdim.

23.07.2024 05:58    

karakayotti
Merhaba,

Bende 2025 standart sürümünü kullanıyorum.

Kodda herhangi bir düzeltme/düzenleme yaptınız mı acaba? Direkt çalıştı mı?

Açıkçası dün foruma yazdıktan sonra yapay zeka uygulamaları ile farklı kod oluşturmak için de epey uğraştım ama sanırım lisp konusunda şuanda baya gerideler :) :)



Alıntı
birber :
Alıntı
karakayotti :
Merhaba arkadaşlar,
Firmamızda maliyetler nedeniyle autocad den zwcad e geçiş yaptık. kullandığım lispleri de aynı şekilde aktardım. Ancak lisplerimden en sık kullandığım oval delik oluşturduğum slot lisbim çalışmıyor. Diğerlerinde sorun yok. Sebebini anlayamadım.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
(defun C:SLOT () ; V1.00
;
(setq c1 (getpoint "Slot Merkez Noktasini Seçiniz: ")
sw (getdist c1 "\nSlot Genisligini Giriniz: ")
sl (getdist c1 "\nSlot Uzunlugunu Giriniz: ")
phi (getangle c1 "\nSlot Açisini Giriniz (Rakam Zorunlu): ")
dW (mapcar '- (polar c1 (+ phi (/ pi 2)) (/ sw 2)) c1) ;1/2 width vector
dL (mapcar '- (polar c1 phi (/ (- sl sw) 2)) c1) ;1/2 length vector
v1 (mapcar '+ dL (mapcar '* '(-1 -1) dW)) ; vector frm cen to p1
v3 (mapcar '+ dW dL) ; vector frm cen to p3
p1 (mapcar '+ c1 v1)
p2 (polar c1 phi (/ sl 2))
p3 (mapcar '+ c1 v3)
p4 (mapcar '- c1 v1)
p5 (polar c1 phi (/ sl -2))
p6 (mapcar '- c1 v3)
)
(setvar "cmdecho" 0)
(setq tmp (getvar "pdmode"))
(setvar "pdmode" 0)
(command "point" c1)
(command "pline" p6 p1 "A" p3 "L" p4 "A" "CL")
(setvar "pdmode" tmp)
(princ)
(princ)
)
(prompt "\nKomutu çalistirmak için SLOT yaziniz.")


Merhaba, ZWCAD hangi sürüm kullanıyorsunuz? ZWCAD 2025 de denedim hatasız çalışıyor.
Belirttiğiniz gibi genişlik 100, uzunluk 400 ve açı olarak 90 girdim.


23.07.2024 07:51    

birber
Alıntı
karakayotti :
Merhaba,
Bende 2025 standart sürümünü kullanıyorum.
Kodda herhangi bir düzeltme/düzenleme yaptınız mı acaba? Direkt çalıştı mı?
Açıkçası dün foruma yazdıktan sonra yapay zeka uygulamaları ile farklı kod oluşturmak için de epey uğraştım ama sanırım lisp konusunda şuanda baya gerideler :) :)
Alıntı
birber :

En üstte paylaştığınız lispi dosya olarak kayıt edip çalıştırdım. Herhangi bir düzeltme yapmadım.



Linkleri görebilmek için ÜYE olmalısınız.

adresinden SP1.1 sürümünü indirip güncel ürünü kullandığınızdan emin olmanızı Hata devam ediyor ise ana sayfada yardım bölümünden kayıt açtırmanızı tavsiye ederim.

23.07.2024 08:18    

karakayotti
Merhaba,

Sürümüm güncel. yardım, ilgi ve alakanız için teşekkür ederim.

Sorunu firmaya ileteceğim.

iyi çalışmalar.

> 1 <
Copyright © 2004-2022 SQL: 1.171 saniye - Sorgu: 72 - Ortalama: 0.01626 saniye