|
17.04.2013 14:04
 Travaci
|
Kod:
(defun c:pof( / plines ; selection set of polylines
ext ; extrnal point
dist ; distance to offset
poly ; a polyline from plines
plist ; the list of poly
del ; polyline to delete
int ; internal point
i)
(command "undo" "begin")
(princ "select polylines")
(setq plines (ssget)
i 0
ext (getvar "limmax")
dist (getdist "distance"))
(repeat (sslength plines)
(setq poly (ssname plines i))
(setq plist (entget poly))
(command "offset" dist poly ext "")
(setq del (entlast)
int (polar
(cdr (assoc 10 (entget del)))
(angle
(cdr (assoc 10 (entget del)))
(cdr (assoc 10 plist)))
(* 2 (distance (cdr (assoc 10 plist))
(cdr (assoc 10 (entget del)))))))
(command "offset" dist poly int "")
(entdel del)
(setq i (1+ i)))
(command "undo" "end")
(if (= "Y" (strcase (getstring "\ndelete initial polylines? (Y/N)")))
(command "erase" plines ""))
)
Alıntıdır
|
|
17.04.2013 14:27
umittaser
|
|
Çok sağol hocam. ellerin dert görmesin :)
|
|
18.04.2013 11:19
asencer
|
arkadaşlar merhaba;
Linkleri görebilmek için ÜYE olmalısınız.
linkinde yer alan ölçülendirmeyi yapmak istiyorum.
Mehmet Şahin hocamızın plgn ve hakan lisplerini kullansam da daha ziyade kesime yönelik bir lispe ihtiyacım var.
bu lispin yapılması mümkün mü?
saygılarımla.
|
|
13.05.2013 05:26
2032223351
|
|
Bir lisp gerekli bana yarimci olabilirseniz sevinirim.
Lineler ile cizilmis dortgenin kenarlarini secerek bir izgara teli gibi istedigim araliklara sagdan sola ve yukardan assagiya lineler atacak ve sonra her linenin kesisim noktasina ayri bir layer tabakasi acip oralara kotlu nokta atacak bir lisp lazim. Yardimci olursaniz sevinirim.
|
|
13.05.2013 05:29
2032223351
|
|
travaci hocam bu toplu ofsetin yonunu biz belirtemezmitiz assagi yada yukari gibi ?
|
|
13.05.2013 07:36
Travaci
|
|
Lisp alıntıydı ben yapmadım fikrim yok.
|
|
14.05.2013 08:08
2032223351
|
|
degerli ustatlar ben aslinda sizde suana kadar aciklamalariyla hazirlayip sundugunuz lisp lerin hepsini rar dosyasi halinde paylassaniz cok iyi olacak artik okadar lisp varki burda calisan calismayan diye ayirmak biraz zaman aliyor ve hazirlanan butun lispler gerceklten bugun olmasada yarin isimize yapriyacagini biliyorum. sizin bilgilerinizden ve yaptiginiz calismalardan faydalanmak cok guzel yine cok tesekkur ederim emekleriniz ve herkese yardimci oldugunuz icin ... IYI GUNLER
|
|
14.05.2013 09:49
 ehya
|
|
2032223351
o kadar hazırlı olmak istiyorsunuz yani.
buradaki kodları alıp metin belgesine yapıştırmak o kadar zor geliyor dimi?
|
|
14.05.2013 14:20
kerem1453
|
|
lispleri ayırmak bi ayrı sayfa haline getirmek zordur ehya haklı bu konuda biraz emek verip ugraşmak gerekiyo 250 ye yakın lisp mevcut elimde bir kısmı eskiden işim geregi kullandıgım lispler bir kısmı bu siteden degerli insanların emek verip paylaştıgı lispler bunları bir dosyada toplayıp bir excel dosyasına hangi lispin ne için kullanıldıgı şeklinde bir dosya hazırlarsanız lazım oldugu zamanlarda açıp bakmak daha praitk olur.
|
|
14.05.2013 15:01
ehya
|
|
Burada lispleri liste halinde excel dökümü olarak hazırlamamız mümkün değil.
Şuan nasıl mesaj yazıyorsak, lispleri de istek aşamasında o an ki durum itibariyle müsait isek yazıp gönderiyoruz.
Kaliteli ve genel kullanıma açık lispleri mümkün mertebe download kısmına ekliyoruz. Bunun haricinde bir liste yada döküm yapılacak ise, bunu kullanıcılar kendine göre yapmalıdır.
|
|
14.05.2013 17:06
2032223351
|
|
Oyle demedim arkadaslar winrar dosyasina toplayip burada dosya paylasiliyor ya o sekilde demistim.
|
|
14.05.2013 20:46
kerem1453
|
|
ehya zaten senin için excel dosyası gibi hazırla diye bi ibare kullanmadım herkes kendi indirdigi lispleri ne işe yaradıgına dair kendi için liste hazırlayabilir demiştim yanlış anlaşılma var gibi...
|
|
16.05.2013 06:27
2032223351
|
|
birden cok line lerin kesisim noktalarina nasil nokta attiririz ?
|
|
16.05.2013 06:44
CAN123
|
|
Merhaba,
Attribute içerisinde bir başlık (tag) altında olan textlerin with factor'ünü değiştirmek istiyorum. Bunun bir yöntemi varmıdır? ya da bunu yapacak bir lispe ihtiyacım var.
teşekkurler
|
|
16.05.2013 06:54
Travaci
|
|
Aynı attribut blocktan birden fazla varsa block editore girip istediğiniz değişikliği uygulayın, daha sonra attsync komutununu girip select daha sonra attribute block unuzu seçip çıkan soruya yes diyin. Bunlar sadece attribut ise zaten hepsini seçip propertiesten değiştirebilirsiniz.
|
|
16.05.2013 08:08
CAN123
|
|
Cevabınız için tesekkurler, ancak blockeditor e girince BLOCKEDITOR = 0 (read only) uyarısı geliyor.
|
|
16.05.2013 08:12
waytooraider
|
|
Merhabalar
900x500-2600 l/s
Excelce Data valitadionla yukarıdaki yazıyı - den sonrası için iki hücreye ayırabiliyoruz. Autocad textlerinde -'den sonra ayrılacak yada -den sonra olan yazılar silecek hazırda bir isp yada komut varmı.
Saygılarımla.
|
|
16.05.2013 08:46
Travaci
|
Kod:
(defun c:cTt (/)
(command "_undo" "_group")
(setq B (ssget '((0 . "*Text")))
N (sslength B) L 0)
(while (< L n)
(setq eleman (entget (ssname B L))
mdp (cdr (assoc 1 eleman))
yazi (substr mdp 1 (vl-string-search "-" mdp))
eleman (subst (cons 1 yazi ) (assoc 1 eleman) eleman))
(entmod eleman)
(setq L (+ L 1))
)
(command "_undo" "_e") (princ)
)
|
|
16.05.2013 09:20
waytooraider
|
|
Çok Teşekkürler.
|
kerem1453
|
|
sayın taravacı bu lisp te - işaretinden sonrasını bölmesin istesek yazıyı parçalasa sadece ne gibi değişiklik yapmak gerekir.
|
Sonraki Sayfa
