Lisp Yardimi | Forumlar

Forumdan

99 kategoride 17 binden fazla konu başlatıldı bu konulara yaklaşık 90 bin cevap verildi tüm bunlar yaklaşık 109 milyon kez görüntülendi

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Özel Yazılımlar

Program Ekle

Ziyaretçi: 1094, Üye: 1
mateus

Detaylar »

Forumlar > AutoCAD Acil Yardım > Lisp Yardimi

İnceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
21.02.2015 13:59 80566	safakkarman Kıdemli Girişimci 13 ileti Elektrik Teknik Ressam istanbul
Text siralama lispi arkadaslar elinde cizim icindeki textleri alfabetik ve ustu uste gelmeyecek sekilde siralama yapan bir lisp yazilimi bilen varmi benim elimde bir hizalama lispi var ama yazilari karisik ve ust uste gelecek sekilde siraliyor bu lisdpi gelistirecek bir arkadas varmidir? Tesekkurler admin (21.02.2015 14:10 GMT) :loveLANET OLSUN İÇİMDEKİ İNSAN SEVGİSİNE:love

21.02.2015 14:04 80567	alumina Editör 771 ileti Insaat Muhendisi Istanbul
ust uste gelmeyen textler yan yana mi gelecek? sıralama yaparken çizimdeki mevcut textleri silecek mi? vs vs..... Bunu mevcut bir cizim üzerinde işaretleme yaparak anlatır mısınız.

21.02.2015 14:15 80568	safakkarman Kıdemli Girişimci 13 ileti Elektrik Teknik Ressam istanbul
1.resim Linkleri görebilmek için Üye Ol veya Giriş Yap siralamak istedigim yazilar 2.resim Linkleri görebilmek için Üye Ol veya Giriş Yap buda elimdeki lisp ile siralama (hizlama) yaptigindaki hali 3.resim Linkleri görebilmek için Üye Ol veya Giriş Yap buda yapmak istedigim sekildeki hali :loveLANET OLSUN İÇİMDEKİ İNSAN SEVGİSİNE:love

21.02.2015 21:23 80574	alumina Editör 771 ileti Insaat Muhendisi Istanbul
Bunun gibi mi :) Kod: (defun c:ts (/ so pt os ls ls1 ls2 lss) (vl-load-com) (defun error (msg) (if (not (wcmatch (strcase msg t) "break,cancel,exit")) (princ (strcat "\nError: " msg)))) (setq so (ssget '((0 . "text"))) pt (getpoint "\nReference point:")) (vlax-for os (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))) (setq ls1 '() ls1 (cons (vla-get-textstring os) ls1) ls1 (cons os ls1) ls (cons ls1 ls) ls2 (cons (vla-get-height os) ls2))) (setq ls (vl-sort ls '(lambda (x1 x2) (< (cadr x1) (cadr x2))))) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (foreach lss ls (vla-move (car lss) (vlax-3d-point (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint (car lss))))) (vlax-3d-point pt)) (setq pt (polar pt (+ pi (/ pi 2)) ( 2 (apply 'max ls2))))) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ)) alumina (22.02.2015 16:14 GMT)

22.02.2015 08:37 80580	safakkarman Kıdemli Girişimci 13 ileti Elektrik Teknik Ressam istanbul
Vallahi cok makbule gecti tesekkur ederim :loveLANET OLSUN İÇİMDEKİ İNSAN SEVGİSİNE:love

23.02.2015 07:07 80584	halilozcakir Üstad 658 ileti Mekanik Teknik Ressam /Teniker İstanbul
alumina süper olmuş eline sağlık bende alıp kullanıyorum,elimdeki text hizala lispinin yerine geçti. bu arada hayırlı olsun site editörleri arasına karışmışsın..

23.02.2015 07:22 80585	alumina Editör 771 ileti Insaat Muhendisi Istanbul
Alıntı halilozcakir : alumina süper olmuş eline sağlık bende alıp kullanıyorum,elimdeki text hizala lispinin yerine geçti. bu arada hayırlı olsun site editörleri arasına karışmışsın.. Tsk ederim darisi sizlere :)

24.02.2015 12:26 80612	cideli82 Girişimci 2 ileti elektrik teknisyeni kastamonu-cide
merhabalar Autocad ile çizilen elektrik projelerinde kullanılan , hesaplama, yükleme cetveli oluşturma tek hat şeması çizen lisp varmı acaba? Yardımcı olabilir misiniz?

> 1 <