سلام از این لیسپ هم میتونی استفاده کنی
(defun *error* (msg) (princ "error: ") (princ msg) (terpri))
(defun ang ()
(setq a1 (getangle "Angle block:"))
(setq p1 (getpoint "Select a point:"))
(setq a2 (angtos a1 0 2))
)
(defun c:idc ()
(setvar "cmdecho" 0)
(command "blipmode" "on")...