Z Yapı Mühendisi

🐊 uzunluk lispleri etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

Autocad de tıkladığın herhangi iki nokta arasındaki uzaklığı yazar.

AutoCAD iki nokta arasındaki uzunluğu yazan lisp

Autocad lisp kodlar

Lisp dosyasını oluşturmayı ve AutoCAD"e yüklemeyi bilmiyorsanız. Lispi bilgisayara kaydetmek ve AutoCAD"e yüklemek için AutoCAD lisp dosyasını kaydetme ve yükleme nasıl yapılır yazısını okuyun

AutoCAD iki nokta arasındaki uzunluğu yazan lisp resimli anlatım

- Komut satırına "UZUNLUK-IKI-NOKTA" yazın ve enter tuşuna basın

- yazi boyu istenecek, yazılacak yazının yüksekliğini belirleyin. 10 20 100 şeklinde bir sayı giriniz

- ben yazı boyunu 4 yazıp entera basıyorum

- ilk noktayı giriniz : ilk noktaya ekranda tıklayınız

- ikinci noktaya ekranda tıklayınız

- ikinci noktaya tıkladıktan sonra arasındaki mesafeyi üzerine yazar

AutoCAD iki nokta arasındaki uzunluğu yazan lisp daha fazla ara

👀 google

👀 yandex

👀 bing

👀 youtube

👀 facebook

👀 wikipedia

👀 google kitap

👀 google trends

👀 uzmantv

👀 twitter

👀 pinterest

👀 eksisozluk

AutoCAD iki nokta arasındaki uzunluğu yazan lisp ilgili benzer konular

👀 autocad uzunluk ölçme komutu

👀 autocad seçilen çizgilerin toplam uzunluğu

👀 autocad çizgi uzunluğu gösterme

👀 autocad kot verme

👀 autocad spline uzunluğu ölçme kısayol

👀 autocad uzunluk yazma

👀 harocad lisp

AutoCAD iki nokta arasındaki uzunluğu yazan lisp - Metraj Lispi

Hiç yorum yok:
3 Mart 2021 Çarşamba

🐄 Metraj Lispi 🐊 uzunluk lispleri lisp

Bir kaç çizginin uzunluklarını toplayarak toplam uzunluğunu verir.

Autocad lisp kodlar

(defun c:UZUNLUK-METRAJ ()
  (setvar "modemacro" "zyapimuhendisi.blogspot.com")
  (vl-load-com)
  (setq secim (ssget '((-4 . "<OR")
       (0 . "LINE")
       (0 . "LWPOLYLINE")
       (0 . "ARC")
       (0 . "ELLIPSE")
       (0 . "SPLINE")
       (0 . "CIRCLE")
       (-4 . "OR>")
      )
      )
  )
  (if (= secim nil)
    (progn
    )
    (progn
      (setq sayim (sslength secim))
      (setq toplami 0
    c 0
      )
      (while (< c sayim)
(setq teksecim (ssname secim c))
(setq tanimi (cdr (assoc 0 (entget teksecim))))
(if (= tanimi "ARC")
  (progn
    (setq data (vlax-ename->vla-object teksecim))
    (setq uz-bul (vla-get-arclength data))
    (setq toplami (+ toplami uz-bul))
  ))
(if (or (= tanimi "LINE")(= tanimi "LWPOLYLINE")(= tanimi "POLYLINE"))
  (progn
    (setq data (vlax-ename->vla-object teksecim))
    (setq uz-bul (vla-get-length data))
    (setq toplami (+ toplami uz-bul))
  )
)
(if (= tanimi "CIRCLE")
  (progn
    (setq data (vlax-ename->vla-object teksecim))
    (setq uz-bul (vla-get-circumference data))
    (setq toplami (+ toplami uz-bul))))
(if (or (= tanimi "ELLIPSE")(= tanimi "SPLINE"))
  (progn
    (command "._area" "e" teksecim)
    (setq uz-bul (getvar "perimeter"))
    (setq toplami (+ toplami uz-bul))))
(setq c (+ c 1))
      )
      (alert (strcat "\nToplam Uzunluk : " (rtos toplami 2 3)))
    )
  )
  (princ)
)

Autocad lisp çalıştırma

Kumanda satırına UZUNLUK-METRAJ yazın ve enter tuşuna basın
Metrajını almak istediğiniz çizgilere ekranda tıklayın veya toplu seçin
Line ve polyline hepsini seçiyorum
Enter tuşuna basın.
Kaç şekil seçildiği kumanda satırında yazar
Toplam uzunluk açılan pencerede yazar

AutoCAD çizgileri toplayan lips - Metraj Lispi

Hiç yorum yok:
2 Mart 2021 Salı

🐄 Metraj Lispi 🐊 uzunluk lispleri lisp

Lispin amacı

line uzunluklarını ölçer
polyline çizgilerin uzunluklarını ölçer
spline çizgi uzunluklarını ölçer
circle daire çevresini ölçer
arc (yay) cevre uzunluğunu ölçer
uzunluk değeri olan nesnelerin uzunluğunu ölçer.

Autocad lisp kodlar

(defun dxf (n ed) (cdr (assoc n ed)))

(defun bom-code (ssfilter        /       errexit undox   restore
                 *error* olderr  oldcmdecho      %l      %t
                 sset    %i      en      ed      p1      p2
                 ot      a1      a2      r
                )
  (defun errexit (s)
    (princ)
    (restore)
  )

(defun undox ()
    (if command-s
      (command-s "._undo" "_E")
      (command "._undo" "_E")
    )
    (setvar "cmdecho" oldcmdecho)
    (setq *error* olderr)
    (princ)
  )

(setq olderr  *error*
        restore undox
        *error* errexit
  )
  (setq oldcmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (if command-s
    (command-s "._UNDO" "_BE")
    (command "._UNDO" "_BE")
  )
  (setq %i 0
        %t 0
  )
  (vl-load-com)
  (setq sset (ssget ssfilter))
  (if sset
    (progn
      (princ "\nLengths:")
      (repeat (sslength sset)
        (setq en (ssname sset %i))
        (setq ed (entget en))
        (setq ot (dxf 0 ed))
        (setq curve (vlax-ename->vla-object en))
        (if (vl-catch-all-error-p
              (setq len (vl-catch-all-apply
                          'vlax-curve-getDistAtParam
                          (list curve
                                (vl-catch-all-apply
                                  'vlax-curve-getEndParam
                                  (list curve)
                                )
                          )
                        )
              )
            )
          nil
          len
        )
        (setq %l len)

(setq %i (1+ %i)
              %t (+ %l %t)
        )
        (terpri)
                                        ;(princ %l )
        (princ (rtos %l (getvar "lunits") (getvar "luprec")))
      )
      (princ "\nTotal = ")
                                        ;(princ %t)
      (princ (rtos %t (getvar "lunits") (getvar "luprec")))
      (textpage)
    )
  )
  (setq sset nil)
  (restore)
)

(defun bom-code-old (ssfilter        /       errexit undox   restore
                     *error* olderr  oldcmdecho      %l      %t
                     sset    %i      en      ed      p1      p2
                     ot      a1      a2      r
                    )
  (defun errexit (s)
    (princ)
    (restore)
  )

(defun undox ()
    (if command-s
      (command-s "._undo" "_E")
      (command "._undo" "_E")
    )
    (setvar "cmdecho" oldcmdecho)
    (setq *error* olderr)
    (princ)
  )

(setq olderr  *error*
        restore undox
        *error* errexit
  )
  (setq oldcmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (if command-s
    (command-s "._UNDO" "_BE")
    (command "._UNDO" "_BE")
  )
  (setq %i 0
        %t 0
  )
  (setq sset (ssget ssfilter))
  (if sset
    (progn
      (princ "\nLengths:")
      (repeat (sslength sset)
        (setq en (ssname sset %i))
        (setq ed (entget en))
        (setq ot (dxf 0 ed))
        (cond
          ((= ot "LINE")
           (setq p1 (dxf 10 ed)
                 p2 (dxf 11 ed)
                 %l (distance p1 p2)
           )
          )
          ((= ot "ARC")
           (setq a1 (dxf 50 ed)
                 a2 (dxf 51 ed)
                 r  (dxf 40 ed)
                 %l (* r (abs (- a2 a1)))
           )
          )
          (t
           (command "._area" "_obj" en)
           (setq %l (getvar "perimeter"))

)
        )
        (setq %i (1+ %i)
              %t (+ %l %t)
        )
        (terpri)
        (princ %l)
      )
      (princ "\nTotal = ")
      (princ %t)
      (textpage)
    )
  )
  (setq sset nil)
  (restore)
)

(defun c:UZUNLUK-PEN ()
  (initget "Lines Circles Arcs Ellipses Polylines Splines ALL"
  )
  (setq ans
         (getkword
           "Enter an option [Lines/Circles/Arcs/Ellipses/Polylines/Splines] : "
         )
  )
  (cond
    ((= ans "Lines") (c:bom_lines))
    ((= ans "Circles") (c:bom_circles))
    ((= ans "Arcs") (c:bom_arcs))
    ((= ans "Ellipses") (c:bom_ellipses))
    ((= ans "Polylines") (c:bom_polylines))
    ((= ans "Splines") (c:bom_splines))
    (t
     (bom-code '((-4 . "<OR")
                 (0 . "LINE")
                 (0 . "CIRCLE")
                 (0 . "ARC")
                 (0 . "ELLIPSE")
                 (0 . "POLYLINE")
                 (0 . "LWPOLYLINE")
                 (0 . "SPLINE")
                 (-4 . "OR>")
                )
     )
    )
  )
  (princ)
)

(defun c:UZUNLUK-PEN-LINES ()
  (bom-code '((0 . "LINE")))
  (princ)
)

(defun c:UZUNLUK-PEN-CIRCLES ()
  (bom-code '((0 . "CIRCLE")))
  (princ)
)

(defun c:UZUNLUK-PEN-ARCS ()
  (bom-code '((0 . "ARC")))
  (princ)
)

(defun c:UZUNLUK-PEN-ELLIPSE ()
  (bom-code '((0 . "ELLIPSE")))
  (princ)
)

(defun c:UZUNLUK-PEN-POLYLINE ()
  (bom-code '((-4 . "<OR")
              (0 . "POLYLINE")
              (0 . "LWPOLYLINE")
              (-4 . "OR>")
             )
  )
  (princ)
)

(defun c:UZUNLUK-PEN-SPLINE ()
  (bom-code '((0 . "SPLINE")))
  (princ)
)

(princ)

Autocad lisp çalıştırma

Komut satırına "UZUNLUK-PEN" yazın ve enterlayın

alternatif olarakUZUNLUK-PEN komutu yerine
UZUNLUK-PEN-SPLINE
UZUNLUK-PEN-POLYLINE
UZUNLUK-PEN-ARCS
UZUNLUK-PEN-CIRCLES
UZUNLUK-PEN-ELLIPSE.
Neyin uzunluğunu ölçmek istiyorsanız ona göre komut girin

Enter an option : Burada birşey yazmadan enter tuşuna basın

Lines çizgi ölçmek istiyorsanız line seçin
Circles - Daire çevresini ölçecekseniz bunu seçin
Arcs - Yay uzunluğunu ölçecekseniz bunu seçin
Ellipses - Elips uzunluğunu ölçmek için bunu secin
Polylines : çoklu çizgi uzunluğu ölçmek içöin bunu secin
Splines - s line uzunluğunu ölçmek için bunu seçin

Select object : uzunluğunu ölçmek sitediğiniz çizgiyi tıklayın. Örnekte line ve polyline tıklıyoruz. Enter tuşuna bas.

AutoCAD yazı penceresi açılacak
Lengths : altında 45,68 yazıyor o ilk tıkladığım line uzunluğu
Onun altında 98,07 yazıyor oda 2. tıkladığım polyline uzunluğu
3. olarak ikisinin toplam uzunluğunu veriyor.

AutoCAD uzunlukları pencerede gösterme lispi - Metraj Lispi

Hiç yorum yok:
24 Şubat 2021 Çarşamba

🐄 Metraj Lispi 🐊 uzunluk lispleri lisp

Tekli çizgileri tıklandığında, çizgi uzunluğunu üzeine yazan lisp. Bu lisp sadece line iel çizilen çizgilerde kullanılabilir. Polyline yani çoklu çizgilerde kullanılamaz.

Autocad lisp kodlar

(defun c:UZUNLUK-YAZ-LINE-UZERİNE ()
(setq uy_os (getvar "osmode"))
(setq uy_sec nil)
(setq uy_sec (ssget (list (cons 0 "LINE"))))
(if (= uy_sec nil)
(progn
(princ "
Nesne seçimi yok. Komut bitirildi..."))
(progn

(if (= uy_yaz_yuk nil)(setq uy_yaz_yuk 12))
(initget 2)
(setq uy_yaz_y (getdist (strcat "
Yazılacak yazının Yüksekliği:<" (rtos uy_yaz_yuk) ">:")))
(if (= uy_yaz_y nil)(setq uy_yaz_y uy_yaz_yuk))
(setq uy_yaz_yuk uy_yaz_y)
(setq uy_c 0)
(setq uy_say (sslength uy_sec))
(while (< uy_c uy_say)
(setq uy_sec_tek (ssname uy_sec uy_c))
(setq uy_sec_tek_10 (cdr (assoc 10 (entget uy_sec_tek)))
uy_sec_tek_11 (cdr (assoc 11 (entget uy_sec_tek))))
(setq uy_sec_tek_mes (distance uy_sec_tek_10 uy_sec_tek_11))
(setq uy_sec_tek_10_x (car uy_sec_tek_10)
uy_sec_tek_10_y (cadr uy_sec_tek_10)
uy_sec_tek_11_x (car uy_sec_tek_11)
uy_sec_tek_11_y (cadr uy_sec_tek_11))
(setq uy_yaz_x (/ (+ uy_sec_tek_10_x uy_sec_tek_11_x) 2.00)
uy_yaz_y (/ (+ uy_sec_tek_10_y uy_sec_tek_11_y) 2.00)
uy_yaz (list uy_yaz_x uy_yaz_y))
(if (< uy_sec_tek_10_x uy_sec_tek_11_x)
(progn
(setq uy_sec_aci_bas uy_sec_tek_10)
(setq uy_sec_aci_son uy_sec_tek_11)
)
(progn
(setq uy_sec_aci_bas uy_sec_tek_11)
(setq uy_sec_aci_son uy_sec_tek_10)))
(setq uy_sec_tek_aci (angle uy_sec_aci_bas uy_sec_aci_son))
(command "style" "cizgiyazi" "" "" "" "" "" "" "")
(command "osnap" "node")
(command "text" "j" "bc" uy_yaz uy_yaz_yuk (angtos uy_sec_tek_aci) (rtos uy_sec_tek_mes))
(setq uy_c (+ uy_c 1))
)))(setvar "osmode" uy_os)(princ))
(princ "
Komutu çalıştırmak için [UY] yazın")(princ)

Autocad lisp çalıştırma

Komut satırına "UZUNLUK-YAZ-LINE-UZERİNE" yazın ve enterlayın

Select object : üzerine uzunluk yazmak istediğiniz çizgiyi seçin ve enter

Yazılacak yazının yüksekliği çıkacak

Ekranda iki nokta ya tıklayarak yazının yüksekliğini tıkladığınız 2 nokta arasındaki, mesafe kadar alınır
komut satırına doğrudan değer yazarak yazının yüksekliğini belirleyebilirsiniz.