Seçili Mtext veya Text'leri Excel'e Aktaran Lisp

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 617, Üye: 1
admin

Detaylar »

Forumlar > AutoLISP > Seçili Mtext veya Text'leri Excel'e Aktaran Lisp

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

İleti	Yazar
17.07.2012 08:53 69492	cngzklc Uzman 57 ileti Yapısal Çelik Teknisyeni Bursa
Merhaba arkadaşlar, AutoCAD sayfası içerisindeki seçili her text'i, excel'de bir hücreye atan lisp'e ihtiyacım var. Text'ler için bir alan sınırlaması yok. Yani bir çizgi içerisinde veya alan içerisinde değil. Tek sabit obje olarak tanımlanabilecek unsur, Text'lerin veya Mtext'lerin kendisidir. Yani sayfa içerisinde seçili 100 ad text veya mtext var ise bunları Excel içerisine A1 hücresinden başlayıp A100'e kadar atacak. Yardımcı olabilirseniz sevinirim. Herkese iyi çalışmalar. cngzklc (18.07.2012 11:01 GMT)

18.07.2012 17:59 69518	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Kod: (defun c:TExP (/ fL Tx n) (setvar "cmdecho" 0) (command "_.undo" "group") (setq fL (open (getfiled "Çıkış Kütüğü" "" "xls" 9) "w") Tx (ssget (list (cons 0 "*Text"))) n -1) (while (< (setq n (1+ n)) (sslength Tx)) (write-line (cdr (assoc 1 (entget (ssname Tx n)))) fL)) (close fL) (command "_.undo" "e") (prin1)) Seçilen objeler seçim sırasına göre veya gurup halinde seçilmişlerse, oluşturulma sırasının tersi sırada yazılırlar. Excel ile dosyayı açarken bir hata mesajıyla karşılaşırsanız, Evet (Yes) seçerek devam edilmelidir. Beğenmek için anlamak lazım...
halilozcakir
19.07.2012 05:02 69520	cngzklc Uzman 57 ileti Yapısal Çelik Teknisyeni Bursa
Prohibit hocam, çok teşekkür ederim. İstediğim gibi oldu. Emeğinize sağlık :)

04.01.2013 08:01 70997	hihaho Girişimci 3 ileti Peyzaj Mimarı Trabzon
teşekkürler.

14.03.2013 10:12 71930	waytooraider Kıdemli Uzman 162 ileti makine mühendisi istanbul
İyi günler Şahin Hocam. Hemen hemen hergun kullandığım bir lisp olması münasebetiyle müsadenizle bir maruzatım olacak. Exceli kaydetme yerine Kame lispinizdeki gibi excel sayfasını ekrana çıkarması mümkün mü? Saygılarımla.

16.03.2013 07:44 71957	2032223351 Kıdemli Girişimci 44 ileti harita Muhendisi cimkent
Merhaba arkadaşlar, AutoCAD sayfası içerisindeki seçili her text'i, excel'de once sectigimi 1. hucreye sonra sectigimi 2. hucreye yazip alt kisma gecmesi icin Yardımcı olabilirseniz sevinirim.

16.03.2013 11:25 71961	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Düzenleme: Görülen gerek üzerine fonksiyon kodları buradan kaldırıldı. 174410-txl.rar linkinden indirilebilir. ProhibiT (25.03.2013 18:20 GMT) Beğenmek için anlamak lazım...

16.03.2013 11:31 71962	map23 Kıdemli Girişimci 38 ileti İNŞAAT TEKNİKERİ ANKARA
ne diyimki sayın hocam sen Allah'ın bir lütfusun...Allah senden razı olsun...

16.03.2013 11:35 71963	map23 Kıdemli Girişimci 38 ileti İNŞAAT TEKNİKERİ ANKARA
çok süper bi çalışma hocam bunu tek tek seçim olarak değil de pencere olarak seçme şansımız yokmu önce sol tarafda ki sütunu atsın sonra onun sağını sıra ile yada satır satır yukardan aşağıya doğru yani kısacası seçim kolaylığı olabilirmi..Tşk ler iyi çalışmalar...

16.03.2013 12:05 71966	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Bahsedilen işlem daha kapsamlı olarak 174410-acxl.rar fonksiyonu kullanılarak zaten yapılabilir. Burada paylaşılan fonksiyonların neden bu şekilde ve bu kapsamda yazıldıkları konusunda enine boyuna düşünüldüğünden hiç şüpheniz olmasın. :) Beğenmek için anlamak lazım...

16.03.2013 12:27 71968	2032223351 Kıdemli Girişimci 44 ileti harita Muhendisi cimkent
Allah razi olsun iyiki varsin usta :-)

16.03.2013 13:25 71969	waytooraider Kıdemli Uzman 162 ileti makine mühendisi istanbul
Acxl'de hata alıyorum hocam bad argument type: stringp nil Txl ile acxl lispleri texp lispinden farklı lispler olduğunu duşünüyorum.Texp'yide Txl ile acxl deki gibi exceli direk açmasını sağlayabilirmiyiz. Saygılarımla.

16.03.2013 20:38 71971	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Düzenleme: Görülen gerek üzerine fonksiyon kodları buradan kaldırıldı. 174410-txxl.rar linkinden indirilebilir. ProhibiT (25.03.2013 18:22 GMT) Beğenmek için anlamak lazım...

17.03.2013 07:22 71974	map23 Kıdemli Girişimci 38 ileti İNŞAAT TEKNİKERİ ANKARA
Sayın hocam bir resim eklemeye çalıştım ama inşallah ulaşır size ilk yayınladığınız Txl lispini resim de gönderdiğim şekilde bi tabloyu excel'e aktarmak için kullanmak istiyorum.tablodaki yazılar birbirinden bağımsız yani YARMA - 9.430 - m² bunlar birbirinden farklı . tabloyu tamamını seçtiğimde aynı şekilde excele aktarabilmek istiyorum.tablomuzda 4 satır sabit değil 2-3-5-6 yada daha fazla olabiliyor. İyi çalışmalar...

17.03.2013 09:05 71976	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Linkleri görebilmek için ÜYE olmalısınız. Beğenmek için anlamak lazım...

17.03.2013 09:50 71977	waytooraider Kıdemli Uzman 162 ileti makine mühendisi istanbul
Tek kelimeyle harika.Elinize aklınıza sağlık. Saygılarımla.

01.03.2014 07:58 76226	husokz Girişimci 6 ileti Mühendis Almaty
Alıntı map23 : çok süper bi çalışma hocam bunu tek tek seçim olarak değil de pencere olarak seçme şansımız yokmu önce sol tarafda ki sütunu atsın sonra onun sağını sıra ile yada satır satır yukardan aşağıya doğru yani kısacası seçim kolaylığı olabilirmi..Tşk ler iyi çalışmalar...

01.03.2014 08:04 76227	husokz Girişimci 6 ileti Mühendis Almaty
üstadım yardımcı olursanız sevinirim! acxl.VLX uzantılı lisp yüklüyorum, yüklesemde excel'e nasıl aktarılacağını çözemedim... yani kısacası beceremdim,,, lütfen yardımcı olun!!!

01.03.2014 08:04 76228	husokz Girişimci 6 ileti Mühendis Almaty
Alıntı ProhibiT : Kod: (defun c:TExP (/ fL Tx n) (setvar "cmdecho" 0) (command "_.undo" "group") (setq fL (open (getfiled "Çıkış Kütüğü" "" "xls" 9) "w") Tx (ssget (list (cons 0 "*Text"))) n -1) (while (< (setq n (1+ n)) (sslength Tx)) (write-line (cdr (assoc 1 (entget (ssname Tx n)))) fL)) (close fL) (command "_.undo" "e") (prin1)) Seçilen objeler seçim sırasına göre veya gurup halinde seçilmişlerse, oluşturulma sırasının tersi sırada yazılırlar. Excel ile dosyayı açarken bir hata mesajıyla karşılaşırsanız, Evet (Yes) seçerek devam edilmelidir.

01.03.2014 08:05 76229	husokz Girişimci 6 ileti Mühendis Almaty
üstadım yardımcı olursanız sevinirim! acxl.VLX uzantılı lisp yüklüyorum, yüklesemde excel'e nasıl aktarılacağını çözemedim... yani kısacası beceremdim,,, lütfen yardımcı olun!!!

> 1 < [2] [3]

Sonraki Sayfa