Seri Belajar AutoLISP

Sekarang kita akan belajar membuat lingkaran. Biasanya membuat lingkaran adalah dengan memasukkan parameter jari-jari (r) atau diameternya (d). Tetapi kali ini kita akan belajar membuat lingkaran dengan memasukkan nilai luasan lingkaran tersebut sebagai parameternya.

Program untuk membuat lingkaran dengan data inputnya adalah luas daerah lingkaran
(05/05/2015)
(defun c=a2c ()
(Setq pt1 (getpoint \nTentukan titik peletakan circle = ))
(setq area (getdist \nMasukkan Masukkan luas area lingkaran <1000>= ))
(while (null area) (setq area 1000))
(setvar cmdecho 0)
(setq hasil (sqrt (/ area pi)))
(command circle pt1 hasil)
(setvar cmdecho 1)
(princ)
)
(alert Program A2C - Membuat lingkaran dengan data luas lingkaran
Ketik = a2c untuk menjalankannya )

Tutorial by Heri Agus Purwono

Sekian, semoga bermanfaat