Saya ingin mempersingkat commamd standard yang ada di AutoCAD yang menggunakan banyak option, menjadi instant (tidak perlu milih option lagi), contohnya yg sudah ada "ZE" zoom extend.

Misalnya saya ingin membuat Zoom Realtime menjadi ZR, gimana yaaa cara membuat...,apakah dapat hanya dengan melalui file acad.pgp atau perlu memodifikasi programnya.

Terimakasi.

Di file acad.pgp saya cari tidak ada fasilitas untuk merubah itu, dan saya temukan ini di file acad.mns dengan simbol kode "ID_ZoomRealt" di bagian "***POP3", cuma saya ngak tahu kode itu berada di mana, kayanya sih fasilitas tersebut di sembunyikan.

Wah mantaps Bang Udaaf, kalau yang Zoom, Window, terus pilih endpoint gimana??

trims



syt

Copy kode ini di save as "zoom.lsp",simpan di "tool > load application > cintents > add > close > close.

Terimakasi ilmunya Pak Adesu.

Saya mencoba command standard lain misal untuk mempersingkat membuat lingkaran dengan radius:

(defun c:cr ()
(command "_circle" "")
)

Namun saya ingin untuk mempersingkat lagi, misalnya untuk membuat lingkaran dengan radius 5:

(defun c:cr5 ()

Apakah bisa perintah seperti circle tsb dimodifikasi untuk menerima nilai variable pada input defun-nya, apakah mungkin dengan ActiveX.

Salam,
Pither

code

(defun c:cr5()
(setq point (getpoint "\nMasukkan titik pusat cr5: "))
(setq rad 5.0)
(command "circle" point rad)
(princ)
)

jangan lupa setelah di save jadi file lsp terus disimpan dan di load application kayak yang ditulis pak adesu kemarin


syt