* E Posta Adresiniz:
* Kodu Girin:

> 1 <
İleti Yazar
13.02.2018 18:16
86042    
alper0629

[2] Girişimci

Online Durumu

23 ileti
Köprü ve Sanat Yapıları Teknik Ressamı
ankara

Merhaba,

Şöle bi lispe ihtiyacım var aslında 4 işlem gibi ama araştırıdım biraz çözemedim bu lisp olayını. Tıkladığım çizginin toplam uzunluğunu 0.2 bölüp, tamsayıya yuvarlarsın istiyorum yuvarlama işlemi olmasada olur bide bu işlemleri fonksiyonları tam olarak nerden buluyosunuz kendimde bişeler çıkarmak istiryorum.

Teşekkür Ederim Şimdiden.

13.02.2018 19:05
86043    
alumina

[70] Editör

Online Durumu

612 ileti
Insaat Muhendisi
Istanbul

Alıntı
alper0629 :


Kod:

(defun c:ld (/ d) (vl-load-com)
  (if (ssget ":s" '((0 . "line")))
    (alert (strcat "Distance: " (rtos (if (zerop (- (setq d
      (atof (rtos (/ (vla-get-Length (vlax-ename->vla-object
        (ssname (ssget "_P") 0))) 0.2) 2))) (fix d)))
          d (1+ (fix d))) 2 0)))
  ) (princ)
)


http://cizimokulu.com/datas/users/333661-vl-vlax-codes.pdf

13.02.2018 19:08
86044    
ehya

[90] Yönetici

Online Durumu

3192 ileti
Teknik Ressam
Ankara

isteğiniz basit bir işlem de, sorunuzu anlamadım.!

"bu işlemleri fonksiyonları tam olarak nerden buluyosunuz "

lisp mi öğrenmek istiyorsunuz?


Kod:

(defun c:ciz () (vl-load-com)
(if (setq ent (car (entsel "\nÇizgiyi seç:")))
    (progn
        (setq data (vlax-ename->vla-object ent)
              uzun (vla-get-length data)
              bol (/ uzun 0.20)
              sonuc (rtos bol 2 2))
        (princ (strcat "\nBölüm sonucu  : " sonuc ))))(princ))     

13.02.2018 20:09
86045    
alper0629

[2] Girişimci

Online Durumu

23 ileti
Köprü ve Sanat Yapıları Teknik Ressamı
ankara

teşekkür ederim valla çk yardımlarınız oluyor lisp istediğim gibi sağolun.

Lispte öğrenmek istiyorum ama döküman olarak nerden başlamalıyım onu bulamadım.

13.02.2018 20:50
86046    
Travaci

[70] Editör

Online Durumu

2086 ileti
Teknik Ressam
Konstantinopol

Buradan başlıyabilirsin.



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

> 1 <
Copyright © 2004-2018 | Tüm Hakları Saklıdır | 2792 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam