AutoLisp : Mengambil Nilai Suatu Text dan Membuat Garis Sepanjang Nilai Text Tersebut

Kali ini kita akan belajar mengambil nilai dari suatu Text,lalu membuat garis sepanjang nilai dari Text tersebut.Sample yang saya buat adalah pembuatan garis.Mungkin nanti bisa di kembangkan lagi oleh rekan rekan untuk membuat entities yang lain,seperti Lingkaran,Ketinggian,Text,atau yang lainnya.

Semoga bermanfaat, selamat mencoba, indahnya berbagi.

Program untuk mengambil nilai suatu Text,lalu membuat garis sepanjang nilai Text tersebut.


(defun c:t2l () (prompt "\nPilih TEXT yang akan dibuatkan garisnya :") (setq ssx (ssget (list (cons 0 "TEXT")))) (setq ssl (sslength ssx)) (setq cnt 0) (repeat ssl (setq ssn (ssname ssx cnt)) (setq ssg (entget ssn)) (setq nilai (cdr (assoc 1 ssg))) (setq nilai2 (atof nilai)) (setq p0 (cdr (assoc 10 ssg))) (setq p1 (list (- (car p0) 10) (cadr p0))) (setq p2 (list (- (car p1) nilai2) (cadr p1))) (command "line" p1 p2 "") (setq cnt (1+ cnt)) ) (princ) )

Silahkan copy kode di atas ke notepad,kemudian save dengan extension .LSP.
Lalu load ke AutoCAD dan jalankan dengan perintah >> T2L lalu pilih text <<



Note : Perintah untuk membuat garis sepanjang isi nilai Text nya. Ketik: T2L lalu pilih TEXT

sumber : Heri Agus Purwono 

Buat Yang Ingin Belajar Tentang Coding Autolisp Silahkan Langsung Gabung Saja di Group Facebooknya >>> Belajar Autolisp.coding dasar untuk pemula
 
Atau kalau yang ingin Kursus/Privat Autocad dan Coding AutoLisp juga bisa.Silahkan Add Facebooknya >>> Heri Agus Purwono <<< Untuk Keterangan Lebih Lanjut Silahkan Hubungi Beliau.Di jamin lancar dan jago autocad sampai ke akar akarnya.hehe