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

4 komentar


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


Related Posts

4 komentar

  1. SalamKenal Mas....
    kalo di balik bisa mas.... dari garis yang ada di buatkan text

    BalasHapus
    Balasan
    1. Bisa.Kalau berminat,saya bisa buatkan coding LISPnya.Untuk info lebih lanjut, silahkan menghubungi saya, no WA di 08561228212.Terima kasih.

      Hapus
    2. (defun c:L2T ()
      (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)
      )
      )

      Hapus
  2. Kenapa hasil garisnya g ada panjangnya ya,
    sdh sy cek berulang2, cm titik tp berproperties Line,
    Oiya, klo ditambah selectionnya untuk Text maupun Mtext bgmn?
    terimakasih

    BalasHapus

Posting Komentar

Subscribe Our Newsletter