Membuat Label Koordinat Otomatis

3 komentar
Di sini kita akan buat label koordinat X dan Y secara otomatis dengan menggunakan bantuan autolisp.
Jadi nanti nya Autolisp ini akan bekerja seperti dimension seperti pada umum nya hanya output yang di keluarkan berupa koordinat X dan Y seperti contoh gambar di bawah ini.


Pertama tama silahkan anda copy paste script autolisp di bawah ini ke dalam notepad kemudian kalian save dengan nama Dimkoordinat.lsp



Jika sudah di save sekarang kita kembali ke autocad untuk memasukan autolisp tadi yang sudah di save.Berikut cara nya :

  • Di menu Command silahkan ketik APPLOAD
  • Kemudian pilih file Dimkoordinat.lsp yang sudah di save tadi.
  • Lalu Klik Load
  • kemudian pilih salah satu
    • Always Load = Untuk selalu me Load Autolisp itu ketika membuka gambar.
    • Load Once = Untuk meload sementara saja (anda harus me load ulang ketika gambar di close)
  • jika sukses akan mucul tulisan Dimkoordinat.lsp seccesfully loaded
  • kemudian klik close
Selanjut nya adalah kita akan memberi label koordinat nya sesuai titik yang ingin di beri label.

  • Di menu Command ketikan perintah nn
  • Enter
  • Di menu command akan muncul perintah insert point 
  • Lalu Klik titik yang ingin di beri label
  • Di menu command akan muncul perintah Pick Point For Text
  • Lalu klik di mana label nya ingin di munculkan.
  • Selesai.
Berikut Video nya :

Note :
  •  Anda juga bisa meninggal kan jejak dengan berkomentar di kolom komentar di bawah.
  • Terima kasih semoga bermanfaat :)

Related Posts

3 komentar

  1. tidak bisa di copy bang...

    BalasHapus
    Balasan
    1. kalau ndak bisa di copy di ketik, udah dikasi hati jangan minta jantung

      Hapus
  2. (defun c:nn (/ pnt gx gy gz pntt)
    (setvar "cmdecho" 0)
    (setq pnt (getpoint "\nInsert Point: "))
    (setq gx (car pnt))
    (setq gy (cadr pnt))
    (setq gz (caddr pnt))
    (setq pntt (getpoint "\nPick point for text: "))
    (command "dim" "leader" pnt pntt "" (strcat "X =" " "(rtos gx 2 3) " Y =" " "(rtos gy 2 3)) "exit")
    (princ)
    )

    BalasHapus

Posting Komentar

Subscribe Our Newsletter