[编程申请]：从网上查到的块替换命令有问题，寻求帮助！

redbird

(defun c:kth(/ en s0 s1 s2 s3 s4);2007年4月修改了一下，但块的插入点不正确。更改块替换命令为kth
(setq s0 nil s1 nil s2 nil s3 nil s4 nil en nil)　
(setq s0(ssget));选择一个块　
(setq en(ssname s0 0));获得实体名称　
(setq s0(entget en))
(setq s1(cdr(assoc 2 s0)));获得块名　
(setq s2(cdr(assoc 10 s0)));获得插入点　
(setq s3(cdr(assoc 41 s0)));获得比例因子
(setq s4(cdr(assoc 50 s0)));获得旋转角度　
(setq s1(getstring "请输入新块的名称:"));输入新块名　
(COMMAND "ERASE" en "");删除旧块　
(COMMAND "INSERT" s1 s2 s3 s3 s4);插入新块完成替换
  )