14.06.2009 15:16    

sinanc
Alıntı
spy178 :
arkadaslar bana sectigim textteki degerden istedigim sayiyi cikaracak lisp lazim
ornegin her tikladigim sayidan -20 cikaricak ve eski sayinin yerine onu yazicak



işini görür inşallah toprağam uur8)



Linkleri görebilmek için ÜYE olmalısınız.

14.07.2009 09:50    

bud_0782
merhaba

seçtiğim bir nesneyi, seçtiğim aralıklarla,seçtiğim baz noktasına göre bir hat boyunca (pline,cırle vb) kopyalayabilecek bir lisp yazılabilir mi? betonarme projelerde demir gösterimleri çok uğraştırıyor

yardımcı olabilecek arkadaş var mı?

14.07.2009 09:57    

ehya
Bu istemiş olduğunuz komut autocad içinde zaten mevcut. Kopyalamak istediğiniz nesneleri blok haline getirin. "Measuse" veya "Divide" komutlarını kullanırken "Block" alt komutunu kullanarak istediğiniz gibi dizebilirsiniz.

15.07.2009 08:16    

bud_0782
 

teşekkür ederim ehya...bu alt komutu kullanmamıştım.sorunumu büyük ölçüde çözdü.ancak yine de müdahale gerektiriyor.measure ile uygulama yaptığımda üstteki resim gibi dizilim yapıyor.oysa ben alttaki gibi yuvarlak kenarlarının hatta değecek şekilde sıralanmasını istiyorum.tabi bu da her kırıklıktan sonra baz noktasının değişmesi demek...

bunun bir yolu var mı, yoksa çok mu detaya girer?:dozingoff

15.07.2009 09:16    

ehya
Bloklamış olduğun dairenin blok referans noktası olarak üst quadrant noktasını gösterirsen, istemiş olduğun dizilimi elde edersin. Dikkat edilecek husus, bu komutları kullanırken Align block with object? [Yes/No] <Y>: mesajına YES demelisin.

15.07.2009 12:07    

bud_0782
:yesteşekkür ederim işe yaradı :yes

08.09.2009 16:15    

ertu33
ARKADAŞLAR BANA AUTOCAD 2007 DE NOKTALARI ÜÇGENLİYECEK VE ARAYA NOKTA ATTIGIMDA KOTLU OLMASINI İSTEDİĞİM BİR LISP VARMI

23.09.2009 13:18    

ec
Selamlar;

Bende mevcut olan bir lisp var. Ehya tarafından daha önceden düzenlenmişti.
Layer larla ilgili bir lisp. Lisp içindeki listede belirtilen layer lar hariç diğer layer ları kilitliyor.
Bu lisp in farklı versiyonları da mevcut. Ama hepsindeki listeler belirli layer larla çalışıldığında işe yarıyor.
Bu layerların ortak özelliği isimlerinin başında "00-" olması.
Şu anki çalışma ortamında çok çeşitli layer isimleri kullanılıyor ve bunları standart hale getirmek zaman alacak.
Bu lispte revizyon yaparak, layer isimlerinin başında "00-" olan layerları seçtirebilirmiyiz.
Lisp kodunu aşağıda veriyorum.
İlgilenen arkadaşlara şimdiden teşekkürler.


(defun c:k ()
(setq ec_lay_list "00-04,00-05,00-06,00-24V,00-AYD,00-CAG,00-CCTV,00-YAN")
(command "layer" "lock" "*" "")
(command "layer" "unlock" ec_lay_list "")
(princ))

23.09.2009 13:57    

ehya
Kod:

(defun c:kk ()
(command "layer" "lock" "*" "")
(command "layer" "unlock" "00-*" "" )
(princ))

23.09.2009 19:42    

trkgo
Arkadaşlar Benım,

elk1-...
elk2-...
elk3-...
.......
.......
gıbı layerlerım var.

projede çalışırken bu layerlerı kapatmam gerekıyorbazen,bu ışlemın ksayolu olabılırmı?

24.09.2009 06:51    

ehya
Alıntı
trkgo :
Arkadaşlar Benım,

elk1-...
elk2-...
elk3-...
.......
.......
gıbı layerlerım var.

projede çalışırken bu layerlerı kapatmam gerekıyorbazen,bu ışlemın ksayolu olabılırmı?




Kod:

(defun c:trg ()
(command "layer" "freeze" "elk*" "")
(princ))

24.09.2009 09:17    

ec
Teşekkürler eyha.

24.09.2009 10:10    

trkgo
Alıntı
ehya :
Alıntı
trkgo :
Arkadaşlar Benım,

elk1-...
elk2-...
elk3-...
.......
.......
gıbı layerlerım var.

projede çalışırken bu layerlerı kapatmam gerekıyorbazen,bu ışlemın ksayolu olabılırmı?




Kod:

(defun c:trg ()
(command "layer" "freeze" "elk*" "")
(princ))




Abı çok saolun,
elk- layer kapa
elk-layer aç
elk-layer kılıtle
elk-layer kılıt aç
yukarıdakı komutların hepsı tek bı dosyada yapılabılırmı?

Bıde geçende sormuştumya lsp dosyasını .fas'a çevırmeyı onu yıne yapamadım.
ekrana wızard mode ekranı çıkıyor,sımple seçeneğı seçılı
next dıyorum,klasör yolunu seçıyorum,dosa adını yazmaya başladığımda .vlx oluyor uzantı

trkgo (24.09.2009 12:05 GMT)

24.09.2009 12:21    

ehya
aynı şekilde yapılır. command satırında bulunan "freeze" seçeneğini diğer seçeneklere göre değiştirip uygulayabilirsiniz.


elbette vlx çıkacak :)
sorun değil.. dosya adından bir kopya şekilde vlx olsun sorun değil. sen devam et işlemi. gösterdiğin klasörde o lisp dosyası fas olacaktır.

24.09.2009 15:12    

sahindemir
(defun c:23p (/ data i pt)
(setq
data (entget (setq sil (car (entsel "
Lwpolyline'ı seçiniz:"))))
)
(setq data_tan (cdr (assoc 0 data)))
(if (/= data_tan "LWPOLYLINE")
(progn (princ "
Seçilen nesne Lwpolyline değil..."))
(progn
(command "3dpoly")
(while (setq pt (assoc 10 data))
(setq data (cdr (member pt data)))
(setq pt_x (cadr pt)
pt_y (caddr pt)
)
(setq ptt (list pt_x pt_y 0.00))
(command ptt)
)

(command "")
(entdel sil)
)
)
(princ)
)(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")

merabalar forumda 2d polyline ı 3d polyline ceviren yukarıdaki lispi buldum ama lisp calisirken secilen cizgilerin elevation degerlerini sıfır yapıyor benim istedigim elevation degerlerini degistirmeden 3d polyline yapmasi bunu yapabilecek bi arkadas varmıdır forumda yardımlarınız icin simdiden sagolun

24.09.2009 15:54    

ehya
Kod:

(defun c:23p (/ data i pt)
(setq data (entget
     (setq sil (car (entsel "Lwpolyline'ı seçiniz:")))))
(setq data_tan (cdr (assoc 0 data)))
(if (/= data_tan "LWPOLYLINE")
(progn (princ " Seçilen nesne Lwpolyline değil..."))
(progn
    (setq ddata data)
(command "3dpoly")
(while (setq pt (assoc 10 data))
  (setq pt_z (cdr (assoc 38 ddata)))
(setq data (cdr (member pt data)))
(setq pt_x (cadr pt)
pt_y (caddr pt))
(setq ptt (list pt_x pt_y pt_z))
(command ptt)
)
(command "")
(entdel sil)
)
)
(princ)
)
(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")

24.09.2009 18:17    

sahindemir
cok sagolun emeginiz icin

09.10.2009 16:00    

didim
mrb

auotocad yeni başlayan birisi olarak benim şu an aradığım lisp belki autocad komutuda olabilir

çizdiğim line ile temas eden diğer line ları veya nesneleri silen komut veya lisp var mı?

şimdiden tşk

09.10.2009 16:52    

SENDUR
 

resimdeki tabloyu yapacak bi lisp yazabilecek arkadaş varmı?

10.10.2009 21:07    

Liman
Aşağıdaki lispi ölçeğe göre uyarlayacak biri varmı:
yani verilen çizgileri ölçeğe göre ölçülendirebilecek şekilde ayarlayabilcek varmı:

(defun c:uy ()
(setq uy_os (getvar "osmode"))
(setq uy_sec nil)
(setq uy_sec (ssget (list (cons 0 "LINE"))))
(if (= uy_sec nil)
(progn
(princ "
Nesne seçimi yok. Komut bitirildi..."))
(progn

(if (= uy_yaz_yuk nil)(setq uy_yaz_yuk 12))
(initget 2)
(setq uy_yaz_y (getdist (strcat "
Yazılacak yazının Yüksekliği:<" (rtos uy_yaz_yuk) ">:")))
(if (= uy_yaz_y nil)(setq uy_yaz_y uy_yaz_yuk))
(setq uy_yaz_yuk uy_yaz_y)
(setq uy_c 0)
(setq uy_say (sslength uy_sec))
(while (< uy_c uy_say)
(setq uy_sec_tek (ssname uy_sec uy_c))
(setq uy_sec_tek_10 (cdr (assoc 10 (entget uy_sec_tek)))
uy_sec_tek_11 (cdr (assoc 11 (entget uy_sec_tek))))
(setq uy_sec_tek_mes (distance uy_sec_tek_10 uy_sec_tek_11))
(setq uy_sec_tek_10_x (car uy_sec_tek_10)
uy_sec_tek_10_y (cadr uy_sec_tek_10)
uy_sec_tek_11_x (car uy_sec_tek_11)
uy_sec_tek_11_y (cadr uy_sec_tek_11))
(setq uy_yaz_x (/ (+ uy_sec_tek_10_x uy_sec_tek_11_x) 2.00)
uy_yaz_y (/ (+ uy_sec_tek_10_y uy_sec_tek_11_y) 2.00)
uy_yaz (list uy_yaz_x uy_yaz_y))
(if (< uy_sec_tek_10_x uy_sec_tek_11_x)
(progn
(setq uy_sec_aci_bas uy_sec_tek_10)
(setq uy_sec_aci_son uy_sec_tek_11)
)
(progn
(setq uy_sec_aci_bas uy_sec_tek_11)
(setq uy_sec_aci_son uy_sec_tek_10)))
(setq uy_sec_tek_aci (angle uy_sec_aci_bas uy_sec_aci_son))
(command "style" "cizgiyazi" "" "" "" "" "" "" "")
(command "osnap" "node")
(command "text" "j" "bc" uy_yaz uy_yaz_yuk (angtos uy_sec_tek_aci) (rtos uy_sec_tek_mes))
(setq uy_c (+ uy_c 1))
)))(setvar "osmode" uy_os)(princ))
(princ "
Komutu çalıştırmak için [UY] yazın")(princ)

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