Copyright © 2004-2022 SQL: 1.171 saniye - Sorgu: 72 - Ortalama: 0.01626 saniye
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
![]() ![]() |
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
![]() ![]() |
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
![]() ![]() |
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ı 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ı
|
23.07.2024 07:51
birber ![]() |
Alıntı
|
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.
|