[讨论]：一个有趣但另人费解的问题！

ww822

本人编写了一断“型”替换的程序，在Ｒ２ｋ中没有任何问题，但在Ｒ１４中，第一次运行没有问题，第二次运行，选择完实体后，ＣＡＤ就给出提示“INTERNAL ERROR:  !smio.cpp@351: eWasOpenForRead”。本人百思不得其解，把原程序贴出来，望高手指教！
;;;************************************************************
(DEFUN WENTVL (EN I / )
   (SETQ EN (ENTGET (SSNAME EN I)))
;;;   (SETQ EN (EntNext (CDR (CAR EN))) )
   (SETQ EN (vlax-ename->vla-object (CDR (CAR EN))))
   EN
)

;;;断面∝转换为断开线
(DEFUN C:DCHG ( / I J L OLDC OLDH OLDL OLDLL OLDO SS W WW)
  (SETQ OLDL (GETVAR "CLAYER"))
  (SETQ OLDC (GETVAR "CECOLOR"))
  (SETQ OLDLL (GETVAR "celtype"))
  (SETQ OLDH (GETVAR "HIGHLIGHT"))
  (SETQ OLDO (GETVAR "OSMODE"))
  (SETVAR "CMDECHO" 0)
  (SETVAR "BLIPMODE" 0)
  (SETVAR "HIGHLIGHT" 1)
  (SETVAR "OSMODE" 0)
  (PRINC "\n请选择要替换的断面：")
  (SETQ SS (SSGET '((0 . "SHAPE"))))
  (IF SS
    (PROGN
      (SETQ L (SSLENGTH SS))
      (PRINC (STRCAT "\n共选择到" (RTOS L 2 0)"“断面”！"))
    )
    (PROGN
      (PRINC "\n没有选择到“断面”！")
      (SETVAR "CECOLOR" OLDC)
      (SETVAR "CLAYER" OLDL)
      (SETVAR "celtype" OLDLL)
      (SETVAR "HIGHLIGHT" OLDH)
      (SETVAR "OSMODE" OLDO)
      (EXIT)
    )
  )
  (COMMAND "LOAD" "WWLIB.SHX") ;;可用其它型文件
  (COMMAND "UNDO" "BE")
  (SETQ I 0 J 0)
  (REPEAT L
    (SETQ WW (WENTVL SS I))
    (SETQ W (VLAX-GET WW "NAME"))
    (IF (OR (= W "ZHUDM2") (= W "ZHUDM1"))  ;;;可用其它型名称
      (PROGN
        (SETQ W (VLAX-PUT WW "NAME" "DKX"))
        (SETQ J (+ J 1))
      )
    )
    (SETQ I (+ I 1))
  )  
  (COMMAND "UNDO" "E")
  (PRINC (STRCAT "\n共替换了－" (RTOS J 2 0) "－断面！"))
  (SETVAR "CECOLOR" OLDC)
  (SETVAR "CLAYER" OLDL)
  (SETVAR "celtype" OLDLL)
  (SETVAR "HIGHLIGHT" OLDH)
  (SETVAR "OSMODE" OLDO)
  (PRINC "\nOK!")
  (PRINC)
)

XDSoft

最初由 ww822 发布
[B]本人编写了一断“型”替换的程序，在Ｒ２ｋ中没有任何问题，但在Ｒ１４中，第一次运行没有问题，第二次运行，选择完实体后，ＣＡＤ就给出提示“INTERNAL ERROR:  !smio.cpp@351: eWasOpenForRead”。本人百思不得其?.. [/B]

一般情况下，出现这种提示，是由于上次操作打开了某一个对象，但是操作后，没有关闭对象。再对这个对象进行操作，就会出错误了。

ww822

那么，应该如何关闭对象呢？

XDSoft

最初由 ww822 发布
[B]那么，应该如何关闭对象呢？ [/B]

你的程序没有用ARX啊，这可能是VLISP FOR R14的BUG,或者是你的机器装了什么其他的软件。

试试，启动ACAD后，什么也不做，直接运行你的程序看看是否出错误。若是，就是VLISP FOR R14的毛病了，试试“下载中心”的VLISP FOR R14正式版，看看如何，如何你是测试版本的话。

正航

VLISP的Ｒ１４的正式版没有２Ｋ好用。虽然是正式版，但感觉测试版中的有些问题正式版中也会有。

ww822

VLISP的Ｒ１４的正式版也存在同样的问题！