Z Yapı Mühendisi

🐄 Metraj Lispi etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

Autocad yazılarını yatay ve düşey olarak hizalamayı sağlar.

dtext ile yazılan yazıları sıralar
mtext ile yazılmış yazıları sıralamaz

Autocad lisp kodlar

;;;Seçilen text'leri yatay-düşey olarak aynı hizaya getirir.
;;;İlk seçilen text  referans olarak alınır.

(defun c:YAZI-HIZALA ( / obje n i hizanok10 yazinok10 hizanok11 yazinok11 ename elist yon)
(princ "\nHizalanacak Yazıları Seçiniz :")
     (setq obje (ssget '((0 . "TEXT"))))
  (if obje
    (progn
     (setq n (sslength obje))
     (setq i 0
               hizanok10 (cdr (assoc 10 (entget (ssname obje 0))))
               hizanok11 (cdr (assoc 11 (entget (ssname obje 0))))
     )
     (initget "X Y")
     (setq yon (getkword "Hizalama Yönü ( X / Y )  <Y> ?"))
     (command "undo" "begin")
     (repeat n
            (setq ename (ssname obje i)
                          elist (entget ename)
                yazinok10 (cdr (assoc 10 elist))
                yazinok11 (cdr (assoc 11 elist))
            )
            (if yon
                 (progn
                       (setq hizanok10 (list (car hizanok10) (cadr yazinok10))) ;;; x yönünde hizalama
                       (if yazinok11 (setq hizanok11 (list (car hizanok11) (cadr yazinok11))))
                 )
                 (progn
                       (setq hizanok10 (list (car yazinok10) (cadr hizanok10))) ;;; y yönünde hizalama
                       (if yazinok11 (setq hizanok11 (list (car yazinok11) (cadr hizanok11))))
                 )
            );_if
            (setq elist  (subst  (cons 10 hizanok10) (assoc 10 elist) elist))
            (if yazinok11 (setq elist  (subst  (cons 11 hizanok11) (assoc 11 elist) elist)))
            (entmod elist)
            (setq i (+ i 1))
      );repeat
     (command "undo" "end")
     (princ (strcat "\n" (itoa i) " adet yazi hizalandı #zyapimuhendisi.blogspot.com#"))
     (princ)
  ));_if & progn
 );defun
(princ "\nSeçilen TEXT'leri aynı hizaya getirir (ilk seçilene göre). [yazi-hizala] komutu ile çalışır")
(princ "\n Z Yapi Mühendisi")
(princ)

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 lisp çalıştırma

Komut satırına "YAZI-HIZALA" yazın ve enterlayın

Select objects : Burada yatay veya dikey olarak hizalamak istediğiniz yazıları seçin.

1 ilk önce yazı3 tıklandı
2. olarak yazı 4 tıklandı
3. olarak yazı 1 tıklandı
4. olarak yazı 2 tıklandı

Hizalama yönü nü şeçin: Şimdi yazıların yatay mı, dikey mi hizalamak istediğinizi belirleyin

Yatay olarak hizalamak isterseniz "Y" yazın. Buradaki y y aksı demektir,
Dikey olarak hizalamak isterseniz "X" yazın. X yazarsanız x axsı oyunca hizalar yani düşey hizalar.

Y yazıp enter tuşuna basıyorum. Yazılar yatay olarak hizalanır

X yazıp enter tuşuna bassaydım, yazılar düşey olarak hizalanırdı.

İlk olarak yazı3 tıkladığımız için hizalama yaparken, yazi3 referans olarak alınır.

Autocad yazıları yatay veya dikey hizalama lispi

Hiç yorum yok:
23 Şubat 2021 Salı

🐃 Yazı Lispleri 🐄 Metraj Lispi 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.

Çizginin üzerine uzunluğu yazılır

Autocad çizgilerin üzerine uzunluğunu yazma lispi - Metraj Lispi

Hiç yorum yok:

🐄 Metraj Lispi 🐊 uzunluk lispleri lisp

Autocad çiziminde veya projenizde seçtiğiniz şekil ve bir kaç şeklin toplam alanını pencerede gösterir.

Autocad lisp kodlar

;;
;;  Bir veya daha fazla kapalı çoklu çizginin alanını hesaplar ve
;; sonucu bir AutoCAD Uyarı Penceresinde görüntüler.
;;
(defun C:ALAN-PEN (/ a ss n du)
  (setq a 0
        du (getvar "dimunit")
        ss (ssget '((0 . "*POLYLINE"))))
  (if ss
    (progn
      (setq n (1- (sslength ss)))
      (while (>= n 0)
        (command "_.area" "_o" (ssname ss n))
        (setq a (+ a (getvar "area"))
              n (1- n)))
      (alert
        (strcat "The total area of the selected\nobject(s) is "
                (if (or (= du 3)(= du 4)(= du 6))
;
;The following 2 lines translate the area to square inches and feet
;for users using US engineering or architectural units:
;
                  (strcat (rtos a 2 2) " square inches,\nor "
                          (rtos (/ a 144.0) 2 3) " square feet.")
;
;In the following line, change the word "units" to whatever units
;you are using - meters, millimeters, feet, etc.
;
                  (strcat (rtos a 2 3) " square units.")))))
    (alert "\nNo Polylines selected!"))
  (princ)
)

Autocad lisp çalıştırma

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

Select objects : Alanını hesaplamak istediğiniz şekilleri seçin. Aşağıda şekilde 3 şekil seçildi, kumanda saırında da kaç şekil seçtiğinizi gösterir. Örnekte 3 şekili seçtikten sonra enter yapıyoruz.

Açılan pencerede toplam alanlar gösteriliyor.

Autocad şeklin alanını açılır pencerede gösteren lisp - Metraj Lispi

Hiç yorum yok:

🐄 Metraj Lispi 🐅 Alan-Çevre Lispleri lisp

Alan ve çevre metrajını almak istediğiniz nesneye tıklayın. Alan ve çevre metrajını nesnenin geometrik merkezine yazar.

Autocad lisp kodlar

(defun c:ALAN-CEVRE-GM (/ *error* pLns Fob n PvT vLo oID x y z PnT m TxH pR pA pC)
  (setvar "cmdecho" 0) (command "_.undo" "group") (vl-load-com)
  (defun *error* (/ er) (princ (strcat "\n" er)) (command "_.undo" "e")(prin1))
  (if (not oFc) (setq oFc 1))
  (setq FaC (getreal (strcat "\nÇizim Birimi/Hesap Birimi <"(rtos oFc)">: ")))
  (if (not FaC) (setq Fac oFc) (setq oFc FaC))
  (princ "\nAlanı ve Çevresi yazılacak LwPolyline objelerini seçiniz: ")
  (setq pLns (ssget (list (cons 0 "LwPoLyLine")))
        Fob (ssadd) n (sslength pLns))
  (while (not (minusp (setq n (1- n))))
    (setq PvT (ssname pLns n) vLo (vlax-ename->vla-object PvT)
          oID (itoa (vla-get-ObjectID vLo)) x 0 y 0 z (getvar "elevation")
          PnT (vlax-safearray->list (vlax-variant-value 
                (vlax-get-property vLo 'Coordinates))) m (length PnT))
    (while (not (minusp (setq m (- m 2))))
      (setq x (+ x (nth m PnT)) y (+ y (nth (1+ m) PnT))))
    (setq x (/ x (/ (length PnT) 2)) y (/ y (/ (length PnT) 2))
          TxH (getvar "TextSize") pR (getvar "Luprec")
          pA (polar (list x y z) (/ pi 2.0) (* 0.833333 TxH))
          pC (polar (list x y z) (* pi 1.5) (* 0.833333 TxH)))
    (entmake (list (cons 0 "Text") (cons 10 pA) (cons 40 TxH)
                   (cons 1 (strcat "%<\\AcObjProp Object(%<\\_ObjId " oID
                                   ">%).Area \\f \"%lu2%pr" (itoa pR)
                                   "%ps[A=,]%ct8["(rtos(* FaC FaC)2 8)"]\">%"))
                 (cons 50 0.0) (cons 72 1) (cons 11 pA))) (ssadd (entlast) Fob)
    (entmake (list (cons 0 "Text") (cons 10 pC) (cons 40 TxH)
                   (cons 1 (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId " oID
                                   ">%).Length \\f \"%lu2%pr" (itoa pR)
                                   "%ps[C=,]%ct8[" (rtos FaC 2 8) "]\">%"))
                (cons 50 0.0) (cons 72 1) (cons 11 pC))) (ssadd (entlast) Fob))
  (command "_.UpdateFieLd" Fob "") (command "_.undo" "e") (prin1))

AutoCAD lisp dosyasını kaydetme

Autocad lisp çalıştırma

Komut satırına "ALAN-CEVRE-GM" yazın ve enterlayın.
Çizim birimi/hesap birimi değerini girin. 1 yazın ve enterlayın

Çizim değeri/Hesap değeri 1 alınırsa: Bu durumda çizimde şekil kaç birim olarak çizilmişse aynı birim üzeinden alan ve çevre hesaplanır.
Proje cm bazında çizilmiştir. siz alan ve çevreyi metre ve metre kare olarak ölçmek istiyorsunuz. Bu durumda cm yi metre ye çevirmek için çizim birimini 0.01 yazmanız gerekir.
mm olarak çizilen bir projedeki alan ve çevreyi metre olarak hesaplamak isterseniz Çizim ve Alan birimi 0,001 olmalıdır.