Autolisp ile ilgili sorularınız... | 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: 549, Üye: 0

Detaylar »

Forumlar > AutoLISP > Autolisp ile ilgili sorularınız...

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

İleti	Yazar
26.02.2014 23:43 76183	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
Teşekkürler hocam Yukarıdaki not bölümünü, hatch menüsündeki scale kısmı gibi yapmak istiyorum, hem listem olsun hemde dilediğimi girebiliyim. Popup_list diye düşünüyorum ama pekde benzetemedim :dozingoff

28.04.2014 17:57 77123	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
Current dimstyle bilgilerine ulaşmak istiyorum ? Kod: ...(vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object)))...

22.07.2014 08:19 78178	özkan-wien Üstad 448 ileti Ankara
(initget 1 "NEU BST") (setq yon (getkword "Welche zustand [Bst / Neu]:")) (setq suchlayer (strcat "BAU-" yon)) (setq ss (ssget "_x" '((0 . "insert") (8 . suchlayer)))) arkadaslar secim seti icinde layer adini böyle girince hata veriyor. Nasil yazmaliyiz?

22.07.2014 08:30 78179	özkan-wien Üstad 448 ileti Ankara
vl-string-left-trim komutu ömrümü yedi:-) 15 karakterli bir layer adini kesmeye ugrasiyorum. ilk 12 karakteri kesecegim son 3 kalacak. ddd-cc--bbb-aaa 10 taneyi kesiyo 11 den sonra hata veriyor. herkesde mi böyle yoksa sadece ben de mi. tek islem Dogru sonuc veriyo ancak döngü icinde sapitiyo.

22.07.2014 08:50 78180	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
Örneğin; abcdefghijklmnop şeklinde text seçtiğimizde ilk 13 karakteri trimlemek için Kod: (defun c:tal (/) (vl-load-com) (alert (vl-string-left-trim "abcdefghijklm" (vla-get-Textstring (vlax-ename->vla-object (ssname (ssget "+.:s") 0))))) (princ))

22.07.2014 08:55 78181	özkan-wien Üstad 448 ileti Ankara
tesekkür ederim, bi üstteki nasil olur travaci?

22.07.2014 09:21 78184	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
İlk 13 karakterin bütün layerlarda aynımı ?

22.07.2014 09:25 78185	özkan-wien Üstad 448 ileti Ankara
Alıntı Travaci : İlk 13 karakterin bütün layerlarda aynımı ? evet secim setiyle aliyorum ama senin dedigin gibi olmuyor. iki kere kesersem oluyor özkan-wien (22.07.2014 09:50 GMT)

22.07.2014 09:42 78186	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
Ne yapmaya çalışıyorsun ? Bu lisp'in sonunda ne olucak ?

22.07.2014 09:48 78187	özkan-wien Üstad 448 ileti Ankara
plan icindeki mevcut/yeni /yikim kapi listesi son üc harf durumunu gösteriyor. eskimi yeni mi yikilacakmi? özkan-wien (22.07.2014 11:03 GMT)

22.07.2014 09:52 78188	özkan-wien Üstad 448 ileti Ankara
avrupa layer standardi türkceye uyarlarsak böyle oluyor. ele-kap-kes-mev (kesite giren mevcut kapi) ele-kap-gör-yen (görünüse giren yeni kapi) mesela ele - yapi elemanimi / görsel mi (tarama) kap . yapi elemani adi kes- kesitmi/görünüsmü/izdüsümmü mev . mevcut/yeni/yikilan özkan-wien (22.07.2014 11:00 GMT)

12.08.2014 11:42 78351	seboli61 Kıdemli Uzman 156 ileti Teknik Ressam istanbul
(defun c:jj(/ p1 p2) (setq p1 (getpoint) p2 (getpoint)) (setq col (getvar "cecolor")) (setvar "cecolor" "BYLAYER") (entmake (list (setvar "cecolor" col) )) (entmake (list (cons 0 "Line") (cons 8 "SEBO") (cons 10 p1 ) (cons 11 p2 ) (cons 62 55 ))) (entmake vl ) (princ) ) Lisp yazmak için çok yeniyim ben LİNE a Bylayer özellğini atayamadım. Hatam nerede ?

12.08.2014 12:16 78352	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
Kod: ... (setq p1 (getpoint) p2 (getpoint)) (setq col (getvar "cecolor")) (setvar "cecolor" "BYLAYER") (entmake (list (cons 0 "Line") (cons 8 "SEBO") (cons 10 p1) (cons 11 p2))) (setvar "cecolor" col) ...

13.09.2014 13:35 78578	ehya Yönetici 3597 ileti Teknik Ressam Ankara
seboli61 62 dxf kodunu kullanırsan bylayer özelliğini atayamazsın. 62 olmazsa renk otomatik bylayer olur.

18.09.2014 14:15 78608	halilozcakir Üstad 660 ileti Mekanik Teknik Ressam /Teniker İstanbul
Merhaba üstadlar bende mekanik hava kanalının çeşitli parçalarını çizmek için üç parça lisp var lisp içeriğine girip bakıyorum bazı benim kısa yollarımı etkileyen kısımlarını hallediyorum, lakin daha geniş sorunlar çıkarıyor bunlar hakkında sorunlarımı buraya mı yazayım yeni sayfa mı açayım. sorun 1- bunları birleştirsem sıkıntı olur mu ? nasıl birleştireceğim kopyala sona yapıştır gibi mi ? birleştirilemez dediler bunu hiç anlamadım ? sorun 2- lispleri veren arkadaş, ağabeyimiz acad2009doc lispini yüklemezsen çalışmaz dedi. Neden ? sorun 3- osnap ayarlarımı kaldırıyor.bunu nasıl çözeceğim osnap mod snap mod ayarlarını 0,1 denedim değiştirdim olmadı. dosyalar burada, 64792-kanal.rar halilozcakir (19.09.2014 06:34 GMT)

09.10.2014 08:49 78767	özkan-wien Üstad 448 ileti Ankara
arkadaslar merhaba, cok sayida kelimeden olusan bir text objesini kelime kelime patlatan bi Lisp yöntem var mi? TEsekkürler. Yani 1 adet 5 kelimeden olusan bir text objesi, 5 adet text objesi olacak.

09.10.2014 09:02 78768	seboli61 Kıdemli Uzman 156 ileti Teknik Ressam istanbul
Linkleri görebilmek için Üye Ol veya Giriş Yap Umarım yardımcı olur bu sana.

09.10.2014 09:07 78769	özkan-wien Üstad 448 ileti Ankara
Biraz modifiye gerekiyo. Sadece ingilizce olmayan autocadde calismiyodu bikac düzeltme yaptim. Baska dillerde calisan hali. Tesekkür ederim. (defun c:KYA (/ Bip By ByT Kn KnO KnBy myerr n1 n2 n3 n4 olderr RfP Sip) (setvar "cmdecho" 0) (command "_.undo" "_group") (vl-load-com) (defun myerr (errmsg /) (if (/= errmsg "Function cancelled") (prompt errmsg)) (command-s "._undo" "_e") (command-s "._U") (setq error olderr) (princ)) (setq olderr error error myerr) (while (setq KnO (ssget "_:s" (list (cons 0 "Text")))) (setq KnO (entget (ssname KnO 0)) KnBy (cdr (assoc 1 KnO))) (if (wcmatch KnBy "* ") (setq Bip (cdr (assoc 10 KnO)) RfP (mapcar '(lambda (n1 n2) (+ n1 n2)) BiP (mapcar '(lambda (n3 n4) (- n4 n3)) (nth 0 (textbox KnO)) (nth 1 (textbox KnO)))) Kn (substr KnBy 1 (vl-string-position 32 KnBy)) By (vl-string-right-trim ")" (vl-string-left-trim "(" (vl-string-left-trim " " (vl-string-left-trim Kn KnBy)))) KnO (subst (cons 1 Kn) (assoc 1 KnO) KnO) ByT (subst (cons 1 By) (assoc 1 KnO) KnO) Sip (mapcar '(lambda (n1 n2) (- n1 n2)) Rfp (mapcar '(lambda (n3 n4) (- n4 n3)) (nth 0 (textbox ByT)) (nth 1 (textbox ByT)))) ByT (entmake (subst (cons 10 Sip) (assoc 10 ByT) ByT)))) (entmod KnO)) (command "_.undo" "_end") (setq error* olderr) (prin1))

09.10.2014 11:38 78772	özkan-wien Üstad 448 ileti Ankara
arkadaslar bir text objesinin ilk 2 karakterini silmek istiyorum. vl-string-left-trim ile yapilabilirmi acaba. Belirli bir dize degil herhangi bir dize. "abcdefg" den "ab" yi sil degil de ilk 2 karekteri sil diye yani. Ilgilenen arkadaslara simdiden tesekkürler

09.10.2014 12:23 78774	seboli61 Kıdemli Uzman 156 ileti Teknik Ressam istanbul
Linkleri görebilmek için Üye Ol veya Giriş Yap Senin tam istediğin gibi değil ama iş görür gibi geliyor bana :)

Önceki Sayfa

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] > 33 < [35] [40] [43]

Sonraki Sayfa