这个代码怎么在CAD2024上只能用一次，用第二次CAD就卡死了，的重新启动CAD才好用。

财源广进

你好大神这个代码怎么在CAD2024上只能用一次，用第二次CAD就卡死了，的重新启动CAD才好用。
(defun c:tt ()
  (defun _makeblk ()
    (if        (not (tblsearch "block" "xd_circle_wipeout_blk"))
      (progn
        (xdrx_circle_make '(0 0 0) 1.0)
        (xdrx_block_make
          "xd_circle_wipeout_blk"
          (entlast)
          '(0 0 0)
          t
        )
      )
    )
  )

  (if (not #xd_var_circle_radius)
    (setq #xd_var_circle_radius 10)
  )
  (if (setq
        val (getreal
              (xdrx_prompt "\n输入半径<" #xd_var_circle_radius ">:" t)
            )
      )
    (setq #xd_var_circle_radius val)
  )
  (if (and (xdrx_initssget "\n选取要处理的多段线<退出>:")
           (setq ss (xdrx_ssget '((0 . "*POLYLINE"))))
      )
    (progn
      (_makeblk)
      (vl-cmdf "wipeout" "f" "off")
      (mapcar '(lambda (x)
                 (mapcar '(lambda (y)
                            (xdrx_insert_make
                              "xd_circle_wipeout_blk"
                              y
                              #xd_var_circle_radius
                              0.0
                            )
                          )
                         (xdrx_getpropertyvalue x "vertices")
                 )
               )
              (xdrx_pickset->ents ss)
      )
      (xdrx_insert_appendWipeout (entlast))
    )
  )
  (princ)
)

13174545660

我的CAD是2021，试了，也是第二次使用就会崩溃