AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Delik merkezlerine eksen atan lisp
02.04.2015 15:03    
cngzklc
Arkadaşlar merhaba,

Seçili olan yada seçeceğim deliklerin merkezine line olarak ve "artı işareti" şeklinde eksen atan bir lisp'e ihtiyacım var. Eksen uzunluğu deliğin dışına çıkacak şekilde (kullanıcı tarafından girilen değer ile belirlenebilir.) olacak.
Örneğin;
Seçili olan delik çapı: 20 mm
Girilecek eksen uzunluğu: 30 mm

Yardımcı olabilirseniz sevinirim.

02.04.2015 15:33    
alumina
forumu arastir 50 tane bulursun bu lispten :)

02.04.2015 15:35    
Travaci


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


Nede çirkin yazmışım :D

03.04.2015 07:04    
halilozcakir
bu iyiymiş çemberin dışına ne kadar taşacağını kendin belirliyorsun, pas payı dediği o ,ister değer gir ister çemberin dış çeperine tıklayıp dışarı ne kadar taşacak ise bunu da ayarlayabilirsin


Linkleri görebilmek için ÜYE olmalısınız.
09.04.2015 06:54    
cngzklc
Alumina, Travaci ve Halil Özçakır;
Yardımlarınız için çok teşekkür ederim.
Halil bey, yönlendirdiği kod işimi gördü. Çok sağolun.
Forma yazmadan önce aratmıştım fakat bulamadım. Arama kriterlerini yanlış yaptım sanırım.
İyi çalışmalar.

20.10.2017 07:42    
halilozcakir
Merhabalar ,
bu lispin çember değilde pline dan oluşmuş dörtgen köşeden köşeye atanı varmı acaba ,
statik deliklerin içine köşegen atacağım.

21.10.2017 14:29    
alumina
Alıntı
halilozcakir :

Secilen 4 kenarli polyline nesnelerin kosegenlerini cizer..
Kod:

(defun c:ld (/ dc ns n cr) (vl-load-com)
  (defun m1 (p1 p2 /) (entmake (list '(0 . "line") (cons 10 p1) (cons 11 p2))))
  (if (and (setq dc (vla-get-activedocument (vlax-get-acad-object))
        ns (ssget '((0 . "lwpolyline") (90 . 4)))))
    (progn (vla-startundomark dc)
      (repeat (setq n (sslength ns))
        (setq cr (mapcar 'cdr (vl-remove-if '(lambda(a) (/= (car a) 10)) (entget
          (ssname ns (setq n (1- n)))))))
        (m1 (nth 0 cr) (nth 2 cr)) (m1 (nth 1 cr) (nth 3 cr))) (vla-endundomark dc)
    )
  ) (prin1)
)
21.10.2017 14:39    
halilozcakir
Allah razı olsun . zaman dan tasarruf ettim sayende eline sağlık .

> 1 <
Copyright © 2004-2022 SQL: 1.049 saniye - Sorgu: 65 - Ortalama: 0.01615 saniye