* E Posta Adresiniz:
* Kodu Girin:

İleti Yazar
09.02.2015 15:40
80392    
volkan_25

[2] Girişimci

Online Durumu

23 ileti
tekniker
ANKARA

elinize sağlık dim lineardan dim continue geçip devam ederse çok süper olacak iki komutu bir lispte birleştirmek mükünmudür

09.02.2015 23:43
80396    
alumina

[70] Editör

Online Durumu

683 ileti
Insaat Muhendisi
Istanbul

Alıntı
ehya :
Bu da benden olsun.
Farklı bir yoldan yazdım. Belki birisine lazım olur

Kod:

(defun c:tll ()
(setq cl (getvar "clayer"))
  (while (= (getvar "cmdactive") 0)
    (setvar "clayer" "a1")
    (command "dimlinear")
    )
  (setvar "clayer" cl)
  (princ))





Sen her zaman yaz. Mutlaka lazım olur

10.02.2015 15:16
80404    
volkan_25

[2] Girişimci

Online Durumu

23 ileti
tekniker
ANKARA

(defun c:11 (/ pl)
(setq oldcly (getvar "clayer"))
(command "_.LAYER" "_Thaw" "ol" "")
(command "_.LAYER" "_on" "ol" "")
(setvar "clayer" "ol")
(command "__dimlinear" "\" "\" "\")
(command "_dimcontinue")
(while (> (getvar "CMDACTIVE") 0)
(command pause)
)
(setvar "clayer" oldcly)
(princ)
)

çözdüm sonunda güzel oldu

16.02.2015 09:28
80488    
k005

[10] Üstad

Online Durumu

638 ileti
İnşaat Teknikeri
Düzce

Alıntı
alumina :
Kod:

(defun c:ph (/ ls)
(defun *error* (er) (setq *error* nil)) (setvar "cmdecho" 0)
(setq pt (getpoint))
(while
(/= pt nil)
(setq ls (cons pt ls) pt (getpoint)))
(vl-cmdf "._pline")
(foreach ls1 ls
(vl-cmdf ls1))
(command "close"
         "._hatch" "solid" (entlast) "")
(princ))




Şimdi deneme fırsatı buldum. Tamamdır.. Çok teşekkür ediyorum.

24.02.2015 20:04
80614    
cideli82

[2] Girişimci

Online Durumu

2 ileti
elektrik teknisyeni
kastamonu-cide

merhabalar,
autocad ile elektrik projesi çiziminde kullanılan hesaplama, tablo oluşturma tek hat şeması çizmek için lisp varmı acaba? yardımcı olabilir misiniz?

25.02.2015 14:42
80623    
k005

[10] Üstad

Online Durumu

638 ileti
İnşaat Teknikeri
Düzce

Merhaba Arkadaşlar;

Y değerini diğer text objelere atama yapan bir lisp gerekiyor.. örnek dosyada detaylı anlatım mevcuttur.



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



Yardımcı arkadaşa şimdiden teşekkürler. Herkese Kolay gelsin.

25.02.2015 15:13
80624    
ehya

[90] Yönetici

Online Durumu

3280 ileti
Teknik Ressam
Ankara

k005




hatalı ve doğru dediğin textler arasındaki tek fark renk farkı.
Diğer farkı göremedim.!!!

25.02.2015 15:24
80625    
k005

[10] Üstad

Online Durumu

638 ileti
İnşaat Teknikeri
Düzce

ehya

Hocam Y değerlerinde küçük farklar var.. 1 2 3 4 5 sayılarındaki Y değerleri diğerlerinde de aynı olacak. Noktadan sonraki kısmlarda...


Mesela ;

Hatalı kısmdaki;

1 sayısnın Y değeri : 293.8640328764875 <- budur.

16 : 293.8803186882201

1050: 293.8803186882201

81 : 293.8803186882201

bunlar tesadüfen aynı. (16 1050 ve 81 ) ama 1 değerini almaları gerekiyor..

25.02.2015 15:30
80628    
ehya

[90] Yönetici

Online Durumu

3280 ileti
Teknik Ressam
Ankara

Yazdığın kodu gönder. Kontrol edip hatalı bölümü söylerim.

25.02.2015 16:04
80629    
k005

[10] Üstad

Online Durumu

638 ileti
İnşaat Teknikeri
Düzce

Bununla ilgili hazırladığım bir kod yok. Bu sebepten ötürü "Lisp İstekleri" bölümüne yazdım.

25.02.2015 16:19
80630    
ehya

[90] Yönetici

Online Durumu

3280 ileti
Teknik Ressam
Ankara

k005




Hatırladığım kadarıyla lisp yazmasını biliyorsun. kodu zor olmayan bir lisp için istekte bulunmanı anlamıyorum.
Neyse, vakti olan arkadşlardan birisi ilgilenecektir.!!!

25.02.2015 16:39
80632    
k005

[10] Üstad

Online Durumu

638 ileti
İnşaat Teknikeri
Düzce

Alıntı
ehya :

Teşekkürler hocam. Bundan sonra istekde bulunmasam iyi olacak sanırım..!!!!

25.02.2015 16:42
80633    
ehya

[90] Yönetici

Online Durumu

3280 ileti
Teknik Ressam
Ankara

k005




istekte bulunma diye söylemedim. Ama bildiğin bir konuda hazırı istemek ne kadar doğru..
tamam yetersiz olabilirsin. işte orada biz devreye girelim. hem öğren, hem başkaları da öğrensin.
bizde bir işe yarayalım. Yoksa istekleri "yaz yaz yaz" nereye kadar!...

25.02.2015 16:48
80634    
k005

[10] Üstad

Online Durumu

638 ileti
İnşaat Teknikeri
Düzce

Alıntı
ehya :

Şimdi bu "Lisp istekleri" bölümü sadece yeni öğrenenler için mi ? yani yazabilenler oraya istek yapamaz mı ? Yeterlilik bana göre değişir - Sana göre değişir.. sonuç : Y değerlerini eşitleyen bir lisp isteğinde bulunduk.. konu nerden nereye gidiyor.. diyorsunki ; "bildiğin konuda hazırı istemek.." Ben hiç bir zaman böyle düşünmedim.. Soruyu sordum.. Yazılır ne Ala.. yazılmazsa da sıkıntı yok..

28.02.2015 14:41
80687    
idrisg45

[2] Girişimci

Online Durumu

2 ileti
harita teknikeri
istanbul

autocad üzerinde Yol projesine ait enkesitlermimiz var.bu enkesitlerimizde bazı değerleri notpad formatında (netcadde kse formatı)çoklu seçim olarak almak istiyoruz.çizimim ektedir.eğer böyle bir şey mumkunse cok makbule geçicek.eminim buradaki bir cok harita mesleğindeki akadaşımıza da faydası olacaktır.

03.03.2015 15:05
80757    
geredeli77

[2] Girişimci

Online Durumu

2 ileti
İNŞAAT TEKNİKERİ
ankara

Sayın Hocalarım;

Döşeme donatılarında adet hesabı yapıp demirin üzerinde yazan örnek %%C10/25 önüne adedi yazacak bir lisp lazım yardımlarınız için teşekkürler.

06.03.2015 06:35
80780    
ozati

[2] Girişimci

Online Durumu

7 ileti
topgraf
rize

merhaba,
Ekrandaki kotlu çizgilerin uçlarına kotlu nokta atan lisp e ihtiyacım var.

06.03.2015 06:54
80781    
alumina

[70] Editör

Online Durumu

683 ileti
Insaat Muhendisi
Istanbul

Alıntı
ozati :
merhaba,
Ekrandaki kotlu çizgilerin uçlarına kotlu nokta atan lisp e ihtiyacım var.



Kotla ilgili sitede lispler mevcuttur.

06.03.2015 14:30
80785    
ozati

[2] Girişimci

Online Durumu

7 ileti
topgraf
rize

Merhaba,
sitede araştırdım bulamadım, autocad ekranında çizilen çizgilerin uçlarına çizginin başlangıç ve bitişindeki
uçlarına toplu halde seçilerek kotlu nokta (point) üretebilecek lisp lazım.

07.03.2015 07:40
80787    
ehya

[90] Yönetici

Online Durumu

3280 ileti
Teknik Ressam
Ankara

ozati



yanlış mı anladım.?
Seçeceğin "Line" nesnelerinin başına ve sonuna Point yapmak istiyorsun? Doğrumudur?

Önceki Sayfa [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] [35] [40] [45] [50] [55] [60] > 61 < [65] [70] [75] [80] [85] [90] [91] Sonraki Sayfa
Copyright © 2004-2019 | Tüm Hakları Saklıdır | 1765 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim