Pemula Acad Lisp.3

HOME

Masalah untuk program rutin tertentu terkadang mengalami gangguan ketika loading atau berjalan, walaupun Hal ini tidak selalu terjadi tetapi cukup menjengkelkan.
Untuk menekan ini kita dapat menggunakan (princ) fungsi seperti:

(defun c:testline () <
        ;define the function
        (setq a (getpoint "\nEnter First Point : "))
        ;get the first point
        (setq b (getpoint "\nEnter Second Point : "))
        ;get the second point (command "Line" a b "")
        ;draw the line (princ) ;clean running
)       ;end defun
(princ)
;clean loading /span>

-------------------------------------------------------------------------------------------------------------------------------------- 

1  2  3