09.10.2014 12:55

78775    

yok bu kez olmadi. ben belirli bi text stringi degilde herhangi text stringi silmek istiyorum. Yani text objesinin basindan 20 karakteri ucurmak istiyorum, degistirmek degil. Yinede tesekkür ederim Seboli61

09.10.2014 15:00

78779    

Travaci lisple cözemedim excelde cözdüm napiyim. :-)
ilk 46 karaktersiz karakteri siliyorum sonra geri Autocade geliyorum.
=Right(Tabelle1!A1;Lang(Tabelle1!A1)-46)

13.10.2014 10:17

78804    

Lt sürümlerde lisp kullanamazsınız.

28.10.2014 15:04

78930    

Ehya, ProhibiT hocalarimiz ve diğer tum arkadaslarin dikkatine;
Istanbul'da alüminyum giydirme isi ile ilgilenen mimarim. Aluminyum giydirme konusunda profesyonel seviyede lisp kodlari yazıyorum. Sizden ricam asagida yazdigim lisp kodu ile ilgilidir. Ilgilenirseniz cok memnun olurum.

Kodun ozelligi;
Cizim ekraninda herhangi bir nesne secildiginde bu nesnenin ASSOC veri tabani kodlarini alt alta siralar.

Sorun;
Bu kod REGION ve 3DSOLID nesnelerde kullanildigi zaman ASSOC veri tabani kodlarini vermiyor.

Istek;
REGION ve 3DSOLID nesnelerin ASSOC veri tabani kodlarina nasil ulaşabilirim?

Sonuc;
Bu sorunu giderebilirseniz lisp konusunda inanilmaz seviyede onumu acmis olacaksiniz.

Simdiden cok tesekkur ederim.

(defun error(s)
(if
(equal s "Function cancelled")
(prompt "Program sonlandirildi.."))
(setvar "osmode" 4607)
(princ))

(defun c:rt()
(setq olderror *error*)
(setq *error* error)
(setvar "cmdecho" 0)
(setq nesne_secim (entsel "\nNesne seciniz:"))
(while
(null nesne_secim)
(setq nesne_secim (entsel "\nNesne seciniz:")))
(prompt (strcat "\n" "\n"))
(setq nesne_secim_data (entget (car nesne_secim)))
(repeat (length nesne_secim_data)
(princ (car nesne_secim_data))
(prompt (strcat "\n"))
(setq nesne_secim_data (cdr nesne_secim_data)))
(textscr)
(setq *error* olderror)
(princ))

28.10.2014 16:02

78935    

Dxf kodları ile 3dsolid ve region gibi nesnelerin veritabanlarına ulaşamazsınız. VisualLisp ile belirli bir seviyede bilgiye ulaşabilirsiniz.

29.10.2014 10:46

78939    

Ehya hocam;
REGION ve 3DSOLID icin bahsettiginiz VisualLisp kodunu paylasirmisiniz.

29.10.2014 22:40

78943    

alumina

---

---

Yok estağfurullah kimseden iyi yazdığım yok, sadece öğreniyorum. Profosyonel olan sizsiniz. Evet error trap fonksiyonunu başka fonksiyon için yazmış olabilirsiniz ama yukarudaki kod için neden böyle birşeye ihtiyaç olsun ? Ne hata alıcak bi durum var, ne osmode u değiştirmeye gerek nede kullanılmayan command için cmdecho yu kapamaya ; ) Txt dosyaları için 550 mgb gibi bir boyut ilginç doğrusu :dozingoff

31.10.2014 17:54

78982    

Arkadaslar;
Excel'in herhangi bir hücresinden veri okumasi yaptirdigimda eger hücre içerisinde formül varsa formulu okuyor. Ben formulu değil formulun sonucunu (yani formulun hesapladigi değeri) okumasini istiyorum. Bir yolu var mi?

06.01.2015 12:56

80033    

Herkese kolay gelsin.
Yaptığımız işte delik çaplarına uyumlu delik sembolleri atamaktayız. Atadığımız delik sembolleri o çapı temsil etmektedir ve delik sembolleri blok'ludur. Delik sembolünü seçip, referans noktasını belirleyip (genelde delik sembolünün merkezi oluyor). Sonra tüm Ø17.5 çaplı delikleri seçip. Delik sembolünün olması gereken yeri deliklerin ortasına merkezli kopyalayabilen bir lisp yazılabilirmi. Şimdiden ilgi ve alakanız için teşekkür ederim.
Ekteki delik çapı Ø17.5 gördüğünüz sembolde Ø17.5 çapı temsil etmektedir.

BLack|E (06.01.2015 13:23 GMT)

06.01.2015 15:11

80036    

Resimde silmemiş tim durumu göstermek için ama silinecek. Bir şey hatırlatmak isterim. Delik çapları sadece Ø17.5 kullanmıyoruz. Ø13.5, Ø15.5 Ø21.5, Ø23.5, Ø25.5 Ø32 vs. diye çeşitler artıyor. Bilginiz olsun.

BLack|E (06.01.2015 15:16 GMT)