* E Posta Adresiniz:
* Kodu Girin:

> 1 < [2] [3] Sonraki Sayfa
İleti Yazar
17.07.2012 12:53
69492    
cngzklc

[5] Uzman

Online Durumu

53 ileti
İnşaat Teknik Ressamı (Çelik Konsrüksiyon)
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 15:01 GMT)

18.07.2012 21:59
69518    
ProhibiT

[80] Yetkili

Online Durumu

1469 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.

Where there is a will, there is a way... Beğenmek için anlamak lazım...

19.07.2012 09:02
69520    
cngzklc

[5] Uzman

Online Durumu

53 ileti
İnşaat Teknik Ressamı (Çelik Konsrüksiyon)
Bursa

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

04.01.2013 11:01
70997    
hihaho

[2] Girişimci

Online Durumu

2 ileti
Peyzaj Mimarı
Trabzon

teşekkürler.

14.03.2013 13:12
71930    
waytooraider

[8] Kıdemli Uzman

Online Durumu

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 10:44
71957    
2032223351

[3] Kıdemli Girişimci

Online Durumu

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 14:25
71961    
ProhibiT

[80] Yetkili

Online Durumu

1469 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 21:20 GMT)

Where there is a will, there is a way... Beğenmek için anlamak lazım...

16.03.2013 14:31
71962    
map23

[3] Kıdemli Girişimci

Online Durumu

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 14:35
71963    
map23

[3] Kıdemli Girişimci

Online Durumu

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 15:05
71966    
ProhibiT

[80] Yetkili

Online Durumu

1469 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.

Where there is a will, there is a way... Beğenmek için anlamak lazım...

16.03.2013 15:27
71968    
2032223351

[3] Kıdemli Girişimci

Online Durumu

44 ileti
harita Muhendisi
cimkent

Allah razi olsun iyiki varsin usta :-)

16.03.2013 16:25
71969    
waytooraider

[8] Kıdemli Uzman

Online Durumu

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 23:38
71971    
ProhibiT

[80] Yetkili

Online Durumu

1469 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 21:22 GMT)

Where there is a will, there is a way... Beğenmek için anlamak lazım...

17.03.2013 10:22
71974    
map23

[3] Kıdemli Girişimci

Online Durumu

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 12:05
71976    
ProhibiT

[80] Yetkili

Online Durumu

1469 ileti
İnşaat Mühendisi
Ankara



Linkleri görebilmek için ÜYE olmalısınız.

Where there is a will, there is a way... Beğenmek için anlamak lazım...

17.03.2013 12:50
71977    
waytooraider

[8] Kıdemli Uzman

Online Durumu

162 ileti
makine mühendisi
istanbul

Tek kelimeyle harika.Elinize aklınıza sağlık.

Saygılarımla.

01.03.2014 10:58
76226    
husokz

[2] Girişimci

Online Durumu

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 11:04
76227    
husokz

[2] Girişimci

Online Durumu

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 11:04
76228    
husokz

[2] Girişimci

Online Durumu

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 11:05
76229    
husokz

[2] Girişimci

Online Durumu

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
Copyright © 2004-2018 | Tüm Hakları Saklıdır | 785 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam