一个arx和一个lsp不兼容，如何解决？搞半天头大了

贱人

我加载了一个arx,作用是执行text命令时候自动切换到“标注”层，完后切换回原来的层，（也就是用text写的字都会自动放到“标注”层去），然后加载了下面插入系统日期的lsp，这lsp用起来就出错，单独正常的,下面图片上红线就是arx在自动切换层 (defun c:rq (/ tmp cy cm cd hh mm ss ms txt pt1)
(setq tmp (rtos (getvar "cdate") 2 16))
(setq cy (rtos (atof (substr tmp 1 4)) 2 0)
cm (rtos (atof (substr tmp 5 2)) 2 0)
cd (rtos (atof (substr tmp 7 2)) 2 0)
hh (rtos (atof (substr tmp 10 2)) 2 0)
mm (rtos (atof (substr tmp 12 2)) 2 0)
ss (rtos (atof (substr tmp 14 2)) 2 0)
ms(rtos (atof (substr tmp 16 2)) 2 0)
)
(setq txt (strcat "现在是：" cy "年"cm "月" cd "日" hh"时" mm "分" ss "秒" ms "毫秒"))
(setq pt1 (getpoint "\n\t放置点 : "))
(command "text" "j" "BL" pt1 "" "" txt)
(princ)
)

Ea

程序开始用 getvar 取当前层并保存，在 text 之前 setvar 设置图层，text 命令后再次用 setvar 返回原图层。