26.02.2014 23:43
Travaci
|
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
Travaci
|
Current dimstyle bilgilerine ulaşmak istiyorum ?
Kod:
...(vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object)))...
|
22.07.2014 08:19
özkan-wien
|
(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
özkan-wien
|
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
Travaci
|
Ö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
özkan-wien
|
tesekkür ederim, bi üstteki nasil olur travaci?
|
22.07.2014 09:21
Travaci
|
İlk 13 karakterin bütün layerlarda aynımı ?
|
22.07.2014 09:25
özkan-wien
|
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
Travaci
|
Ne yapmaya çalışıyorsun ? Bu lisp'in sonunda ne olucak ?
|
22.07.2014 09:48
özkan-wien
|
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
özkan-wien
|
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
seboli61
|
(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
Travaci
|
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
ehya
|
seboli61
62 dxf kodunu kullanırsan bylayer özelliğini atayamazsın. 62 olmazsa renk otomatik bylayer olur.
|
18.09.2014 14:15
halilozcakir
|
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
özkan-wien
|
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
seboli61
|
Linkleri görebilmek için ÜYE olmalısınız. Umarım yardımcı olur bu sana.
|
09.10.2014 09:07
özkan-wien
|
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
özkan-wien
|
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
|
seboli61
|
Linkleri görebilmek için ÜYE olmalısınız. Senin tam istediğin gibi değil ama iş görür gibi geliyor bana :)
|