这个提示，第一次碰到，不知怎么内在问题？

尘缘一生

增加一个注册应用程序 _APP0，以保存孤立的图元扩展数据。

win10  CAD2022,    怀疑2022问题


如题，这个问题？？？？一头雾水。
专门整理个清除所有扩展-3，问题依旧

• ;;去除实体扩展数据-----（一级）----
• (defun delxdata (ent app / entlst tmplst memb)
•   (setq entlst (entget ent app))
•   (foreach memb (cdr (assoc -3 entlst))
•     (setq tmplst (cons -3 (list (cons (car memb) nil)))
•       entlst (subst tmplst (assoc -3 entlst) entlst)
• 
  
  • entlst (entmod entlst)
    
•     )
•   )
• )
• ;;选择集去除-3组码----
• ;;ss选择集  K 选择方式  t 全图  nil 点选 框选
• (defun delss-3 (k / ss n)
•   (cond
•     ((= k t)
•       (princ (slmsg "\n -> 全图清理扩展实体-3组->" "\n -> 全圖清理擴展實體-3組->"))      
•       (setq ss (ssget "X" '((-3 ("*")))))
•     )
•     ((/= k t)
•       (princ (slmsg "\n -> 选择清理扩展实体-3组->" "\n -> 全圖清理擴展實體-3組->"))      
•       (setq ss (ssget ":S" '((-3 ("*")))))
•     )
•   )
•   (if ss
•     (progn
•       (repeat (setq n (sslength ss))
•         (delxdata (ssname ss (setq n (1- n))) '("*"))
•       )
•       (vla-regen *AcDocument* acAllViewports)
•     )
•   )
• )
  

这个问题的出现是我，运行了，块转参照提示的，把代码贴上

• 
  
  • ;;块转参照------
  • (defun c:blk2ref (/ e ss ss1 oldfdia n ssn pt10 czpath)
  •   (princ (slmsg "\n 选择转参照的图块->: " "\n 選擇轉參照的圖塊->: "))
  •   (_undo1)
  •   (setq e (entlast))
  •   (if (setq ss (ssget ":S" '((0 . "INSERT"))))
  •     (progn  
  •       (setq ssn (ssname ss 0))
  •       (setq pt10 (dxf1 ssn 10))
  •       (setq czpath (strcat (getvar "DWGPREFIX") (dxf1 ssn 2) (slsjqs) ".DWG"))
  •       (repeat (setq n (sslength ss))
  •         (exp-blk (ssname ss (setq n (1- n))))
  •       )
  •     )
  •   )
  •   (if (setq ss1 (last_ent e))
  •     (progn
  •       (command "-wblock" czpath "" pt10 ss1 "")
  •       (setq oldfdia (getvar "filedia"))
  •       (setvar "filedia" 0)
  •       (command "-XREF" "A" czpath pt10 1 1 0)
  •       (setvar "filedia" oldfdia)
  •     )
  •   )
  •   (_undo2)
  • )
    

最大可能是：-WNLOCK  这个命令问题，难道这个命令，存盘不支持长文件名？ 字典什么的都没有。

程序处理几年前我画的图纸也贴上。