Multiple Scale

Command ini untuk mengubah skala object block, xref, text atau mtext dengan titik acuan pada insert point-nya. Pada saat melakukan Select objects kita bisa memilih seluruh object diatas. Berikut program autolispnya :

(defun c:msc ( / 1r ss1 2r num spnt)
  (setvar "cmdecho" 0)
  (command ".undo" "be")
  (setq ss1 (ssget '((-4 . "<OR")(-4 . "<AND")
                       (0 . "TEXT")
                     (-4 . "AND>")(-4 . "<AND")
                       (0 . "MTEXT")
                     (-4 . "AND>")(-4 . "<AND")
                       (0 . "INSERT")
                     (-4 . "AND>")(-4 . "<AND")(0 . "ATTDEF")(-4 . "AND>")(-4 . "OR>"))
            )
  )
  (setq 1r (getreal "\nSkala awal : "))
  (setq 2r (getreal "\nSkala baru : "))
  (setq num 0)
  (repeat (sslength ss1)
    (setq spnt (cdr (assoc 10 (entget (ssname ss1 num)))))
    (command "._scale" (ssname ss1 num) "" spnt "R" 1r 2r)
    (setq num (1+ num))
  )
  (command ".undo" "e")
  (princ)
)

Cara menggunakan program ini :

1. Copy dan paste program tsb ke dalam notepad

2. lalu save file tsb dengan extension .lsp

3. dari dalam program Autocad anda ketikan command / perintah APPLOAD

4. Pilih file lsp anda yg tadi kemudian klik tombol "load"

5. Setelah itu tutup dialog box dengan meng-klik tombol "close"

6. Pada command bar anda bisa masukan perintah msc

Silahkan dicoba.. :D