Bu lisp ile dtext ile yazılmış bir kaç tane yazıya tıklayarak, mtext ile yazılmış şekilde ard arda sıralanır.

Autocad lisp kodlar

;; Similar to the Txt2MTxt Express Tools function, but allows the user ;; ;; additional control over where the text is placed in the resultant MText. ;; ;; The user can pick MText or DText, positioning such text using one of two ;; ;; modes: "New Line" or "Same Line". The Modes can be switched by pressing ;; ;; Space between picks. ;; ;; The user can also hold shift and pick text to keep the original text in ;; ;; place, and press "u" between picks to undo the last text pick. ;; (defun c:YAZI-BIRLESTIR ( / ;; -={ Local Functions }=- *error* align_Mt Get_MTOffset_pt GetTextWidth ReplaceUnderline ;; -={ Local Variables }=- CODE DATA DOC ELST ENT ET FORMFLAG GRDATA LHGT LLST MLST MSG NOBJ NSTR OBJ SHFT SPC TENT TOBJ TEXTSS UFLAG UNDER WLST ;; -={ Global Variables }=- ; *T2M_mode* ~ Mode for line addition ) ; --=={ Sub Functions }==-- ; ;; -={ Error Handler }=- (defun *error* (err) (and uFlag (vla-EndUndoMark doc)) (and tObj (not (vlax-erased-p tObj)) (vla-delete tObj)) (if eLst (mapcar (function entdel) (vl-remove-if (function null) eLst))) (or (wcmatch (strcase err) "*BREAK,*CANCEL*,*EXIT*") (princ (strcat "\n** Error: " err " **"))) (princ)) ;;-------------------------------------------------------------------------------;; (defun align_Mt (obj / al) (cond ( (eq "AcDbMText" (vla-get-ObjectName obj)) (vla-get-AttachmentPoint obj)) ( (eq "AcDbText" (vla-get-ObjectName obj)) (setq al (vla-get-Alignment obj)) (cond ( (<= 0 al 2) (1+ al)) ( (<= 3 al 5) 1) (t (- al 5)))))) ;;-------------------------------------------------------------------------------;; (defun Get_MTOffset_pt ( obj pt / miP maP al ) (vla-getBoundingBox obj 'miP 'maP) (setq miP (vlax-safearray->list miP) maP (vlax-safearray->list maP)) (setq al (vla-get-AttachmentPoint obj) r (vla-get-rotation obj)) (cond ( (or (eq acAttachmentPointTopLeft al) (eq acAttachmentPointTopCenter al) (eq acAttachmentPointTopRight al)) (polar pt (- r (/ pi 2.)) (vla-get-Height obj))) ( (or (eq acAttachmentPointMiddleLeft al) (eq acAttachmentPointMiddleCenter al) (eq acAttachmentPointMiddleRight al)) (polar pt (- r (/ pi 2.)) (+ (vla-get-Height obj) (/ (- (cadr maP) (cadr miP)) 2.)))) ( (or (eq acAttachmentPointBottomLeft al) (eq acAttachmentPointBottomCenter al) (eq acAttachmentPointBottomRight al)) (polar pt (- r (/ pi 2.)) (+ (vla-get-Height obj) (- (cadr maP) (cadr miP))))))) ;;-------------------------------------------------------------------------------;; (defun GetTextWidth (obj / tBox eLst) (cond ( (eq "AcDbText" (vla-get-objectname obj)) (setq eLst (entget (vlax-vla-object->ename obj)) tBox (textbox (subst (cons 1 (strcat "..." (cdr (assoc 1 eLst)))) (assoc 1 eLst) eLst))) (- (caadr tBox) (caar tBox))) ( (vla-get-Width obj)))) ;;-------------------------------------------------------------------------------;; (defun ReplaceUnderline (str / i under) (if (vl-string-search "%%U" (strcase Str)) (progn (while (and (< i (strlen Str)) (setq i (vl-string-search "%%U" (strcase Str) i))) (if under (setq Str (strcat (substr Str 1 i) "\\l" (substr Str (+ i 4))) i (+ i 4) under nil) (setq Str (strcat (substr Str 1 i) "\\L" (substr Str (+ i 4))) i (+ i 4) under t ))) (if under (setq str (strcat str "\\l"))))) str) ; --=={ Main Function }==-- (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) spc (if (or (eq AcModelSpace (vla-get-activespace doc)) (eq :vlax-true (vla-get-MSpace doc))) (vla-get-modelspace doc) (vla-get-paperspace doc))) (setq Et (and (vl-position "acetutil.arx" (arx)) (not (vl-catch-all-error-p (vl-catch-all-apply (function (lambda nil (acet-sys-shift-down)))))))) (or *T2M_Mode* (setq *T2M_Mode* 0)) (setq mLst '("New Line " "Same Line")) (while (progn (setq ent (car (entsel "\nSelect Text/MText [Shift-Click keep original]: "))) (and et (setq shft (acet-sys-shift-down))) (cond ( (not ent) (princ "\n** Nothing Selected **")) ( (not (wcmatch (cdr (assoc 0 (entget ent))) "*TEXT")) (princ "\n** Object is not Text **"))))) (setq uFlag (not (vla-StartUndoMark doc))) (setq tObj (vla-AddMText spc (vla-get-InsertionPoint (setq obj (vlax-ename->vla-object ent))) (GetTextWidth obj) (ReplaceUnderline (vla-get-TextString obj)))) (foreach p '(InsertionPoint Layer Color StyleName Height) (vlax-put-property tObj p (vlax-get-property obj p))) (vla-put-rotation tObj (if (eq "AcDbText" (vla-get-ObjectName obj)) (- (vla-get-rotation obj) (angle '(0. 0. 0.) (trans (getvar 'UCSXDIR) 0 (trans '(0. 0. 1.) 1 0 t)))) (vla-get-rotation obj))) (vla-put-AttachmentPoint tObj (align_Mt obj)) (or (and shft (setq eLst (cons nil eLst))) (and (entdel ent) (setq eLst (cons ent eLst)))) (princ (eval (setq msg '(strcat "\n Current Mode: " (nth *T2M_mode* mLst) " Yatay veya dikey için space tusuna bas" "\n Birlestirmek istedigin yazilari seç [Orijinal yazının kalmasını istiyorsan Shitt basılı tut] [Undo] <Place MText> ")))) (while (progn (setq grdata (grread 't 15 2) code (car grdata) data (cadr grdata)) (cond ( (and (= 5 code) (listp data)) (vla-put-InsertionPoint tObj (vlax-3D-point (Get_MTOffset_pt tObj (trans data 1 0)))) t) ( (and (= 3 code) (listp data)) (if (and (setq tEnt (car (nentselp data))) (wcmatch (cdr (assoc 0 (entget tEnt))) "*TEXT")) (AddtoMTextSelection tEnt) (progn (vla-put-Visible tObj :vlax-false) (if (setq textss (GetSelectionSet "\nPick Corner Point: " data '((0 . "TEXT,MTEXT")))) ( (lambda ( i ) (while (setq e (ssname textss (setq i (1+ i)))) (AddtoMTextSelection e) ) (princ (eval msg)) ) -1 ) (princ (strcat "\n** No Text/MText Selected **" (eval msg))) ) (vla-put-Visible tObj :vlax-true) t ) ) ) ( (= 25 code) nil) ( (= 2 code) (cond ( (= 13 data) nil) ( (= 32 data) (setq *T2M_mode* (- 1 *T2M_mode*)) (princ (eval msg))) ( (vl-position data '(85 117)) (if (< 1 (length eLst)) (progn (vla-put-TextString tObj (substr (vla-get-TextString tObj) 1 (car lLst))) (vla-put-Width tObj (car wLst)) (if (car eLst) (entdel (car eLst))) (setq eLst (cdr eLst) lLst (cdr lLst) wLst (cdr wLst)) t) (progn (princ "\n** Nothing to Undo **") (princ (eval msg))))) (t ))) (t )))) (setq uFlag (vla-EndUndoMark doc)) (princ)) (defun AddtoMTextSelection ( tEnt / nStr nObj formflag ) (setq lLst (cons (strlen (vla-get-TextString tObj)) lLst) wLst (cons (vla-get-Width tObj) wLst)) (setq nStr (vla-get-TextString (setq nObj (vlax-ename->vla-object tEnt))) formflag nil) (vla-put-Width tObj ((if (= *T2M_mode* 1) + max) (vla-get-Width tObj) (GetTextWidth nObj))) (if (not (or (eq (vla-get-Color nObj) (vla-get-Color tObj)) (vl-position (vla-get-Color nObj) '(255 0)))) (setq nStr (strcat "\\C" (itoa (vla-get-Color nObj)) ";" nStr) formflag t)) (setq nStr (ReplaceUnderline nStr)) (if (not (or (eq (vla-get-Height nObj) (vla-get-Height tObj)) (and lHgt (eq (vla-get-Height nObj) lHgt)))) (setq nStr (strcat "\\H" (rtos (/ (float (vla-get-Height nObj)) (cond (lHgt) ((vla-get-Height tObj)))) 2 2) "x;" nStr) lHgt (vla-get-Height nObj) formflag t)) (if (not (eq (vla-get-StyleName nObj) (vla-get-StyleName tObj))) (setq nStr (strcat "\\F" (vla-get-fontfile (vla-item (vla-get-TextStyles doc) (vla-get-StyleName nObj))) ";" nStr) formflag t)) (if formflag (setq nStr (strcat "{" nStr "}"))) (vla-put-TextString tObj (strcat (vla-get-TextString tObj) (if (zerop *T2M_mode*) (strcat "\\P" nStr) (strcat " " (vl-string-left-trim (chr 32) nStr))))) (vla-update tObj) (or (and et (acet-sys-shift-down) (setq eLst (cons nil eLst))) (and (entdel tEnt) (setq eLst (cons tEnt eLst)))) t) (defun GetSelectionSet ( str pt filter / gr data pt1 pt2 lst ) (princ str) (while (and (= 5 (car (setq gr (grread t 13 0)))) (listp (setq data (cadr gr)))) (redraw) (setq pt1 (list (car data) (cadr pt) (caddr data)) pt2 (list (car pt) (cadr data) (caddr data))) (grvecs (setq lst (list (if (minusp (- (car data) (car pt))) -30 30) pt pt1 pt pt2 pt1 data pt2 data ) ) ) ) (redraw) (ssget (if (minusp (car lst)) "_C" "_W") pt data filter) ) (vl-load-com) (princ "\n YAZI-BIRLESTIR lisp calistirma komutunu giriniz http://zyapimuhendisi.blogspot.com") (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-BIRLESTIR*" yazın ve enterlayın

📜Birleştirmek istediğiniz ilk yazıya tıklayın

📜Birleştirmek istediğiniz 2. yazıya tıklayın. Tıkladığınız zaman 2. tıklanan yazı ilk tıklanan yazını altına yada yanına geçer, Space tuşuna basarak alt veya yanı tercihlerini değiştirebilirsiniz.

📜Sırası ile diğer yazıları tıklayın, tıkladığınız son yazı bir önceki yazının altına geçer. Alt alta geçen yazıların, yan yana geçmesini istiyorsanız space tuşuna basın

📜 Mausu yerleştirmek istediğinizz yere getirin. ve enter tuşuna basın. Enter tuşuna bastıktan sonra o anda mausun ekranda bulunduğu yere yazı yerleştirilir.

AutoCAD text birleştirme lisp daha fazla ara

👀 google

👀 yandex

👀 bing

👀 youtube

👀 facebook

👀 wikipedia

👀 google kitap

👀 google trends

👀 uzmantv

👀 twitter

👀 pinterest

👀 eksisozluk

AutoCAD text birleştirme lisp ilgili benzer konular

👀 AUTOCAD TEXT BİRLEŞTİRME LİSP

👀 autocad text komutu

👀 autocad yazı birleştirme

👀 autocad text alt satıra gecme

👀 autocad text alt komutları

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

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

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)

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

- 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ı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 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)

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



• Yazıyı seç: değiştirmek istediğiniz ilk yazıya tıklayın. Örnekte yazı3 tıkladık



• Yazı3 aaa1 e dönüştü



• Sırası ile diğer yazılara tıklayarak devam ediyoruz, tıklama sırasına göre yeniden adlandırmaya devam eder.

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.