[编程交流] 过滤输出用户输入

(defun c:test ( / input )
 (while
   (progn (initget "Feedrate Gcode")
     (setq input (entsel "\nSelect Arc or [Feedrate/Gcode] <Exit> : "))
     (cond
       ( (and (listp input) (eq 'ENAME (type (car input))))
         (if (eq "ARC" (cdr (assoc 0 (entget (car input)))))
           (princ (strcat "\n:: Radius = " (rtos (cdr (assoc 40 (entget (car input))))) " ::"))
           (princ "\n** Object is not an Arc **")
         )
       )
       ( (eq "Feedrate" input)
         (princ "\nYou have Selected Feedrate")
       )
       ( (eq "Gcode" input)
         (princ "\nYou have Selected Gcode")
       )
     )
   )
 )
 (princ)
)