Alan ve cevre metrajını almak istediğiniz öğelere tıkladıktan sonra, alan ve çevre metrajları excele aktarır.

Autocad lisp kodlar

(defun c:ALAN-CEVRE-EXCEL (/ fl ad ss os) (vl-load-com) (if (and (ssget (list (cons 0 "Lwpolyline") (cons 70 1))) (setq ad (vla-get-activedocument (vlax-get-acad-object)) fl (getfiled "Data Extraction" (vl-filename-base (getvar 'dwgname)) "xls" 1))) (progn (setq fl (open fl "w")) (vlax-for os (setq ss (vla-get-activeselectionset ad)) (write-line (strcat (vl-string-translate "." "," (rtos (vla-get-Area os) 2 2)) "\t" (vl-string-translate "." "," (rtos (vla-get-Length os) 2 2))) fl)) (close fl) (vla-delete ss) ) ) (princ) )

AutoCAD lisp dosyasını kaydetme

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 "ALAN-CEVRE-EXCEL" yazın ve enterlayın

Select objects : nesneleri seç

Alan ve çevre metrajını almak istediğiniz nesneleri tıklayarak seçin ve enterlayın

Seçtiğiniz nesnelerin alan ve çevreleri excele aktarıldı. Ekranda açılan  pencerede excel  dosyasını nereye kaydetmek istediğinizi sorar. 

Dosyayı kayedeceğiniz yeri seçin

Dosya adını yazın ve kaydedin

Şimdi kaydettiğiniz excel dosyasını bulun ve açın

ilk sütün tıklama sırası ile her bir nesnenin alanını verir. ikinci sutun tıklama sırasına göre çevre uzunluklarını verir.

👱 Autocad de bulunan yazıları, excele satır halinde aktarmamızı sağlar,

👱 dtext ile yazılan yazıları aktarır

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-SATIR ( / ) (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-SATIR.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 "\t" 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-SATIR" yazın ve enterlayın
👉





• 📜İlk satıra yazılmasını istediğiniz yazıları seçin.  örnekte yazı3 yazı4 yazı seçiyorum
👉



• 📜Entera bas excele aktarılan yazılar yeşil renge döner
👉



• 📜İkinci satıra yazılmasını istediğiniz yazıları için tekrar YAZI-EXCEL-SATIR yazın ve yazıları secin.  örnekte yazı2 yazı7 yazı6 seçiyorum
• Entera basıyorum. Bu yazılarda yeşile dönüşür. yani onlarda excele aktarıldı
👉



• 📜 Şimdi yazıların aktarıldığı excel dosyasını bulalım.
• Autocad dosyasının bulunduğu klasore gidin
• AutoCAD ile aynı isimde sonunda YAZI-EXCEL-SATIR yayzan excel dosyasını bulun.
• Ben autocad-lisp isimli autocad dosyasında çalışıyorum, ve aynı klasor içinde  autocad-lisp-YAZI-EXCEL-SATIR yazan excel dosyasını buluyorum. 
• Excel dosyasına tıkla ve aç
👉



• 📜Açılan dosyada ilk seçtiğim 3 yazı ilk satırda.  Sonra tekrar komutu yazıp seçtiğim yazılar ise 2.satırda göreceksiniz.  
👉

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)

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 "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 ç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) )

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 "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 de tıkladığın herhangi iki nokta arasındaki uzaklığı yazar.

Autocad lisp kodlar

(defun c:UZUNLUK-IKI-NOKTA () ; 1 (terpri) (setq blm (getvar "blipmode")) ; 2 (setq osm (getvar "osmode")) ; 3 (setq y1 (getreal "yazi boyu:")) ; 4 (command "osmode" 1) ; 5 (command "blipmode" 1) ; 6 (setq bn (getpoint "ilk noktayı giriniz")) ; 7 (terpri) (setq sn (getpoint "diger noktayı giriniz")) ; 8 (terpri) (setq ds (distance bn sn)) ; 9 (setq dst (rtos ds 2 2)) ; 10 (setq rad (angle bn sn)) ; 11 (setq deg (atof (angtos rad 0 2))) ; 12 (setq on (polar bn rad (/ ds 2))) ; 13 (command "text" "j" "bc" on y1 deg dst) ; 14 (setvar "osmode" osm) ; 15 (setvar "blipmode" blm) ; 16 )

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

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

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 "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.



• Select objects : Alan ve çevresini hesaplayacağınız şekilleri seçin ve enterlayın



• Herbir şeklin alan ve çevresi kendi geometrik merkezine yazılacaktır.

• 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

(defun c:YAZI-EKLE () (setq sol (getstring T "\n sol tarafa ekleyenecek yazı : ")) (terpri) (setq sag (getstring T "\n sag tarafa ekleyenecek yazı : ")) (terpri) (while (setq ent (entsel "\n değiştirlecek yazıyı seçiniz: ")) (if (/= nil ent) (progn (setq en (car ent)) (setq enlist (entget en)) (setq tip (cdr (assoc 0 enlist))) (setq yazı (cdr (assoc 1 enlist))) (if (/= tip "TEXT") (princ "\n seçilen obje yazı değil") (progn (princ yazı) (terpri) (if (/= nil sol) (setq yazı (strcat sol yazı)) ) (if (/= nil sag) (setq yazı (strcat yazı sag)) ) (setq enlist (subst (cons 1 yazı) (assoc 1 enlist) enlist ) ) (terpri) (entmod enlist) (terpri) ) ) ) ) ) )

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-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.



• 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.

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.