AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Seçili Mtext veya Text'leri Excel'e Aktaran Lisp
17.07.2012 08:53    
cngzklc
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    
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.

19.07.2012 05:02    
cngzklc
Prohibit hocam, çok teşekkür ederim.
İstediğim gibi oldu. Emeğinize sağlık :)

04.01.2013 08:01    
hihaho
teşekkürler.

14.03.2013 10:12    
waytooraider
İ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    
2032223351
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    
ProhibiT
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)

16.03.2013 11:31    
map23
ne diyimki sayın hocam sen Allah'ın bir lütfusun...Allah senden razı olsun...

16.03.2013 11:35    
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...

16.03.2013 12:05    
ProhibiT
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. :)

16.03.2013 12:27    
2032223351
Allah razi olsun iyiki varsin usta :-)

16.03.2013 13:25    
waytooraider
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    
ProhibiT
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)

17.03.2013 07:22    
map23

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    
ProhibiT


Linkleri görebilmek için ÜYE olmalısınız.
17.03.2013 09:50    
waytooraider
Tek kelimeyle harika.Elinize aklınıza sağlık.

Saygılarımla.

01.03.2014 07:58    
husokz
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    
husokz
ü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    
husokz
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    
husokz
ü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
Copyright © 2004-2022 SQL: 1.934 saniye - Sorgu: 102 - Ortalama: 0.01896 saniye