应用opendcl时出现eLockViolation错误怎么处理？

etoxp

错误主要出现在下方 (entmod TextData)处，到网上也搜索了一下，说是要先锁定当前文档，才能进行写操作，否则只能读。。。但这些都不是针对lisp的。在用lisp编程时要如何解决呢？
我用的是Cad2012、Opendcl 7.0.1.4、windows xp。
另外我是重装电脑后才出现这种情况的，以前没有。而且以前编的Opendcl程序中也有entmod操作，现在仍然能正常运行。

(defun c:BHXT_Form0_tempTextButton_OnClicked (/ TEXTNAME TEXTDATA)
  (setq        TextName (car (entsel))
        TextData (entget TextName)
  )
  (setq        TextData (subst        (cons 1 "123")
                        (assoc 1 TextData)
                        TextData
                 )
  )
  (entmod TextData)
  (princ)
)

xgr

设置对话框这里试一试。