AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Arc Çizgilerinin Start ve End Noktalarına Cirle Atma
28.06.2021 12:34    
aliigurer
Arc çizgilerinin start ve end noktalarına cirle atma yarayan bir lisp var mı yada yapılabilir mi yardımlarınıza ihtiyacım var
Şimdiden teşekkürler

28.06.2021 14:31    
alumina
Alıntı
aliigurer :

Kod:

(defun c:qw (/ dc ss rd)
            (vl-load-com)
  (if (and (setq dc (vla-get-ActiveDocument
             (vlax-get-acad-object))
          ss (ssget '((0 . "Arc"))))
        (setq rd (getdist "\nEnter the radius:")))
    (progn (vla-StartUndomark dc)
      (mapcar '(lambda(a) (mapcar '(lambda(b)
        (vlax-invoke (vla-get-ModelSpace dc)
          'AddCircle (vlax-get a b) rd))
            '(StartPoint EndPoint)))
        (mapcar 'vlax-ename->vla-object
          (vl-remove-if 'listp (mapcar 'cadr
            (ssnamex ss)))))
      (vla-EndUndomark dc)
    )
  ) (prin1)
)
10.01.2022 13:07    
mesuttasar
Sayın alumina hocamızın kodları visual lisp kodları sanıyorum, acemiler bölümünde sorduğum konu da tam olarak bununla ilgiliydi. Benim bilgim sadece aşağıdaki kodlara yetiyor. :D Ama kesinlikle vlisp komutlarını da öğrenmek istiyorum.
Hocam affınıza sığınarak aynı işlevi sağlayan kodu paylaşıyorum.

Kod:

(defun c:aby ()
  (setq yay (ssget '((0 . "Arc"))))
  (setq dgr (ssname yay 0))
  (setq rr (entget dgr))
  (setq yaricap (cdr (assoc 40 rr)))
  (setq merkez (cdr (assoc 10 rr)))
  (setq ac1 (cdr (assoc 50 rr)))
  (setq ac2 (cdr (assoc 51 rr)))
  (setq bb (getint "\nDaire için yaricap giriniz..:"))
  (setq m1 (polar merkez ac1 yaricap))
  (setq m2 (polar merkez ac2 yaricap))
  (command "_.circle" m1 bb "")
  (command "_.circle" m2 bb "")
  (princ)
)
18.01.2022 11:43    
recep_xyz
Autolisp konusunda sıkıntı yokta bu visual lisp kodlarıyla alakalı bilgilere nereden ulaşabiliriz. Şimdiden Teşekkürler.
Visual lisp ile obje başına ve sonuna ulaşabiliyoruz Visual Lisp ile Ara kırık noktalara da ulaşılabilir mi ? Yoksa bildiğimiz Auto Lisp imi kullanacağız (Bilgi Hazinedir.)

19.01.2022 06:28    
ehya
Merhaba recep_xyz

Ara kırık nokta dediğiniz polyline nesnesinin düğüm noktaları mı?
Eğer öyle ise, her iki kodlama yönteminde de bu noktalara ulaşılır. Ancak Activex ile ulaşılacak koordinatlar liste halinde olmadığı için düzenlenmesi gerekir.

> 1 <
Copyright © 2004-2022 SQL: 1.044 saniye - Sorgu: 55 - Ortalama: 0.01899 saniye