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.
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
SalamKenal Mas....
BalasHapuskalo di balik bisa mas.... dari garis yang ada di buatkan text
Bisa.Kalau berminat,saya bisa buatkan coding LISPnya.Untuk info lebih lanjut, silahkan menghubungi saya, no WA di 08561228212.Terima kasih.
Hapus(defun c:L2T ()
Hapus(prompt "\nPilih LINE :")
(setq ssx (ssget (list (cons 0 "LINE"))))
(setq ssl (sslength ssx)) (setq cnt 0)
(repeat
ssl
(setq ssn (ssname ssx cnt))
(setq ssg (entget ssn))
(setq jarak (distance (cdr (assoc 10 ssg))(cdr (assoc 11 ssg))))
(setq jarak2 (rtos jarak 2 2))
(command "text" (cdr (assoc 10 ssg)) "5" "" jarak2)
(setq cnt (1+ cnt))
(princ)
)
)
Kenapa hasil garisnya g ada panjangnya ya,
BalasHapussdh sy cek berulang2, cm titik tp berproperties Line,
Oiya, klo ditambah selectionnya untuk Text maupun Mtext bgmn?
terimakasih