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

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 735, Üye: 2
adileaktar, barisaydin1977

Detaylar »

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

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

İleti	Yazar
01.03.2014 08:06 76230	husokz Girişimci 6 ileti Mühendis Almaty
Alıntı waytooraider : Tek kelimeyle harika.Elinize aklınıza sağlık. Saygılarımla.

01.03.2014 08:06 76231	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!!!

02.03.2014 00:05 76235	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
Appload komtunu kullanarak veya AutoCAD komut satırından (Load "acxL.cLx) girerek programı yükleyin. AutoCAD komut satırından ACXL girin. Beğenmek için anlamak lazım...

04.11.2014 09:23 78993	saidcan Girişimci 1 ileti Öğrenci İstanbul
Çok işe yarayan bir Lisp elinize sağlık.

03.06.2015 14:17 81567	sisecam Girişimci 13 ileti teknik ressam mersin
Merhabalar; Çok başarılı bir lisp oldu kısa ve öz ama ben istiyorumki; autocad te ayrı ayrı textler olsun mesela proje adı gibi. bunları benim seçeceğim excel dosyasında mesela tıkladığım 1 hücreye yazsın. bu mümkünmüdür. Konuyu hortlattım ama .. teşekkür ediyorum. saygılar.

07.07.2015 05:38 81698	ysezgul Girişimci 8 ileti harita mühendisi istanbul
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. Üstad, peki seçim sırasını seçilen text objelerinin oluşturulma sırasına göre veya biraz daha özelleştirirsek text objelerinin üzerinden çizilecek bir fence'e bağlı hale getirmek çok mu zahmetli olacaktır?

07.07.2015 05:52 81699	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
ysezgul Objeleri seçmenizi istediğinde fence komutunu çalıştırabilirsiniz.

07.07.2015 06:08 81700	ysezgul Girişimci 8 ileti harita mühendisi istanbul
çok teşekkür ederim. komut satırında görmeyince düşünemedim.

25.08.2015 14:31 81949	mekserkan Girişimci 1 ileti teknik ressam istanbul
Merhaba Şahin bey; rusça karakterli yazılarda excel e atarken "\U+0421\U+0442\U+0430\U+043A" tarzında kodlayarak atıyor. Bu konuda yardımcı olur musunuz? Aşağıdaki paylaştığım lisp te de benzer sorunla karşılaşıyorum. Onda da soru işaretleri oluyr bütün rusça fontlar... Bu arada çok cömert ve fedakar paylaşımlar yapıyorsunuz. Teşekkürler. :yes :yes :yes Linkleri görebilmek için ÜYE olmalısınız.

29.01.2016 14:50 82835	şahnaz Kıdemli Uzman 199 ileti inşaat teknikeri istanbul
Herkese merhabalar Prohibit Hoca nın verdiği ilk lispi kullandım. Fakat acemiliğimden olsa gerek Excel de "nil" diye bir ifade çıktı. Acaba neyi yanlış yapıyorum? Durumumu özetlemem gerekirse 233 adet fore kazığım var ve bunların tüm koordinatlarını girmem lazım. Şimdiden teşekkürler.

19.09.2016 18:07 83895	macros55 Uzman 94 ileti Haritaci Ankara
elinize saglık çok iyi bir lisp.hocam lispe şöyle bir ilave yapmak olurmu excel dosyasına ilave etmezden önce soru olsun txt excel de A1 hanesinden satırla yoksa sütunla devam etsin.bazen enlem bazen boylam txt oluyor...önceden tşk-ler hocam

12.11.2016 08:00 84158	onderasla Girişimci 1 ileti MÜHENDİS ANKARA
174410-txxl.rar linkinden dosyayı indirdim ancak rar şifresi nedir?

16.03.2018 12:50 86151	onderbengu05 Girişimci 13 ileti
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.

16.03.2018 12:51 86152	onderbengu05 Girişimci 13 ileti
ProhibiT Sayın Hocam, Attribute text için nasıl bir yönerge yazabiliriz. Selamlar... Travaci (16.03.2018 13:29 GMT)

16.03.2018 13:01 86154	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
onderbengu05 Kod: (defun c:ATxP (/ fL Tx n) (if (setq n -1 Tx (ssget (list (cons 0 "ATTDEF")))) (if (setq fL (getfiled "Çikis Kütügü" "" "xls" 9)) (progn (setq fL (open fL "w")) (while (< (setq n (1+ n)) (sslength Tx)) (write-line (cdr (assoc 2 (entget (ssname Tx n)))) fL)) (close fL) ) ) ) (prin1) )

16.03.2018 13:14 86155	onderbengu05 Girişimci 13 ileti
Travaci Öncelikle teşekkür ederim. Lakin lisp attribute blockları seçmiyor explode edince iş görüyor. ZwCadden mi kaynaklanıyor tam anlayamadım. Travaci (16.03.2018 13:28 GMT)

16.03.2018 13:28 86157	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Hayır ZwCad de sorun yok, siz attribute text yazınca bende böyle yaptım. Travaci (16.03.2018 14:22 GMT)

16.03.2018 13:39 86159	onderbengu05 Girişimci 13 ileti
Block attribute içeriğini excele atmak için attfef yerine hangi komutu yazmalıyız. Travaci (16.03.2018 13:56 GMT)

16.03.2018 14:05 86161	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Öyle bir komut yok, komutlar zinciri yazman lazım. ZwCad de varsa Dataextraction komutunu kullanın.

16.03.2018 14:10 86162	onderbengu05 Girişimci 13 ileti
Alıntı Travaci : Öyle bir komut yok, komutlar zinciri yazman lazım. ZwCad de varsa Dataextraction komutunu kullanın. Maalesef Zwcadde bu komut yok. Hatırlarsanız dynamic block length lispini de adapte edememiştim. Yine de teşekkür ederim. Ama komutlar zinciri yazmak bugünkü bilgilerimle pek mümkün değil. Selamlar...

Önceki Sayfa

[1] > 2 < [3]

Sonraki Sayfa