在书中程序T502.LSP片段中，(entdel SPN)无法删除点?????

龙龙仔

在<Visual lisp 程序设计>书中程序T502.LSP片段中，为何(entdel SPN)无法删除点?????
……
(repeat SN
    (setq SPN (ssname SS SNN))
    (setq SDP (cdr (assoc 10 (entget SPN))))
    (setq SNN (1- SNN))
    (entdel SPN) ;;无法删除点?????在command命令作用中可能无效!!!!
    (command SDP)
)
……

类似的程序T521.lsp却没有问题.

陈伯雄

不应当把同样是数据库操作的功能，包在Command函数内部。
这是我的错。