[编程交流] This code lack a step ,somebod

(defun C:NONAME_BLK (/ HOLDECHO HOLDBLIP A AA BLKREF) (command "_.undo" "_group") (setq HOLDECHO (getvar "cmdecho")) (setq HOLDBLIP (getvar "blipmode")) (setvar "cmdecho" 0) (setvar "blipmode" 0) (prompt "\nSelect object to establish anonymous block: ") (setq AA (ssget)) (setq A (rtos (* (getvar "CDATE") 1E8))) (if (/= AA NIL)   (progn     (command "_.BLOCK" A "0,0" AA "")     (command "_.INSERT" A "@" "" "" "")     (setq BLKREF (vlax-ename->vla-object (entlast)))     (vla-put-name(vla-item (vla-get-blocks     (vla-get-activedocument (vlax-get-acad-object))   )   (vla-get-name BLKREF))"*U"     )     (vlax-release-object BLKREF)   )   (alert "\nNot select any object!") ) (setvar "blipmode" HOLDBLIP) (setvar "cmdecho" HOLDECHO) (command "_.undo" "_end") (princ))

(setq AA (ssget))[color="blue"](prompt "\nPick Insertion point ")[/color] (setq A (rtos (* (getvar "CDATE") 1E8))) (if (/= AA NIL)   (progn     (command "_.BLOCK" A [color="blue"]"\" [/color]AA "")..