Membuat bentangan dengan LISP
Dalam Kategori: AutoLISP
17 November 2008, 2:22 pm | oleh: Afri zanirman | 3 Komentar | 615 views

Coding ini dibilang masih sederhana karena hanya bisa membentangkan profil U dari polyline yang tidak memiliki radius dan masih bersifat horizontal dan vertikal saja.

Konsep penulisan coding disusun untuk meletakkan formula. Tapi sayangnya formula yang dicari hilang :-P. Kalau ada formula bentangan plate boleh dikirim ke saya ya. Ke UdaafAtYahooDotCoDotId.

Berikut coding sederhana untuk membuat bentangan U. Semoga bisa dipelajari

</code></code>

(defun c:FP1 (/ ss ename ed obj elist thelist pt1 pt2 pt3 pt4 cnt len)
(vl-load-com)
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq ename (ssname ss 0))
(setq ed (entget ename))
(setq obj (vlax-ename->vla-object ename))
(setq elist (vlax-get-property obj 'coordinates))
(setq thelist (vlax-safearray->list  (variant-value elist)))
(setq cnt 0)
(setq oldosn (getvar "osmode"))

(repeat 1
(setq pt1 (list (nth cnt thelist) (nth (1+ cnt) thelist)))
(setq cnt (+ 2 cnt))
(setq pt2 (list (nth cnt thelist) (nth (1+ cnt) thelist)))
(setq cnt (+ 2 cnt))
(setq pt3 (list (nth cnt thelist) (nth (1+ cnt) thelist)))
(setq cnt (+ 2 cnt))
(setq pt4 (list (nth cnt thelist) (nth (1+ cnt) thelist)))
)
(princ )
(setq len (+ (+(abs(- (car pt1) (car pt2))) (abs(- (cadr pt1) (cadr pt2))))
(+(abs(- (car pt2) (car pt3))) (abs(- (cadr pt2) (cadr pt3))))
(+(abs(- (car pt3) (car pt4))) (abs(- (cadr pt3) (cadr pt4))))
)
);setq
(entdel ename)
(setvar "osmode" 0)
(setq pt5 (list (+ (car pt1)len) (cadr pt1)))
(command "line" pt1 pt5 "")
(setvar "osmode" oldosn)
(princ)
)
(princ)

<code>

Semoga bisa bermanfaat.

Salam,

Abu Labib

Ditulis oleh Afri zanirman

Berpengalaman sebagai pengajar di ATC (Authorized Training Center) baik di Indonesia maupun Malaysia untuk pengambilan sertifikasi dari Autodesk. Software yang dikuasai AutoCAD, AutoCAD Mechanical, AutoCAD P&ID dan Inventor. Sekarang bekerja freelance sebagai CAD Instructor diberbagai perusahaan. Jikalau ada kebutuhan mengenai training,services dan konsultasi seputar software CAD bisa kontak saya di udaaf@yahoo.co.id. No. telp 08179870990 / 021-92031733

Popularity: 1%

Tulisan Terkait

Tulisan Terkait:

  1. Menggandakan BOX
    Dah lama ngga nulis jadi kangen juga :-). Ini ada sedikit coding untuk mengopi objek berdasarkan jarak tertentu. Silahkan perhatikan ilustrasi gambar. Untuk mengakhiri program silahkan tekan tombol enter. Berikut codingnya </code></code> (prompt "\nKetik MB untuk run dan enter untuk mengakhiri") ; program ini dibuat untuk mengcopy box ; dibuat Abu Labib 08 Mei 2009 (defun c:MB (/ ss cntss sscount oldosn enone cntss entwo obone elone lione obtwo eltwo…......
  2. [AutoLISP]+ Balloons
    Tadinya mo digabung dengan posting sebelumnya tapi karena gagal terus ya kita buat baru saja. Ini coding tambahan untuk menambahkan balloons dimulai dengan nilai terakhir. Misal nilai terakhir 8 maka balloons akan dimulai dari angka 9 dst. Semoga bisa membantu. ; Dibikin Bapaknya Labib 08/07/08 ; Menambahakan nilai balloons dengan mengambil nilai terakhir dari balloons (prompt "\nKetik Nblea&Pilih nilai balloon terakhir") (defun c:Nblea (/ ent ed item attnamelst val cnt…......
  3. Memasukan Coding LISP kedalam TOOLPALETTES
    Kasus ini saya dapatkan ketika memberikan pelatihan di Pekanbaru. Ada seorang peserta yang menanyakan bagaimana memasukan coding LISP kedalam toolpalettes. Sempet bingung juga sih J. Tapi pas coba diacak-acak caranya mudah sekali. Pengen tau caranya. Silahkan simak yang berikut ini !  Adapun caranya sebagai berikut : Buat entity sembarang (line, circle atau arc) pada model space Masukan entity tersebut kedalam toolpalettes hingga membentuk sebuah icon Klik kanan icon pilih properties…......

«

3 Diskusi

  1. robert says:
    31 December, 2008 at 8:11 am

    saya sebenarnya tidak bisa menggunakan cad tapi saya ingin belajar auto cad dengan baik supaya dapat menunjang pekerjaan saya, makanya saya mau minta tolong kepada anda tentang penggunaan cad. sebelumnya saya ucapkan terima kasih

    Balas diskusi ini
  2. reno eno says:
    14 January, 2009 at 4:10 pm

    tolong donk, kalo belajar autolisp yang dari dasar aja, aku gak punya background pemrograman komp neh, jadi agak2 lemot neh…
    hehehheh

    Balas diskusi ini
  3. Purnomo says:
    11 June, 2010 at 4:09 pm

    Saya pernah menggunakan autolips balajar otodidak. dari help waktu itu pakai dos tapi setelah jarang menggunakan saya lupa. bisa saya diberu formula untuk menulis satu kalimat pada koordinat tertentu. Saya dulu mencampur =concatenate( pada excel untuk menulis berulangulang dan saya copy ke macro. Mohon dibantu.

    Balas diskusi ini

Ayo Diskusikan di Sini!

XHTML: You can use these tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>