bir lisp isteği | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 566, Üye: 2
emin-dogan, macros55

Detaylar »

Forumlar > AutoLISP > bir lisp isteği

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
10.08.2016 16:44 83755	boldpilot70 Uzman 69 ileti teknisyen ankara
seçilen iki çizgi arasina eksen çizgisi atan makro lazım boldpilot70 (10.08.2016 17:51 GMT)

11.08.2016 05:10 83756	boldpilot70 Uzman 69 ileti teknisyen ankara
demek istedigim biraz kısa olmus fakat tam olarak secilen iki cizginin tam oryasina secilen cizgilere paralel eksen cizgisi atan lisp. boldpilot70 (11.08.2016 14:36 GMT)

11.08.2016 19:17 83762	boldpilot70 Uzman 69 ileti teknisyen ankara
liap olmasada olur mechanical daki gibi iki cizgi arasina ekswn atma yontemi varmidir

12.08.2016 16:37 83769	boldpilot70 Uzman 69 ileti teknisyen ankara
en azindan su sekilde yapilabilir diyecek kadar bilgisi olan yok mu

13.08.2016 12:19 83770	map23 Kıdemli Girişimci 38 ileti İNŞAAT TEKNİKERİ ANKARA
en azından iki çizgi arasını ölç ikiye böl ve herhangi bir tane çizgiyi böldüğün sonuç kadar ofsetle eksen olmasını istediğin tarafa.. Kolay gelsin

13.08.2016 12:44 83771	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Kod: (defun c:c1 () (if (setq ent1 (entsel "\n1. çizgi:")) (progn (if (setq ent2 (entsel "\n2. çizgi:")) (progn (setq e1_10 (cdr (assoc 10 (entget (car ent1)))) e1_11 (cdr (assoc 11 (entget (car ent1))))) (setq e2_10 (cdr (assoc 10 (entget (car ent2)))) e2_11 (cdr (assoc 11 (entget (car ent2))))) (if (< (distance e1_10 (cadr ent1))(distance e1_11 (cadr ent1))) (setq e1_10 e1_10 e1_11 e1_11) (setq e1_10 e1_11 e1_11 e1_10)) (if (< (distance e2_10 (cadr ent2))(distance e2_11 (cadr ent2))) (setq e2_10 e2_10 e2_11 e2_11) (setq e2_10 e2_11 e2_11 e2_10)) (setq ort1 (polar e1_10 (angle e1_10 e2_10) (/ (distance e1_10 e2_10) 2.0)) ort2 (polar e1_11 (angle e1_11 e2_11) (/ (distance e1_11 e2_11) 2.0))) (command-s "_.line" ort1 ort2 "")))))(princ))

13.08.2016 17:24 83772	ertu33 Girişimci 2 ileti topograf ist
autocad de ekranda manuel olrak düzeltilmiş enkesitlerin pl çizgileri .txt formatına dönüştüren bir lsp var mı acaba.. ( eksene mesafe ve kotların AKTARILMASI.)

13.08.2016 19:20 83773	boldpilot70 Uzman 69 ileti teknisyen ankara
eline saglik ehya cok guzel olmus fakat cizgi tipi center ve cizgi boyu sectigimiz 1 ve 2. cizgiden 10 mm yukaridan 10 mm asagidan uzun olsa cok guzel olurdu acaba lispi modifiye edebilirmisiniz. yani kesit alınmıs bir delige eksen cizgisi atmak icin kullanacagim

13.08.2016 19:48 83774	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
once seçilen iki çizgi arasina eksen çizgisi atan sonra cizgi tipi center ve cizgi boyu sectigimiz 1 ve 2. cizgiden 10 mm yukaridan 10 mm asagidan uzun olsa daha sonra çizginin rengi kırmızı olsa daha sonra 10 mm lik uzunluğu sorsa ...

13.08.2016 19:51 83775	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
ertu33 Böyle birşey mi ? Linkleri görebilmek için ÜYE olmalısınız.

14.08.2016 15:21 83777	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Modifiye dediğiniz ne ise o dediğinizden yapamam...

14.08.2016 20:20 83779	boldpilot70 Uzman 69 ileti teknisyen ankara
Alıntı ehya : Modifiye dediğiniz ne ise o dediğinizden yapamam... demek istedigim lisp guzel calisiyor ihtiyaci tam anlami ile karsilayabilmesi icin yukarida yazdigim iki ozellik te olursa tam anlami ile on numara olmus olur cizgi tipi center renk kirmizi secilen cizgilerden 10 mm asagida ve yukarida olsa tamamen stabil calisan bir lisp haline gelmis olur ve herkes yararlanabilir bu lisp cunku cok kullanilan bir is icin olmus olur

15.08.2016 07:31 83781	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Herkes için kullanışlı bir lisp için bir kerede istekte bulunur ve yazılır. Kod yazıldıktan sonra, şunu da şöyle yapalım, bunu da böyle yapalım der isek, bu işin hiç ama hiç zevki kalmaz.

17.08.2016 03:13 83793	boldpilot70 Uzman 69 ileti teknisyen ankara
anladım dogru soyluyorsunuz yinede bu sekilde lispi duzenlerseniz sevinirim...

> 1 <