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.

16.05.2013 12:17    

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.

Önceki Sayfa [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] [35] > 39 < [40] [45] [50] [55] [60] [65] [70] [75] [80] [85] [90] [95] [100] Sonraki Sayfa
Copyright © 2004-2022 SQL: 1.605 saniye - Sorgu: 104 - Ortalama: 0.01543 saniye