Z Yapı Mühendisi

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