写一段指令，用本班十名同学的名字中随机抽取一名来显示（提示：可以使用元胞数组和randsrc指令）

首先，我们需要创建一个元胞数组来存储十名同学的名字。然后，使用randsrc指令从数组中随机抽取一名同学的名字。 解析： 1. 创建一个元胞数组，包含十名同学的名字。 2. 使用randsrc指令从元胞数组中随机抽取一名同学的名字。 3. 显示抽取到的同学的名字。 代码： ```scss (defun c:random-name (/ arr) (setq arr '("张三" "李四" "王五" "赵六" "孙七" "周八" "吴九" "郑十" "陈十一" "林十二")) (setq i (rand-int (1+ (length arr)))) (princ (nth i arr)) ) ```