更改CAD匿名块

(defun C:linminkuai (/ ss2 ss1 *APP *DOC A AA apple_sel apple_nnblk i bbb) (setq ss2 (uINT 1 "" "1.改