Z Yapı Mühendisi

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

👱 Autocad de seçilen yazıları excele aktarır. Seçtiğiniz herbir yazıyı excele sütuna yazar.

Autocad teki yazıları tek tek excele yazma veya kopyalayıp excele yazmaktan kurtulacaksınız.

Autocad lisp kodlar

;      (princ "\t" dosya) OLARAK YAZILIRSA TAB'a basılmış gibi kaydeder....
;      Dosya sonra Excell de açılırken hüçrelere bölünmüş olarak açılır...
;      Yani Excell dosyası export edilmiş gibi olur.
(defun c:YAZI-EXCEL-SUTUN ( / )
(command "layer" "new" "zyapimuhendisi.blogspot.com" "c" "3" "zyapimuhendisi.blogspot.com" "")
(setq donati_text (ssget '((0 . "TEXT")) ) )
(if (/= donati_text nil)
  (progn
    (setq donati_text_adet (sslength donati_text))
    (setq i 0 )
    (setq metraj_dosya (strcat (getvar "dwgprefix") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4 )) "-YAZI-EXCEL-SUTUN.xls"))
    (setq dosya (open metraj_dosya "a"))
   )
   (progn
    (princ "\n Dosyaya ara veriyoruz.......")
    (setq donati_text (ssget '((0 . "TEXT")) ) )
    (setq donati_text_adet (sslength donati_text))
    (setq i 0 )
    (setq dosya (open metraj_dosya "a"))
    (princ "\n " dosya)
    (princ "\n " dosya)
    (princ "\n " dosya)
    (princ "\n " dosya)
   )
)
   (while (< i donati_text_adet)
      (princ (cdr (assoc  1 (entget (ssname donati_text i))))  dosya)
      (setq d_eleman (entget (ssname donati_text i)))
      (setq old_feature (cdr (assoc 8 d_eleman)))
      (setq d_eleman (subst (cons 8 "zyapimuhendisi.blogspot.com") (assoc 8 d_eleman) d_eleman))
      (entmod d_eleman)
;*******************************************************************************
;                                                                              *
;     Bu satırın sonundaki t yi n yaparsanız tüm yazılar alt alta yazılır.     *
;                                                           "\t" -> "\n"       *
;*******************************************************************************
      (if (= i (- donati_text_adet 1))
        (princ "\n" dosya)
        (princ "\n" dosya)
      )
;*******************************************************************************
      (setq i (+ i 1))
   )
(close dosya)
(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-EXCEL-SUTUN" yazın ve enterlayın

📜 Excele aktarmak istediğiniz yazıları seçin. Sırası ile yazı3, yazı2, yazı1,yazı7 tıklıyorum.

📜Seçme işi bittikten sonra entera tıklayın. Entera bastıktan sonra yazılar yeşile dönüşecek, yeşil renge dönüşmüş yazılar. excele aktarıldı demektir.

📜Şimdi excel dosyasını bulalım

Önce autocad dosyanız hangi klasörde kayıtlı ise o klasörü açın
Autocad dosyanızla aynı isimde sonunda -YAZI-EXCEL-SUTUN yazan excel dosyasını bulun ve açın
Örnek olarak benim çalıştığım autocad dosyası autocad-lisp isimli dosya, aynı klasor içinde autocad-lisp-YAZI-EXCEL-SUTUN isinli dosyayı buluyorum ve açıyorum.

📜Excel dosyası açılınca tıkladığım butun yaziların a sutununda alt alta sıralandığını göreceksiniz.

AutoCAD da yazıları excele aktarma lispi (sutuna aktar) - Metraj Lispi

Hiç yorum yok:
26 Şubat 2021 Cuma

🐃 Yazı Lispleri 🐄 Metraj Lispi lisp

👱 Bu lisp ile sadece seçilen yani sadece tıkladığım ölçüleri excele aktarır.

Autocad lisp kodlar

(defun c:OLCU-EXCEL-SECILEN (/ ss i sr d l xl n m)
  (if (setq ss (ssget '((0 . "dimension"))))
    (progn
      (repeat (setq i (sslength ss))
        (if (setq sr (vl-position (setq d (rtos (cdr (assoc 42 (entget
              (ssname ss (setq i (1- i)))))) 2 2)) (mapcar '(lambda(a) (car a)) l)))
          (setq l (subst (list (car (nth sr l)) (1+ (cadr (nth sr l)))) (nth sr l) l))
          (setq l (cons (list d 1) l))))
      (setq xl (open (getfiled "" "" "xls" 9) "w") n 0)
      (write-line (strcat "Sira No" "\t" "Dimension" "\t" "Miktar" "\t"
                    "Toplam Miktar") xl)
      (foreach m (vl-sort (mapcar '(lambda(a) (list (atof (car a)) (cadr a))) l)
                   '(lambda(a b) (< (car a) (car b))))
        (write-line (strcat (rtos (setq n (1+ n)) 2 0) "\t" (vl-string-translate "." ","
                      (rtos (car m) 2 2)) "\t" (rtos (cadr m) 2 0) "\t"
                      (strcat "=" "B" (itoa (1+ n)) "*" "C" (itoa (1+ n)))) xl))
      (write-line (strcat "\t" "Toplam" "\t"
                  (strcat "=" "TOPLA" "(" "C2" ":" "C" (itoa (1+ n)) ")") "\t"
                  (strcat "=" "TOPLA" "(" "D2" ":" "D" (itoa (1+ n)) ")")) xl)
      (close xl)
    )
  ) (princ)
)

AutoCAD lisp dosyasını kaydetme

Autocad lisp çalıştırma

Komut satırına "OLCU-EXCEL-SECILEN" yazın ve enterlayın.

Excele aktarmak istediğiniz ölçüleri tek tek secin, ve enter tuşuna basın

Örnekte önce 200
Sonra diğer 200
Sonra 400 tıklıyorum

Dosya yaratma penceresi açılacak.

Ölçülerin aktarılacağı excel dosyası nereye kayedileceğin ve ismini seçin
Kaydet tuşuna basın
Başka bir klasör ve başka bir isim yazmazsanız. çalıştığınız autocad klasörü içine ve autocad dosyası ile aynı isimde kayıt edilir.
örnekte autocad-lisp.xls olarak kayıt ediyorum

Şimdi autocad-lisp dosyasını bulup açıyorum.
3 adet ölçüye tıkladım. excele toplamda 3 ölçü aktarılmış
3 ölçünün genel toplamı verilir.

AutoCAD şeçilen ölçüleri excele aktarma lispi - Metraj Lispi

Hiç yorum yok:

🐄 Metraj Lispi 🐉 ölçü lisp lisp

👱 OLCU-EXCEL-LAYER lispi ile sadece bir ölçüye tıklayın. O olcü değeri hangi layerda ise , o layerdaki bütün ölçüler excel de listelenir.

Autocad lisp kodlar

AutoCAD lisp dosyasını kaydetme

Autocad lisp çalıştırma

Komut satırına "OLCU-EXCEL-LAYER" yazın ve enterlayın

Excele aktarmak istediğiniz ölçüye tıklayın.

Açılan pencerede excel dosyasının kayıt yeri seçin ve dosya adını yazın.
Kaydet tıklayın

Bir değişiklik yapmazsanız, excel dosyası otomatik olarak çalıştığınız autocad klasörü içine autocad dosyası ile aynı isimde kayıt edilir.

Kullanılacak ondalık ayracı yazın :

Burada excele aktarılan ölçülerin noktadan sonra kaç rakam görünmesini istiyorsanız yazın
2 yazarsanız noktadan sonra 2 küsürak görünür. 2 yazıp enter tuşuna basın.

Excel dosyasını bulun ve açın. farklı bir isim yazıp farklı bir klasor seçilmediyse, autocad dosyasını çalıştığınız klasore gidin ve çalıştığınız autocad dosyası ile aynı isimde excel dosyası olarak kayıt edilmiştir.
Tıkladığınız layera ait bütün ölçüler excele aktarılmış olacak. biz 1 adet ölçü tıkladık ama layerdaki bütün ölçüler aktarıldı

Autocad bir layerdaki bütün ölçüleri excele atma lispi - Metraj Lispi

Hiç yorum yok:
25 Şubat 2021 Perşembe

🐄 Metraj Lispi 🐉 ölçü lisp lisp

👱 Bu lisp ile çizim içinde seçtiğiniz bir bloktan, kaç adet olduğunu gösterir.

Autocad lisp kodlar

AutoCAD lisp dosyasını kaydetme

Autocad lisp çalıştırma

Komut satırına "BLOK-SAY" yazın ve enterlayın

Çizim içinden saymak istediğiniz bloğu seçin

Komut satırınında bu bloktan kaç adet olduğunu yazar, resimde çizim içerisinde 8 adet blok vardır. Lisp 8 adet blok olduğunu yazıyor.

AutoCAD blok sayma lispi - Metraj Lispi

Hiç yorum yok:

🐄 Metraj Lispi 🐆 Blok Lisp 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

Autocad yazıları aynı oranda büyütme veya küçültme lispi

Bu lisp ile AutoCAD yazılarını belirli oranda büyütebilir veya küçültebilirsiniz.

Autocad lisp kodlar

(defun c:YAZI-BUYUT ( / ll sel obj ur )
    (initget 6)
    (if
        (and
            (setq *scl*
                (cond
                    (   (getdist (strcat "\n Yazi buyutme katsayisi secin" (if *scl* (strcat " <" (rtos *scl* 2) ">: ") ": "))))
                    (   *scl*   )
                )
            )
            (ssget "_:L")
        )
        (progn
            (vlax-for obj (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
                (if (null (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'll 'ur))))
                    (vla-scaleentity obj
                        (vlax-3D-point
                            (mapcar '(lambda ( a b ) (/ (+ a b) 2.0))
                                (vlax-safearray->list ll)
                                (vlax-safearray->list ur)
                            )
                        )
                        *scl*
                    )
                )
            )
            (vla-delete sel)
        )
    )
    (princ)
)
(vl-load-com) (princ)

- Komut satırına YAZI-BUYUT komutunu girin

- Yazı büyütme katsayısı girin, örnegin 2 katı büyütmek için 2 yazın

- Büyütmek istediğiniz yazıları seçin ve enter tuşuna basın

- Sectiğiniz yazılar girdiğiniz katsayı oranında büyütülmüş olacak

Autocad yazıları aynı oranda büyütme veya küçültme lispi ilgili benzer konular

👀 Autocad Yazıları toplu büyütme

👀 AutoCAD Yazı küçültme komutu

👀 Autocad 2018 yazı boyutu ayarlama

👀 Autocad 2018 Yazı boyutu değiştirme

👀 AutoCAD Yazı Yazma

👀 AutoCAD yazı inceltme

👀 AutoCAD yazı kalınlaştırma

Autocad yazıları aynı oranda büyütme veya küçültme lispi daha fazla ara

👀 google

👀 yandex

👀 bing

👀 youtube

👀 facebook

👀 wikipedia

👀 google kitap

👀 google trends

👀 uzmantv

👀 twitter

👀 pinterest

👀 eksisozluk

Autocad yazıları aynı oranda büyütme veya küçültme lispi - Metraj Lispi

Hiç yorum yok:

🐃 Yazı Lispleri 🐄 Metraj Lispi lisp

Autocad yazıların sağına ve soluna yazı ekleme lispi

Autocad yazılarının başına ve sonuna yazı ekleyebilirsiniz
Yazıların sadece basına yazı ekler
Yazıların sadece sonuna yazı ekler

Autocad lisp kodlar

Autocad lisp çalıştırma

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

Sol tarafa eklenecek yazıyı yazın. Bu örnekte aaa yazıyorum. ve enter tuşuna basın

Sağ tarafına eklenecek yazıyı yazın. Örnekte bbb yazıyorum. Enter tuşuna bas

Değiştirilecek yazıyı seçin. Değiştirmek istediğiniz ilk yazıyı tıklayın.
Örnekte yazı3 tıklıyorum ilk olarak

yazı3 başına aaa ve sonuna bbb eklenecek şekilde değişir.

yazı3 başına aaa ve sonuna bbb eklenecek şekilde değişir

Sırası ile değiştirmek istediğimiz diğer yazılarada tıklayalım.
Tıkladığımız bütün yazıların başına sonuna aaa ve bbb eklenecek.

Sırası ile değiştirmek istediğimiz diğer yazılarada tıklayalım

Autocad yazıların sağına ve soluna yazı ekleme lispi - Metraj Lispi

Hiç yorum yok:

🐃 Yazı Lispleri 🐄 Metraj Lispi lisp

Autocad içerisinde yazıları istediğiniz harfler ile kodlandırarak, istediğiniz rakamdan başlayarak ardışık olarak sıralar.

Autocad lisp kodlar

(defun c:YAZI-ARDISIK-SIRALA ()
(setq tc_met (getstring t "\nSayıların başına gelecek metni yazın:"))
  (if (= tc_met nil)
    (progn)
    (progn
 
  (setq tc_num (getint "\nBirinci Numara:"))
  (if (= tc_num nil)
    (progn)
    (progn
      (setvar "errno" 0)
      (setq tc_num_uy tc_num)
      (setq tc_ent nil)
      (while (= tc_ent nil)
(initget "C")
(setq tc_ent (entsel "\nYazıyı Seç / Cıkış:"))
(if (= tc_ent nil)
  (progn
    (if (= (getvar "errno") 0)
      (progn
(setq tc_ent nil)
(setvar "errno" 0)
      )
    )
    (if (= (getvar "errno") 52)
      (progn
(setq tc_ent t)
(setvar "errno" 0)
      )
    )
  )
  (progn
    (setq tc_tan (cdr (assoc 0 (entget (car tc_ent)))))
    (if (/= tc_tan "TEXT")
      (progn
(princ "\nSeçilen nesne yazı değil...")
(setq tc_ent nil)
      )
      (progn
(setq tc_stil (cdr (assoc 7 (entget (car tc_ent)))))
(setq tc_stil_yuk
       (cdr (assoc 40 (tblsearch "style" tc_stil))
       )
)
(if (= tc_stil_yuk 0.0)
  (progn
    (command "change" tc_ent "" "" "" "" "" "" (strcat tc_met (rtos tc_num_uy 2 0)))
    (setq tc_num_uy (1+ tc_num_uy))
    (setq tc_ent nil)
  )
  (progn
    (command "change" tc_ent "" ""
     ""       ""       "" (strcat tc_met (rtos tc_num_uy 2 0)
    ))
    (setq tc_num_uy (1+ tc_num_uy))
    (setq tc_ent nil)
  )
)
      )
    )
  )
)
      )
    )
  )))
  (princ)
)
(princ)

Autocad lisp çalıştırma

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

Sayıların başına gelecek metni yazın : Buraya yazdığınız kelime tıkladığınız bütün yazılara uygulanacak, yani eski kelime silinecek ve yerine bu kelime yazılacak.
Burada ben aaa yazıp enter tusuna basın
Birinci numara : yazdığınız kelimenin arkasına gelecek ilk sayıyı seçin, bu sayıdan başlayarak ardışık sıralayacak. Burada 1 yazıp enter tuşuna basıyorum.