TEXT komutuyla çok satır yazdırma | Forumlar

AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim

aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A

Forumlar > Acemi AutoLISP > TEXT komutuyla çok satır yazdırma

01.02.2021 10:09

akcan

Text komutuyla x ve y konumları alt alta yazdırmak için "\n" kullandım ancak text komutunda \n geçerli sanırım ya da ben yanlış kullandım.

Kod:

(defun c:xyyaz(/ pt)
(setq pt (getpoint "\nNoktayı Seçiniz:"))
(command "_.text" "non" pt 2.5 0 (strcat (rtos (car pt) 2 2) "\n" (rtos (cadr pt) 2 2)))
(princ)
)

internette çözüm aradım şunu buldum.

Kod:

(defun c:xyyaz2(/ pt)
(setq pt (getpoint "\nNoktayı Seçiniz:"))
(command "_.text" "non" pt 2.5 0 (rtos (car pt) 2 2)
"_.text" "" (rtos (cadr pt) 2 2)
)
(princ)
)

88735

01.02.2021 11:18

Travaci

"\n" ile yapamazsınız yukarıdaki gibi yada yeni bi koordinat vermeniz oda olmadı mtext yapmalısınız

Kod:

(defun c:xy (/ pt)
(if (setq pt (getpoint "\nNoktayi Seçiniz: "))
(command "_.mtext" pt pt (strcat (rtos (car pt) 2 2) "\\P" (rtos (cadr pt) 2 2)) "")
) (princ)
)

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş