Autocad de çalışan lisp zwcad de çalışmıyor.

Forumdan

99 kategoride 17 binden fazla konu başlatıldı bu konulara yaklaşık 90 bin cevap verildi tüm bunlar yaklaşık 109 milyon kez görüntülendi

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Özel Yazılımlar

Program Ekle

Ziyaretçi: 612, Üye: 0

Detaylar »

Forumlar > ZWCAD Acil Yardım > Autocad de çalışan lisp zwcad de çalışmıyor.

İnceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
22.07.2024 07:31 90806	karakayotti Girişimci 14 ileti
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 90807	ehya Yönetici 3590 ileti Teknik Ressam Ankara
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 90809	karakayotti Girişimci 14 ileti
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 90812	ehya Yönetici 3590 ileti Teknik Ressam Ankara
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 90813	karakayotti Girişimci 14 ileti
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 90815	ehya Yönetici 3590 ileti Teknik Ressam Ankara
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 90816	birber Girişimci 2 ileti cadcam istanbul
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.
ehya
23.07.2024 05:58 90817	karakayotti Girişimci 14 ileti
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 90818	birber Girişimci 2 ileti cadcam istanbul
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 Ol veya Giriş Yap 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 90819	karakayotti Girişimci 14 ileti
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 <