kot yazdıran lisp | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 394, Üye: 1
gbdhsaj

Detaylar »

Forumlar > AutoLISP > kot yazdıran lisp

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

İleti	Yazar
17.09.2007 12:36 26800	c_gemicioglu Yeni üye 3 ileti
noktanın kenarına kotunu yazan lisp varmı acaba

17.09.2007 12:39 26801	ehya Yönetici 3554 ileti Teknik Ressam Ankara
istediğinizi tam olarak tarif edermisiniz?

17.09.2007 14:05 26804	c_gemicioglu Yeni üye 3 ileti
projemde noktalar var bunların kotlarını (sadece kotlarını, z ' sini) kenarına yazmak istiyorum çıktı alcam evrak için

17.09.2007 14:40 26805	hebedebe Yeni üye 22 ileti Mimar Ankara
benim de benzer bir lisp isteğim olmuştu. linki de şurda: Linkleri görebilmek için ÜYE olmalısınız. Linkler güncellenmiştir admin (09.02.2009 22:12 GMT)

17.09.2007 19:40 26817	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Aşağıdaki lisp, gösterilen noktanın Z koordinatını gösterilen noktanın sağına yazar. Komut ismi NY Kod: (defun c:ny () (setq ny_yazi_yuk 12) (setq ny_os (getvar "osmode")) (setq ny_nok (getpoint "\nNoktayı gösterin :")) (if (= ny_nok nil) (progn ) (progn (setq ny_z (caddr ny_nok)) (setq ny_yn (polar ny_nok (angtof "0") (/ ny_yazi_yuk 3.00))) (setvar "osmode" 0) (command "text" ny_yn ny_yazi_yuk "0" (rtos ny_z 2 2)) (setvar "osmode" ny_os) ) ) (princ) )

18.09.2007 06:50 26834	hebedebe Yeni üye 22 ileti Mimar Ankara
çok teşekkürler, ellerinize sağlık. bunun blok ve attribute ile çalışanını yapmak daha zordur sanırım. vakit bulduğumda elimdeki cephe kotu lispi ile bunu karşılaştırıp kendi işime yarar hale getirebilir miyim bakıcam. becerebilirsem burdan da yayınlarım :)

18.09.2007 07:04 26837	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Bloklu olarak yazmak zor değil. Zaten herşey blok içinde belli. Ama arkadaşın istediği bu tür olduğu için basit birşey hazırladım. Yoksa daha farklı geliştirilebilir.

18.09.2007 11:33 26869	c_gemicioglu Yeni üye 3 ileti
eyvallah kardeşim emeğine sağlık

14.04.2008 10:15 35679	fatihbayraktaroglu Girişimci 1 ileti mimarlık istanbul
SAOL KARDEŞ

19.07.2012 15:33 69532	emraha Girişimci 2 ileti İnşaat Mühendisi İzmir
Alıntı ehya : Aşağıdaki lisp, gösterilen noktanın Z koordinatını gösterilen noktanın sağına yazar. Komut ismi NY Kod: (defun c:ny () (setq ny_yazi_yuk 12) (setq ny_os (getvar "osmode")) (setq ny_nok (getpoint "\nNoktayı gösterin :")) (if (= ny_nok nil) (progn ) (progn (setq ny_z (caddr ny_nok)) (setq ny_yn (polar ny_nok (angtof "0") (/ ny_yazi_yuk 3.00))) (setvar "osmode" 0) (command "text" ny_yn ny_yazi_yuk "0" (rtos ny_z 2 2)) (setvar "osmode" ny_os) ) ) (princ) ) Üstadım çok güzel kod olmuş gerçekten eline sağlık. İlave özellik olarak bir grup point i seçerek her point in kendi yanına yazdırmayı sağlayacak ve yazılacak yazının boyutu ve yerleşimini seçebileceğimiz şekilde kodu revize etmek mümkün müdür? Öyle olursa çok yararlı olacağına inanıyorum. Teşekkürler

11.12.2012 14:35 70750	hihaho Girişimci 3 ileti Peyzaj Mimarı Trabzon
Alıntı ehya : Aşağıdaki lisp, gösterilen noktanın Z koordinatını gösterilen noktanın sağına yazar. Komut ismi NY Kod: (defun c:ny () (setq ny_yazi_yuk 12) (setq ny_os (getvar "osmode")) (setq ny_nok (getpoint "\nNoktayı gösterin :")) (if (= ny_nok nil) (progn ) (progn (setq ny_z (caddr ny_nok)) (setq ny_yn (polar ny_nok (angtof "0") (/ ny_yazi_yuk 3.00))) (setvar "osmode" 0) (command "text" ny_yn ny_yazi_yuk "0" (rtos ny_z 2 2)) (setvar "osmode" ny_os) ) ) (princ) ) teşekkürler.

10.05.2022 05:26 89539	map0623 Kıdemli Girişimci 29 ileti İNŞAAT+HARİTA TEKNİKERİ ALMATI
Merhabalar; Bu lisp (ny) oldukca güzel ama bu işlemi toplu halde yapmak mümkün mü acaba? Herkese iyi çalışmalar...

10.05.2022 05:35 89540	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Alıntı map0623 : Aşağıdaki işinize yarayabilir. Linkleri görebilmek için ÜYE olmalısınız.

10.05.2022 12:42 89546	map0623 Kıdemli Girişimci 29 ileti İNŞAAT+HARİTA TEKNİKERİ ALMATI
Merhaba, Maalesef pct lisp olmadı.

11.05.2022 07:09 89548	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Alıntı map0623 : Merhabalar; Bu lisp (ny) oldukca güzel ama bu işlemi toplu halde yapmak mümkün mü acaba? Herkese iyi çalışmalar... Dwg dosyasında Noktalar belli mi, Hazırlanmış mı ? Sadece Z mi lazım ? X ve Y de olacak mı ?

11.05.2022 09:29 89549	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Virgul sonrası basamak sayısı "luprec" yazı yüksekliği ise "textsize" ile değiştirebilirsiniz. Kod: (defun c:zcor (/ ad ms ss n nm) (if (setq ad (vla-get-activedocument (vlax-get-acad-object)) ms (vla-get-modelspace ad) ss (ssget (list (cons 0 "point")))) (progn (vla-startundomark ad) (repeat (setq n (sslength ss)) (setq n (1- n) nm (ssname ss n)) (vla-AddText ms (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vla-get-ObjectID (vlax-ename->vla-object nm))) ">%).Coordinates \\f \"%lu6%pt4\">%") (vlax-3d-point (cdr (assoc 10 (entget nm)))) (getvar 'textsize)) ) (vla-endundomark ad) ) ) (princ) )
k005
16.05.2022 07:29 89555	map0623 Kıdemli Girişimci 29 ileti İNŞAAT+HARİTA TEKNİKERİ ALMATI
Teşekkürler Travacı

17.05.2022 03:28 89560	map0623 Kıdemli Girişimci 29 ileti İNŞAAT+HARİTA TEKNİKERİ ALMATI
Merhaba Travacı, Bu lisp çok iyi oldu ellerine sağlık. Kotları dolgu içinde göstermese daha iyi ve sade olacak sanırım. Teşekkürler...

17.05.2022 05:31 89563	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Alıntı map0623 Textlerin field lı olduğunu gösteriyor. Noktanın koordinatını değiştiğinde save, plot, regen ... gibi işlemlerde kendini güncellemesini sağlar. FIELDDISPLAY <0> yaparak gri arka planı kapatabilirsiniz. Travaci (18.05.2022 11:27 GMT)

> 1 <